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

TextOut , SetWindowRgn и прозрачность формы   Найти похожие ветки 

← →
easy   (2002-04-06 13:05) [0]

Хочу создать прозрачную форму с непрозрачной надписью на ней, но почему-то становится прозрачным сам текст, а не форма вокруг него. Тот же код на VB работает нормально...Помогите, плз...

procedure TForm1.FormCreate(Sender: TObject);
var Ret:longint;
begin

form1.Canvas.Font.Name:="Times New Roman";
form1.Canvas.Font.Size:=100;

end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
MyRgn:HRGN;

sText:string;
begin
stext:=formatdatetime("hh:mm:ss",now);
BeginPath(form1.Canvas.Handle);
TextOut(form1.Canvas.Handle,0,0,pchar(stext),Length(stext));
EndPath(form1.Canvas.Handle);
MyRgn:=PathToRegion(form1.Canvas.Handle);
SetWindowRgn(form1.Handle,Myrgn,true);
DeleteObject(MyRgn);
end;

---

← →
Shaman_Naydak ©   (2002-04-08 10:19) [1]

После BeginPath поставь
SetBkMode(form1.Canvas.Handle, TRANSPARENT);

---

← →
easy   (2002-04-08 11:16) [2]

Бальшое спасибо!

---

Страницы: 1 вся ветка

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



Память: 0.45 MB
Время: 0.008 c