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

tvplanit: Fix preview updating issue in print preview desinger.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4929 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-07-06 21:49:00 +00:00
parent ac3e014109
commit 1c6dc6b123
16 changed files with 172 additions and 149 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
components/tvplanit/examples/demo/demomain.lfm
View File

@ -25,9 +25,9 @@ object MainForm: TMainForm
Height = 532
Top = 48
Width = 780
ActivePage = TabEvents
ActivePage = TabSettings
Align = alClient
TabIndex = 0
TabIndex = 4
TabOrder = 0
object TabEvents: TTabSheet
Caption = 'Events'
@ -521,15 +521,6 @@ object MainForm: TMainForm
Caption = 'Drawing style:'
ParentColor = False
end
object ComboBox1: TComboBox
Left = 10
Height = 23
Top = 10
Width = 100
ItemHeight = 15
TabOrder = 5
Text = 'ComboBox1'
end
object CbDrawingStyle: TComboBox
Left = 439
Height = 23
@ -544,7 +535,7 @@ object MainForm: TMainForm
)
OnChange = CbDrawingStyleChange
Style = csDropDownList
TabOrder = 6
TabOrder = 5
Text = 'flat'
end
end
@ -707,6 +698,7 @@ object MainForm: TMainForm
Caption.Font.Style = [fsItalic]
DayOffset = 0
DayOffsetUnits = duDay
ElementName = 'DayView'
Height = 100
Left = 0
Shape.Shape = ustRectangle
@ -724,6 +716,7 @@ object MainForm: TMainForm
Version = 'v1.04'
DayOffset = 0
DayOffsetUnits = duDay
ElementName = 'WeekView'
Height = 100
ItemType = itWeekView
Left = 0

1
components/tvplanit/examples/demo/demomain.lrt
View File

@ -19,7 +19,6 @@ TMAINFORM.CBALLOWINPLACEEDITING.CAPTION=Allow inplace editing
TMAINFORM.LBLADDRESSBUILDER.CAPTION=Address builder
TMAINFORM.CBADDRESSBUILDER.TEXT=(default)
TMAINFORM.LBLDRAWINGSTYLE.CAPTION=Drawing style:
TMAINFORM.COMBOBOX1.TEXT=ComboBox1
TMAINFORM.CBDRAWINGSTYLE.TEXT=flat
TMAINFORM.TITLELBL.CAPTION=TitleLbl
TMAINFORM.MENUITEM1.CAPTION=File

5
components/tvplanit/examples/demo/demomain.pas
View File

@ -24,7 +24,6 @@ type
CbFirstDayOfWeek: TComboBox;
CbAllowInplaceEditing: TCheckBox;
CbAddressBuilder: TComboBox;
ComboBox1: TComboBox;
CbDrawingStyle: TComboBox;
Img: TImage;
ImageList1: TImageList;
@ -359,6 +358,7 @@ end;
procedure TMainForm.MnuEditPrintFormatsClick(Sender: TObject);
begin
VpPrintFormatEditDialog1.DrawingStyle := VpWeekView1.DrawingStyle;
VpPrintFormatEditDialog1.Execute;
end;
@ -387,7 +387,8 @@ begin
VpPrintPreviewDialog1.ControlLink := VpControlLink1;
VpPrintPreviewDialog1.Printer := Printer;
VpPrintPreviewDialog1.StartDate := t1;
VPPrintPreviewDialog1.EndDate := t2;
VpPrintPreviewDialog1.EndDate := t2;
VpPrintPreviewDialog1.DrawingStyle := VpDayView1.DrawingStyle;
if VpPrintPreviewDialog1.Execute then
if PrintDialog1.Execute then begin
Printer.BeginDoc;