Скачать: CL | DM;

Нарисовать иконку в TEdit   Найти похожие ветки 

← →
webpauk ©   (2010-09-25 11:14) [0]

хочу нарисовать иконку

procedure TEditLang.WMPaint(var Message: TWMPaint);
var
 Edit1_DC: HDC;
begin
 inherited;

 Edit1_DC:=GetDC(Handle);

 BitBlt(Edit1_DC, 1, 1, 18, 13, TLangIconArr[lngEng].Handle, 0, 0, SrcCopy);

 ReleaseDC(Handle, Edit1_DC);
end;

и ничего... может кто подскажет где ошибка

---

← →
webpauk ©   (2010-09-25 11:23) [1]

TLangIconArr[lngEng] = TIcon

---

← →
webpauk ©   (2010-09-25 11:23) [2]

TLangIconArr[lngEng]: TIcon

---

← →
Anatoly Podgoretsky ©   (2010-09-25 11:31) [3]

> webpauk  (25.09.2010 11:14:00)  [0]

Зачем в TEdit почему не рядом.

---

← →
Игорь Шевченко ©   (2010-09-25 11:34) [4]

EM_SETRECTNP

---

← →
webpauk ©   (2010-09-25 11:34) [5]

в Tedit вводятся данные на разных языках (данные хранятся в TSrings). Для отображения языка ввода рисуется флаг. Нажатие на флаг - выскакивает Popup для выбора языка

---

← →
webpauk ©   (2010-09-25 11:35) [6]

> Игорь Шевченко ©   (25.09.10 11:34) [4]
> EM_SETRECTNP


это я уже сделал. вопрос в рисовании на TEdit.

---

← →
Игорь Шевченко ©   (2010-09-25 11:47) [7]

> вопрос в рисовании на TEdit.


RTFS: Grids.pas TInplaceEditList.PaintWindow

---

← →
webpauk ©   (2010-09-25 11:48) [8]

 fBmp:=TBitmap.Create;
 fBmp.Width:=16;
 fBmp.Height:=16;
 fBmp.Canvas.Brush.Color:=clRed;
 fBmp.Canvas.FillRect(fBmp.Canvas.ClipRect);

 BitBlt(Edit1_DC, 1, 1, 18, 13, fBmp.Canvas.Handle, 0, 0, SrcCopy);

что характерно, это - работает

---

← →
Игорь Шевченко ©   (2010-09-25 12:16) [9]

TIcon.Handle <> DC.Handle

Use DrawIconEx

---

← →
webpauk ©   (2010-09-25 12:16) [10]

какое сообщение ловить, чтобы отследить LButtonUp в TEdit

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.006 c