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