Changeset 548 for trunk


Ignore:
Timestamp:
Apr 21, 2024, 10:57:18 AM (7 months ago)
Author:
chronos
Message:
  • Fixed: Bad unit drawing in battle dialog.
  • Modified: Code cleanup.
Location:
trunk
Files:
14 edited

Legend:

Unmodified
Added
Removed

  • trunk/AI/StdAI/AI.pas

    r531 r548  
    231231        else
    232232        begin
    233           Quality := trunc(100 * (ln(mi.Attack) + ln(mi.Defense) +
    234             ln(mi.Speed / 150) * 1.7 - ln(mi.Cost)));
     233          Quality := Trunc(100 * (Ln(mi.Attack) + Ln(mi.Defense) +
     234            Ln(mi.Speed / 150) * 1.7 - Ln(mi.Cost)));
    235235          if mi.Cap and (1 shl (mcFanatic - mcFirstNonCap)) <> 0 then
    236             Inc(Quality, trunc(100 * ln(1.5)));
     236            Inc(Quality, Trunc(100 * Ln(1.5)));
    237237          if mi.Cap and (1 shl (mcLongRange - mcFirstNonCap)) <> 0 then
    238             Inc(Quality, trunc(100 * ln(1.5)));
     238            Inc(Quality, Trunc(100 * Ln(1.5)));
    239239        end;
    240240      end
    … …  
    242242      begin
    243243        Category := mctGroundDefender;
    244         Quality := trunc(100 * (ln(mi.Defense) - ln(mi.Cost) * 0.6));
     244        Quality := Trunc(100 * (Ln(mi.Defense) - Ln(mi.Cost) * 0.6));
    245245        if mi.Cap and (1 shl (mcFanatic - mcFirstNonCap)) <> 0 then
    246           Inc(Quality, trunc(100 * ln(1.5)));
     246          Inc(Quality, Trunc(100 * Ln(1.5)));
    247247      end;
    248248    dSea:
    … …  
    257257          if EffectiveTransport > 4 then
    258258            EffectiveTransport := 4; // rarely used more
    259           Quality := 100 + trunc(100 * (ln(EffectiveTransport) +
    260             ln(mi.Speed / 150) + ln(mi.Defense) - ln(mi.Cost)));
     259          Quality := 100 + Trunc(100 * (Ln(EffectiveTransport) +
     260            Ln(mi.Speed / 150) + Ln(mi.Defense) - Ln(mi.Cost)));
    261261          if mi.Cap and (1 shl (mcNav - mcFirstNonCap)) <> 0 then
    262             Inc(Quality, trunc(100 * ln(1.5)));
     262            Inc(Quality, Trunc(100 * Ln(1.5)));
    263263          if mi.Cap and (1 shl (mcAirDef - mcFirstNonCap)) <> 0 then
    264             Inc(Quality, trunc(100 * ln(1.3)));
     264            Inc(Quality, Trunc(100 * Ln(1.3)));
    265265        end;
    266266      end
    … …  
    272272        else
    273273        begin
    274           Quality := trunc(100 * (ln(mi.Attack) + ln(mi.Defense) * 0.6 - ln(mi.Cost)));
     274          Quality := Trunc(100 * (Ln(mi.Attack) + Ln(mi.Defense) * 0.6 - Ln(mi.Cost)));
    275275          if mi.Cap and (1 shl (mcNav - mcFirstNonCap)) <> 0 then
    276             Inc(Quality, trunc(100 * ln(1.4)));
     276            Inc(Quality, Trunc(100 * Ln(1.4)));
    277277          if mi.Cap and (1 shl (mcAirDef - mcFirstNonCap)) <> 0 then
    278             Inc(Quality, trunc(100 * ln(1.3)));
     278            Inc(Quality, Trunc(100 * Ln(1.3)));
    279279          if mi.Cap and (1 shl (mcLongRange - mcFirstNonCap)) <> 0 then
    280             Inc(Quality, trunc(100 * ln(2.0)));
     280            Inc(Quality, Trunc(100 * Ln(2.0)));
    281281          if mi.Cap and (1 shl (mcRadar - mcFirstNonCap)) <> 0 then
    282             Inc(Quality, trunc(100 * ln(1.5)));
     282            Inc(Quality, Trunc(100 * Ln(1.5)));
    283283        end;
    284284      end;

  • trunk/AI/StdAI/ToolAI.pas

    r531 r548  
    197197      X := Loc - Y * G.lx;
    198198      Inc(sy, Y);
    199       A := 2 * pi * X / G.lx;
    200       su := su + cos(A);
    201       sv := sv + sin(A);
     199      A := 2 * Pi * X / G.lx;
     200      su := su + Cos(A);
     201      sv := sv + Sin(A);
    202202      Inc(N);
    203203    end;
    204204  end;
    205   A := arctan2(sv, su);
    206   X := round(G.lx * A / (2 * pi));
     205  A := ArcTan2(sv, su);
     206  X := Round(G.lx * A / (2 * Pi));
    207207  while X >= G.lx do
    208208    Dec(X, G.lx);

  • trunk/CityProcessing.pas

    r522 r548  
    223223        RelCorr := Dist / MaxDist;
    224224        if CorrLevel[RW[P].Government] > 1 then
    225           RelCorr := Exp(ln(RelCorr) / CorrLevel[RW[P].Government]);
     225          RelCorr := Exp(Ln(RelCorr) / CorrLevel[RW[P].Government]);
    226226        if Built[imCourt] = 1 then
    227227          RelCorr := RelCorr / 2;
    … …  
    16281628            begin
    16291629              if Value > 0 then
    1630                 Value := ln(Value) + 123;
     1630                Value := Ln(Value) + 123;
    16311631              for I := oFood to oScience do
    16321632                if ValueFormula_Multiply[I] and (Output[I] > 0) then
    16331633                  Value := Value + ValueFormula_Weight[I] *
    1634                     (ln(Output[I]) + 123);
     1634                    (Ln(Output[I]) + 123);
    16351635            end;
    16361636

  • trunk/Database.pas

    r531 r548  
    262262begin
    263263  c0 := TechFormula_M[diff] * (nTech + 4) *
    264     exp((nTech + 4) / TechFormula_D[diff]);
     264    Exp((nTech + 4) / TechFormula_D[diff]);
    265265  if c0 >= $10000000 then
    266266    Result := $10000000
    267267  else
    268     Result := trunc(c0);
     268    Result := Trunc(c0);
    269269end;
    270270
    … …  
    652652    Result := 0;
    653653    for I := 1 to D do
    654       Result := Result + sin(f1[I] * ((X * 2 + Y and 1) * sa[I] + Y * 1.5 *
     654      Result := Result + Sin(f1[I] * ((X * 2 + Y and 1) * sa[I] + Y * 1.5 *
    655655        ca[I])) * f2[I];
    656656    { x values effectively multiplied with 2 to get 2 horizantal periods
    … …  
    662662  begin
    663663{$IFNDEF SCR} if X = 1 then
    664       V := pi / 2 { first wave goes horizontal }
    665     else {$ENDIF} V := DelphiRandom * 2 * pi;
    666     sa[X] := sin(V) / lx;
    667     ca[X] := cos(V) / ly;
    668     f1[X] := 2 * pi * exp(Detail * (X - 1));
    669     f2[X] := exp(-X * Smooth);
     664      V := Pi / 2 { first wave goes horizontal }
     665    else {$ENDIF} V := DelphiRandom * 2 * Pi;
     666    sa[X] := Sin(V) / lx;
     667    ca[X] := Cos(V) / ly;
     668    f1[X] := 2 * Pi * Exp(Detail * (X - 1));
     669    f2[X] := Exp(-X * Smooth);
    670670  end;
    671671
    … …  
    679679      if X * 2 < imerge then
    680680        V := (X * 2 * V + (imerge - X * 2) * Value(X + lx, Y)) / imerge;
    681       V := V - sqr(sqr(2 * Y / ly - 1)); { soft cut at poles }
     681      V := V - Sqr(Sqr(2 * Y / ly - 1)); { soft cut at poles }
    682682      if V > maxv then
    683683        maxv := V;
    … …  
    705705      I := A;
    706706      A := B;
    707       B := I
     707      B := I;
    708708    end;
    709709    if A > B then
    … …  
    763763// must be done after FindContinents
    764764var
    765   I, J, Cnt, X, Y, dx, dy, Loc0, Loc1, xworst, yworst, totalrare, RareMaxWater,
     765  I, J, Cnt, X, Y, dx, dy, Loc0, Loc1, xworst, yworst, TotalRare, RareMaxWater,
    766766    RareType, iBest, jbest, MinDist, xBlock, yBlock, V8: Integer;
    767767  AreaCount, RareByArea, RareAdjacent: array [0 .. 7, 0 .. 4] of Integer;
    … …  
    804804        end;
    805805    end;
    806     totalrare := 0;
     806    TotalRare := 0;
    807807    for X := 0 to 7 do
    808808      for Y := 0 to 4 do
    809809        if AreaCount[X, Y] > 0 then
    810           Inc(totalrare);
     810          Inc(TotalRare);
    811811    Inc(RareMaxWater);
    812   until totalrare >= 12;
    813 
    814   while totalrare > 12 do
     812  until TotalRare >= 12;
     813
     814  while TotalRare > 12 do
    815815  begin // remove rarebyarea resources too close to each other
    816816    FillChar(RareAdjacent, SizeOf(RareAdjacent), 0);
    … …  
    876876        end;
    877877    AreaCount[xworst, yworst] := 0;
    878     Dec(totalrare);
     878    Dec(TotalRare);
    879879  end;
    880880

  • trunk/LocalPlayer/Battle.pas

    r505 r548  
    169169
    170170  IsoMap.SetOutput(Buffer);
    171   BitBltCanvas(Buffer.Canvas, 0, 0, 66, 48, ca, xm + 8 + 4,
    172     ym - 8 - 12 - 48);
     171  UnshareBitmap(Buffer);
     172  BitBltCanvas(Buffer.Canvas, 0, 0, 66, 48, ca, xm + 8 + 4, ym - 8 - 12 - 48);
    173173  { if TerrType<fForest then
    174174    Sprite(Buffer,HGrTerrain,0,16,66,32,1+TerrType*(xxt*2+1),1+yyt)
    … …  
    181181    end; }
    182182  IsoMap.PaintUnit(1, 0, UnitInfo, 0);
    183   BitBltCanvas(ca, xm + 8 + 4, ym - 8 - 12 - 48, 66, 48, Buffer.Canvas,
    184     0, 0);
    185 
    186   BitBltCanvas(Buffer.Canvas, 0, 0, 66, 48, ca, xm - 8 - 4 - 66,
    187     ym + 8 + 12);
     183  BitBltCanvas(ca, xm + 8 + 4, ym - 8 - 12 - 48, 66, 48, Buffer.Canvas, 0, 0);
     184
     185  UnshareBitmap(Buffer);
     186  BitBltCanvas(Buffer.Canvas, 0, 0, 66, 48, ca, xm - 8 - 4 - 66, ym + 8 + 12);
    188187  MakeUnitInfo(Me, MyUn[uix], UnitInfo);
    189188  UnitInfo.Flags := UnitInfo.Flags and not unFortified;

  • trunk/LocalPlayer/CityScreen.pas

    r536 r548  
    13661366      and (Y >= ymOpt - 32) and (Y < ymOpt + 32) then
    13671367    begin
    1368       I := sqr(X - xmOpt) + sqr(Y - ymOpt); // click radius
     1368      I := Sqr(X - xmOpt) + Sqr(Y - ymOpt); // click radius
    13691369      if I <= 32 * 32 then
    13701370      begin
    … …  
    13751375            I := 3 // rwGrowth
    13761376        else
    1377           case trunc(arctan2(X - xmOpt, ymOpt - Y) * 180 / pi) of
     1377          case Trunc(ArcTan2(X - xmOpt, ymOpt - Y) * 180 / Pi) of
    13781378            - 25 - 52 * 2 .. -26 - 52:
    13791379              I := 1;

  • trunk/LocalPlayer/IsoEngine.pas

    r538 r548  
    3636      Diry: array [0..7] of Integer = (-1, 0, 1, 2, 1, 0, -1, -2);
    3737    procedure CityGrid(xm, ym: Integer; CityAllowClick: Boolean);
     38    procedure ClippedLine(X, Y, dx0, dy0: Integer; Mirror: Boolean);
    3839    function IsShoreTile(Loc: Integer): Boolean;
    3940    procedure MakeDark(Line: PPixelPointer; Length: Integer);
    … …  
    10531054  CityInfo: TCityInfo;
    10541055  UnitInfo: TUnitInfo;
    1055   fog: Boolean;
     1056  Fog: Boolean;
    10561057  SpecialRow: Integer;
    10571058  SpecialCol: Integer;
    … …  
    11921193
    11931194  if moEditMode in MapOptions then
    1194     fog := (Loc < 0) or (Loc >= G.lx * G.ly)
    1195     // else if CityLoc>=0 then
    1196     // fog:= (Loc<0) or (Loc>=G.lx*G.ly) or (Distance(Loc,CityLoc)>5)
     1195    Fog := (Loc < 0) or (Loc >= G.lx * G.ly)
     1196    // else if CityLoc >= 0 then
     1197    // Fog:= (Loc < 0) or (Loc >= G.lx * G.ly) or (Distance(Loc, CityLoc) > 5)
    11971198  else if ShowGrWall then
    1198     fog := Tile and fGrWall = 0
     1199    Fog := Tile and fGrWall = 0
    11991200  else
    1200     fog := FoW and (Tile and fObserved = 0);
    1201   if fog and ShowObjects then
     1201    Fog := FoW and (Tile and fObserved = 0);
     1202  if Fog and ShowObjects then
    12021203    if Loc < -G.lx then
    12031204      Sprite(HGrTerrain, X, Y + yyt, xxt * 2, yyt, 1 + 6 * (xxt * 2 + 1),
    … …  
    12981299end;
    12991300
     1301procedure TIsoMap.ClippedLine(X, Y, dx0, dy0: Integer; Mirror: Boolean);
     1302var
     1303  x0, x1, dxmin, dymin, dxmax, dymax, N: Integer;
     1304begin
     1305  with FOutput.Canvas do
     1306  begin
     1307    dxmin := (FLeft - X) div xxt;
     1308    dymin := (RealTop - Y) div yyt;
     1309    dxmax := (FRight - X - 1) div xxt + 1;
     1310    dymax := (RealBottom - Y - 1) div yyt + 1;
     1311    N := dymax - dy0;
     1312    if Mirror then
     1313    begin
     1314      if dx0 - dxmin < N then
     1315        N := dx0 - dxmin;
     1316      if dx0 > dxmax then
     1317      begin
     1318        N := N - (dx0 - dxmax);
     1319        dy0 := dy0 + (dx0 - dxmax);
     1320        dx0 := dxmax;
     1321      end;
     1322      if dy0 < dymin then
     1323      begin
     1324        N := N - (dymin - dy0);
     1325        dx0 := dx0 - (dymin - dy0);
     1326        dy0 := dymin;
     1327      end;
     1328    end
     1329    else
     1330    begin
     1331      if dxmax - dx0 < N then
     1332        N := dxmax - dx0;
     1333      if dx0 < dxmin then
     1334      begin
     1335        N := N - (dxmin - dx0);
     1336        dy0 := dy0 + (dxmin - dx0);
     1337        dx0 := dxmin;
     1338      end;
     1339      if dy0 < dymin then
     1340      begin
     1341        N := N - (dymin - dy0);
     1342        dx0 := dx0 + (dymin - dy0);
     1343        dy0 := dymin;
     1344      end;
     1345    end;
     1346    if N <= 0 then
     1347      Exit;
     1348    if Mirror then
     1349    begin
     1350      x0 := X + dx0 * xxt - 1;
     1351      x1 := X + (dx0 - N) * xxt - 1;
     1352    end
     1353    else
     1354    begin
     1355      x0 := X + dx0 * xxt;
     1356      x1 := X + (dx0 + N) * xxt;
     1357    end;
     1358    MoveTo(x0, Y + dy0 * yyt);
     1359    LineTo(x1, Y + (dy0 + N) * yyt);
     1360  end;
     1361end;
     1362
    13001363procedure TIsoMap.PaintGrid(X, Y, nx, ny: Integer);
    1301 
    1302   procedure ClippedLine(dx0, dy0: Integer; Mirror: Boolean);
    1303   var
    1304     x0, x1, dxmin, dymin, dxmax, dymax, N: Integer;
    1305   begin
    1306     with FOutput.Canvas do
    1307     begin
    1308       dxmin := (FLeft - X) div xxt;
    1309       dymin := (RealTop - Y) div yyt;
    1310       dxmax := (FRight - X - 1) div xxt + 1;
    1311       dymax := (RealBottom - Y - 1) div yyt + 1;
    1312       N := dymax - dy0;
    1313       if Mirror then
    1314       begin
    1315         if dx0 - dxmin < N then
    1316           N := dx0 - dxmin;
    1317         if dx0 > dxmax then
    1318         begin
    1319           N := N - (dx0 - dxmax);
    1320           dy0 := dy0 + (dx0 - dxmax);
    1321           dx0 := dxmax;
    1322         end;
    1323         if dy0 < dymin then
    1324         begin
    1325           N := N - (dymin - dy0);
    1326           dx0 := dx0 - (dymin - dy0);
    1327           dy0 := dymin;
    1328         end;
    1329       end
    1330       else
    1331       begin
    1332         if dxmax - dx0 < N then
    1333           N := dxmax - dx0;
    1334         if dx0 < dxmin then
    1335         begin
    1336           N := N - (dxmin - dx0);
    1337           dy0 := dy0 + (dxmin - dx0);
    1338           dx0 := dxmin;
    1339         end;
    1340         if dy0 < dymin then
    1341         begin
    1342           N := N - (dymin - dy0);
    1343           dx0 := dx0 + (dymin - dy0);
    1344           dy0 := dymin;
    1345         end;
    1346       end;
    1347       if N <= 0 then
    1348         Exit;
    1349       if Mirror then
    1350       begin
    1351         x0 := X + dx0 * xxt - 1;
    1352         x1 := X + (dx0 - N) * xxt - 1;
    1353       end
    1354       else
    1355       begin
    1356         x0 := X + dx0 * xxt;
    1357         x1 := X + (dx0 + N) * xxt;
    1358       end;
    1359       MoveTo(x0, Y + dy0 * yyt);
    1360       LineTo(x1, Y + (dy0 + N) * yyt);
    1361     end;
    1362   end;
    1363 
    13641364var
    13651365  I: Integer;
    13661366begin
    1367   FOutput.Canvas.pen.Color := $000000; // $FF shl (8 * Random(3));
     1367  FOutput.Canvas.Pen.Color := $000000; // $FF shl (8 * Random(3));
    13681368  for I := 0 to nx div 2 do
    1369     ClippedLine(I * 2, 0, False);
     1369    ClippedLine(X, Y, I * 2, 0, False);
    13701370  for I := 1 to (nx + 1) div 2 do
    1371     ClippedLine(I * 2, 0, True);
     1371    ClippedLine(X, Y, I * 2, 0, True);
    13721372  for I := 0 to ny div 2 do
    13731373  begin
    1374     ClippedLine(0, 2 * I + 2, False);
    1375     ClippedLine(nx + 1, 2 * I + 1 + nx and 1, True);
     1374    ClippedLine(X, Y, 0, 2 * I + 2, False);
     1375    ClippedLine(X, Y, nx + 1, 2 * I + 1 + nx and 1, True);
    13761376  end;
    13771377end;
    … …  
    14251425    if Abs(y_n) < rShade then begin
    14261426      // Darken left and right parts of elipsis
    1427       w_n := sqrt(sqr(rShade) - sqr(y_n));
    1428       wBright := trunc(w_n * xxt + 0.5);
     1427      w_n := Sqrt(Sqr(rShade) - Sqr(y_n));
     1428      wBright := Trunc(w_n * xxt + 0.5);
    14291429      Line.SetX(0);
    14301430      MakeDark(@Line, ScaleToNative(xm - wBright));

  • trunk/LocalPlayer/Wonders.pas

    r530 r548  
    8888const
    8989  Darken = 24;
    90   // space=pi/120;
     90  // space = Pi / 120;
    9191  amax0 = 15734; // 1 shl 16*tan(pi/12-space);
    9292  amin1 = 19413; // 1 shl 16*tan(pi/12+space);

  • trunk/NoTerm.pas

    r531 r548  
    359359      if TotalStatTime > 0 then
    360360      begin
    361         TimeShare := trunc(TimeStat[I] / TotalStatTime * 100 + 0.5);
     361        TimeShare := Trunc(TimeStat[I] / TotalStatTime * 100 + 0.5);
    362362        RisedTextOut(Canvas, xBrain[I] + 34 + 16, yBrain[I] + 51 + 16,
    363363          IntToStr(TimeShare) + '%');

  • trunk/Packages/CevoComponents/ButtonA.pas

    r531 r548  
    1212  private
    1313    FCaption: string;
    14     procedure SetCaption(Text: string);
     14    procedure SetCaption(Text: string); override;
    1515    procedure SetFont(const Font: TFont);
    1616  protected

  • trunk/Packages/CevoComponents/CevoComponents.lpk

    r468 r548  
    3131      <Other>
    3232        <CompilerMessages>
    33           <IgnoredMessages idx5024="True"/>
     33          <IgnoredMessages idx6058="True" idx5024="True"/>
    3434        </CompilerMessages>
    3535      </Other>

  • trunk/Packages/CevoComponents/ScreenTools.pas

    r538 r548  
    542542          OriginalColor := DataPixel.PixelARGB and $FFFFFF;
    543543          if (OriginalColor = TransparentColor1) or (OriginalColor = TransparentColor2) then begin
    544             MaskPixel.PixelR := $FF;
    545             MaskPixel.PixelG := $FF;
    546             MaskPixel.PixelB := $FF;
    547             DataPixel.PixelR := 0;
    548             DataPixel.PixelG := 0;
    549             DataPixel.PixelB := 0;
     544            MaskPixel.PixelRGB := $ffffff;
     545            DataPixel.PixelRGB := 0;
    550546          end else begin
    551             MaskPixel.PixelR := 0;
    552             MaskPixel.PixelG := 0;
    553             MaskPixel.PixelB := 0;
     547            MaskPixel.PixelRGB := 0;
    554548          end;
    555549          DataPixel.NextPixel;
    … …  
    10231017      if X < 0 then
    10241018        if Y < 0 then
    1025           R := round(sqrt(sqr(X) + sqr(Y)))
     1019          R := Round(Sqrt(Sqr(X) + Sqr(Y)))
    10261020        else if Y >= Height then
    1027           R := round(sqrt(sqr(X) + sqr(Y - (Height - 1))))
     1021          R := Round(Sqrt(Sqr(X) + Sqr(Y - (Height - 1))))
    10281022        else
    10291023          R := -X
    10301024      else if X >= Width then
    10311025        if Y < 0 then
    1032           R := round(sqrt(sqr(X - (Width - 1)) + sqr(Y)))
     1026          R := Round(sqrt(Sqr(X - (Width - 1)) + Sqr(Y)))
    10331027        else if Y >= Height then
    1034           R := round(sqrt(sqr(X - (Width - 1)) + sqr(Y - (Height - 1))))
     1028          R := Round(Sqrt(Sqr(X - (Width - 1)) + Sqr(Y - (Height - 1))))
    10351029        else
    10361030          R := X - (Width - 1)
    … …  
    16311625  TexWidth, TexHeight: Integer;
    16321626begin
    1633   // texturize background
     1627  // Texturize background
    16341628  Dest.BeginUpdate;
    16351629  TexWidth := Texture.Width;
    … …  
    16391633  for Y := 0 to ScaleToNative(Dest.Height) - 1 do begin
    16401634    for X := 0 to ScaleToNative(Dest.Width) - 1 do begin
    1641       if (DstPixel.PixelARGB and $FFFFFF) = TransparentColor then begin
     1635      if DstPixel.PixelRGB = TransparentColor then begin
    16421636        SrcPixel.SetXY(X mod TexWidth, Y mod TexHeight);
    1643         DstPixel.PixelB := SrcPixel.PixelB;
    1644         DstPixel.PixelG := SrcPixel.PixelG;
    1645         DstPixel.PixelR := SrcPixel.PixelR;
     1637        DstPixel.PixelRGB := SrcPixel.PixelRGB;
    16461638      end;
    16471639      DstPixel.NextPixel;

  • trunk/Packages/DpiControls/Dpi.Graphics.pas

    r546 r548  
    290290  public
    291291    NativeBitmap: Graphics.TBitmap;
    292     procedure BeginUpdate;
    293     procedure EndUpdate;
    294292    constructor Create; override;
    295293    destructor Destroy; override;
    … …  
    337335  published
    338336    procedure LoadFromFile(FileName: string);
    339     property Bitmpa: TBitmap read FBitmap write SetBitmap;
     337    property Bitmap: TBitmap read FBitmap write SetBitmap;
    340338  end;
    341339
    … …  
    713711        DstPixelWidth := ScaleToNative(XX + 1) - ScaleToNative(XX);
    714712        for DstPixelX := 0 to DstPixelWidth - 1 do begin
    715           DstPtr.PixelB := SrcPtr.PixelB;
    716           DstPtr.PixelG := SrcPtr.PixelG;
    717           DstPtr.PixelR := SrcPtr.PixelR;
     713          DstPtr.PixelRGB := SrcPtr.PixelRGB;
    718714          DstPtr.NextPixel;
    719715        end;
    … …  
    819815end;
    820816
    821 procedure TBitmap.BeginUpdate;
    822 begin
    823   GetNativeBitmap.BeginUpdate;
    824 end;
    825 
    826 procedure TBitmap.EndUpdate;
    827 begin
    828   GetNativeBitmap.EndUpdate;
    829 end;
    830 
    831817constructor TBitmap.Create;
    832818begin

  • trunk/Packages/DpiControls/DpiControls.lpk

    r482 r548  
    3030      <Other>
    3131        <CompilerMessages>
    32           <IgnoredMessages idx3123="True"/>
     32          <IgnoredMessages idx6058="True" idx3123="True"/>
    3333        </CompilerMessages>
    3434      </Other>
Note: See TracChangeset for help on using the changeset viewer.