canvas brush color clBlack geht nicht

[Der schöne Günther]

Zitat von EWeiss:

Nochmal step by step

Warum kein try..finally ?

[EWeiss]

Zitat von Der schöne Günther:

Zitat von EWeiss:

Nochmal step by step

Warum kein 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