Скачать: CL | DM;

Народ, как бы в DBCtrlGrid-e использовать картинку для   Найти похожие ветки 

← →
Rub ©   (2002-05-17 14:01) [0]

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

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

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

---

← →
Lusha ©   (2002-05-17 14:06) [1]

TDBRadioGroup...

---

← →
Romkin ©   (2002-05-17 14:10) [2]

Ну с показом картинки из поля таблицы проблем нет - сажаешь DBImage и пользуешься.
А вот изображение статуса... Можно попробовать на OnPaintPanel рисовать на ней что нужно, через метод PaintTo какой-нить картинки. Запись при вызове этого эвента та, что нужно

---

← →
Rub ©   (2002-05-17 14:37) [3]

2 Romkin:

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

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

---

← →
ioSan ©   (2002-05-17 14:41) [4]

Rub

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

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

---

← →
Rub ©   (2002-05-17 14:48) [5]

Не катит - клиент хочет светофорную тематику.

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

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

---

← →
Rub ©   (2002-05-17 15:05) [6]

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

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

---

← →
Lusha ©   (2002-05-17 15:11) [7]

Я не понял причин для таких извращений...
Все делается элементарно, при помощи TDBCtrlGrid.Canvas...

---

← →
vpevnev   (2002-05-17 15:55) [8]

Попробуй так, у меня работает (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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.009 c