paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 18:19:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

TDateTimePicker - removing not needed lines of code

Browse Source 
git-svn-id: trunk@52594 -
This commit is contained in:
zoran 2016-07-01 11:34:44 +00:00
parent 7c8840606e
commit 5416af6a20
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/datetimectrls/datetimepicker.pas
View File

@ -1338,8 +1338,6 @@ begin
for I := dtpHour to dtpMiliSec do for I := dtpHour to dtpMiliSec do
if not (I in FEffectiveHideDateTimeParts) then begin if not (I in FEffectiveHideDateTimeParts) then begin
Inc(TimeParts); Inc(TimeParts);
if TimeParts > 1 then
Inc(FTimeWidth, FTimeSeparatorWidth);
if I = dtpMiliSec then if I = dtpMiliSec then
FTimeWidth := FTimeWidth + 3 * FDigitWidth FTimeWidth := FTimeWidth + 3 * FDigitWidth