Canvas Text löschen

[himitsu]

Ein Hallöle von http://www.FrankNStein.de/Smiley-Wolke.gif,

Delphi-Quellcode:

Unit Unit1; 

Interface 
  Uses Windows, Messages, SysUtils, Variants, Classes, 
    Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; 

  Type TForm1 = Class(TForm) 
    Timer1: TTimer; 
    OpenDialog1: TOpenDialog; 
    Procedure FormCreate(Sender: TObject); 
    Procedure FormDestroy(Sender: TObject); 
    Procedure Timer1Timer(Sender: TObject); 
  End; 

  Var Form1: TForm1; 
    Nachricht: String; 
    Canv: TCanvas; 

Implementation 
  {$R *.dfm} 

  Procedure TForm1.FormCreate(Sender: TObject); 
    Begin 
      Canv := TCanvas.Create; 
      Canv.Handle := GetWindowDC(WindowHandle); 
      OpenDialog1.Execute; 
      Nachricht := ExtractFileName(OpenDialog1.FileName); 
      With Canv do Begin 
        Font.Name := 'Arial'; 
        Font.Size := 24; 
        Brush.Style := bsClear; 
      End; 
      {Timer1.Interval := Anzeigeintervall;}
      {Timer1.Tag := 0;}
      {Timer1.Enabled := True;}
    End; 

  Procedure TForm1.FormDestroy(Sender: TObject); 
    Begin 
      If Timer1.Tag <> 0 Then Begin 
        (* Text löschen *) 
        Font.Color := clWhite; 
        Canv.TextOut(Screen.Width div 2 - Canv.TextWidth(Nachricht) div 2, 
          Screen.Height div 2 - Canv.TextHeight(Nachricht) div 2, Nachricht); 
      End; 
      Canv.Free; 
    End; 

  Procedure TForm1.Timer1Timer(Sender: TObject); 
    Begin 
      If Timer1.Tag = 0 Then Begin 
        (* Text zeichnen *) 
        Font.Color := clBlack; 
        Timer1.Tag := 1; 
      End Else Begin 
        (* Text löschen *) 
        Font.Color := clWhite; 
        Timer1.Tag := 0; 
      End; 
      Canv.TextOut(Screen.Width div 2 - Canv.TextWidth(Nachricht) div 2, 
        Screen.Height div 2 - Canv.TextHeight(Nachricht) div 2, Nachricht); 
    End;

End.

(nicht getestet)


http://www.FrankNStein.de/Smiley-Kuss.gif * * http://www.FrankNStein.de/Smiley-Spinne.gif * * * http://www.FrankNStein.de/Smiley-Winken.gif