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

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

перерисовка combobox

Nick87 ©   (2008-09-23 15:57:00) 

помогите с кодом перерисовки combobox.

procedure TForm1.cmp_ComboBoxDrawItem(Control: TWinControl; Index: Integer;
 Rect: TRect; State: TOwnerDrawState);
var
 C: TControlCanvas;
 R: TRect;
begin
 // ...
 
C.TextOut(20, 3, cmp_ComboBox.Items[Index]);
 C.StretchDraw(R, B);

//. ..
end;

при открытии выпадающего списка ничего не перерисовывается остаеться белая область помогите исправить

---

Поросенок Винни-Пух   (2008-09-23 16:15:00) [1]

Если передавать в StrechDraw параметр Rect из процедуры то картинка растянется по всей длине,  а мне нужно чтобы она была оределенного размера (скажем 16x16) после которой следовал бы текст

<Цитата>

Рисовать надо "здесь" на переданном рект'е, а не "там"

R.Left := 3;
R.Top := 3;
R.Right := 16;
R.Bottom := 16;

Зашибись.
Это смещения относительно столба или обеда?

---

clickmaker   (2008-09-23 16:15:00) [2]

а почему не TComboBox(Control).Canvas ?

---

Anatoly Podgoretsky   (2008-09-23 16:14:00) [3]

> Nick87  (23.09.2008 16:09:07)  [7]

Наброски неинтересны, зачем нам посторонний код?

---

Nick87   (2008-09-23 16:13:00) [4]

> Поросенок Винни-Пух ©   (23.09.08 16:10) [8]
> procedure TForm1.cmp_ComboBoxDrawItem(Control: TWinControl;
>  Index: Integer; Rect: TRect; State: TOwnerDrawState);


Если передавать в StrechDraw параметр Rect из процедуры то картинка растянется по всей длине,  а мне нужно чтобы она была оределенного размера (скажем 16x16) после которой следовал бы текст

---

Anatoly Podgoretsky   (2008-09-23 16:13:00) [5]

> Nick87  (23.09.2008 15:57:00)  [0]

R не инициализирован
Неизвестная переменная В

---

Поросенок Винни-Пух   (2008-09-23 16:10:00) [6]

procedure TForm1.cmp_ComboBoxDrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);

---

Поросенок Винни-Пух   (2008-09-23 16:09:00) [7]

И откуда взялась R (ничем не инициализированное) если в обработчик для рисования передано Rect?

---

Nick87   (2008-09-23 16:09:00) [8]

Вот наброски


procedure TForm1.cmp_ComboBoxDrawItem(Control: TWinControl; Index: Integer;
 Rect: TRect; State: TOwnerDrawState);
var
 J: TJPEGImage;
 B: TBitmap;
 C: TControlCanvas;
 R: TRect;
begin
 J := TJPEGImage.Create;
 J.LoadFromFile(ComboBox1.Items[Index]);
 B := TBitmap.Create;
 B.Height := 16;
 B.Width := 16;
 B.Canvas.StretchDraw(B.Canvas.ClipRect, J);

 R.Left := 3;
 R.Top := 3;
 R.Right := 16;
 R.Bottom := 16;

 C := TControlCanvas.Create;
 C.Control := Control;
 C.TextOut(20, 3, ComboBox1.Items[Index]);
 C.StretchDraw(R, B);
end;


---

clickmaker   (2008-09-23 16:07:00) [9]

и непонятно, причем тут контролканвас?
как она получается?
в общем, мало кода

---

Nick87   (2008-09-23 16:06:00) [10]

там еще должно отрисовываться изовражение после которого следует текст.

---

clickmaker   (2008-09-23 16:04:00) [11]

а почему именно 20, 3?

---

Nick87   (2008-09-23 16:03:00) [12]

стоит csOwnerDrawVariable

---

Palladin   (2008-09-23 15:59:00) [13]

стиль то поменял?

---

Наверх