| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Доработка Image [D7, WinXP]

Dmitry_04 ©   (2004-11-21 18:48:00) 

Как мне доработать Image чтобы над картинкой была надпись?

---

ЮЮ   (2004-11-23 05:40:00) [1]

>with inheritedCanvas

ты ещё и Canvas перекрыл? А почему тогда рисуешь на канвасе предка? :)

---

Dmitry_04   (2004-11-22 11:33:00) [2]

Может попробовать так?

with inherited Canvas do
begin
Font:=Self.Font;
SetBkMode(Handle, 1);
TextOut(2, 2, Caption);
end;


---

Dmitry_04   (2004-11-22 08:28:00) [3]

Наверно, но всеже как мне сделать штобы шрифты заработали?

---

antonn   (2004-11-22 06:45:00) [4]

С лабелом проще... Да еще с прозрачным фоном.

---

Dmitry_04   (2004-11-22 00:28:00) [5]

в процедуре Paint пишу:

Canvas.Font:=Font;
with inherited Canvas do
 begin
 SetBkMode(Handle, 1);
 TextOut(2, 2, Caption);
 end;


Почему шрифты не работают, которые я выставляю? Вроде присвоение сделал...

---

Dmitry_04   (2004-11-22 00:10:00) [6]

а... наверно когда текст в Caption изменился :)

---

Dmitry_04   (2004-11-22 00:08:00) [7]

А в каком случае посылается сообщение CM_TEXTCHANGED?

---

GuAV   (2004-11-21 23:43:00) [8]

Дык прилепить в компоненте.  Смотри TLabeledEdit.

---

Юрий Зотов   (2004-11-21 23:42:00) [9]


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;


---

Dmitry_04   (2004-11-21 21:26:00) [10]

Не... мне компонент такой нужен :)

---

antonn   (2004-11-21 19:17:00) [11]

прилепить поверх лабел...

---

Dmitry_04   (2004-11-21 18:49:00) [12]

в свойстве Caption чтобы можно было ввести какой именно текст, а в свойстве Font каим цветом и шрифт текста...

---

Наверх