david
3b29f73ece
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@8 05c56307-c608-d34a-929d-697000501d7a
241 lines
6.7 KiB
ObjectPascal
241 lines
6.7 KiB
ObjectPascal
unit Unit1;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
|
|
Dialogs, dxLayoutLookAndFeels, dxLayoutControl, jpeg, ExtCtrls,
|
|
cxControls, ComCtrls, Buttons;
|
|
|
|
type
|
|
TForm1 = class(TForm)
|
|
PageControl1: TPageControl;
|
|
TabSheet1: TTabSheet;
|
|
TabSheet2: TTabSheet;
|
|
TabSheet3: TTabSheet;
|
|
TabSheet4: TTabSheet;
|
|
lcMain: TdxLayoutControl;
|
|
Image1: TImage;
|
|
lcMain___Root: TdxLayoutGroup;
|
|
dxLayoutGroup1: TdxLayoutGroup;
|
|
lcMainGroup4: TdxLayoutGroup;
|
|
lcMainGroup20: TdxLayoutGroup;
|
|
dxLayoutItem1: TdxLayoutItem;
|
|
lcMainItem5: TdxLayoutItem;
|
|
lcMainItem9: TdxLayoutItem;
|
|
lcMainItem11: TdxLayoutItem;
|
|
lcMainItem13: TdxLayoutItem;
|
|
lcMainGroup25: TdxLayoutGroup;
|
|
lcMainGroup22: TdxLayoutGroup;
|
|
lcMainItem3: TdxLayoutItem;
|
|
lcMainGroup23: TdxLayoutGroup;
|
|
lcMainItem7: TdxLayoutItem;
|
|
lcMainItem27: TdxLayoutItem;
|
|
lcMainGroup2: TdxLayoutGroup;
|
|
lcMainGroup17: TdxLayoutGroup;
|
|
lcMainGroup10: TdxLayoutGroup;
|
|
lcMainItem15: TdxLayoutItem;
|
|
lcMainItem16: TdxLayoutItem;
|
|
lcMainGroup13: TdxLayoutGroup;
|
|
lcMainItem17: TdxLayoutItem;
|
|
lcMainItem18: TdxLayoutItem;
|
|
lcMainGroup15: TdxLayoutGroup;
|
|
lcMainItem19: TdxLayoutItem;
|
|
lcMainItem20: TdxLayoutItem;
|
|
lcMainGroup3: TdxLayoutGroup;
|
|
lcMainGroup21: TdxLayoutGroup;
|
|
lcMainGroup16: TdxLayoutGroup;
|
|
lcMainItem21: TdxLayoutItem;
|
|
lcMainItem22: TdxLayoutItem;
|
|
lcMainGroup18: TdxLayoutGroup;
|
|
lcMainItem23: TdxLayoutItem;
|
|
lcMainItem24: TdxLayoutItem;
|
|
lcMainGroup19: TdxLayoutGroup;
|
|
lcMainItem25: TdxLayoutItem;
|
|
lcMainItem26: TdxLayoutItem;
|
|
lcMainItem2: TdxLayoutItem;
|
|
lcMainItem6: TdxLayoutItem;
|
|
lcMainItem10: TdxLayoutItem;
|
|
lcMainItem12: TdxLayoutItem;
|
|
lcMainItem14: TdxLayoutItem;
|
|
lcMainItem4: TdxLayoutItem;
|
|
lcMainItem8: TdxLayoutItem;
|
|
dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
|
|
lfMain: TdxLayoutWebLookAndFeel;
|
|
lfVCLProducts: TdxLayoutWebLookAndFeel;
|
|
lfActiveXProducts: TdxLayoutWebLookAndFeel;
|
|
lfNETProducts: TdxLayoutWebLookAndFeel;
|
|
lfVCLProductsGroups: TdxLayoutWebLookAndFeel;
|
|
dxLayoutLookAndFeelList2: TdxLayoutLookAndFeelList;
|
|
lfProducts: TdxLayoutWebLookAndFeel;
|
|
lfProductsLink: TdxLayoutWebLookAndFeel;
|
|
lcVCL: TdxLayoutControl;
|
|
Image2: TImage;
|
|
Image3: TImage;
|
|
Image4: TImage;
|
|
Image5: TImage;
|
|
Image6: TImage;
|
|
Image7: TImage;
|
|
Image8: TImage;
|
|
Image9: TImage;
|
|
Image10: TImage;
|
|
dxLayoutGroup2: TdxLayoutGroup;
|
|
dxLayoutGroup3: TdxLayoutGroup;
|
|
dxLayoutItem2: TdxLayoutItem;
|
|
dxLayoutItem3: TdxLayoutItem;
|
|
dxLayoutItem4: TdxLayoutItem;
|
|
dxLayoutItem5: TdxLayoutItem;
|
|
dxLayoutItem6: TdxLayoutItem;
|
|
dxLayoutItem7: TdxLayoutItem;
|
|
dxLayoutItem8: TdxLayoutItem;
|
|
dxLayoutItem9: TdxLayoutItem;
|
|
dxLayoutItem10: TdxLayoutItem;
|
|
lcActiveX: TdxLayoutControl;
|
|
Image11: TImage;
|
|
Image12: TImage;
|
|
Image13: TImage;
|
|
Image14: TImage;
|
|
Image15: TImage;
|
|
Image16: TImage;
|
|
Image17: TImage;
|
|
dxLayoutGroup4: TdxLayoutGroup;
|
|
dxLayoutGroup5: TdxLayoutGroup;
|
|
dxLayoutItem11: TdxLayoutItem;
|
|
dxLayoutItem12: TdxLayoutItem;
|
|
dxLayoutItem13: TdxLayoutItem;
|
|
dxLayoutItem14: TdxLayoutItem;
|
|
dxLayoutItem15: TdxLayoutItem;
|
|
dxLayoutItem16: TdxLayoutItem;
|
|
dxLayoutItem17: TdxLayoutItem;
|
|
lcNET: TdxLayoutControl;
|
|
Image18: TImage;
|
|
dxLayoutGroup6: TdxLayoutGroup;
|
|
dxLayoutGroup7: TdxLayoutGroup;
|
|
lcMainItem1: TdxLayoutItem;
|
|
dxLayoutItem18: TdxLayoutItem;
|
|
dxLayoutItem19: TdxLayoutItem;
|
|
dxLayoutItem20: TdxLayoutItem;
|
|
dxLayoutItem21: TdxLayoutItem;
|
|
lcMainGroup5: TdxLayoutGroup;
|
|
dxLayoutGroup8: TdxLayoutGroup;
|
|
dxLayoutItem22: TdxLayoutItem;
|
|
dxLayoutItem23: TdxLayoutItem;
|
|
lcMainGroup6: TdxLayoutGroup;
|
|
dxLayoutItem24: TdxLayoutItem;
|
|
dxLayoutItem25: TdxLayoutItem;
|
|
lcMainGroup7: TdxLayoutGroup;
|
|
dxLayoutItem26: TdxLayoutItem;
|
|
dxLayoutItem27: TdxLayoutItem;
|
|
lcMainGroup8: TdxLayoutGroup;
|
|
dxLayoutItem28: TdxLayoutItem;
|
|
dxLayoutItem29: TdxLayoutItem;
|
|
dxLayoutGroup9: TdxLayoutGroup;
|
|
dxLayoutItem30: TdxLayoutItem;
|
|
dxLayoutItem31: TdxLayoutItem;
|
|
lcBackgroundGroup_Root: TdxLayoutGroup;
|
|
lcBackground: TdxLayoutControl;
|
|
lcBackgroundSiteItem: TdxLayoutItem;
|
|
lcBackgroundItem1: TdxLayoutItem;
|
|
sbGoBack: TSpeedButton;
|
|
lcBackgroundItem2: TdxLayoutItem;
|
|
sbGoForward: TSpeedButton;
|
|
lcBackgroundGroup1: TdxLayoutGroup;
|
|
lfBackground: TdxLayoutWebLookAndFeel;
|
|
lcBackgroundItem3: TdxLayoutItem;
|
|
Bevel1: TBevel;
|
|
procedure FormCreate(Sender: TObject);
|
|
procedure lcMainGroupCaptionClick(Sender: TObject);
|
|
procedure sbGoBackClick(Sender: TObject);
|
|
procedure sbGoForwardClick(Sender: TObject);
|
|
private
|
|
FActiveScreen: Integer;
|
|
FLastActiveScreen: Integer;
|
|
procedure SetActiveScreen(Value: Integer);
|
|
protected
|
|
procedure GoBack;
|
|
procedure GoForward;
|
|
procedure RefreshEnableds;
|
|
property ActiveScreen: Integer read FActiveScreen write SetActiveScreen;
|
|
property LastActiveScreen: Integer read FLastActiveScreen;
|
|
public
|
|
constructor Create(AOwner: TComponent); override;
|
|
end;
|
|
|
|
var
|
|
Form1: TForm1;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
constructor TForm1.Create(AOwner: TComponent);
|
|
begin
|
|
FActiveScreen := -1;
|
|
FLastActiveScreen := -1;
|
|
inherited;
|
|
end;
|
|
|
|
procedure TForm1.SetActiveScreen(Value: Integer);
|
|
|
|
function GetLayoutControl(AIndex: Integer): TdxLayoutControl;
|
|
begin
|
|
case AIndex of
|
|
0: Result := lcMain;
|
|
1: Result := lcVCL;
|
|
2: Result := lcActiveX;
|
|
3: Result := lcNET;
|
|
else
|
|
Result := nil;
|
|
end;
|
|
end;
|
|
|
|
begin
|
|
if FActiveScreen <> Value then
|
|
begin
|
|
if GetLayoutControl(FActiveScreen) <> nil then
|
|
GetLayoutControl(FActiveScreen).Visible := False;
|
|
FLastActiveScreen := FActiveScreen;
|
|
FActiveScreen := Value;
|
|
lcBackgroundSiteItem.Control := GetLayoutControl(FActiveScreen);
|
|
RefreshEnableds;
|
|
end;
|
|
end;
|
|
|
|
procedure TForm1.GoBack;
|
|
begin
|
|
ActiveScreen := 0;
|
|
end;
|
|
|
|
procedure TForm1.GoForward;
|
|
begin
|
|
ActiveScreen := LastActiveScreen;
|
|
end;
|
|
|
|
procedure TForm1.RefreshEnableds;
|
|
begin
|
|
sbGoBack.Enabled := ActiveScreen > 0;
|
|
sbGoForward.Enabled := LastActiveScreen > 0;
|
|
end;
|
|
|
|
procedure TForm1.FormCreate(Sender: TObject);
|
|
begin
|
|
ActiveScreen := 0;
|
|
end;
|
|
|
|
procedure TForm1.lcMainGroupCaptionClick(Sender: TObject);
|
|
begin
|
|
ActiveScreen := TdxLayoutGroup(Sender).Tag;
|
|
end;
|
|
|
|
procedure TForm1.sbGoBackClick(Sender: TObject);
|
|
begin
|
|
GoBack;
|
|
end;
|
|
|
|
procedure TForm1.sbGoForwardClick(Sender: TObject);
|
|
begin
|
|
GoForward;
|
|
end;
|
|
|
|
end.
|