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

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

RichEdit... CheckListBox [D6, Win2k]

Страницы:   < 1 2 >

EugenCFG ©   (2002-07-18 23:10:00) 

Как в этих компонентах можно вставить рисунок????

---

Song   (2002-07-23 13:18:00) [21]

BitMap:TBitMap;

TRichEdit:

With TCanvas.Create Do
try
Handle:=GetDC(RichEdit1.Handle);
BitMap:=TBitMap.Create;
BitMap.LoadFromFile("1.bmp");
Draw(10,10,BitMap);
BitMap.Free;
finally
Free;
end;


TCheckListBox:

procedure TForm1.CheckListBox1DrawItem(Control: TWinControl;
Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
With TCheckListBox(Control) Do
Begin
BitMap:=TBitMap.Create;
BitMap.LoadFromFile("1.bmp");
Canvas.FillRect(Rect);
Canvas.Draw(Rect.Left+2,Rect.Top+2,BiMap);
Canvas.TextOut(Rect.Left+20,Rect.Top+2,Items[Index]);
BitMap.Free;
End;
end;


---

EugenCFG   (2002-07-23 13:11:00) [22]

А где бы пример можно глянуть?

---

Song   (2002-07-23 10:01:00) [23]

В TRichEdit рисовать на канвасе
В TCheckListBox тоже самое на событие onDrawItem

---

EugenCFG   (2002-07-23 08:43:00) [24]

Можно вставлять любые....
по крайней мере в CheckList это 100%

---

AL2002   (2002-07-18 23:35:00) [25]

По-видимому, никак, окромя символьных рисунков.

---

Страницы:   < 1 2 >

Наверх