IconToBitmap

IconToBitmap

IconToBitmap : Mehreren tausend Tipps, um Ihr Leben einfacher machen.

Einfache Funktion zum ein Icon in eine Bitmap konvertieren.
Prozedur IconToBitmapEx (Symbol: TIcon; Var Bitmap: TBitmap;
Größe: Integer = 16);
beginnen
(* Einfache Funktion zum Konvertieren eines Symbols in einer
Bitmap, und geben Sie die Endgröße *)
Assert(Assigned(Icon), 'No-Symbol angegeben!');
Wenn nicht dann Assigned(Bitmap)
Bitmap: = TBitmap.Create;
Bitmap.Width: = Icon.Width;
Bitmap.Height: = Icon.Height;
Bitmap.Canvas.Draw (0, 0, Symbol);
Wenn Size <> Bitmap.Width dann
Bitmap.canvas.StretchDraw (Rect (0, 0, Größe, Größe), Bitmap);
Bitmap.Width: = Größe;
Bitmap.Height: = Größe;
Ende;