From: Robert M. <mar...@us...> - 2004-02-12 08:20:08
|
Update of /cvsroot/jvcl/dev/JVCL3/examples/JvInspector In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28737/JVCL3/examples/JvInspector Modified Files: InspExample.dof InspectorExampleMain.dfm InspectorExampleMain.pas InspectorExampleTestForm.dfm InspectorSimpleExample.dpr InspectorSimpleExampleMain.dfm InspectorSimpleExampleMain.pas Log Message: cleaned examples Index: InspectorExampleMain.dfm =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/examples/JvInspector/InspectorExampleMain.dfm,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** InspectorExampleMain.dfm 8 Jan 2004 09:49:23 -0000 1.2 --- InspectorExampleMain.dfm 12 Feb 2004 08:15:23 -0000 1.3 *************** *** 1,7 **** object frmInspector: TfrmInspector Left = 409 ! Top = 114 Width = 254 ! Height = 708 ActiveControl = JvInspector1 BorderIcons = [biSystemMenu] --- 1,7 ---- object frmInspector: TfrmInspector Left = 409 ! Top = 115 Width = 254 ! Height = 707 ActiveControl = JvInspector1 BorderIcons = [biSystemMenu] *************** *** 9,12 **** --- 9,15 ---- Caption = 'JvInspector' Color = clBtnFace + Constraints.MinHeight = 150 + Constraints.MinWidth = 200 + DefaultMonitor = dmDesktop Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText *************** *** 15,18 **** --- 18,23 ---- Font.Style = [] OldCreateOrder = False + Position = poDesktopCenter + Scaled = False OnCreate = FormCreate OnShow = FormShow *************** *** 23,27 **** Top = 0 Width = 246 ! Height = 678 Align = alClient BandWidth = 150 --- 28,32 ---- Top = 0 Width = 246 ! Height = 677 Align = alClient BandWidth = 150 *************** *** 38,55 **** end object JvInspectorBorlandPainter1: TJvInspectorBorlandPainter ! Left = 130 ! Top = 50 end object JvInspectorDotNETPainter1: TJvInspectorDotNETPainter SelectedColor = clNavy SelectedTextColor = clWhite ! Left = 130 ! Top = 135 end object TestImageList: TImageList Height = 24 Width = 24 ! Left = 135 ! Top = 195 Bitmap = { 494C01015A005E00040018001800FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 --- 43,60 ---- end object JvInspectorBorlandPainter1: TJvInspectorBorlandPainter ! Left = 104 ! Top = 16 end object JvInspectorDotNETPainter1: TJvInspectorDotNETPainter SelectedColor = clNavy SelectedTextColor = clWhite ! Left = 104 ! Top = 64 end object TestImageList: TImageList Height = 24 Width = 24 ! Left = 104 ! Top = 112 Bitmap = { 494C01015A005E00040018001800FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 Index: InspectorSimpleExampleMain.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/examples/JvInspector/InspectorSimpleExampleMain.pas,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** InspectorSimpleExampleMain.pas 21 Jan 2004 14:49:51 -0000 1.3 --- InspectorSimpleExampleMain.pas 12 Feb 2004 08:15:23 -0000 1.4 *************** *** 34,38 **** type ! TForm1 = class(TForm) JvInspectorBorlandPainter1: TJvInspectorBorlandPainter; JvInspector1: TJvInspector; --- 34,38 ---- type ! TSimpleMainForm = class(TForm) JvInspectorBorlandPainter1: TJvInspectorBorlandPainter; JvInspector1: TJvInspector; *************** *** 41,51 **** procedure FormShow(Sender: TObject); private - { Private declarations } public - { Public declarations } end; var ! Form1: TForm1; implementation --- 41,49 ---- procedure FormShow(Sender: TObject); private public end; var ! SimpleMainForm: TSimpleMainForm; implementation *************** *** 53,60 **** {$R *.dfm} ! procedure TForm1.FormShow(Sender: TObject); begin JvInspector1.Clear; ! JvInspector1.AddComponent(Self,'A Form Inspecting Itself', true {expanded?}); end; --- 51,58 ---- {$R *.dfm} ! procedure TSimpleMainForm.FormShow(Sender: TObject); begin JvInspector1.Clear; ! JvInspector1.AddComponent(Self, 'A Form Inspecting Itself', True); end; Index: InspExample.dof =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/examples/JvInspector/InspExample.dof,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** InspExample.dof 9 Feb 2004 14:33:58 -0000 1.7 --- InspExample.dof 12 Feb 2004 08:15:23 -0000 1.8 *************** *** 1,8 **** [Compiler] ! UnsafeType=0 ! UnsafeCode=0 ! UnsafeCast=0 [Directories] OutputDir=..\..\bin UnitOutputDir=..\..\dcu SearchPath=..\..\run;..\..\common --- 1,76 ---- + [FileVersion] + Version=6.0 [Compiler] ! A=8 ! B=0 ! C=1 ! D=1 ! E=0 ! F=0 ! G=1 ! H=1 ! I=1 ! J=0 ! K=0 ! L=1 ! M=0 ! N=1 ! O=1 ! P=1 ! Q=0 ! R=0 ! S=0 ! T=0 ! U=0 ! V=1 ! W=0 ! X=1 ! Y=1 ! Z=1 ! ShowHints=1 ! ShowWarnings=1 ! UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; ! [Linker] ! MapFile=0 ! OutputObjs=0 ! ConsoleApp=1 ! DebugInfo=0 ! RemoteSymbols=0 ! MinStackSize=16384 ! MaxStackSize=1048576 ! ImageBase=4194304 ! ExeDescription= [Directories] OutputDir=..\..\bin UnitOutputDir=..\..\dcu + PackageDLLOutputDir= + PackageDCPOutputDir= SearchPath=..\..\run;..\..\common + Packages= + Conditionals= + DebugSourceDirs= + UsePackages=0 + [Parameters] + RunParams= + HostApplication= + Launcher= + UseLauncher=0 + DebugCWD= + [Language] + ActiveLang= + ProjectLang= + RootDir= + [Version Info] + IncludeVerInfo=0 + AutoIncBuild=0 + MajorVer=1 + MinorVer=0 + Release=0 + Build=0 + Debug=0 + PreRelease=0 + Special=0 + Private=0 + DLL=0 + Locale=1031 + CodePage=1252 Index: InspectorExampleMain.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/examples/JvInspector/InspectorExampleMain.pas,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** InspectorExampleMain.pas 2 Feb 2004 09:42:03 -0000 1.5 --- InspectorExampleMain.pas 12 Feb 2004 08:15:23 -0000 1.6 *************** *** 48,52 **** var Allow: Boolean); private - { Private declarations } BoolsAsChecks: Boolean; INI: TIniFile; --- 48,51 ---- *************** *** 61,65 **** procedure Edit1Change2(Sender: TObject); public - { Public declarations } end; --- 60,63 ---- *************** *** 69,73 **** implementation ! {$R *.DFM} uses --- 67,71 ---- implementation ! {$R *.dfm} uses *************** *** 91,96 **** ImgIdx: TImageIndex; - { TfrmInspector } - procedure TfrmInspector.AddInspectorSettings; var --- 89,92 ---- *************** *** 98,106 **** I: Integer; const ! PropArray: array[0..2, 0..1] of string = ( ('UseBands', 'Use bands'), ('WantTabs', 'TAB navigates'), ('Painter', 'Paint style') ! ); begin InspCat := TJvInspectorCustomCategoryItem.Create(JvInspector1.Root, nil); --- 94,103 ---- I: Integer; const ! PropArray: array [0..2, 0..1] of string = ! ( ('UseBands', 'Use bands'), ('WantTabs', 'TAB navigates'), ('Painter', 'Paint style') ! ); begin InspCat := TJvInspectorCustomCategoryItem.Create(JvInspector1.Root, nil); *************** *** 248,252 **** TJvInspectorBooleanItem(Item).ShowAsCheckbox := True; if (Item.Data <> nil) and (CompareText(Item.Data.Name, 'AboutJVCL') = 0) then ! Item.Readonly := True; if (Item.Data <> nil) and (CompareText(Item.Data.Name, 'Painter') = 0) then with Item as TJvInspectorComponentItem do --- 245,249 ---- TJvInspectorBooleanItem(Item).ShowAsCheckbox := True; if (Item.Data <> nil) and (CompareText(Item.Data.Name, 'AboutJVCL') = 0) then ! Item.ReadOnly := True; if (Item.Data <> nil) and (CompareText(Item.Data.Name, 'Painter') = 0) then with Item as TJvInspectorComponentItem do *************** *** 376,380 **** initialization GeneratedTestEnum := JclGenerateEnumType('TestEnum', ! ['me, myself and I', 'Marcel Bestebroer', 'Project JEDI', 'JEDI-VCL Inspector']); ADate := Now; --- 373,377 ---- initialization GeneratedTestEnum := JclGenerateEnumType('TestEnum', ! ['Me, myself and I', 'Marcel Bestebroer', 'Project JEDI', 'JEDI-VCL Inspector']); ADate := Now; Index: InspectorExampleTestForm.dfm =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/examples/JvInspector/InspectorExampleTestForm.dfm,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** InspectorExampleTestForm.dfm 23 Aug 2003 23:18:26 -0000 1.1 --- InspectorExampleTestForm.dfm 12 Feb 2004 08:15:23 -0000 1.2 *************** *** 7,10 **** --- 7,12 ---- ClientWidth = 615 Color = clBtnFace + Constraints.MinHeight = 200 + Constraints.MinWidth = 150 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Index: InspectorSimpleExampleMain.dfm =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/examples/JvInspector/InspectorSimpleExampleMain.dfm,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** InspectorSimpleExampleMain.dfm 21 Jan 2004 14:49:51 -0000 1.3 --- InspectorSimpleExampleMain.dfm 12 Feb 2004 08:15:23 -0000 1.4 *************** *** 1,9 **** ! object Form1: TForm1 ! Left = 254 ! Top = 315 Width = 545 Height = 542 ! Caption = 'Form1' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText --- 1,12 ---- ! object SimpleMainForm: TSimpleMainForm ! Left = 313 ! Top = 145 Width = 545 Height = 542 ! Caption = 'JvInspector simple example' Color = clBtnFace + Constraints.MinHeight = 150 + Constraints.MinWidth = 250 + DefaultMonitor = dmDesktop Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText *************** *** 12,15 **** --- 15,20 ---- Font.Style = [] OldCreateOrder = False + Position = poDesktopCenter + Scaled = False OnShow = FormShow PixelsPerInch = 96 *************** *** 19,23 **** Top = 0 Width = 352 ! Height = 515 Align = alClient BandWidth = 150 --- 24,28 ---- Top = 0 Width = 352 ! Height = 512 Align = alClient BandWidth = 150 *************** *** 36,40 **** Top = 0 Width = 185 ! Height = 515 Align = alRight TabOrder = 1 --- 41,45 ---- Top = 0 Width = 185 ! Height = 512 Align = alRight TabOrder = 1 Index: InspectorSimpleExample.dpr =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/examples/JvInspector/InspectorSimpleExample.dpr,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** InspectorSimpleExample.dpr 3 Oct 2003 20:55:54 -0000 1.1 --- InspectorSimpleExample.dpr 12 Feb 2004 08:15:23 -0000 1.2 *************** *** 3,7 **** uses Forms, ! InspectorSimpleExampleMain in 'InspectorSimpleExampleMain.pas' {Form1}; {$R *.res} --- 3,7 ---- uses Forms, ! InspectorSimpleExampleMain in 'InspectorSimpleExampleMain.pas' {SimpleMainForm}; {$R *.res} *************** *** 9,13 **** begin Application.Initialize; ! Application.CreateForm(TForm1, Form1); Application.Run; end. --- 9,13 ---- begin Application.Initialize; ! Application.CreateForm(TSimpleMainForm, SimpleMainForm); Application.Run; end. |