[Back to DELPHI SWAG index]  [Back to Main SWAG index]  [Original]

>
>> Hi everyone,
>>
>> I have done it, but it ONLY looks like transparent. If you move the
>> form, then
>> you move the contents, which was "behind (or below)" the form, too.
>>
>> regards
>
>  Yup, but it looks great for
>  splash screens for example.....
>  ( with label set as transparent)
>

Another recipe:

Take a form.=20
Roast it in its own fat...

Set its BorderStyle to bsNone, and BorderIcons to [].
Put in the OnCreate handler:

Brush.Style:=3DbsClear;
Top:=3D0;
Left:=3D0;
Width:=3DScreen.Width;
Height:=3DScreen.Height;


Then place a TImage on that form. Make it invisible. Load a checked
(black/transparent) ICON in the Image.Picture.

Write an OnPaint handler like this:

procedure TForm1.FormPaint(Sender: TObject);
Var i,j:Integer;
begin
For i:=3D0 To ClientWidth Div 32 Do
    For j:=3D0 To ClientHeight Div 32 Do
        Form1.Canvas.Draw(i*32,j*32,Image1.Picture.Icon);
end;

And what you see is what you get.
(A little bit slow) Shut-Down Type Effect.

Regards.
Laszlo Kovacs
Budapest, Hungary

[Back to DELPHI SWAG index]  [Back to Main SWAG index]  [Original]