Credits programmieren (Komponenten nicht erwünscht !)

[Nils_13]

Hi,

ich möchte über ein Bild Crdits laufen lassen. Ich will aber keine Komponenten benutzen. Wäre es möglich mit TImage.Canvas so etwas zu realisieren, es sollten aber auch Bilder durchlaufen können ?

[chaosben]

Wie wäre es mit einem TImage, welches du über das Bild bewegst?

[3_of_8]

Eine kurze Frage: Du willst es ohne Komponenten machen, aber mit einem TImage. Als ich das letzte Mal nachgeschaut habe, war TImage noch eine Komponente. :mrgreen:

[Khabarakh]

TCanvas.TextOut für Text
[oh]TCanvas.Draw/CopyRect[/oh] für andere Bitmaps
Das zusammen über einen Timer in eine Animation packen, fertig.

[Nils_13]

Mal sehen was ich machen kann.

@3_of_8: Ich habe gedacht, dass das jeder vesteht, auch die Geiteskranken :mrgreen: *scherz*

[3_of_8]

Tja, :wall: falsch gedacht.

Ich muss halt immer etwas pingelig sein.

Nein, ernsthaft: Als ich den Threadtitel gelesen habe, dachte ich, du willst das Non-VCL, also mit WinAPI aufrufen machen.

[Nils_13]

Sagt mal, wie mache ich Canvas.TextOut eigentlich Transparent ?

@3_of_8: ist ja egal.

[Khabarakh]

Zitat:

Zitat von Nils_13

Sagt mal, wie mache ich Canvas.TextOut eigentlich Transparent ?

Die DP-Suche sagt es dir gern.
TextOut AND Transparent

[Nils_13]

Delphi-Quellcode:

SetBkMode(Image1.Canvas.Handle,TRANSPARENT);

läuft leider nicht, da ich pngs verwende, was muss ich jetzt tun, damit es dennoch funkltioniert ?

[3_of_8]

Es gibt noch BrushCopy.

[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

Delphi-Quellcode:

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:

Zitat von Khabarakh

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

Ja, tut es definitiv.

[Nils_13]

Delphi-Quellcode:

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:

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.