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

Вниз

два вопроса по 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. как рисуешь? что не получается?

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

---

← →
{RASkov} ©   (2007-08-04 02:37) [4]

> [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]

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

---

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

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

Наверх

Память: 0.45 MB
Время: 0.043 c