Форум: "Начинающим";
Текущий архив: 2010.12.19;
Скачать: [xml.tar.bz2];
Вниз
Нарисовать иконку в 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 вся ветка
Форум: "Начинающим";
Текущий архив: 2010.12.19;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.003 c