Credits programmieren (Komponenten nicht erwünscht !)

[Khabarakh]

Da musst du wohl auf eine Klasse/Funktion umsteigen, die 32-Bit Bilder unterstützt, also entweder die WinAPI-Funktionen oder die GR32-Lib. Vielleicht funktioniert es auch mit
Brush.Style := bsClear; , bei TCanvas wäre ich mir allerdings nie sicher, was mit dem Alphakanal passiert.

[add] @3_of_8: So wie ich Nils verstanden habe, hat er ein echtes 32-Bit Bitmap, Bittransparenz braucht er also nicht. [/add]

[Daniel Schuhmann]

Zitat von Khabarakh:

Vielleicht funktioniert es auch mit Brush.Style := bsClear;

Ja, tut es definitiv.

[Nils_13]

Brush.Style := bsClear; macht den text transparent, deshalb kann man dann den Text nicht mehr sehen.


Eine kleine Nebenfrage: Wie kann ich dem Bild ein Klickereigniss per Code hinzufügen ?

Delphi-Quellcode:

Image1.OnClick            := fSplashImageClick(Sender);

procedure TfrmSplash.fSplashImageClick(Sender: TObject);
begin
  Close;
end;

Läuft halt leider nicht.

[3_of_8]

Ööhm, was läuft daran nicht?

fSplashImageClick muss übrigens eine Objektsprozedur sein, also ein TNotifyEvent oder eine procedure of object oder einfach dem Formular als Prozedur übergeben werden. (TForm1.fsplashimageclick)

[Luckie]

Zitat von Nils_13:

Eine kleine Nebenfrage:

Du bist lange genug dabei, dass du wissen solltest, dass man für eine neue Frage einen neuen Thread aufzumachen hat.