Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Народ, как бы в DBCtrlGrid-e использовать картинку для [MSSQL]

Rub © (2002-05-17 14:01:00)
отображения состояния объекта. Он (объект) может быть скажем в одном из 3-х состояний :
1. Свободен
2. Занят
3. Забронирован

Не хочется писать словами, а хочется использовать картинки вместо.

Кто-нибудь делал?

vpevnev (2002-05-17 15:55:00) [1]
Попробуй так, у меня работает (dbImage1 лежит на гриде ни к чему не привязанный):
procedure TParamForm.DBCtrlGrid1PaintPanel(DBCtrlGrid: TDBCtrlGrid; Index: Integer);
var p:TPicture;
begin
If qPar.FieldValues["Control"]="Y" then
begin
P:=TPicture.Create;
p.LoadFromFile("d:\bitmaps+\1\About.bmP");
dbImage1.Picture.Assign(P);
p.Free;
end
else
begin
P:=TPicture.Create;
p.LoadFromFile("d:\bitmaps+\1\5disk.bmP");
dbImage1.Picture.Assign(P);
p.Free;
end;
end;

Lusha (2002-05-17 15:11:00) [2]
Я не понял причин для таких извращений...
Все делается элементарно, при помощи TDBCtrlGrid.Canvas...

Rub (2002-05-17 15:05:00) [3]
HDC DC = GetDeviceContext(BoardsGrid->Handle);
GroupBox6->PaintTo(DC, 10, 10);

делает, но, Handle какого бы контроля я ни подставил картинка рисуется в главном окне "под" ним и контрол перекрывает ее.
В моем случае у меня TDBCtrlGrid лежит в TPanel, а TPanel, в свою очередь в TPageControl-e.

Rub (2002-05-17 14:48:00) [4]
Не катит - клиент хочет светофорную тематику.

HDC DC = GetDeviceContext(BoardsGrid->Handle);
GroupBox6->PaintTo(DC, 10, 10);

делает, но, Handle какого бы контроля я ни подставил картинка рисуется в главном окне "под" ним и контрол перекрывает ее.
В моем случае у меня TDBCtrlGrid лежит в TPanel, а TPanel, в свою очередь в TPageControl-e.

ioSan (2002-05-17 14:41:00) [5]
Rub

А такой вариант:

Берешь шрифт Wingdins и если там что подберешь, с ним играешь.

Rub (2002-05-17 14:37:00) [6]
2 Romkin:

HDC DC = GetDeviceContext(&Main);
Image2->PaintTo(DC, 10, 10);

Но, PaintTo не есть метод принадлежащий классу картинки TImage.
Как быть?

Romkin (2002-05-17 14:10:00) [7]
Ну с показом картинки из поля таблицы проблем нет - сажаешь DBImage и пользуешься.
А вот изображение статуса... Можно попробовать на OnPaintPanel рисовать на ней что нужно, через метод PaintTo какой-нить картинки. Запись при вызове этого эвента та, что нужно

Lusha (2002-05-17 14:06:00) [8]
TDBRadioGroup...

Наверх

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