You've already forked lazarus-ccr
tvplaint: Add missing files of fulldemo (ExVpRptSetup.*)
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5060 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
100
components/tvplanit/examples/fulldemo/ExVpRptSetup.lfm
Normal file
100
components/tvplanit/examples/fulldemo/ExVpRptSetup.lfm
Normal file
@ -0,0 +1,100 @@
|
||||
object frmReportSetup: TfrmReportSetup
|
||||
Left = 380
|
||||
Height = 138
|
||||
Top = 138
|
||||
Width = 254
|
||||
BorderStyle = bsDialog
|
||||
Caption = 'Report Setup'
|
||||
ClientHeight = 138
|
||||
ClientWidth = 254
|
||||
Color = clBtnFace
|
||||
Font.Color = clWindowText
|
||||
OnCreate = FormCreate
|
||||
OnShow = FormShow
|
||||
Position = poMainFormCenter
|
||||
LCLVersion = '1.4.4.0'
|
||||
object lblStartDate: TLabel
|
||||
Left = 16
|
||||
Height = 15
|
||||
Top = 16
|
||||
Width = 54
|
||||
Caption = 'Start Date:'
|
||||
FocusControl = edStartDate
|
||||
ParentColor = False
|
||||
end
|
||||
object lblEndDate: TLabel
|
||||
Left = 20
|
||||
Height = 15
|
||||
Top = 40
|
||||
Width = 50
|
||||
Caption = 'End Date:'
|
||||
FocusControl = edEndDate
|
||||
ParentColor = False
|
||||
end
|
||||
object lblFormat: TLabel
|
||||
Left = 29
|
||||
Height = 15
|
||||
Top = 75
|
||||
Width = 41
|
||||
Caption = 'Format:'
|
||||
FocusControl = VpPrintFormatComboBox1
|
||||
ParentColor = False
|
||||
end
|
||||
object btnOK: TButton
|
||||
Left = 90
|
||||
Height = 25
|
||||
Top = 104
|
||||
Width = 75
|
||||
Caption = 'OK'
|
||||
Default = True
|
||||
ModalResult = 1
|
||||
TabOrder = 3
|
||||
end
|
||||
object btnCancel: TButton
|
||||
Left = 170
|
||||
Height = 25
|
||||
Top = 104
|
||||
Width = 75
|
||||
Cancel = True
|
||||
Caption = 'Cancel'
|
||||
ModalResult = 2
|
||||
TabOrder = 4
|
||||
end
|
||||
object VpPrintFormatComboBox1: TVpPrintFormatComboBox
|
||||
Left = 76
|
||||
Height = 23
|
||||
Top = 72
|
||||
Width = 169
|
||||
ItemHeight = 15
|
||||
Sorted = True
|
||||
TabOrder = 2
|
||||
end
|
||||
object edStartDate: TDateEdit
|
||||
Left = 76
|
||||
Height = 23
|
||||
Top = 12
|
||||
Width = 171
|
||||
CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
|
||||
OKCaption = 'OK'
|
||||
CancelCaption = 'Cancel'
|
||||
DateOrder = doNone
|
||||
ButtonWidth = 23
|
||||
NumGlyphs = 1
|
||||
MaxLength = 0
|
||||
TabOrder = 0
|
||||
end
|
||||
object edEndDate: TDateEdit
|
||||
Left = 76
|
||||
Height = 23
|
||||
Top = 36
|
||||
Width = 171
|
||||
CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
|
||||
OKCaption = 'OK'
|
||||
CancelCaption = 'Cancel'
|
||||
DateOrder = doNone
|
||||
ButtonWidth = 23
|
||||
NumGlyphs = 1
|
||||
MaxLength = 0
|
||||
TabOrder = 1
|
||||
end
|
||||
end
|
||||
190
components/tvplanit/examples/fulldemo/ExVpRptSetup.pas
Normal file
190
components/tvplanit/examples/fulldemo/ExVpRptSetup.pas
Normal file
@ -0,0 +1,190 @@
|
||||
{* ***** BEGIN LICENSE BLOCK ***** *}
|
||||
{* Version: MPL 1.1 *}
|
||||
{* *}
|
||||
{* The contents of this file are subject to the Mozilla Public License *}
|
||||
{* Version 1.1 (the "License"); you may not use this file except in *}
|
||||
{* compliance with the License. You may obtain a copy of the License at *}
|
||||
{* http://www.mozilla.org/MPL/ *}
|
||||
{* *}
|
||||
{* Software distributed under the License is distributed on an "AS IS" basis, *}
|
||||
{* WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License *}
|
||||
{* for the specific language governing rights and limitations under the *}
|
||||
{* License. *}
|
||||
{* *}
|
||||
{* The Original Code is TurboPower Visual PlanIt *}
|
||||
{* *}
|
||||
{* The Initial Developer of the Original Code is TurboPower Software *}
|
||||
{* *}
|
||||
{* Portions created by TurboPower Software Inc. are Copyright (C) 2002 *}
|
||||
{* TurboPower Software Inc. All Rights Reserved. *}
|
||||
{* *}
|
||||
{* Contributor(s): *}
|
||||
{* *}
|
||||
{* ***** END LICENSE BLOCK ***** *}
|
||||
|
||||
unit ExVpRptSetup;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
||||
StdCtrls, ComCtrls, EditBtn,
|
||||
|
||||
VpBaseDS, VpPrtFmtCBox;
|
||||
|
||||
type
|
||||
TReportDataRec = record
|
||||
StartDate, EndDate : TDateTime;
|
||||
Format : string;
|
||||
end;
|
||||
|
||||
{ TfrmReportSetup }
|
||||
|
||||
TfrmReportSetup = class(TForm)
|
||||
btnOK: TButton;
|
||||
btnCancel: TButton;
|
||||
lblStartDate: TLabel;
|
||||
lblEndDate: TLabel;
|
||||
lblFormat: TLabel;
|
||||
edStartDate: TDateEdit;
|
||||
edEndDate: TDateEdit;
|
||||
VpPrintFormatComboBox1: TVpPrintFormatComboBox;
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
private
|
||||
procedure PositionControls;
|
||||
procedure SetCaptions;
|
||||
function GetControlLink: TVpControlLink;
|
||||
procedure SetControlLink(const Value: TVpControlLink);
|
||||
function GetDate(Index: Integer): TDateTime;
|
||||
procedure SetDate(Index: Integer; Value: TDateTime);
|
||||
procedure SaveData(out ReportData: TReportDataRec);
|
||||
public
|
||||
{ Public declarations }
|
||||
function Execute(var ReportData: TReportDataRec) : Boolean;
|
||||
property ControlLink : TVpControlLink
|
||||
read GetControlLink write SetControlLink;
|
||||
property StartDate : TDateTime index 1
|
||||
read GetDate write SetDate;
|
||||
property EndDate : TDateTime index 2
|
||||
read GetDate write SetDate;
|
||||
end;
|
||||
|
||||
var
|
||||
frmReportSetup: TfrmReportSetup;
|
||||
ReportData: TReportDataRec = (StartDate: 0; EndDate: 0; Format: '');
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.LFM}
|
||||
|
||||
uses
|
||||
Math, VpSR, VpMisc;
|
||||
|
||||
{ TfrmReportSetup }
|
||||
|
||||
function TfrmReportSetup.Execute(var ReportData: TReportDataRec) : Boolean;
|
||||
begin
|
||||
StartDate := ReportData.StartDate;
|
||||
EndDate := ReportData.EndDate;
|
||||
VpPrintFormatCombobox1.ItemIndex := ControlLink.Printer.Find(ReportData.Format);
|
||||
|
||||
Result := ShowModal = mrOk;
|
||||
|
||||
if Result then
|
||||
SaveData(ReportData);
|
||||
end;
|
||||
|
||||
procedure TfrmReportSetup.FormCreate(Sender: TObject);
|
||||
begin
|
||||
SetCaptions;
|
||||
end;
|
||||
|
||||
procedure TfrmReportSetup.FormShow(Sender: TObject);
|
||||
begin
|
||||
PositionControls;
|
||||
end;
|
||||
|
||||
function TfrmReportSetup.GetControlLink: TVpControlLink;
|
||||
begin
|
||||
Result := VpPrintFormatComboBox1.ControlLink;
|
||||
end;
|
||||
|
||||
function TfrmReportSetup.GetDate(Index: Integer) : TDateTime;
|
||||
begin
|
||||
Result := 0.0;
|
||||
case Index of
|
||||
1: Result := edStartDate.Date;
|
||||
2: Result := edEndDate.Date;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmReportSetup.PositionControls;
|
||||
var
|
||||
w: Integer;
|
||||
delta: Integer = 8;
|
||||
begin
|
||||
delta := ScaleX(8, DesignTimeDPI);
|
||||
w := Maxvalue([GetLabelWidth(lblStartDate), GetLabelWidth(lblEndDate), GetLabelWidth(lblFormat)]);
|
||||
edStartDate.Left := delta + w + delta;
|
||||
lblStartDate.Left := edStartDate.Left - delta - GetLabelWidth(lblStartDate);
|
||||
edEndDate.Left := edStartDate.Left;
|
||||
lblEndDate.Left := edEndDate.Left - delta - GetLabelWidth(lblEndDate);
|
||||
VpPrintFormatCombobox1.Left := edStartDate.Left;
|
||||
lblFormat.Left := VpPrintFormatCombobox1.Left - delta - GetLabelWidth(lblFormat);
|
||||
|
||||
ClientWidth := RightOf(edStartDate) + delta;
|
||||
w := Max(GetButtonWidth(btnOK), GetButtonWidth(btnCancel));
|
||||
btnOK.Width := w;
|
||||
btnCancel.Width := w;
|
||||
btnCancel.Left := ClientWidth - delta - w;
|
||||
btnOK.Left := btnCancel.Left - delta - w;
|
||||
end;
|
||||
|
||||
procedure TfrmReportSetup.SaveData(out ReportData: TReportDataRec);
|
||||
begin
|
||||
if (edStartDate.Text = '') and (edEndDate.Text = '') then begin
|
||||
ReportData.StartDate := now;
|
||||
ReportData.EndDate := now;
|
||||
end else
|
||||
if (edStartDate.Text = '') then begin
|
||||
ReportData.EndDate := edEndDate.Date;
|
||||
ReportData.StartDate := edEndDate.Date;
|
||||
end else
|
||||
if (edEndDate.Text = '') then begin
|
||||
ReportData.StartDate := edStartDate.Date;
|
||||
ReportData.EndDate := edStartDate.date;
|
||||
end else
|
||||
begin
|
||||
ReportData.StartDate := edStartDate.Date;
|
||||
ReportData.EndDate := edEndDate.Date;
|
||||
end;
|
||||
ReportData.Format := VpPrintFormatComboBox1.Text;
|
||||
end;
|
||||
|
||||
procedure TfrmReportSetup.SetCaptions;
|
||||
begin
|
||||
Caption := RSReportSetup;
|
||||
lblStartDate.Caption := RSStartTimeLbl;
|
||||
lblEndDate.Caption := RSEndTimeLbl;
|
||||
lblFormat.Caption := RSFormatLbl;
|
||||
btnOK.Caption := RSOKBtn;
|
||||
btnCancel.Caption := RSCancelBtn;
|
||||
end;
|
||||
|
||||
procedure TfrmReportSetup.SetControlLink(const Value: TVpControlLink);
|
||||
begin
|
||||
VpPrintFormatComboBox1.ControlLink := Value;
|
||||
end;
|
||||
|
||||
procedure TfrmReportSetup.SetDate(Index: Integer;
|
||||
Value: TDateTime);
|
||||
begin
|
||||
case Index of
|
||||
1: edStartDate.Date := Value;
|
||||
2: edEndDate.Date := Value;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
Reference in New Issue
Block a user