Текущий архив: 2005.10.02;
Скачать: CL | DM;
Вниз
Доработка Image Найти похожие ветки
← →
Dmitry_04 (2004-11-21 18:48) [0]Как мне доработать Image чтобы над картинкой была надпись?
← →
Dmitry_04 (2004-11-21 18:49) [1]в свойстве Caption чтобы можно было ввести какой именно текст, а в свойстве Font каим цветом и шрифт текста...
← →
antonn © (2004-11-21 19:17) [2]прилепить поверх лабел...
← →
Dmitry_04 (2004-11-21 21:26) [3]Не... мне компонент такой нужен :)
← →
Юрий Зотов © (2004-11-21 23:42) [4]
type
TTextImage = class(TImage)
private
procedure CMTextChanged(var Message: TMessage); message CM_TEXTCHANGED;
protected
procedure Paint; override;
published
property Font;
property Caption;
end;
procedure TTextImage.CMTextChanged(var Message: TMessage);
begin
inherited;
Invalidate
end;
procedure TTextImage.Paint;
begin
inherited;
... // Здесь рисуете текст Caption,
... // используя Canvas.Handle и WinAPI.
end;
← →
GuAV © (2004-11-21 23:43) [5]Дык прилепить в компоненте. Смотри TLabeledEdit.
← →
Dmitry_04 (2004-11-22 00:08) [6]А в каком случае посылается сообщение CM_TEXTCHANGED?
← →
Dmitry_04 (2004-11-22 00:10) [7]а... наверно когда текст в Caption изменился :)
← →
Dmitry_04 (2004-11-22 00:28) [8]в процедуре Paint пишу:
Canvas.Font:=Font;
with inherited Canvas do
begin
SetBkMode(Handle, 1);
TextOut(2, 2, Caption);
end;
Почему шрифты не работают, которые я выставляю? Вроде присвоение сделал...
← →
antonn © (2004-11-22 06:45) [9]С лабелом проще... Да еще с прозрачным фоном.
← →
Dmitry_04 (2004-11-22 08:28) [10]Наверно, но всеже как мне сделать штобы шрифты заработали?
← →
Dmitry_04 (2004-11-22 11:33) [11]Может попробовать так?
with inherited Canvas do
begin
Font:=Self.Font;
SetBkMode(Handle, 1);
TextOut(2, 2, Caption);
end;
← →
ЮЮ © (2004-11-23 05:40) [12]>with inherited Canvas
ты ещё и Canvas перекрыл? А почему тогда рисуешь на канвасе предка? :)
Страницы: 1 вся ветка
Текущий архив: 2005.10.02;
Скачать: CL | DM;
Память: 0.49 MB
Время: 0.048 c
