Текущий архив: 2004.01.23;
Скачать: CL | DM;

Вниз

Картинка в ListBox   Найти похожие ветки 

← →
Adil Aliyev   (2004-01-12 11:02) [0]

Как делать чтобы в каждом ListBox.item был иконка(16x16)?

---

← →
[lamer]Barmaglot ©   (2004-01-12 11:09) [1]

Использовать ListView?
Попытаться рисовать ручками?

---

← →
Adil Aliyev   (2004-01-12 11:13) [2]

Мне нужен ListBox

---

← →
alex_*** ©   (2004-01-12 11:18) [3]

тогда рисуй руками

---

← →
Adil Aliyev   (2004-01-12 11:31) [4]

Как???? С карандашами, на мониторе?????

---

← →
хамло   (2004-01-12 11:33) [5]

ListBox.Style = lbOwnerDrawVariable или lbOwnerDrawFixed
+
OnDrawItem

---

← →
Serge ©   (2004-01-12 11:37) [6]

Почему " С карандашами..." , есть мышка, есть клавиатура на которой есть кнопочка F1 :)

---

← →
Adil Aliyev   (2004-01-12 11:39) [7]

У меня F1 сломанный. Не работает...

---

← →
alex_*** ©   (2004-01-12 11:42) [8]

Альтернативный вариант: меню Help->Delphi help

---

← →
хамло   (2004-01-12 11:44) [9]

procedure TForm1.lbPrevDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
if odSelected in State then
TListBox(Control).Canvas.Brush.Color:=clHighlight;
TListBox(Control).Canvas.FillRect(Rect);
ImageList.Draw(TListBox(Control).Canvas, Rect.Left+2, Rect.Top+((Rect.Bottom-Rect.Top-ilTree.Height)div 2), 0);
end;

рисует в каждом елементе иконку с номером "0" из ImageList.

---

← →
Adil Aliyev   (2004-01-12 11:47) [10]

Спасибоооо

---

← →
Serge ©   (2004-01-12 11:48) [11]

У вас уважаемый не F1 сломанный - у вас с общением проблема. Когда обращаются за помощью - не хамят.
Надеюсь поможет!

Procedure TfmConversii.ListaVal1DrawItem(Control: TWinControl;
Index: Integer; Rect: TRect; State: TOwnerDrawState);
Var
LRect, RRect: TRect;
bmp: tbitmap;
RColor, LColor: TColor;
Begin
LRect := Rect; LRect.Right := LRect.Left + 24; RRect := Rect; RRect.Left := LRect.Right + 4;
bmp := tbitmap.create;
If odSelected In state Then
Begin
LColor := $00DCB4B7; RColor := $00DCB4B7; End
Else
Begin
LColor := clBtnFace; RColor := $00EAEAEA; End;
With TListBox(Control).Canvas Do
Begin
Brush.Style := bsSolid;
Brush.Color := RColor;
FillRect(Rect);
Brush.Color := LColor;
FillRect(LRect);
If DM.Query_Valute.Locate("ABR", TListBox(Control).Items[Index], []) Then
Begin
If Not (DM.Query_Valute.FieldbyName("Bitmap").IsNull) Then
Bmp.Assign(TBLOBField(DM.Query_Valute.FieldbyName("Bitmap")));
BrushCopy(classes.Rect(LRect.Left + 4, LRect.Top + 1,
LRect.Left + 20, LRect.Top + 16), Bmp, classes.Rect(0, 0, 16, 16), clmaroon);
Brush.Style := bsClear;
Font.Color := clNavy;
DrawText(TListBox(Control).Canvas.Handle, PChar(DM.Query_Valute.FieldbyName("ABR").AsString),
length(DM.Query_Valute.FieldbyName("ABR").AsString), RRect,
DT_SINGLELINE + DT_VCENTER + DT_LEFT);
Bmp.free;
End;
End;
End;



Да, и клаву новую купи! F1 - страшно нужная кнопка!

---

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

Текущий архив: 2004.01.23;
Скачать: CL | DM;

Наверх

Память: 0.49 MB
Время: 0.016 c