david
7ebea5ffa7
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.jvcl@12 7f62d464-2af8-f54e-996c-e91b33f51cbe
154 lines
4.3 KiB
ObjectPascal
154 lines
4.3 KiB
ObjectPascal
{******************************************************************
|
|
|
|
JEDI-VCL Demo
|
|
|
|
Copyright (C) 2002 Project JEDI
|
|
|
|
Original author:
|
|
|
|
Contributor(s):
|
|
|
|
You may retrieve the latest version of this file at the JEDI-JVCL
|
|
home page, located at http://jvcl.sourceforge.net
|
|
|
|
The contents of this file are used with permission, 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_1Final.html
|
|
|
|
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.
|
|
|
|
******************************************************************}
|
|
|
|
unit JvPageListTreeViewMainForm;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
|
|
Dialogs, ImgList, ComCtrls, JvPageListTreeView, ExtCtrls, StdCtrls, ActnList,
|
|
JvButton, JvFooter, JvComponent, JvGroupHeader, JvCombobox, JvColorCombo,
|
|
Buttons, JvBitBtn, JvExStdCtrls, JvExControls, JvExButtons, JvExExtCtrls,
|
|
JvExComCtrls, JvPageList, JvCtrls;
|
|
|
|
type
|
|
TJvPageListTreeViewMainFrm = class(TForm)
|
|
ImageList1: TImageList;
|
|
StatusBar1: TStatusBar;
|
|
Panel1: TPanel;
|
|
Splitter1: TSplitter;
|
|
JvPagedTreeView1: TJvSettingsTreeView;
|
|
ActionList1: TActionList;
|
|
JvStandardPage2: TJvStandardPage;
|
|
JvStandardPage4: TJvStandardPage;
|
|
JvStandardPage1: TJvStandardPage;
|
|
JvStandardPage5: TJvStandardPage;
|
|
JvFooter1: TJvFooter;
|
|
JvFooterBtn2: TJvFooterBtn;
|
|
JvFooterBtn3: TJvFooterBtn;
|
|
JvFooterBtn1: TJvFooterBtn;
|
|
JvPageList1: TJvPageList;
|
|
pgEnvironmentGeneral: TJvStandardPage;
|
|
Label1: TLabel;
|
|
Label2: TLabel;
|
|
Label3: TLabel;
|
|
Label4: TLabel;
|
|
Label5: TLabel;
|
|
Label6: TLabel;
|
|
JvGroupHeader3: TJvGroupHeader;
|
|
RadioButton1: TRadioButton;
|
|
RadioButton2: TRadioButton;
|
|
Button1: TButton;
|
|
ComboBox1: TComboBox;
|
|
CheckBox1: TCheckBox;
|
|
CheckBox2: TCheckBox;
|
|
TrackBar1: TTrackBar;
|
|
CheckBox3: TCheckBox;
|
|
Edit1: TEdit;
|
|
Edit2: TEdit;
|
|
CheckBox4: TCheckBox;
|
|
CheckBox5: TCheckBox;
|
|
pgDocuments: TJvStandardPage;
|
|
Label7: TLabel;
|
|
Label8: TLabel;
|
|
JvGroupHeader4: TJvGroupHeader;
|
|
CheckBox6: TCheckBox;
|
|
CheckBox7: TCheckBox;
|
|
CheckBox8: TCheckBox;
|
|
CheckBox9: TCheckBox;
|
|
CheckBox10: TCheckBox;
|
|
CheckBox11: TCheckBox;
|
|
Edit3: TEdit;
|
|
CheckBox12: TCheckBox;
|
|
CheckBox13: TCheckBox;
|
|
pgDynamicHelp: TJvStandardPage;
|
|
Label9: TLabel;
|
|
Label10: TLabel;
|
|
Label11: TLabel;
|
|
ListView1: TListView;
|
|
ListView2: TListView;
|
|
Button2: TButton;
|
|
Button3: TButton;
|
|
RadioButton3: TRadioButton;
|
|
RadioButton4: TRadioButton;
|
|
RadioButton5: TRadioButton;
|
|
CheckBox14: TCheckBox;
|
|
Edit4: TEdit;
|
|
pgFontsColors: TJvStandardPage;
|
|
Label12: TLabel;
|
|
Label13: TLabel;
|
|
Label14: TLabel;
|
|
Label15: TLabel;
|
|
Label16: TLabel;
|
|
Label17: TLabel;
|
|
Label18: TLabel;
|
|
Shape1: TShape;
|
|
Label19: TLabel;
|
|
ComboBox2: TComboBox;
|
|
Button4: TButton;
|
|
ComboBox3: TComboBox;
|
|
ComboBox4: TComboBox;
|
|
ListBox1: TListBox;
|
|
JvColorComboBox1: TJvColorComboBox;
|
|
JvColorComboBox2: TJvColorComboBox;
|
|
CheckBox15: TCheckBox;
|
|
Button5: TButton;
|
|
Button6: TButton;
|
|
pgHelp: TJvStandardPage;
|
|
pgInternational: TJvStandardPage;
|
|
pgKeyboard: TJvStandardPage;
|
|
pgProjSolutions: TJvStandardPage;
|
|
pgTaskList: TJvStandardPage;
|
|
pgWebBrowser: TJvStandardPage;
|
|
JvGroupHeader1: TJvGroupHeader;
|
|
JvGroupHeader2: TJvGroupHeader;
|
|
ImageList2: TImageList;
|
|
procedure FormCreate(Sender: TObject);
|
|
procedure JvFooterBtn2Click(Sender: TObject);
|
|
end;
|
|
|
|
var
|
|
JvPageListTreeViewMainFrm: TJvPageListTreeViewMainFrm;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure TJvPageListTreeViewMainFrm.FormCreate(Sender: TObject);
|
|
begin
|
|
JvColorComboBox1.InsertColor(0, clBlack, 'Automatic');
|
|
JvColorComboBox2.InsertColor(0, clWhite, 'Automatic');
|
|
end;
|
|
|
|
procedure TJvPageListTreeViewMainFrm.JvFooterBtn2Click(Sender: TObject);
|
|
begin
|
|
Close;
|
|
end;
|
|
|
|
end.
|
|
|