pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

TvPlainIt: Merge Delphi-defines in vpclock

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8220 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-03-22 11:44:24 +00:00
parent c7f034cf72
commit 91c06583cd
1 changed files with 2 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
components/tvplanit/source/vpclock.pas
View File

@ -156,8 +156,10 @@ type
protected {private} protected {private}
{$IFDEF DELPHI} {$IFDEF DELPHI}
FTimerPool: TVpTimerPool; FTimerPool: TVpTimerPool;
ckClockHandle: Integer;
{$ELSE} {$ELSE}
FTimer: TTimer; FTimer: TTimer;
FTimeStarted: TDateTime; {time at which the timer is activated }
{$ENDIF} {$ENDIF}
FActive: Boolean; FActive: Boolean;
FHold: Boolean; FHold: Boolean;
@ -187,11 +189,6 @@ type
ckAnalogWidth: Integer; ckAnalogWidth: Integer;
ckLEDDisplay: TVpLEDClockDisplay; ckLEDDisplay: TVpLEDClockDisplay;
ckDraw: TBitMap; ckDraw: TBitMap;
{$IFDEF DELPHI}
ckClockHandle: Integer;
{$ELSE}
FTimeStarted: TDateTime; {time at which the timer is activated }
{$ENDIF}
ckOldHour: Integer; ckOldHour: Integer;
ckOldMinute: Integer; ckOldMinute: Integer;
ckOldSecond: Integer; ckOldSecond: Integer;