| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Нарисовать иконку в TEdit [D7]
webpauk © (2010-09-25 11:14:00)хочу нарисовать иконку
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;
и ничего... может кто подскажет где ошибка
Игорь Шевченко (2010-09-25 12:16:00) [1]TIcon.Handle <> DC.Handle
Use DrawIconEx
webpauk (2010-09-25 12:16:00) [2]какое сообщение ловить, чтобы отследить LButtonUp в TEdit
webpauk (2010-09-25 11:48:00) [3]
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 11:47:00) [4]
> вопрос в рисовании на TEdit.
RTFS: Grids.pas TInplaceEditList.PaintWindow
webpauk (2010-09-25 11:35:00) [5]
> Игорь Шевченко © (25.09.10 11:34) [4]
> EM_SETRECTNP
это я уже сделал. вопрос в рисовании на TEdit.
Игорь Шевченко (2010-09-25 11:34:00) [6]EM_SETRECTNP
webpauk (2010-09-25 11:34:00) [7]в Tedit вводятся данные на разных языках (данные хранятся в TSrings). Для отображения языка ввода рисуется флаг. Нажатие на флаг - выскакивает Popup для выбора языка
Anatoly Podgoretsky (2010-09-25 11:31:00) [8]> webpauk (25.09.2010 11:14:00) [0]
Зачем в TEdit почему не рядом.
webpauk (2010-09-25 11:23:00) [9]TLangIconArr[lngEng] = TIcon
webpauk (2010-09-25 11:23:00) [10]TLangIconArr[lngEng]: TIcon
| |
