canvas brush color clBlack geht nicht

[Der schöne Günther]

Zitat:

Zitat von EWeiss (Beitrag 1357475)

Nochmal step by step

Warum kein

Delphi-Quellcode:

try..finally

?

[EWeiss]

Zitat:

Zitat von Der schöne Günther (Beitrag 1357477)

Zitat:

Zitat von EWeiss (Beitrag 1357475)

Nochmal step by step

Warum kein

Delphi-Quellcode:

try..finally

?

Ja ;)
Ich wollte ihn als Anfänger nicht verwirren..
Aber bitte.

Delphi-Quellcode:

var
   Bitmap: TBitmap;
begin
   
   Bitmap := TBitmap.Create;
   try
     try
     // zeichne oder mach was mit Bitmap 
     // ...
     except // Tritt ein Fehler auf gebe ihn aus
       MessageBox(bla, bla..);
       Bitmap.Free;
     end;
   finally // Alles klar und kein Fehler
     // Speicher Freigeben
     Bitmap.Free;
     // oder Speicher Freigeben und das Object TBitmap auf Nil setzen.     
     FreeAndNil(Bitmap);
   end;
end