Changeset 330 for trunk/Packages/CevoComponents/EOTButton.pas
- Timestamp:
- Mar 26, 2021, 2:16:04 PM (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Packages/CevoComponents/EOTButton.pas
r323 r330 91 91 procedure TEOTButton.SetIndex(x: integer); 92 92 begin 93 if x <> FIndex then 94 begin 93 if x <> FIndex then begin 95 94 FIndex := x; 96 95 Invalidate; … … 100 99 procedure TEOTButton.SetButtonIndexFast(x: integer); 101 100 begin 102 if Visible and (x <> FIndex) then 103 begin 101 if Visible and (x <> FIndex) then begin 104 102 FIndex := x; 105 103 try 106 Paint 104 Paint; 107 105 except 108 106 end;
Note:
See TracChangeset
for help on using the changeset viewer.