Рисунок в Title

← →
dimis (2003-02-28 09:43) [0]

Использую DBGridEh
Он позволяет поместть в Title колонки рисунок или текст
а мне необходимо и то и другое
как сделать?

← →
Johnmen (2003-02-28 09:47) [1]

Текст - как обычно, рисунок - отрисовывать на Canvas"е в событии отрисовки Title...

← →
dimis (2003-02-28 09:56) [2]

я так и понял
а что за событие?
DrawColumnCell видимо
но как понять что отрисовывается именно Title

← →
Sergey13 (2003-02-28 09:57) [3]

2dimis (28.02.03 09:43)
>Рисунок в Title
Очень актуальный вопрос, особенно в контексте работы именно с БД. 8-)
А кино тебе не хочется в титл запихать? Кульно получилось бы.

← →
dimis (2003-02-28 10:02) [4]

Sergey13
не иронизируй
нужен именно рисунок!!! кина пользователь пока не требует

> Очень актуальный вопрос, особенно в контексте работы именно
> с БД.

из этой фразы вытекает, что форум только по вопросам "как составить SQL?"
я всегда думал, что по вопросам взаимодействия Delphi(Cbulder) и БД

← →
Sergey13 (2003-02-28 10:30) [5]

2dimis (28.02.03 10:02)
>я всегда думал, что по вопросам взаимодействия Delphi(Cbulder) и БД
Вот именно. А ты занимаешься вопросом взаимодействия твоей программы и пользователя. Это называется пользовательский интерфейс. К БД он не имеет никакого отношения.
Впочем, не мое это дело. Что хочешь то и делай. Тебе за это деньги платят (надеюсь).
Просто у меня тоже был такой период. Когда только начал заниматься делфой после клиппера и обалдел от всяких возможных красивостей. Потом понимаешь, что КАК выглядит прога - не главное (хот и не последнее). Главное - как работает. Должна правильно и эфективно , и уж потом по желанию красиво.
Не обижайся.
Кстати по твоему вопросу. У тебя (или клиентов) винда не 9х случайно? В этом случае с таким "украшательским" подходом легко получить нехватку GDI ресурсов на машине(лузут ошибки, что мол канвас не может риовать и прочие виолайшены). Именно DBGridEh кушает их - только давай, особенно (я заметил) когда именно с титлами балуешься.

← →
sniknik (2003-02-28 10:36) [6]

рисунок (делается при сортировке по полю), правда использую стандартный грид.
type TMyDBGrid = class(TDBGrid) procedure DrawCell(ACol, ARow: Longint; ARect: TRect; AState: TGridDrawState); override; ........ procedure TMyDBGrid.DrawCell(ACol, ARow: Longint; ARect: TRect; AState: TGridDrawState); ....... inherited DrawCell(ACol, ARow, ARect, AState); if (gdFixed in AState) and (ACol = SortedField) and (ARect.Left < ARect.Right-10) then begin if SortedOrder = 0 then AcsDescImages.Draw(Canvas, ARect.Right-10, ARect.Top+6, 0, True) else AcsDescImages.Draw(Canvas, ARect.Right-10, ARect.Top+6, 1, True); end; end;

← →
dimis (2003-02-28 10:54) [7]

Спасибо sniknik
я тоже пришел к тому, что придется писать наследника,а так не хотелось :(
а что за процедура AcsDescImages.Draw?
>> Sergey13
не будем развивать флейм
если вопрос не относится к данному форуму, модератор его удалит

← →
sniknik (2003-02-28 10:58) [8]

сори не учел (надо было кусочек побольше скопировать)
AcsDescImages: TImageList;
у меня там картинки хранятся.

← →
Johnmen (2003-02-28 11:04) [9]

Есть еще вариант решения, но не очень красивый и связанный с подправлением исходников...

← →
dimis (2003-02-28 11:15) [10]

Рисунок в Title Найти похожие ветки