FM keine Funktionalität bei Image Manipulation

[Mavarik]

Zitat von mkinzler:

Width und Height sind vom Typ Single

Bmp := TBitmap.Create(int(Image1.width),int(Image1.Height));

Stimmt... Hatte es so aus dem "Kopf" getippt...

Mache das sogar noch anders: (Zum Beispiel für einen "Label zu erzeugen")

Delphi-Quellcode:

        IMG.Bitmap := TBitmap.Create(1,1);

        Font         := TFont.Create;
        Font.Family  := Arial;
        Font.Size    := (4 + (FontSize / 2)) * GlobalScale * ScreenFontScale;

        if Fett
          then Font.Style := [TFontStyle.fsBold]
          else Font.Style := [];

        IMG.Bitmap.Canvas.Font.Assign(Font);

        R.Top    := 0;
        R.Left   := 0;
        R.Bottom := 20000;
        R.Right  := Width * GlobalScale;

        IMG.Bitmap.Canvas.MeasureText(R,TText,true,[],TTextAlign.taLeading,TTextAlign.taLeading);

        IMG.Bitmap.SetSize(trunc(R.Right),trunc(R.Bottom+3));

        IMG.Bitmap.Canvas.Fill.Color   := TAlphacolorRec.Black;
        IMG.Bitmap.Canvas.Fill.Kind    := TBrushKind.bkSolid;

        IMG.Bitmap.Canvas.BeginScene;

        IMG.Bitmap.Canvas.Font.Assign(Font);
        IMG.Bitmap.Clear(NotSelectedTransparent);
        IMG.Bitmap.Canvas.FillText(R,TText,true,1,[],TTextAlign.taLeading,TTextAlign.taLeading);

        IMG.Bitmap.Canvas.EndScene;

        IMG.Height := IMG.Bitmap.Height;
        IMG.Width  := IMG.Bitmap.Width;

Mavarik