Changeset 67 for trunk/Packages/Common


Ignore:
Timestamp:
Nov 28, 2020, 11:27:11 AM (4 years ago)
Author:
chronos
Message:
  • Modified: Refactoring of Engine Paint method.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/Packages/Common/UMetaCanvas.pas

    r62 r67  
    148148    procedure Pie(EllipseX1, EllipseY1, EllipseX2, EllipseY2,
    149149      StartX, StartY, EndX, EndY: Integer); override;
    150     procedure SetSize(Size: TPoint);
    151150    procedure Reset;
    152151    procedure DrawTo(Canvas: TCanvas);
     
    155154    constructor Create;
    156155    destructor Destroy; override;
     156    property Size: TPoint read FSize write FSize;
    157157  end;
    158158
     
    622622end;
    623623
    624 procedure TMetaCanvas.SetSize(Size: TPoint);
    625 begin
    626   FSize := Size;
    627 end;
    628 
    629624procedure TMetaCanvas.Reset;
    630625begin
Note: See TracChangeset for help on using the changeset viewer.