Kleiner Bug in Graphics32

[Schorschi5566]

Servus Gemeinde,

in GR32_image.pas ist meiner Meinung nach ein kleiner Bug enthalten, der das Bitmap-Alignment betrifft. Dadurch funktioniert baCenter nicht richtig. Schuld ist mal wieder ein With-Statement.

File: GR32_image.pas
Zeile: 1533 ff
Falscher Code:

Delphi-Quellcode:

    Size := GetBitmapSize;
    with Size do
    begin
      Result := Rect(0, 0, Cx, Cy);
      if BitmapAlign = baCenter then
        OffsetRect(Result, (Width - Cx) div 2, (Height - Cy) div 2)
      else if BitmapAlign = baCustom then
        OffsetRect(Result, Round(OffsetHorz), Round(OffsetVert));
    end;

Richtiger Code:

Delphi-Quellcode:

    Size := GetBitmapSize;
    Result := Rect(0, 0, Size.Cx, Size.Cy);
    if BitmapAlign = baCenter then
      OffsetRect(Result, (Width - Size.Cx) div 2, (Height - Size.Cy) div 2)
    else if BitmapAlign = baCustom then
      OffsetRect(Result, Round(OffsetHorz), Round(OffsetVert));

Der Fehler ist schon seit längerem enthalten und ich habe ihn jetzt mal im Tracker von GR32 gemeldet...


Grüße,
Uwe