Changeset 496 for trunk/Packages


Ignore:
Timestamp:
Dec 18, 2023, 10:31:54 PM (5 months ago)
Author:
chronos
Message:
  • Modified: Code cleanup.
Location:
trunk/Packages
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • trunk/Packages/CevoComponents/BaseWin.pas

    r472 r496  
    175175    Assert((NewMode = wmModal) or (FWindowMode <> wmModal));
    176176    // don't make modal window non-modal
    177     if (NewMode = wmModal) and (forceclose or (FWindowMode <> wmModal)) then
     177    if (NewMode = wmModal) and (ForceClose or (FWindowMode <> wmModal)) then
    178178    begin // make modal
    179179      UserLeft := Left;
    … …  
    183183      ShowModal;
    184184    end
    185     else if forceclose then
     185    else if ForceClose then
    186186    begin // make modal
    187187      Visible := False;

  • trunk/Packages/CevoComponents/ButtonBase.pas

    r471 r496  
    8484      Invalidate;
    8585      if @DownChangedProc <> nil then
    86         DownChangedProc(self);
     86        DownChangedProc(Self);
    8787    end;
    8888    if (Button = TMouseButton.mbLeft) and (@ClickProc <> nil) then
    89       ClickProc(self);
     89      ClickProc(Self);
    9090  end
    9191  else
    … …  
    9898      Invalidate;
    9999      if @DownChangedProc <> nil then
    100         DownChangedProc(self);
     100        DownChangedProc(Self);
    101101    end;
    102102  end;
    … …  
    113113        Paint;
    114114        if @DownChangedProc <> nil then
    115           DownChangedProc(self);
     115          DownChangedProc(Self);
    116116      end
    117117      else
    … …  
    122122      Paint;
    123123      if @DownChangedProc <> nil then
    124         DownChangedProc(self);
     124        DownChangedProc(Self);
    125125    end;
    126126end;

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

    r495 r496  
    1414  TMessageEvent = procedure (var TheMessage : TLMessage) of object;
    1515  TCloseAction = Forms.TCloseAction;
     16  TFormState = Forms.TFormState;
    1617  TFormStateType = Forms.TFormStateType;
    1718  TWindowState = Forms.TWindowState;
Note: See TracChangeset for help on using the changeset viewer.