FM keine Funktionalität bei Image Manipulation

[mkinzler]

Width und Height sind vom Typ Single

Delphi-Quellcode:

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

[Mavarik]

Zitat:

Zitat von mkinzler (Beitrag 1241487)

Width und Height sind vom Typ Single

Delphi-Quellcode:

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:

Zitat von mkinzler (Beitrag 1241487)

Width und Height sind vom Typ Single

Delphi-Quellcode:

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:

Zitat von zeras (Beitrag 1241493)

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