FM keine Funktionalität bei Image Manipulation

[mkinzler]

Width und Height sind vom Typ Single

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

[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

[zeras]

Zitat von mkinzler:

Width und Height sind vom Typ Single

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

Wen ich bei mir auf Die beiden Werte width und height zeige, dann bringt mir Delphi die Info, dass diese "extended" sind. Habe mal das Image mit festen Werten erzeugt und nun kommt erst einmal die Farbe "aufs Papier".

Danke für eure Tipps.

[Mavarik]

Zitat von zeras:

Wen ich bei mir auf Die beiden Werte width und height zeige, dann bringt mir Delphi die Info, dass diese "extended" sind. Habe mal das Image mit festen Werten erzeugt und nun kommt erst einmal die Farbe "aufs Papier".

Danke für eure Tipps.

Gerne! Deswegen sehe ich hier Bedarf an einer Zusammenarbeit. Siehe