Archivado/Componentes.Terceros.jvcl
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
b40ce04eb4
Componentes.Terceros.jvcl/official/3.00/examples/JvDocking/DockOptionDemo/Source/MainForm.pas

337 lines
11 KiB
ObjectPascal
Raw Normal View History

git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.jvcl@5 7f62d464-2af8-f54e-996c-e91b33f51cbe
2007-07-10 08:07:54 +00:00
{-----------------------------------------------------------------------------
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/MPL-1.1.html
Software distributed under the License is distributed on an "AS IS" basis,
WITHOUT WARRANTY OF ANY KIND, either expressed or implied. See the License for
the specific language governing rights and limitations under the License.
You may retrieve the latest version of this file at the Project JEDI's JVCL home page,
located at http://jvcl.sourceforge.net
Known Issues:
-----------------------------------------------------------------------------}
unit MainForm;
{$I jvcl.inc}
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, JvDockControlForm, JvDockVIDStyle, StdCtrls, Spin, ComCtrls,
ImgList
{$IFDEF USEJVCL}
, JvComponent, JvAppStorage, JvAppIniStorage
{$ENDIF}
;
type
TMain_Form = class(TForm)
lbDockServer1: TJvDockServer;
JvDockVIDStyle1: TJvDockVIDStyle;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
GroupBox2: TGroupBox;
ActivePanelFont_Button: TButton;
ActivePanelStartColor_Button: TButton;
ActivePanelEndColor_Button: TButton;
GroupBox3: TGroupBox;
InactivePanelFont_Button: TButton;
InactivePanelStartColor_Button: TButton;
InactivePanelEndColor_Button: TButton;
GrabbersSize_SpinEdit: TSpinEdit;
SplitterWidth_SpinEdit: TSpinEdit;
TextAlignment_ComboBox: TComboBox;
SystemInfo_CheckBox: TCheckBox;
TextEllipsis_CheckBox: TCheckBox;
Label6: TLabel;
GroupBox5: TGroupBox;
ActiveTabFont_Button: TButton;
ActiveTabColor_Button: TButton;
GroupBox6: TGroupBox;
InactiveTabFont_Button: TButton;
InctiveTabColor_Button: TButton;
TabPosition_ComboBox: TComboBox;
HotTrack_CheckBox: TCheckBox;
ShowIcon_CheckBox: TCheckBox;
TrackColor_Button: TButton;
FontDialog1: TFontDialog;
ColorDialog1: TColorDialog;
ImageList1: TImageList;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure ActivePanelFont_ButtonClick(Sender: TObject);
procedure ActivePanelStartColor_ButtonClick(Sender: TObject);
procedure ActivePanelEndColor_ButtonClick(Sender: TObject);
procedure InactivePanelFont_ButtonClick(Sender: TObject);
procedure InactivePanelStartColor_ButtonClick(Sender: TObject);
procedure InactivePanelEndColor_ButtonClick(Sender: TObject);
procedure GrabbersSize_SpinEditChange(Sender: TObject);
procedure SplitterWidth_SpinEditChange(Sender: TObject);
procedure TextAlignment_ComboBoxChange(Sender: TObject);
procedure SystemInfo_CheckBoxClick(Sender: TObject);
procedure TextEllipsis_CheckBoxClick(Sender: TObject);
procedure ActiveTabFont_ButtonClick(Sender: TObject);
procedure InactiveTabFont_ButtonClick(Sender: TObject);
procedure ActiveTabColor_ButtonClick(Sender: TObject);
procedure InctiveTabColor_ButtonClick(Sender: TObject);
procedure HotTrack_CheckBoxClick(Sender: TObject);
procedure ShowIcon_CheckBoxClick(Sender: TObject);
procedure TabPosition_ComboBoxChange(Sender: TObject);
procedure JvDockVIDStyle1SystemInfoChange(Value: Boolean);
procedure TrackColor_ButtonClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
{$IFDEF USEJVCL}
JvAppStorage: TJvAppIniFileStorage;
{$ENDIF}
procedure DoReadOption;
procedure DoReadConjoinOption;
procedure DoReadTabOption;
public
{ Public declarations }
procedure CreateDockWindow;
end;
var
Main_Form: TMain_Form;
implementation
uses DockWindow;
const
DockFormCount = 10;
var
{ <20><><EFBFBD><EFBFBD>ʮ<EFBFBD><CAAE>ͣ<EFBFBD><CDA3><EFBFBD>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD> }
DockForms: array[0..DockFormCount - 1] of TDockWindow_Form;
{ <20><><EFBFBD><EFBFBD>һ<EFBFBD><D2BB>ȫ<EFBFBD>ֶ<EFBFBD><D6B6><EFBFBD>ConjoinOption<6F><6E><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʵ<EFBFBD><CAB5>JvDockVIDStyle1<65><31>ConjoinServerOption<6F><6E><EFBFBD><EFBFBD> }
ConjoinOption: TJvDockVIDConjoinServerOption;
{ <20><><EFBFBD><EFBFBD>һ<EFBFBD><D2BB>ȫ<EFBFBD>ֶ<EFBFBD><D6B6><EFBFBD>ConjoinOption<6F><6E><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʵ<EFBFBD><CAB5>JvDockVIDStyle1<65><31>TabServerOption<6F><6E><EFBFBD><EFBFBD> }
TabOption: TJvDockVIDTabServerOption;
{$R *.DFM}
procedure TMain_Form.DoReadOption;
begin
DoReadConjoinOption;
DoReadTabOption;
end;
procedure TMain_Form.DoReadConjoinOption;
begin
{ <20><><EFBFBD>ȸ<EFBFBD>ConjoinOption<6F><6E>ֵ }
ConjoinOption := TJvDockVIDConjoinServerOption(JvDockVIDStyle1.ConjoinServerOption);
{ Ȼ<><C8BB>ȡ<EFBFBD><C8A1>ConjoinOption<6F>еĸ<D0B5><C4B8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֵ<EFBFBD><D6B5>ֵ<EFBFBD><D6B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ؼ<EFBFBD><D8BC><EFBFBD><EFBFBD><EFBFBD>ʾ }
GrabbersSize_SpinEdit.Value := ConjoinOption.GrabbersSize;
SplitterWidth_SpinEdit.Value := ConjoinOption.SplitterWidth;
TextAlignment_ComboBox.ItemIndex := Integer(ConjoinOption.TextAlignment);
SystemInfo_CheckBox.Checked := ConjoinOption.SystemInfo;
TextEllipsis_CheckBox.Checked := ConjoinOption.TextEllipsis;
end;
procedure TMain_Form.DoReadTabOption;
begin
{ <20><><EFBFBD>ȸ<EFBFBD>TabOption<6F><6E>ֵ}
TabOption := TJvDockVIDTabServerOption(JvDockVIDStyle1.TabServerOption);
{ Ȼ<><C8BB>ȡ<EFBFBD><C8A1>TabOption<6F>еĸ<D0B5><C4B8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֵ<EFBFBD><D6B5>ֵ<EFBFBD><D6B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ؼ<EFBFBD><D8BC><EFBFBD><EFBFBD><EFBFBD>ʾ }
HotTrack_CheckBox.Checked := TabOption.HotTrack;
ShowIcon_CheckBox.Checked := TabOption.ShowTabImages;
case TabOption.TabPosition of
tpTop: TabPosition_ComboBox.ItemIndex := 0;
tpBottom: TabPosition_ComboBox.ItemIndex := 1;
end;
end;
procedure TMain_Form.FormClose(Sender: TObject; var Action: TCloseAction);
begin
{$IFDEF USEJVCL}
JvAppStorage.Filename := ExtractFilePath(Application.ExeName) + 'DockInfo.ini';
SaveDockTreeToAppStorage(JvAppStorage);
{$ELSE}
SaveDockTreeToFile(ExtractFilePath(Application.ExeName) + 'DockInfo.ini');
{$ENDIF}
end;
procedure TMain_Form.ActivePanelFont_ButtonClick(Sender: TObject);
begin
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ý<EFBFBD><C3BD><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
FontDialog1.Font.Assign(ConjoinOption.ActiveFont);
if FontDialog1.Execute then
ConjoinOption.ActiveFont := FontDialog1.Font;
end;
procedure TMain_Form.ActivePanelStartColor_ButtonClick(Sender: TObject);
begin
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ý<EFBFBD><C3BD><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ŀ<EFBFBD>ʼ<EFBFBD><CABC><EFBFBD>ֵ<EFBFBD><D6B5><EFBFBD>ɫ
ColorDialog1.Color := ConjoinOption.ActiveTitleStartColor;
if ColorDialog1.Execute then
ConjoinOption.ActiveTitleStartColor := ColorDialog1.Color;
end;
procedure TMain_Form.ActivePanelEndColor_ButtonClick(Sender: TObject);
begin
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ý<EFBFBD><C3BD><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ľ<EFBFBD><C4BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֵ<EFBFBD><D6B5><EFBFBD>ɫ
ColorDialog1.Color := ConjoinOption.ActiveTitleEndColor;
if ColorDialog1.Execute then
ConjoinOption.ActiveTitleEndColor := ColorDialog1.Color;
end;
procedure TMain_Form.InactivePanelFont_ButtonClick(Sender: TObject);
begin
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧȥ<CAA7><C8A5><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
FontDialog1.Font.Assign(ConjoinOption.InactiveFont);
if FontDialog1.Execute then
ConjoinOption.InactiveFont := FontDialog1.Font;
end;
procedure TMain_Form.InactivePanelStartColor_ButtonClick(Sender: TObject);
begin
// ʧȥ<CAA7><C8A5><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ŀ<EFBFBD>ʼ<EFBFBD><CABC><EFBFBD>ֵ<EFBFBD><D6B5><EFBFBD>ɫ
ColorDialog1.Color := ConjoinOption.ActiveTitleStartColor;
if ColorDialog1.Execute then
ConjoinOption.ActiveTitleStartColor := ColorDialog1.Color;
end;
procedure TMain_Form.InactivePanelEndColor_ButtonClick(Sender: TObject);
begin
// ʧȥ<CAA7><C8A5><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ľ<EFBFBD><C4BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֵ<EFBFBD><D6B5><EFBFBD>ɫ
ColorDialog1.Color := ConjoinOption.InactiveTitleEndColor;
if ColorDialog1.Execute then
ConjoinOption.InactiveTitleEndColor := ColorDialog1.Color;
end;
procedure TMain_Form.GrabbersSize_SpinEditChange(Sender: TObject);
begin
// <20><><EFBFBD>ֵĴ<D6B5>С
ConjoinOption.GrabbersSize := GrabbersSize_SpinEdit.Value;
end;
procedure TMain_Form.SplitterWidth_SpinEditChange(Sender: TObject);
begin
// <20>ָ<EFBFBD><D6B8><EFBFBD><EFBFBD>Ŀ<EFBFBD><C4BF><EFBFBD>
ConjoinOption.SplitterWidth := SplitterWidth_SpinEdit.Value;
end;
procedure TMain_Form.TextAlignment_ComboBoxChange(Sender: TObject);
begin
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֶ<EFBFBD><D6B6>뷽ʽ
ConjoinOption.TextAlignment := TAlignment(TextAlignment_ComboBox.ItemIndex);
end;
procedure TMain_Form.SystemInfo_CheckBoxClick(Sender: TObject);
begin
// <20>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>ϵͳ<CFB5><CDB3>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
if ConjoinOption <> nil then
ConjoinOption.SystemInfo := SystemInfo_CheckBox.Checked;
DoReadConjoinOption;
end;
procedure TMain_Form.TextEllipsis_CheckBoxClick(Sender: TObject);
begin
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ƿ<EFBFBD><C7B7><EFBFBD>ʡ<EFBFBD>Ժ<EFBFBD>
// if ConjoinOption <> nil then
ConjoinOption.TextEllipsis := TextEllipsis_CheckBox.Checked;
end;
procedure TMain_Form.ActiveTabFont_ButtonClick(Sender: TObject);
begin
// Tabҳ<62><D2B3><EFBFBD><EFBFBD><EFBFBD>ý<EFBFBD><C3BD><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
FontDialog1.Font.Assign(TabOption.ActiveFont);
if FontDialog1.Execute then
TabOption.ActiveFont := FontDialog1.Font;
end;
procedure TMain_Form.ActiveTabColor_ButtonClick(Sender: TObject);
begin
// Tabҳ<62><D2B3><EFBFBD><EFBFBD><EFBFBD>ý<EFBFBD><C3BD><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɫ
ColorDialog1.Color := TabOption.ActiveSheetColor;
if ColorDialog1.Execute then
TabOption.ActiveSheetColor := ColorDialog1.Color;
end;
procedure TMain_Form.InactiveTabFont_ButtonClick(Sender: TObject);
begin
// Tabҳ<62><D2B3>ʧȥ<CAA7><C8A5><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
FontDialog1.Font.Assign(TabOption.InactiveFont);
if FontDialog1.Execute then
TabOption.InactiveFont := FontDialog1.Font;
end;
procedure TMain_Form.InctiveTabColor_ButtonClick(Sender: TObject);
begin
// Tabҳ<62><D2B3>ʧȥ<CAA7><C8A5><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɫ
ColorDialog1.Color := TabOption.InactiveSheetColor;
if ColorDialog1.Execute then
TabOption.InactiveSheetColor := ColorDialog1.Color;
end;
procedure TMain_Form.HotTrack_CheckBoxClick(Sender: TObject);
begin
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ƶ<EFBFBD><C6B6><EFBFBD>ijһ<C4B3><D2BB>ҳ<EFBFBD><D2B3><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD><EFBFBD>Tabҳ<62><D2B3><EFBFBD>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʾ
TabOption.HotTrack := HotTrack_CheckBox.Checked;
end;
procedure TMain_Form.ShowIcon_CheckBoxClick(Sender: TObject);
begin
// Tabҳ<62><D2B3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʾʱ<CABE><CAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɫ
TabOption.ShowTabImages := ShowIcon_CheckBox.Checked;
end;
procedure TMain_Form.TabPosition_ComboBoxChange(Sender: TObject);
begin
// Tabҳ<62><D2B3><EFBFBD><EFBFBD>λ<EFBFBD><CEBB>
case TabPosition_ComboBox.ItemIndex of
0: TabOption.TabPosition := tpTop;
1: TabOption.TabPosition := tpBottom;
end;
end;
procedure TMain_Form.JvDockVIDStyle1SystemInfoChange(Value: Boolean);
begin
SystemInfo_CheckBox.Checked := Value;
end;
procedure TMain_Form.TrackColor_ButtonClick(Sender: TObject);
begin
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʾ<EFBFBD><CABE>Tab<61><62><EFBFBD><EFBFBD>ɫ
ColorDialog1.Color := TabOption.HotTrackColor;
if ColorDialog1.Execute then
TabOption.HotTrackColor := ColorDialog1.Color;
end;
procedure TMain_Form.CreateDockWindow;
var i: Integer;
begin
for i := 0 to DockFormCount - 1 do
begin
DockForms[i] := TDockWindow_Form.Create(nil);
DockForms[i].Caption := DockForms[i].Caption + IntToStr(i+1);
{ Ϊÿһ<C3BF><D2BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ò<EFBFBD>ͬ<EFBFBD><CDAC>ͼ<EFBFBD><CDBC> }
ImageList1.GetIcon(i, DockForms[i].Icon);
end;
{$IFDEF USEJVCL}
JvAppStorage.Filename := ExtractFilePath(Application.ExeName) + 'DockInfo.ini';
{$ELSE}
LoadDockTreeFromFile(ExtractFilePath(Application.ExeName) + 'DockInfo.ini');
{$ENDIF}
DoReadOption;
end;
procedure TMain_Form.FormCreate(Sender: TObject);
begin
{$IFDEF USEJVCL}
JvAppStorage := TJvAppIniFileStorage.Create(self);
{$ENDIF}
CreateDockWindow;
end;
end.
Reference in New Issue Copy Permalink