Eine Kleine vereinfachung von OpBitmap

[pluto]

Hallo,
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