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

tvplanit: VpDayView icons are painted side-by-side now.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6437 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-05-18 15:52:16 +00:00
parent 3043e953cc
commit ec29b90757
4 changed files with 15 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
components/tvplanit/examples/fulldemo/demomain.lfm
View File

@ -775,7 +775,6 @@ object MainForm: TMainForm
Images = ImageList1 Images = ImageList1
ImagesWidth = 0 ImagesWidth = 0
ItemFont.Color = clWhite ItemFont.Color = clWhite
PlaySounds = False
SelectedItem = -1 SelectedItem = -1
SelectedItemFont.Color = clWhite SelectedItemFont.Color = clWhite
SelectedItemFont.Style = [fsBold] SelectedItemFont.Style = [fsBold]

11
components/tvplanit/source/vpconst.pas
View File

@ -48,13 +48,14 @@ uses
const const
BuildTime = {$I %DATE%} + {$I %TIME}; //'09/13/2002 09:25 AM'; BuildTime = {$I %DATE%} + {$I %TIME}; //'09/13/2002 09:25 AM';
VpVersionStr = 'v1.10'; {Visual PlanIt library version} VpVersionStr = 'v1.12'; {Visual PlanIt library version}
VpProductName = 'Visual PlanIt'; VpProductName = 'Visual PlanIt';
BorderStyles : array[TBorderStyle] of LongInt = BorderStyles: array[TBorderStyle] of LongInt = (0, WS_BORDER);
(0, WS_BORDER);
ScrollBarStyles : array [TScrollStyle] of LongInt = ScrollBarStyles: array[TScrollStyle] of LongInt = (
(0, WS_HSCROLL, WS_VSCROLL, WS_HSCROLL or WS_VSCROLL{$IFDEF LCL},0,0,0{$ENDIF}); 0, WS_HSCROLL, WS_VSCROLL, WS_HSCROLL or WS_VSCROLL{$IFDEF LCL},0,0,0{$ENDIF}
);
SecondsInDay = 86400; { Number of seconds in a day } SecondsInDay = 86400; { Number of seconds in a day }
SecondsInHour = 3600; { Number of seconds in an hour } SecondsInHour = 3600; { Number of seconds in an hour }

13
components/tvplanit/source/vpdayviewpainter.pas
View File

@ -1029,7 +1029,10 @@ var
begin begin
ABitmap.Transparent := True; ABitmap.Transparent := True;
R := Rect(0, 0, w, h); R := Rect(0, 0, w, h);
OffsetRect(R, AIconRect.Left + FScaledIconMargin, AIconRect.Top + FScaledIconMargin); OffsetRect(R,
AIconRect.Left + FScaledIconMargin + DrawPos,
AIconRect.Top + FScaledIconMargin
);
bmp := TBitmap.Create; bmp := TBitmap.Create;
try try
@ -1049,10 +1052,10 @@ var
end; end;
begin begin
DrawPos := 1; DrawPos := 0;
DrawIcon(dvBmpCustom, CustomW, CustomH); DrawIcon(dvBmpCustom, CustomW, CustomH, true);
DrawIcon(dvBmpCategory, CategoryW, CategoryH); DrawIcon(dvBmpCategory, CategoryW, CategoryH, true);
DrawIcon(dvBmpAlarm, AlarmW, AlarmH); DrawIcon(dvBmpAlarm, AlarmW, AlarmH, true);
DrawIcon(dvBmpRecurring, RecurringW, RecurringH, false); DrawIcon(dvBmpRecurring, RecurringW, RecurringH, false);
end; end;

2
components/tvplanit/source/vpxmlds.pas
View File

@ -2,7 +2,7 @@
{$I vp.inc} {$I vp.inc}
unit VpXmlDs; unit VpXmlDS;
interface interface