Никто не встречал компонент TDBGrid у которог можно былобы вставить фоновую картинку ?

← →
dmitriyk (2002-02-18 02:49) [0]

Здрасте все.
Господа ! Никто не подскажет, может быть кто нибудь знает где можно взять компонент для БД. типа TDBGird - у которого бы можно былобы вставить фоновую картинку.
А еще лучше, что бы он мог бы быть transparent := True. Т.е прозрачный.
И попутно, мне нужен компонент TMemo - с аналогичными возможностями.
Пожалуйста.

← →
Севостьянов Игорь (2002-02-20 21:59) [1]

По-моему легче самому задать стиль окна ( TDBGrid дальний наследник от TWinControl) c помощью SetWindowLong

Где-то так

procedure SetWindowTransparent; var Style: Longint; hWnd: THandle; begin hWnd := Handle; //Handle нужного окна Style := GetWindowLong(hWnd, GWL_EXSTYLE); Style := Style or WS_EX_TRANSPARENT; SetWindowLong(hWnd, GWL_EXSTYLE, Style); end;
Сам не пробовал, пишу от руки без делфей, код верный а поможет ли не знаю...

Картинку вставить ? Ну так поискал бы хоть - примеров полно
Попробую навскидку написать сейчас
Ну например так:

procedure TMemo1.OnChange; begin Image1.Refresh; // картинка все время поверх букв end; procedure TMemo1.OnChange; begin Image1.Parent := Memo1; // картинка в Memo1 Image1.Align := alClient; end;
Это грубо, но ты посмотри лучшей TBitmap.Draw в исходниках Делфей

Для TDBGrid конечно все хуже - там каждая ячейка отрисовываеться постоянно ( WM_PAINT) просто глазу незаметно

А вообще ищи, дерзай. Инет - большая свалка - чего только нет
Усё - вопросы по мылу

← →
dmitriyk (2002-02-20 22:54) [2]

Я так понял, что ПОКА ни у кого не вставал такой вопрос, потому, что ответов практически нет.

>Севостьянов Игорь
Спасибо и на этом !
Удачи.

Никто не встречал компонент TDBGrid у которог можно былобы вставить фоновую картинку ? Найти похожие ветки