Нарисовать иконку в 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

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);

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

TIcon.Handle <> DC.Handle

Use DrawIconEx

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

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