Thema: Delphi Help --> Resource Datei

Einzelnen Beitrag anzeigen

Benutzerbild von Störtebeker
Störtebeker

Registriert seit: 9. Jul 2007
398 Beiträge
 
#6

Re: Help --> Resource Datei

  Alt 27. Jul 2007, 23:04
Erstmal danke für eure hilfe. Aber fkerber, es geht mir nicht um einen ganz natürlichen Splash, sondern einer, der zum einen mit PNG Komponenten arbeitet und bei dem die Form transparent ist. Wenn ich die Form transparent mache, verschwindet leider alles, bis auf die button.

Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var
   FullRgn, ClientRgn, ButtonRgn: THandle;
   Margin, X, Y: Integer;
begin
   Margin := (Width - ClientWidth) div 2;
   FullRgn := CreateRectRgn(0, 0, Width, Height) ;
   X := Margin;
   Y := Height - ClientHeight - Margin;
   ClientRgn := CreateRectRgn
     (X, Y, X + ClientWidth, Y + ClientHeight) ;
   CombineRgn(FullRgn, FullRgn, ClientRgn, RGN_DIFF) ;
   X := X + Button1.Left;
   Y := Y + Button1.Top;
   ButtonRgn := CreateRectRgn
     (X, Y, X + Button1.Width, Y + Button1.Height) ;
   CombineRgn(FullRgn, FullRgn, ButtonRgn, RGN_OR) ;
   SetWindowRgn(Handle, FullRgn, True) ;
end;
das ist der code, um die form bis auf die button transparent zu machen.

ich meine so ein effekt, wie bei den ADOBE splashs, dass das Image praktisch so ein bisschen über die Form hinausgeht.

ADOBE Illustrator Splash
"And he piled upon the whale´s white hump - a sum of all the rage and hate felt by his whole race.
If his chest had been a cannon, he would have shot his heart upon it."
  Mit Zitat antworten Zitat