» Вопросы по Delphi 2

Всем привет. Уперся рогом, не пойму как решить.
Опишу задачу.
Есть центр, в который сдает залы в почасовую аренду. Сейчас учет ведется в Excel в столбцах - залы, в строках часы. Один месяц - один лист. Бронирование зала арендатором отображается объединением ячеек столбца (сколько часов - столько ячеек) В ячейке пишется: ФИО (или организация) Время начала аренды, время окончания, название мероприятия и требующееся дополнительное оборудование).
В целом администратора все устраивает в текущей ситуации, за исключением сложностей с хоть какой-то статистикой.
Замена на Access как-то не очень устраивает - слишком привязались к простоте графического оформления в Excel

Как в Delphi решить вопрос отображения одного дня не с помощью StringGrid, но чтобы по процессу работы это походило на Эксельку (Мышой выделили "ячейки", объединил)
Если извращаться над StringGrid черз OnDrawCell так как пишут многие товарисчи в статьях, получаются побочные эффекты (например, перестает работать RangeSelect)

Может я немного сумбурно вопрос ставлю, но вот пока так получилось

Zergboy
А просто у объединенных ячеек фон другой сделать?
например красный, зеленый и т.д.

Zergboy
_http://devexpress.com/Products/VCL/ExSpreadSheet/Index.xml

Цитата:

А просто у объединенных ячеек фон другой сделать?
например красный, зеленый и т.д.

Ну это ж опять-таки через OnDrawCell придется делать, а глюк этого метода - перекрытие объедниения ячеек (т.е. если в OnDrawCell что-то рисуешь, то выделить диапазон мышой не получится - сетка каждый раз перерисовывается и сбрасывает выделение, хотя может я чего и не выткаю, но мой опыт такой)

ExSpreadSheet кажется более интересным замороком, сейчас в поисках сами знаете чего, а то 500 баков - это уж слишком

В обменнике нету?

Zergboy
Присмотрись к VirtualTreeView. Бесплатно.

Цитата:

В обменнике нету?

ExSpreadSheet адекватных экономических решений вопроса регистрации не нашел (может не там искал, хотя варезник весь облазил)
Скачал VirtualTreeView - посмотрим-разберемся. Выглядит/звучит, по крайне мере, любопытно.
Спасибо за участие

Zergboy
Стучись в ПМ, демки и хелп тяжеловаты для меня, конечно, но самим пакетом Девок смогу помочь.

Zergboy

Цитата:

ExSpreadSheet кажется более интересным замороком

TAdvSpreadGrid (TMS) и Next Sheet (http://www.bergsoft.net/index.php?section=components&page=nextsheet) ещё есть, правда, не уверен, что они круче.

Спасибки. Скачал, посмотрю сейчас, что за звери такие

Приветствую!!!
Вопрос может показаться вам очень простым, но он поставил меня в тупик.
Самое главное мне правильно его изложить.
Есть "Редактор" (StringGrid), у него есть ScrollBar.
Теперь суть, прокрутка идет следующим образом: я щелкаю на строке StringGrid'а и начинаю крутить колесико мышки, происходит следующее: выделение строки прокручивается, допустим, вниз и дойдя до предела видимой области StringGrid начинает прокручивать ScrollBar.
А хотелось по другому: я щелкаю на StringGrid и прокручивая колесико мышки прокручиваz сразу ScrollBar.
Заранее спасибо.

Eniq

Код: procedure TForm1.StringGrid1MouseWheelDown(Sender: TObject;
Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
StringGrid1.Perform(WM_VScroll, SB_LINEDOWN, 0);
end;

procedure TForm1.StringGrid1MouseWheelUp(Sender: TObject;
Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
StringGrid1.Perform(WM_VScroll, SB_LINEUP, 0);
end;

Как сделать, чтобы Делфи при компиляции не создавала бэкап исходников (с символом ~ в расширении)?

Не нашел топика по BDS 2006, посему вопрошаю тут:
недавно поставил сию среду (только Delphi) и в один "прекрасный" день почему-то перестал работать Enter при завершении кода (Code Completition), хотя мышкой все выбирается прекрасно. Что случилось, как победить - может кто знает?

relictus
Скорее всего слетела раскладка гарячих клавиш. Править - Tools -> Option
Пункт Editor Options
ищем комбобокс с именем Editor SpeedSetting. Переключаемся на какую-либо раскладку, сохраняемся. Потом ещё раз переключаемся на Default.
Обычно это спасает от разных проблем с "клавиатурой"

Jokerjar
Tools \ Options \ EditorOptions \ Create backup files

Jokerjar
как вариант - поставить GExperts и просто чистить эти бэкапы с ~

Zergboy
Можно в Оутлуке такую вещь сделать,
или cxSheduler взять у того же DevExpress'а
http://www.devexpress.com/Products/VCL/ExScheduler/
там кстати демка есть хорошая

OdesitVadim
Уж не знаю как смогла слететь раскладка, но твой совет помог. Спасибо!

нужна компонента для отображения тсруктуры каталогов диска

в принципе есть TDirectoryListBox, но в ней не устраивает то, что если к примеру, каталог первого уровня содержит три подкаталога второго уровня, то при открытии одного из этих трёх каталогов остальные два каталога второго уровня исчезают и становятся видимыми при открытии опять только каталога первого уровня

хотелось бы, чтобы открытие одного каталога второго уровня не скрывало остальные каталоги второго же уровня

какими компонетнами можно воспользоваться?
никаких других наворотов не нужно, поэтому бесплатные и ненавороченные компоненты предпочтительнее

rs
В делфи вообщето есть такое дело, называется ShellTreeView (кажеться). в 7 и старше.
Но кто мешает написать свой? Там писать на пол часа

Подскажите страждущему:
Есть такой кусок, где Table1 это файл DBF .

Table1.First;
while not Table1.Eof do
begin
Table1.Delete;
end;

После данной манипуляции, данный файл - как бы очищается, т.е. если его открыть в Excel - нормально, а если в любом DBF Viewer, то видно, что все ранее удаленные выше указаным способом записи оказались ЛИШЬ ПОМЕЧЕННЫМИ на удаление.

Подскажите в чем суть моего непонимания момента. И как (в двух словах) это разрешить

Привет всем.
нет ли у кого нибудь русского хелпа к делфям 6 и 7?
Все почти перерыл, или деньги хотят или к 5 или лажа...
Мне нужно чтобы как родной работал по F1.

megarom
Варёз здесь не обсуждается.

OdesitVadim

Цитата:

Варёз здесь не обсуждается.

А причем тут варез?
У меня лично и по англицки нормально, а вот другу детей учить надо, он учитель.
Прочитай внимательно вопрос, прежде чем флудить.
И если ты такой грамотный подскажи мне ЛИЧНО, можно как организоватьв памяти некий многомерный массив, и обращаться к нему в разрезе определенной аналитики.

Цитата:

OdesitVadim

спасибо, нашёл демо с использованием TShellTreeView и TShellListView

но в хелпе про эти компоненты ни слова, по исходникам тоже не понял, как мне назначив к примеру в качестве 'c:\' Root для TShellTreeView, программно перейти в отображаемом дереве с корнем в 'c:\' к узлу (каталогу) 'c:\temp\1'?

в TDirectoryListBox для этого есть Directory...

как программно селектировать файл по имени в TShellListView?

как программно просмотреть все узлы поддерева?

megarom
Может это?
http://forum.ru-board.com/topic.cgi?forum=35&topic=21284&start=80#lt

megarom

Цитата:

И если ты такой грамотный подскажи мне ЛИЧНО, можно как организоватьв памяти некий многомерный массив, и обращаться к нему в разрезе определенной аналитики.

я не такой грамотный, но, если я вас правильно понял, посмотрите в сторону таблиц в памяти:
SQLMemTable (смотри http://www.aidaim.com)
TClientDataSet
JvMemoryData (из JEDI)

TOPEugeni
нужно произвести т.н. "упаковку" данных. Для этого ОБЯЗАТЕЛЬНО открыть таблицу в монопольном режиме. Пример из DelphiWorld (рекомендую все новичкам и не только) [more]
Для dBase:
uses
DbiProcs;

with Table1 do
begin
Close;
Exclusive := True;
Open;

DbiPackTable(DBHandle, Handle, nil, nil, True);
{^ здесь можно добавить check()}

Close;
Exclusive := False;
end;
[/more]

TOPEugeni
Следующие операторы очищают ту же таблицу, удаляя из нее все записи.
Таблица должна быть открыта в эксклюзиве, т.е. Exclusive := True.
Вызов метода Pack не нужен.

with Table1 do
begin

{ таблица переводится в неактивное состояние }

Active := False;

{ удаление всех записей}

EmptyTable;

end;

relictus
Спасибо