Changeset 468 for trunk/Packages/CevoComponents/ButtonN.pas
- Timestamp:
- Dec 3, 2023, 11:28:08 AM (5 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Packages/CevoComponents/ButtonN.pas
r447 r468 4 4 5 5 uses 6 Classes, Graphics, Controls, LCLIntf, LCLType, ScreenTools; 6 {$IFDEF DPI}Dpi.Graphics, Dpi.Controls,{$ELSE}Graphics, Controls,{$ENDIF} 7 Classes, LCLIntf, LCLType, ScreenTools; 7 8 8 9 type … … 85 86 X, Y: Integer); 86 87 begin 87 if FPossible and (Button = mbLeft) and (@ChangeProc <> nil) then88 if FPossible and (Button = TMouseButton.mbLeft) and (@ChangeProc <> nil) then 88 89 ChangeProc(Self); 89 90 end;
Note:
See TracChangeset
for help on using the changeset viewer.