два вопроса по TComboBox

← →
>>DEATH<< (2007-08-03 22:08) [0]

подскажите как сделать:
1 как зафиксировать Tехt(чтоб нельзя было менять)
2 как прорисовывать картинку перед надписью

← →
Loginov Dmitry © (2007-08-03 22:34) [1]

1. Style = csDropDownList
2. как рисуешь? что не получается?

← →
>>DEATH<< (2007-08-03 22:49) [2]

> 2. как рисуешь? что не получается?

я и спрашиваю как рисовать

← →
>>DEATH<< (2007-08-03 22:50) [3]

> 2. как рисуешь? что не получается?

я и спрашиваю как рисовать

> [3] >>DEATH<< (03.08.07 22:50)
> я и спрашиваю как рисовать

Ну можно например так:
........ private BitmapIco: TBitmap; { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin ComboBox1.Style:=csOwnerDrawFixed; ComboBox1.ItemHeight:=21; BitmapIco:=TBitmap.Create; BitmapIco.Width:=ComboBox1.ItemHeight; BitmapIco.Height:=BitmapIco.Width; BitmapIco.Canvas.StretchDraw(BitmapIco.Canvas.ClipRect, Application.Icon); end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin BitmapIco.Free; end; procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); begin with TCombobox(Control) do begin Canvas.FillRect(Rect); Canvas.StretchDraw(Classes.Rect(Rect.Left, Rect.Top, Rect.Left+BitmapIco.Width, Rect.Bottom), BitmapIco); Canvas.TextOut(Rect.Left+BitmapIco.Width+2, Rect.Top+2, Items[Index]); end; end;
Пример не из лучших, но понять как "рисовать" в элементах "комбика" можно.... Я взял для простоты иконку приложения для рисунка...
Наиболее "важные" моменты выделил жирным... Кстати этот пример отвечает на оба вопроса из [0].....
Я хоть и не использовал в данном примере State, но выделил его.... стоит обратить на этот параметр внимание....

← →
>>DEATH<< (2007-08-04 04:51) [5]

пасибо разобрался

два вопроса по TComboBox Найти похожие ветки