für ein Aktuelles Projekt wollte ich nicht immer das gleiche schreiben, darum habe ich eine eigene Unit Erstellt mit den Vereinfachungen
Code: Alles auswählen
// Verößert eine TBITMap und umgeht dabei den Bug
procedure BMPSetSize(const aBuffer:TBitMap; const aW,aH:Integer);
// Speichert eine TBitmap in ein Bliebiges Format ab
// Untershieden wird nach der Dateiendung
procedure SaveBMPToFile(const aFileName:String; aBuffer:TBitMap);
// Lädt ein Grafik Format in aBuffer.
// Unterschieden wird nach der Dateiendung
procedure LoadFileToBMP(const aFileName:String; Var aBuffer:TBitMap);
// Erstllt auf der Angeben Grafik ein Tranzparentes Viereck
procedure DrawTranzParentRect(aBuffer:TBItMap; const aRect:Trect; const aBrushColor:TColor; const aAlpha:Integer=100);
im Anhang befindet sich die neue Unit in der Version 1.0