Menu
▾
▴
[JVCL-Checkins] CVS: jvcl/examples/JvInspectorDemo InspectorExampleMain.dfm,1.3,1.4 InspectorExampleMain.pas,1.5,1.6 InspectorExampleTestForm.dfm,1.2,1.3 InspectorExampleTestForm.pas,1.2,1.3
|
From: Marcel B. <jed...@us...> - 2002-12-13 18:04:50
|
Update of /cvsroot/jvcl/jvcl/examples/JvInspectorDemo
In directory sc8-pr-cvs1:/tmp/cvs-serv10606/jvcl/examples/JvInspectorDemo
Modified Files:
InspectorExampleMain.dfm InspectorExampleMain.pas
InspectorExampleTestForm.dfm InspectorExampleTestForm.pas
Log Message:
Examples for TMethod, TAlign, TAnchors and TColor editor
Index: InspectorExampleMain.dfm
===================================================================
RCS file: /cvsroot/jvcl/jvcl/examples/JvInspectorDemo/InspectorExampleMain.dfm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** InspectorExampleMain.dfm 19 Nov 2002 15:27:45 -0000 1.3
--- InspectorExampleMain.dfm 13 Dec 2002 18:04:32 -0000 1.4
***************
*** 1,5 ****
object frmInspector: TfrmInspector
! Left = 304
! Top = 113
Width = 254
Height = 708
--- 1,5 ----
object frmInspector: TfrmInspector
! Left = 409
! Top = 114
Width = 254
Height = 708
***************
*** 28,33 ****
BevelInner = bvNone
BevelKind = bkTile
! RelativeDivider = False
! Divider = 75
ItemHeight = 16
Painter = JvInspectorBorlandPainter1
--- 28,33 ----
BevelInner = bvNone
BevelKind = bkTile
! RelativeDivider = True
! Divider = 50
ItemHeight = 16
Painter = JvInspectorBorlandPainter1
***************
*** 38,42 ****
end
object JvInspectorBorlandPainter1: TJvInspectorBorlandPainter
! Left = 135
Top = 50
end
--- 38,42 ----
end
object JvInspectorBorlandPainter1: TJvInspectorBorlandPainter
! Left = 130
Top = 50
end
Index: InspectorExampleMain.pas
===================================================================
RCS file: /cvsroot/jvcl/jvcl/examples/JvInspectorDemo/InspectorExampleMain.pas,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** InspectorExampleMain.pas 8 Dec 2002 18:45:50 -0000 1.5
--- InspectorExampleMain.pas 13 Dec 2002 18:04:33 -0000 1.6
***************
*** 5,9 ****
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
! JvInspector, IniFiles, TypInfo, JvComponent, StdCtrls;
type
--- 5,9 ----
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
! JvInspector, IniFiles, TypInfo, JvComponent;
type
***************
*** 32,35 ****
--- 32,36 ----
procedure AddVarious;
procedure ChangeChkState(const Item: TJvCustomInspectorItem);
+ procedure Edit1Change2(Sender: TObject);
public
{ Public declarations }
***************
*** 46,50 ****
InspectorExampleTestForm,
JclRTTI,
! JVCLVer;
type
--- 47,51 ----
InspectorExampleTestForm,
JclRTTI,
! JVCLVer, JvInspExtraEditors;
type
***************
*** 78,83 ****
InspCat.DisplayName := 'JvInspector Settings';
for I := Low(PropArray) to High(PropArray) do
! TJvInspectorPropData.New(InspCat, JvInspector1, GetPropInfo(JvInspector1, PropArray[I, 0])).DisplayName := PropArray[I, 1];
! TJvInspectorVarData.New(InspCat, 'AboutJVCL', TypeInfo(string), VerInfoStr).DisplayName := 'About JVCL';
InspCat.Expanded := True;
end;
--- 79,84 ----
InspCat.DisplayName := 'JvInspector Settings';
for I := Low(PropArray) to High(PropArray) do
! TJvInspectorPropData.New(InspCat, JvInspector1, GetPropInfo(JvInspector1, PropArray[I, 0])).Data.Name := PropArray[I, 1];
! TJvInspectorVarData.New(InspCat, 'AboutJVCL', TypeInfo(string), VerInfoStr).Data.Name := 'About JVCL';
InspCat.Expanded := True;
end;
***************
*** 101,106 ****
InspCat: TJvInspectorCustomCategoryItem;
begin
! if frmTest = nil then
! Application.CreateForm(TfrmTest, frmTest);
InspCat := TJvInspectorCustomCategoryItem.Create(JvInspector1.Root, nil);
InspCat.DisplayName := 'Form and controls (published property data).';
--- 102,106 ----
InspCat: TJvInspectorCustomCategoryItem;
begin
! Application.CreateForm(TfrmTest, frmTest);
InspCat := TJvInspectorCustomCategoryItem.Create(JvInspector1.Root, nil);
InspCat.DisplayName := 'Form and controls (published property data).';
***************
*** 109,113 ****
AddCtrl(InspCat, frmTest.PanelForLabel);
AddCtrl(InspCat, frmTest.lblTest);
! AddCtrl(InspCat, frmTest.ListBox1);
InspCat.Expanded := True;
end;
--- 109,113 ----
AddCtrl(InspCat, frmTest.PanelForLabel);
AddCtrl(InspCat, frmTest.lblTest);
! AddCtrl(InspCat, frmTest.Edit1);
InspCat.Expanded := True;
end;
***************
*** 131,138 ****
var
InspCat: TJvInspectorCustomCategoryItem;
begin
InspCat := TJvInspectorCustomCategoryItem.Create(Parent, nil);
InspCat.DisplayName := Ctrl.Name + ': ' + Ctrl.ClassName;
! TJvInspectorPropData.New(InspCat, Ctrl);
end;
--- 131,152 ----
var
InspCat: TJvInspectorCustomCategoryItem;
+ M: TNotifyEvent;
begin
InspCat := TJvInspectorCustomCategoryItem.Create(Parent, nil);
InspCat.DisplayName := Ctrl.Name + ': ' + Ctrl.ClassName;
! if Ctrl = frmTest.Edit1 then
! begin
! with TJvInspectorPropData.New(InspCat, Ctrl, 'OnChange') as TJvInspectorTMethodItem do
! begin
! AddInstance(frmTest, 'frmTest');
! AddInstance(Self, 'frmInspector');
! M := frmTest.Edit1Change1;
! AddMethod(TMethod(M), 'Edit1Change1');
! M := Edit1Change2;
! AddMethod(TMethod(M), 'Edit1Change2');
! end;
! end
! else
! TJvInspectorPropData.New(InspCat, Ctrl);
end;
***************
*** 175,178 ****
--- 189,200 ----
end;
+ procedure TfrmInspector.Edit1Change2(Sender: TObject);
+ begin
+ frmTest.mmChanges.Lines.Add('Edit1Change2 event');
+ end;
+
+ type
+ THackInsp = class(TJvCustomInspector);
+
procedure TfrmInspector.FormCreate(Sender: TObject);
begin
***************
*** 199,204 ****
AddOwner(Self);
end;
- if Item is TJvInspectorFontItem then
- TJvInspectorFontItem(Item).CreateMemberItems := False;
end;
--- 221,224 ----
***************
*** 325,328 ****
--- 345,352 ----
['me, myself and I', 'Marcel Bestebroer', 'Project JEDI', 'JEDI-VCL Inspector']);
ADate := Now;
+
+ TJvInspectorAlignItem.RegisterAsDefaultItem;
+ TJvInspectorAnchorsItem.RegisterAsDefaultItem;
+ TJvInspectorColorItem.RegisterAsDefaultItem;
finalization
Index: InspectorExampleTestForm.dfm
===================================================================
RCS file: /cvsroot/jvcl/jvcl/examples/JvInspectorDemo/InspectorExampleTestForm.dfm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** InspectorExampleTestForm.dfm 8 Dec 2002 18:45:50 -0000 1.2
--- InspectorExampleTestForm.dfm 13 Dec 2002 18:04:34 -0000 1.3
***************
*** 1,9 ****
object frmTest: TfrmTest
! Left = 556
! Top = 215
AutoScroll = False
Caption = 'Test Form'
! ClientHeight = 278
! ClientWidth = 402
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
--- 1,9 ----
object frmTest: TfrmTest
! Left = 272
! Top = 180
AutoScroll = False
Caption = 'Test Form'
! ClientHeight = 536
! ClientWidth = 615
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
***************
*** 18,22 ****
Left = 0
Top = 0
! Width = 402
Height = 141
Align = alTop
--- 18,22 ----
Left = 0
Top = 0
! Width = 615
Height = 141
Align = alTop
***************
*** 30,44 ****
Caption = 'Test'
end
end
! object ListBox1: TListBox
! Left = 55
! Top = 175
! Width = 121
! Height = 97
! ItemHeight = 13
! Items.Strings = (
! 'Item1'
! 'Item2'
! 'Item3')
TabOrder = 1
end
--- 30,52 ----
Caption = 'Test'
end
+ object Edit1: TEdit
+ Left = 0
+ Top = 120
+ Width = 615
+ Height = 21
+ Anchors = [akLeft, akRight, akBottom]
+ TabOrder = 0
+ Text = 'Edit1'
+ OnChange = Edit1Change1
+ end
end
! object mmChanges: TMemo
! Left = 0
! Top = 141
! Width = 615
! Height = 395
! Align = alClient
! ReadOnly = True
! ScrollBars = ssVertical
TabOrder = 1
end
Index: InspectorExampleTestForm.pas
===================================================================
RCS file: /cvsroot/jvcl/jvcl/examples/JvInspectorDemo/InspectorExampleTestForm.pas,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** InspectorExampleTestForm.pas 8 Dec 2002 18:45:50 -0000 1.2
--- InspectorExampleTestForm.pas 13 Dec 2002 18:04:36 -0000 1.3
***************
*** 5,9 ****
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
! StdCtrls, ExtCtrls, JvComponent;
type
--- 5,9 ----
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
! StdCtrls, ExtCtrls;
type
***************
*** 11,15 ****
PanelForLabel: TPanel;
lblTest: TLabel;
! ListBox1: TListBox;
private
{ Private declarations }
--- 11,17 ----
PanelForLabel: TPanel;
lblTest: TLabel;
! Edit1: TEdit;
! mmChanges: TMemo;
! procedure Edit1Change1(Sender: TObject);
private
{ Private declarations }
***************
*** 24,27 ****
--- 26,34 ----
{$R *.DFM}
+
+ procedure TfrmTest.Edit1Change1(Sender: TObject);
+ begin
+ mmChanges.Lines.Add('Edit1Change1 event');
+ end;
end.
|