SplashScreen mit PNG?

[taktaky]

Zitat von Khabarakh:

Hier die versprochene Demo.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  Alpha: Boolean;
begin
  Bit := TBitmap32.Create;
  LoadPNGintoBitmap32(Bit, ExtractFilePath(ParamStr(0)) + 'test.png', Alpha);

  setWindowLong(Handle, GWL_EXSTYLE,
    getWindowLong(Handle, GWL_EXSTYLE) or WS_EX_LAYERED {or WS_EX_TRANSPARENT});
  // WS_EX_TRANSPARENT macht das Fenster für Mausklicks transparent
  
  BlendF.BlendOp := AC_SRC_OVER;
  BlendF.BlendFlags := 0;
  BlendF.SourceConstantAlpha := 255;
  BlendF.AlphaFormat := AC_SRC_ALPHA;
  P := Point(0, 0);
  Size.cx := Bit.Width;
  Size.cy := Bit.Height;

  UpdateLayeredWindow(Handle, 0, nil, @Size, Bit.Handle, @P, 0, @BlendF, ULW_ALPHA);
end;

Ich verwende hier für den Alphakanal die GR32-Lib (ist einfach einfach ), aber es ist natürlich auch per WinAPI/VCL möglich.

Ich wolte das Projekt anschauen leider fehlt beim Öffnen die .Res

Ich habe G32 Package installiert trotzdem bekomme ich diese Meldung:
[Error] Unit1.pas(40): Undeclared identifier: 'LoadPNGintoBitmap32'

Delphi-Quellcode:

begin
  Bit := TBitmap32.Create;
  LoadPNGintoBitmap32(Bit, ExtractFilePath(ParamStr(0)) + 'test.png', Alpha); // da

<>

[turboPASCAL]

LoadPNGintoBitmap32 oder LoadPNGintoBitmap32

[taktaky]

Zitat von turboPASCAL:

LoadPNGintoBitmap32 oder LoadPNGintoBitmap32

Ich möchte zuerst wissen, warum bei mir so, obwohl die Komponenten installiert habe!

[turboPASCAL]

Weil es nicht LoadPNGintoBitmap32 in der Gr32 Komponente gibt.
LoadPNGintoBitmap32 ist eine eigenständige Hilfsroutine um PNG-Bilder
in (bzw. auf) ein Bitmap32 zu kopieren.

[taktaky]

Zitat von turboPASCAL:

Weil es nicht LoadPNGintoBitmap32 in der Gr32 Komponente gibt.
LoadPNGintoBitmap32 ist eine eigenständige Hilfsroutine um PNG-Bilder
in (bzw. auf) ein Bitmap32 zu kopieren.

OK. Ist LoadPNGintoBitmap32 eine .pas Datei oder .dpk?
wo kann ich downloaden?

[DeddyH]

Schau mal hier

[taktaky]

Zitat von DeddyH:

Schau mal hier

Danke. Es hat geklappt nachdem ich den Pfad von dieser Unit in Library hinzugefügt habe.

Was soll man tun um den Schatten zu kriegen?

Man muss wahrscheinlich die Farben Schwarz weichen von bis Schwarz
d.h. alles was 100% schwarz wird transparent und was fast schwarz ist der Schatten oder?

[prelude247]

Hallo zusammen!

Gibt es ne Alternative zu TBitmap32 um die Geschichte zu realisieren?

MfG
Prelude247

[xaromz]

Hallo,

Zitat von prelude247:

Gibt es ne Alternative zu TBitmap32 um die Geschichte zu realisieren?

Klar gibt es die.

Gruß
xaromz