david
8a45a23220
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@7 05c56307-c608-d34a-929d-697000501d7a
161 lines
4.4 KiB
ObjectPascal
161 lines
4.4 KiB
ObjectPascal
unit Unit1;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
|
|
Dialogs, dxLayoutLookAndFeels, dxLayoutControl, ExtCtrls, DBCtrls,
|
|
cxControls, DB, DBTables, Buttons, StdCtrls, Mask, dxPSGlbl, dxPSUtl,
|
|
dxPSEngn, dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider,
|
|
dxPSFillPatterns, dxPSEdgePatterns, dxPSCore, dxPSContainerLnk,
|
|
dxPSDBCtrlProducers, dxPSdxLCLnk, ComCtrls;
|
|
|
|
type
|
|
TForm1 = class(TForm)
|
|
DataSource1: TDataSource;
|
|
Table1: TTable;
|
|
DataSource2: TDataSource;
|
|
Table2: TTable;
|
|
DataSource3: TDataSource;
|
|
Table3: TTable;
|
|
lcMain: TdxLayoutControl;
|
|
DBEdit1: TDBEdit;
|
|
DBEdit4: TDBEdit;
|
|
DBEdit2: TDBEdit;
|
|
DBMemo1: TDBMemo;
|
|
DBEdit5: TDBEdit;
|
|
DBImage1: TDBImage;
|
|
dxDBLookupEdit1: TDBLookupComboBox;
|
|
DBEdit3: TDBEdit;
|
|
DBImage2: TDBImage;
|
|
DBMemo2: TDBMemo;
|
|
DBNavigator1: TDBNavigator;
|
|
lcMain_Root: TdxLayoutGroup;
|
|
lcMainGroup7: TdxLayoutGroup;
|
|
dxLayoutGroup1: TdxLayoutGroup;
|
|
lcMainItem7: TdxLayoutItem;
|
|
lcMainGroup4: TdxLayoutGroup;
|
|
lcMainItem2: TdxLayoutItem;
|
|
lcMainGroup2: TdxLayoutGroup;
|
|
lcMainGroup8: TdxLayoutGroup;
|
|
lcMainItem3: TdxLayoutItem;
|
|
lcMainItem4: TdxLayoutItem;
|
|
lcMainItem6: TdxLayoutItem;
|
|
lcMainItem5: TdxLayoutItem;
|
|
lcMainGroup5: TdxLayoutGroup;
|
|
lcMainGroup6: TdxLayoutGroup;
|
|
lcMainItem9: TdxLayoutItem;
|
|
lcMainItem10: TdxLayoutItem;
|
|
lcMainItem12: TdxLayoutItem;
|
|
lcMainItem11: TdxLayoutItem;
|
|
dxLayoutItem1: TdxLayoutItem;
|
|
dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
|
|
lfStandard: TdxLayoutStandardLookAndFeel;
|
|
lfOffice: TdxLayoutOfficeLookAndFeel;
|
|
lfWeb: TdxLayoutWebLookAndFeel;
|
|
lcMainItem1: TdxLayoutItem;
|
|
SpeedButton1: TSpeedButton;
|
|
lcMainItem8: TdxLayoutItem;
|
|
SpeedButton2: TSpeedButton;
|
|
lcMainItem13: TdxLayoutItem;
|
|
SpeedButton3: TSpeedButton;
|
|
lcMainItem14: TdxLayoutItem;
|
|
SpeedButton4: TSpeedButton;
|
|
lcMainGroup1: TdxLayoutGroup;
|
|
lcMainItem15: TdxLayoutItem;
|
|
Bevel1: TBevel;
|
|
dxComponentPrinter1: TdxComponentPrinter;
|
|
Panel1: TPanel;
|
|
btnDesign: TBitBtn;
|
|
btnPrintPreview: TBitBtn;
|
|
btnPrint: TBitBtn;
|
|
btnPageSetup: TBitBtn;
|
|
dxComponentPrinter1Link1: TdxLayoutControlReportLink;
|
|
procedure SpeedButton4Click(Sender: TObject);
|
|
procedure lcMainCustomization(Sender: TObject);
|
|
procedure SpeedButton1Click(Sender: TObject);
|
|
procedure dxComponentPrinter1Link1InitializeItem(
|
|
Sender: TdxCustomContainerReportLink; AnItem: TdxReportVisualItem;
|
|
AComponent: TComponent);
|
|
procedure btnDesignClick(Sender: TObject);
|
|
procedure btnPrintPreviewClick(Sender: TObject);
|
|
procedure btnPrintClick(Sender: TObject);
|
|
procedure btnPageSetupClick(Sender: TObject);
|
|
end;
|
|
|
|
var
|
|
Form1: TForm1;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure TForm1.SpeedButton4Click(Sender: TObject);
|
|
begin
|
|
lcMain.Customization := TSpeedButton(Sender).Down;
|
|
end;
|
|
|
|
procedure TForm1.lcMainCustomization(Sender: TObject);
|
|
begin
|
|
SpeedButton4.Down := lcMain.Customization;
|
|
end;
|
|
|
|
procedure TForm1.SpeedButton1Click(Sender: TObject);
|
|
|
|
function GetLookAndFeel(AIndex: Integer): TdxCustomLayoutLookAndFeel;
|
|
begin
|
|
case AIndex of
|
|
0: Result := lfStandard;
|
|
1: Result := lfOffice;
|
|
2: Result := lfWeb;
|
|
else
|
|
Result := nil;
|
|
end;
|
|
end;
|
|
|
|
begin
|
|
lcMain.LookAndFeel := GetLookAndFeel(TSpeedButton(Sender).Tag);
|
|
end;
|
|
|
|
procedure TForm1.dxComponentPrinter1Link1InitializeItem(
|
|
Sender: TdxCustomContainerReportLink; AnItem: TdxReportVisualItem;
|
|
AComponent: TComponent);
|
|
var
|
|
Group: TdxLayoutGroup;
|
|
begin
|
|
if lcMain.LookAndFeel = lfWeb then
|
|
if AComponent is TdxLayoutGroup then
|
|
begin
|
|
Group := TdxLayoutGroup(AComponent);
|
|
if (Group = dxLayoutGroup1) or (Group = lcMainGroup4) or (Group = lcMainGroup5) then
|
|
TdxReportLayoutGroup(AnItem).CaptionTransparent := False;
|
|
end;
|
|
end;
|
|
|
|
procedure TForm1.btnDesignClick(Sender: TObject);
|
|
begin
|
|
dxComponentPrinter1Link1.DesignReport;
|
|
end;
|
|
|
|
procedure TForm1.btnPrintPreviewClick(Sender: TObject);
|
|
begin
|
|
dxComponentPrinter1Link1.Preview;
|
|
end;
|
|
|
|
procedure TForm1.btnPrintClick(Sender: TObject);
|
|
begin
|
|
dxComponentPrinter1Link1.Print(True, nil);
|
|
end;
|
|
|
|
procedure TForm1.btnPageSetupClick(Sender: TObject);
|
|
begin
|
|
dxComponentPrinter1Link1.PageSetup;
|
|
end;
|
|
|
|
end.
|
|
|
|
|
|
|
|
|
|
|