Re: Есть!
Всем программистам привет!!!
Пример на Delphi. Это урезанный пример
откуда-то с Королевства Delphi.
Изначально там была какая-то мерцающая
прозрачность и что-то ещё, но на моём
Delphi 5 и WinXP прозрачность не
заработала. Программа создаёт форму по
рисунку (1.bmp) в корневой директории программы.
procedure TFormMain.FormCreate(Sender: TObject); //Создание формы
var
X1,X,Y: Integer;
begin
X1:=-1;
R:=CreateRectRgn(0,0,0,0);
ImageFformMain.Picture.LoadFromFile('1.bmp'); //Загрузка рисунка
FormMain.BorderStyle:=bsNone; //Форма без заголовка
FormMain.Height:=ImageFormMain.Picture.Bitmap.Height; //Выравнивание размераформы
по
FormMain.Width:=ImageFormMain.Picture.Bitmap.Width; //размеру рисунка
With ImageFormMain.Picture.Bitmap do Begin //Что-то типа попиксельного
считывания рисунка
For Y:=0 To Height-1 do Begin
For X:=0 To Width-1 do Begin
If Canvas.Pixels[X,Y] <> Canvas.Pixels[0,0]
Then Begin
If X1=-1
Then X1:=X;
End
Else Begin
If X1>-1
Then Begin
CombineRgn(R,R,CreateRectRgn(X1,Y,X-1,Y+1),RGN_OR);
X1:=-1;
End;
End;
End;
End;
End;
SetWindowRgn(Handle, R, True); //Создание формы окна
end;
Нас здесь есть!!!
Программисты!!!
С уважением, Бухарин Дмитрий Игоревич
mailto:b***@h*****.ru
{20:52, суббота, 6 декабря 2003 г.}
-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: http://subscribe.ru/member/unsub?grp=comp.soft.prog.prog&email=
http://subscribe.ru/ mailto:ask@subscribe.ru
