Скачать: 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 вся ветка

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



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