| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

dmitriyk ©   (2002-02-18 02:49:00) 

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

---

dmitriyk   (2002-02-20 22:54:00) [1]

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

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

---

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

По-моему легче самому задать стиль окна ( 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) просто глазу незаметно

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

---

Наверх