paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 13:38:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

Added the Object Inspector code.

Browse Source 
Added more form editor code.
Shane

git-svn-id: trunk@46 -
This commit is contained in:
lazarus 2000-11-27 18:52:38 +00:00
parent e6df1afeb2
commit f28a735d19
11 changed files with 3772 additions and 70 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
.gitattributes vendored
View File

@ -78,6 +78,10 @@ designer/designer.pp svneol=native#text/pascal
designer/designerform.pp svneol=native#text/pascal
designer/designerwidget.pp svneol=native#text/pascal
designer/filesystem.pp svneol=native#text/pascal
designer/object_inspector.pp svneol=native#text/pascal
designer/prop_edits.pp svneol=native#text/pascal
designer/test_obj_inspector.pp svneol=native#text/pascal
designer/test_unit.pp svneol=native#text/pascal
designer/widgetstack.pp svneol=native#text/pascal
examples/bitbtnform.pp svneol=native#text/pascal
examples/bitbutton.pp svneol=native#text/pascal

3
designer/abstractformeditor.pp
View File

@ -84,7 +84,8 @@ or use TPropertyType
Function GetSelCount : Integer; virtual; abstract;
Function GetSelComponent(Index : Integer) : TIComponentInterface; virtual; abstract;
Function CreateComponent(CI : TIComponentInterface; TypeName : String;
// Function CreateComponent(CI : TIComponentInterface; TypeName : String;
Function CreateComponent(CI : TIComponentInterface; TypeClass : TComponentClass;
X,Y,W,H : Integer): TIComponentInterface; virtual; abstract;
end;

1025
designer/object_inspector.pp Normal file
View File

File diff suppressed because it is too large Load Diff

2085
designer/prop_edits.pp Normal file
View File

File diff suppressed because it is too large Load Diff

13
designer/test_obj_inspector.pp Normal file
View File

@ -0,0 +1,13 @@
program test_obj_inspector;
{$MODE OBJFPC}
uses
classes, forms, sysutils, test_unit, object_inspector;
begin
Application.Initialize; { calls InitProcedure which starts up GTK }
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

424
designer/test_unit.pp Normal file
View File

@ -0,0 +1,424 @@
{
}
{$H+}
unit test_unit;
{$mode objfpc}
interface
uses
classes, stdctrls,forms,buttons,menus,comctrls,sysutils, extctrls,
object_inspector, prop_edits, graphics;
type
TMyEnum = (MyEnum1,MyEnum2,MyEnum3);
TMySet = set of TMyEnum;
TForm1 = class(TFORM)
public
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
EditToComboButton: TButton;
AddItemButton: TButton;
ComboToEditButton: TButton;
SwitchEnabledButton: TButton;
DumpButton: TButton;
IndexButton: TButton;
OIResizeButton: TButton;
OIRefreshButton: TButton;
Edit1 : TEdit;
mnuMain: TMainMenu;
itmFileQuit: TMenuItem;
itmFile: TMenuItem;
ComboBox1 : TComboBox;
ComboBox2 : TComboBox;
Memo1 : TMemo;
constructor Create(AOwner: TComponent); override;
procedure LoadMainMenu;
procedure FormKill(Sender : TObject);
procedure FormShow(Sender : TObject);
procedure mnuQuitClicked(Sender : TObject);
protected
procedure EditToComboButtonCLick(Sender : TObject);
procedure AddItemButtonCLick(Sender : TObject);
procedure ComboToEditButtonCLick(Sender : TObject);
procedure SwitchEnabledButtonCLick(Sender : TObject);
procedure DumpButtonCLick(Sender : TObject);
procedure IndexButtonCLick(Sender : TObject);
procedure OIResizeButtonCLick(Sender : TObject);
procedure OIRefreshButtonCLick(Sender : TObject);
procedure ComboOnChange (Sender:TObject);
procedure ComboOnClick (Sender:TObject);
public
FMyInteger:integer;
FMyCardinal:Cardinal;
FMyEnum:TMyEnum;
FMySet:TMySet;
FMyFont:TFont;
FMyString:string;
FMyBool:boolean;
published
property MyInteger:integer read FMyInteger write FMyInteger;
property MyCardinal:cardinal read FMyCardinal write FMyCardinal;
property MyEnum:TMyEnum read FMyEnum write FMyEnum;
property MySet:TMySet read FMySet write FMySet;
property MyFont:TFont read FMyFont write FMyFont;
property MyString:string read FMyString write FMyString;
property MyBool:Boolean read FMyBool write FMyBool;
end;
var
Form1 : TForm1;
OI: TObjectInspector;
implementation
constructor TForm1.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FMySet:=[MyEnum1];
FMyEnum:=MyEnum2;
FMyFont:=TFont.Create;
Name:='Form1';
Caption := 'Test Form';
OI:=nil;
OnShow:=@FormShow;
LoadMainMenu;
Left:=250;
Top:=50;
if OI=nil then begin
OI:=TObjectInspector.Create(Application);
OI.Name:='OI';
OI.SetBounds(7,50,220,700);
OI.Show;
OI.RootComponent:=Self;
end;
end;
procedure TForm1.FormShow(Sender: TObject);
begin
end;
procedure TForm1.OIResizeButtonClick(Sender : TObject);
begin
OI.DoInnerResize;
end;
procedure TForm1.OIRefreshButtonClick(Sender : TObject);
begin
OI.RefreshSelections;
end;
procedure TForm1.EditToComboButtonClick(Sender : TObject);
Begin
if assigned (ComboBox1) and assigned (edit1) then
ComboBox1.Text := edit1.text;
End;
procedure TForm1.AddItemButtonClick(Sender : TObject);
Begin
if assigned (ComboBox1)
then Combobox1.Items.Add ('item ' + IntToStr (comboBox1.Items.Count));
if assigned (ComboBox2)
then Combobox2.Items.Add ('item ' + IntToStr (comboBox2.Items.Count));
End;
procedure TForm1.ComboToEditButtonClick(Sender : TObject);
Begin
if assigned (ComboBox1) and assigned (edit1)
then edit1.Text := ComboBox1.Text;
End;
procedure TForm1.SwitchEnabledButtonClick(Sender : TObject);
Begin
if assigned (ComboBox1)
then ComboBox1.Enabled := not ComboBox1.Enabled;
End;
procedure TForm1.DumpButtonClick(Sender : TObject);
var
i : integer;
Begin
if assigned (ComboBox1) then
begin
i := 0;
while i < ComboBox1.Items.Count do
begin
if assigned (Memo1)
then Memo1.Lines.Add (ComboBox1.Items[i]);
inc (i);
end;
end;
End;
procedure TForm1.IndexButtonClick(Sender : TObject);
var
s : shortstring;
Begin
if assigned (ComboBox1) then
begin
s := Format ('%x', [ComboBox1.ItemIndex]);
if assigned (Memo1)
then Memo1.Lines.Add (s);
end;
End;
procedure TForm1.ComboOnChange (Sender:TObject);
var
s : shortstring;
begin
if sender is TEdit
then s := 'TEdit'
else if sender is TComboBox
then s := 'TComboBox'
else
s := 'UNKNOWN';
if assigned (Memo1)
then Memo1.Lines.Add (s + 'ONChange');
end;
procedure TForm1.ComboOnClick (Sender:TObject);
begin
if assigned (Memo1)
then Memo1.Lines.Add ('ONClick');
end;
{------------------------------------------------------------------------------}
procedure TForm1.FormKill(Sender : TObject);
Begin
FMyFont.Free;
Application.terminate;
End;
{------------------------------------------------------------------------------}
procedure TForm1.LoadMainMenu;
begin
OnDestroy := @FormKill;
{ set the height and width }
Height := 400;
Width := 700;
OIResizeButton:=TButton.Create(Self);
with OIResizeButton do begin
Name:='OIResizeButton';
Parent:=Self;
SetBounds(200,10,100,40);
Caption:='Resize OI';
OnClick:=@OIResizeButtonClick;
Show;
end;
OIRefreshButton:=TButton.Create(Self);
with OIRefreshButton do begin
Name:='OIRefreshButton';
Parent:=Self;
SetBounds(200,60,100,40);
Caption:='Refresh OI';
OnClick:=@OIRefreshButtonClick;
Show;
end;
{ Create 2 buttons inside the groupbox }
EditToComboButton := TButton.Create(Self);
EditToComboButton.Name:='EditToComboButton';
EditToComboButton.Parent := Self;
EditToComboButton.Left := 50;
EditToComboButton.Top := 80;
EditToComboButton.Width := 120;
EditToComboButton.Height := 30;
EditToComboButton.Show;
EditToComboButton.Caption := 'Edit->Combo';
EditToComboButton.OnClick := @EditToComboButtonClick;
AddItemButton := TButton.Create(Self);
AddItemButton.Name:='AddItemButton';
AddItemButton.Parent := Self;
AddItemButton.Left := 50;
AddItemButton.Top := 40;
AddItemButton.Width := 120;
AddItemButton.Height := 30;
AddItemButton.Show;
AddItemButton.Caption := 'Add item';
AddItemButton.OnClick := @AddItemButtonClick;
{ Create 2 more buttons outside the groupbox }
ComboToEditButton := TButton.Create(Self);
ComboToEditButton.Name:='ComboToEditButton';
ComboToEditButton.Parent := Self;
ComboToEditButton.Left := 50;
ComboToEditButton.Top := 120;
ComboToEditButton.Width := 120;
ComboToEditButton.Height := 30;
ComboToEditButton.Show;
ComboToEditButton.Caption := 'Combo->Edit';
ComboToEditButton.OnClick := @ComboToEditButtonClick;
SwitchEnabledButton := TButton.Create(Self);
SwitchEnabledButton.Name:='SwitchEnabledButton';
SwitchEnabledButton.Parent := Self;
SwitchEnabledButton.Left := 50;
SwitchEnabledButton.Top := 160;
SwitchEnabledButton.Width := 120;
SwitchEnabledButton.Height := 30;
SwitchEnabledButton.Show;
SwitchEnabledButton.Caption := 'Enabled On/Off';
SwitchEnabledButton.OnClick := @SwitchEnabledButtonClick;
DumpButton := TButton.Create(Self);
DumpButton.Name:='DumpButton';
DumpButton.Parent := Self;
DumpButton.Left := 50;
DumpButton.Top := 200;
DumpButton.Width := 120;
DumpButton.Height := 30;
DumpButton.Show;
DumpButton.Caption := 'Dump';
DumpButton.OnClick := @DumpButtonClick;
IndexButton := TButton.Create(Self);
IndexButton.Name:='IndexButton';
IndexButton.Parent := Self;
IndexButton.Left := 50;
IndexButton.Top := 240;
IndexButton.Width := 120;
IndexButton.Height := 30;
IndexButton.Show;
IndexButton.Caption := 'Index ?';
IndexButton.OnClick := @IndexButtonClick;
{ Create a label for the edit field }
label1 := TLabel.Create(Self);
Label1.Name:='Label1';
label1.Parent := self;
label1.top := 50;
label1.left := 320;
label1.Height := 20;
label1.Width := 130;
label1.Show;
label1.Caption := 'TEdit :';
Edit1 := TEdit.Create (self);
with Edit1 do begin
Name := 'Edit1';
Parent := self;
Left := 500;
Top := 50;
Width := 70;
Height := 20;
OnChange := @ComboOnChange;
OnClick := @ComboOnClick;
Show;
end;
{ Create a label for the 1st combobox }
label2 := TLabel.Create(Self);
Label2.Name:='Label2';
label2.Parent := self;
label2.top := 100;
label2.left := 320;
label2.Height := 20;
label2.Width := 130;
label2.Enabled:= true;
label2.Show;
label2.Caption := 'Combo (unsorted)';
label2.Enabled:= true;
{ Create the menu now }
{ WARNING: If you do it after creation of the combo, the menu will not
appear. Reason is unknown by now!!!!!!}
mnuMain := TMainMenu.Create(Self);
mnuMain.Name:='mnuMain';
Menu := mnuMain;
itmFile := TMenuItem.Create(Self);
itmFile.Name:='itmFile';
itmFile.Caption := '&File';
mnuMain.Items.Add(itmFile);
itmFileQuit := TMenuItem.Create(Self);
itmFileQuit.Name:='itmFileQuit';
itmFileQuit.Caption := '&Quit';
itmFileQuit.OnClick := @mnuQuitClicked;
itmFile.Add(itmFileQuit);
ComboBox1 := TComboBox.Create (self);
with ComboBox1 do
begin
Name:='ComboBox1';
Parent := self;
Left := 500;
Top := 100;
Width := 170;
Height := 20;
Style := csDropDown;
Items.Add ('wohhh!');
Items.Add ('22222!');
ItemIndex := 1;
Items.Add ('33333!');
Items.Add ('abcde!');
OnChange := @ComboOnChange;
OnClick := @ComboOnClick;
Show;
end;
{ Create a label for the 2nd combobox }
label3 := TLabel.Create(Self);
Label3.Name:='Label3';
label3.Parent := self;
label3.top := 150;
label3.left := 320;
label3.Height := 20;
label3.Width := 130;
label3.Show;
label3.Caption := 'Combo (sorted)';
ComboBox2 := TComboBox.Create (self);
with ComboBox2 do begin
Name:='ComboBox2';
Parent := self;
Left := 500;
Top := 150;
Width := 170;
Height := 20;
Items.Add ('wohhh!');
Items.Add ('22222!');
ItemIndex := 1;
Items.Add ('33333!');
Items.Add ('abcde!');
Sorted := true;
Show;
end;
Memo1 := TMemo.Create(Self);
with Memo1 do begin
Memo1.Name:='Memo1';
Parent := Self;
Scrollbars := ssBoth;
Left := 200;
Top := 200;
Width := 335;
Height := 155;
Show;
end;
end;
{------------------------------------------------------------------------------}
procedure TForm1.mnuQuitClicked(Sender : TObject);
begin
Application.Terminate;
end;
{------------------------------------------------------------------------------}
end.

112
ide/customformeditor.pp
View File

@ -25,12 +25,13 @@ unit CustomFormEditor;
interface
uses
classes, abstractformeditor, controls,Typinfo;
classes, abstractformeditor, controls,prop_edits,Typinfo,Object_Inspector;
Const OrdinalTypes = [tkInteger,tkChar,tkENumeration,tkbool];
type
{
TComponentInterface is derived from TIComponentInterface. It gives access to
each control that's dropped onto the form
@ -77,24 +78,22 @@ TGetProc = Function : Variant of Object;
Function Select : Boolean; override;
Function Focus : Boolean; override;
Function Delete : Boolean; override;
property Control : TComponent read FCOntrol;
end;
{
TCustomFormEditor
One is created whenever a "NEw Form" is created. The Form is contained in the MainControl
property. FComponentClass tells whether this container is a TFORM or a TDataModule, or
something else new.
}
TControlClass = class of TControl;
TCustomFormEditor = class(TAbstractFormEditor)
private
FModified : Boolean;
FComponentInterfaceList : TList; //used to track and find controls
FMainControl : TComponent; //this needs to be recorded here so when a control
//is created via the CreateComponent we can use this
//to set the owner property.
FModified : Boolean;
FComponentInterfaceList : TList; //used to track and find controls
FSelectedComponents : TComponentSelectionList;
FObj_Inspector : TObjectInspector;
protected
public
@ -102,16 +101,25 @@ TCustomFormEditor
constructor Create;
destructor Destroy; override;
Function AddSelected(Value : TComponent) : Integer;
Function Filename : String; override;
Function FormModified : Boolean; override;
Function FindComponent(const Name : String) : TIComponentInterface; override;
Function CreateComponent(CI : TIComponentInterface; TypeName : String;
// Function CreateComponent(CI : TIComponentInterface; TypeName : String;
Function CreateComponent(CI : TIComponentInterface; TypeClass : TComponentClass;
X,Y,W,H : Integer): TIComponentInterface; override;
property MainControl : TComponent read FMainControl write FMainControl;
Procedure ClearSelected;
property SelectedComponents : TComponentSelectionList read FSelectedComponents write FSelectedComponents;
property Obj_Inspector : TObjectInspector read FObj_Inspector write FObj_Inspector;
end;
implementation
uses
SysUtils;
{TComponentInterface}
@ -428,14 +436,25 @@ end;
constructor TCustomFormEditor.Create;
begin
inherited Create;
FComponentInterfaceList := TList.Create;
inherited;
FSelectedComponents := TComponentSelectionList.Create;
end;
destructor TCustomFormEditor.Destroy;
begin
FComponentInterfaceList.Destroy;
inherited;
FComponentInterfaceList.Destroy;
FSelectedComponents.Destroy;
end;
Function TCustomFormEditor.AddSelected(Value : TComponent) : Integer;
Begin
Result := -1;
FSelectedComponents.Add(Value);
Result := FSelectedComponents.Count;
//call the OI to update it's selected.
Obj_Inspector.Selections := FSelectedComponents;
end;
@ -462,28 +481,68 @@ Begin
end;
end;
Function TCustomFormEditor.CreateComponent(CI : TIComponentInterface; TypeName : String;
//Function TCustomFormEditor.CreateComponent(CI : TIComponentInterface; TypeName : String;
Function TCustomFormEditor.CreateComponent(CI : TIComponentInterface; TypeClass : TComponentClass;
X,Y,W,H : Integer): TIComponentInterface;
Var
Temp : TComponentInterface;
TempInterface : TComponentInterface;
TempClass : TPersistentClass;
Begin
Temp := TComponentInterface.Create;
Temp.FControl := TControlClass(TypeName).Create(MainControl);
Writeln('2');
//TempClass := GetClass(Typename);
Writeln('3');
if SelectedComponents.Count = 0 then
Temp.FControl := TypeClass.Create(nil)
else
Begin
Writeln('Selected Components > 0');
if (SelectedComponents.Items[0] is TWinControl) and (csAcceptsControls in TWinControl(SelectedComponents.Items[0]).ControlStyle) then
Begin
Writeln('The Control is a TWinControl and it accepts controls');
Writeln('SelectedComponents.Count = '+Inttostr(SelectedComponents.Count));
Temp.FControl := TypeClass.Create(TComponent(SelectedComponents.Items[0]));
end
else
Begin
Writeln('The Control is not a TWinControl or it does not accept controls');
Temp.FControl := TypeClass.Create(SelectedComponents.Items[0].Owner);
end;
end;
Writeln('4');
if Assigned(CI) then
Begin
if (TComponentInterface(CI).FControl is TWinControl) then
if (TComponentInterface(CI).FControl is TWinControl) and
(csAcceptsControls in TWinControl(TComponentInterface(CI).FControl).COntrolStyle)then
begin
if (csAcceptsControls in TWinControl(TComponentInterface(CI).FControl).COntrolStyle) then
Begin //set CI the parent of the new one.
TWinControl(Temp.FControl).Parent := TWinControl(TComponentInterface(CI).FControl);
end;
end;
TWinControl(Temp.FControl).Parent := TWinControl(TComponentInterface(CI).FControl);
end
else
TWinControl(Temp.FControl).Parent := TWinControl(TComponentInterface(CI).FControl).Parent;
End;
End
else
Begin //CI is not assigned so check the selected control
if SelectedComponents.Count > 0 then
Begin
TempInterface := TComponentInterface(FindComponent(SelectedComponents.Items[0].Name));
if (TempInterface.FControl is TWinControl) and
(csAcceptsControls in TWinControl(TempInterface.FControl).ControlStyle)then
TWinControl(Temp.FControl).Parent := TWinControl(TempInterface.FControl)
else
TWinControl(Temp.FControl).Parent := TWinControl(TempInterface.FControl).Parent;
end
end;
Writeln('5');
if (Temp.FControl is TControl) then
Begin
if (X <> -1) and (Y <> -1) and (W <> -1) and (h <> -1) then
if (X <> -1) and (Y <> -1) and (W <> -1) and (H <> -1) then
TControl(Temp.FControl).SetBounds(X,Y,W,H)
else
Begin
@ -502,9 +561,16 @@ else
end;
FComponentInterfaceList.Add(Temp);
Result := Temp;
end;
Procedure TCUstomFormEditor.ClearSelected;
Begin
FSelectedComponents.Clear;
end;
end.

5
ide/idecomp.pp
View File

@ -40,6 +40,7 @@ type
private
FImage : String;
FClassName : String; //hold the main types classname
FClassType : TClass;
procedure SetImage(Value : String);
protected
Function LoadImageintoPixmap : TPixmap;
@ -51,6 +52,8 @@ type
Function Speedbutton(AOwner : TComponent; nParent: TWinControl): TSpeedButton; Virtual;
property image : string read FImage write SetImage;
property ClassName : String read FClassName write FClassName;
property ClassType : TClass read FClassType write FClassType;
end;
{-------------------------------------------
@ -276,6 +279,7 @@ begin
inherited create;
FImage := 'images/mouse.xpm';
ClassName := 'TMOUSE'; //not really the classname for a mouse
//ClassType := TComponent;
end;
function TIDEMouse.CreateMethod(AOwner : TComponent): TControl;
@ -324,6 +328,7 @@ begin
inherited create;
FImage := 'images/menu.xpm';
FClassName := 'TMenu';
FClassType := TMenu;
end;
function TIDEMenu.CreateMethod(AOwner : TComponent): TControl;

145
ide/main.pp
View File

@ -31,7 +31,7 @@ uses
classes,LclLinux,compiler, stdctrls,forms,buttons,menus,comctrls,
Spin, project,sysutils, global,
compileroptions,Controls,graphics,extctrls, Dialogs,dlgMEssage,
designerform,process,idecomp,Find_dlg;
designerform,process,idecomp,Find_dlg,FormEditor,CustomFormEditor,Object_Inspector;
const
STANDARDBTNCOUNT = 50;
@ -138,6 +138,9 @@ type
procedure mnuSearchFindClicked(Sender : TObject);
procedure mnuSearchFindAgainClicked(Sender : TObject);
procedure ClickonForm(Sender : TObject);
procedure ClickonControl(Sender : TObject);
procedure ControlClick(Sender : TObject);
procedure MessageViewDblClick(Sender : TObject);
procedure DesignFormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
@ -185,6 +188,8 @@ const
var
Form1 : TForm1;
FormEditor1 : TFormEditor;
ObjectInspector1 : TObjectInspector;
Taginc : Integer;
implementation
uses
@ -615,6 +620,14 @@ begin
Compiler1 := TCompiler.Create;
Compiler1.OutputString := @Messagedlg.Add;
ObjectInspector1 := TObjectInspector.Create(Self);
ObjectInspector1.left := 0;
ObjectInspector1.Top := Top+Height;
ObjectInspector1.Height := 400;
ObjectInspector1.Show;
FormEditor1 := TFormEditor.Create;
FormEditor1.Obj_Inspector := ObjectInspector1;
end;
@ -1497,6 +1510,79 @@ begin
end;
{------------------------------------------------------------------------------}
{------------------------------------------------------------------------------}
{
Used when we a control is clicked. This is used
to update the Object Inspector.
}
{------------------------------------------------------------------------------}
{------------------------------------------------------------------------------}
{------------------------------------------------------------------------------}
Procedure TForm1.ClickOnControl(Sender : TObject);
var
CInterface : TComponentInterface;
Begin
//We clicked on the form. Let's see what the active selection is in the IDE control
//bar. If it's the pointer, then we set the FormEditor1.SelectedComponents to Sender,
//otherwise we drop a control and call the CreateComponent function.
if BPressed = 1 then
Begin //mouse button pressed.
FormEditor1.ClearSelected;
Writeln('Clicked on the control!!!!! Control name is '+TControl(sender).name);
FormEditor1.AddSelected(TComponent(Sender));
end
else
Begin //add a new control
CInterface := TComponentInterface(FormEditor1.CreateComponent(nil,
TComponentClass(TIdeComponent(ideComplist.items[bpressed-1]).ClassType),-1,-1,-1,-1));
TControl(CInterface.Control).Visible := True;
//set the ONCLICK event so we know when the control is selected;
TControl(CInterface.Control).OnClick := @ClickOnControl;
end;
//TIdeComponent(ideComplist.items[bpressed-1]).
end;
{------------------------------------------------------------------------------}
{------------------------------------------------------------------------------}
{
Used when we click on a form that was created.
This can be used to detect when
a control is dropped onto a form
}
{------------------------------------------------------------------------------}
{------------------------------------------------------------------------------}
{------------------------------------------------------------------------------}
Procedure TForm1.ClickOnForm(Sender : TObject);
var
CInterface : TComponentInterface;
Begin
//We clicked on the form. Let's see what the active selection is in the IDE control
//bar. If it's the pointer, then we set the FormEditor1.SelectedComponents to Sender,
//otherwise we drop a control and call the CreateComponent function.
if BPressed = 1 then
Begin //mouse button pressed.
FormEditor1.ClearSelected;
Writeln('Clicked on the form!!!!! Froms name is '+TFOrm(sender).name);
FormEditor1.AddSelected(TComponent(Sender));
end
else
Begin //add a new control
CInterface := TComponentInterface(FormEditor1.CreateComponent(nil,
TComponentClass(TIdeComponent(ideComplist.items[bpressed-1]).ClassType),-1,-1,-1,-1));
TControl(CInterface.Control).Visible := True;
//set the ONCLICK event so we know when the control is selected;
TControl(CInterface.Control).OnClick := @ClickOnControl;
end;
//TIdeComponent(ideComplist.items[bpressed-1]).
end;
{------------------------------------------------------------------------------}
procedure TForm1.mnuNewFormClicked(Sender : TObject);
var
@ -1505,48 +1591,20 @@ var
TempName : String;
TempFormName : String;
Found : Boolean;
TempForm : TForm;
CInterface : TComponentInterface;
begin
//Create new unit, then display it.
TempName:= '';
SList:= CreateUnit(TempName);
//get a name for the new form
SList.Form := CreateNewForm;
SList.Formname := SList.Form.Name;
TempFormName := SList.FormName;
SList.Filename := '';
SList.Flags := pfForm;
with SList.Source do begin
//Add the default lines
Add('unit '+TempName+';');
Add('');
Add('{$mode objfpc}');
Add('');
Add('interface');
Add('');
Add('uses');
Add('Classes,Messages, SysUtils, Graphics, Controls, Forms, Dialogs;');
Add('');
Add('type');
Add(' T'+TempFormName+' = class(TForm)');
Add(' private');
Add(' { Private declarations }');
Add(' public');
Add(' { Public declarations }');
Add(' end;');
Add('');
Add('var');
Add(' '+TempFormName+': T'+TempFormName+';');
Add('');
Add('implementation');
Add('');
Add('end.');
end;
TempForm := TForm.Create(Self);
TempForm.Parent := Self;
if not Assigned(FormEditor1) then
FormEditor1 := TFormEditor.Create;
FormEditor1.SelectedComponents.Clear;
CInterface := TComponentInterface(FormEditor1.CreateComponent(nil,TForm,50,50,300,400));
TForm(CInterface.Control).Show;
TForm(CInterface.Control).Name := 'Form1';
//set the ONCLICK event so we know when a control is dropped onto the form.
TFOrm(CInterface.Control).OnClick := @ClickOnForm;
ideEditor1.AddPage(SList.Name,SList.Source);
SList.Page := ideEditor1.Notebook1.Pageindex; //keep track of what page it is on
Project1.AddUnit(SList);
UpdateViewDialogs;
ideEditor1.Show;
end;
function TForm1.CreateNewForm : TDesignerForm;
@ -2319,6 +2377,11 @@ end.
{ =============================================================================
$Log$
Revision 1.6 2000/11/27 18:52:37 lazarus
Added the Object Inspector code.
Added more form editor code.
Shane
Revision 1.5 2000/08/10 13:22:51 lazarus
Additions for the FIND dialog
Shane

15
lcl/controls.pp
View File

@ -523,6 +523,7 @@ TCMDialogKey = TLMKEY;
property Align : TAlign read FAlign write SetAlign;
property BoundsRect : TRect read GetBoundsRect write SetBoundsRect;
property Caption: TCaption read GetText write SetText stored IsCaptionStored;
property Cursor: TCursor read FCursor write SetCursor default crDefault;
property Color : TColor read FCOlor write SetColor; {should change the WRITE to do something eventually}
property ControlState: TControlState read FControlState write FControlState;
property ClientOrigin: TPoint read GetClientOrigin;
@ -531,23 +532,22 @@ TCMDialogKey = TLMKEY;
property ControlStyle : TControlStyle read FControlStyle write FControlStyle;
property Enabled: Boolean read GetEnabled write SetEnabled default True;
property Font : TFont read FFont write FFont;
property Height: Integer read FHeight write SetHeight;
property HostDockSite : TWincontrol read FHostDockSite write FHostDockSite;
property Left: Integer read FLeft write SetLeft;
property ClientHeight : Integer read FHeight write SetHeight;
property ClientWidth : Integer read FWIdth write SetWidth;
property Parent : TWinControl read FParent write SetParent;
property ShowHint : Boolean read FShowHint write SetShowHint;
property Top: Integer read FTop write SetTop;
property Visible: Boolean read FVisible write SetVisible;
property Width: Integer read FWidth write SetWidth;
{events}
property OnResize: TNotifyEvent read FOnResize write FOnResize;
property OnClick: TNotifyEvent read FOnClick write FOnClick;
// property Owner: TComponent read FOwner write FOwner;
property WindowProc: TWndMethod read FWindowProc write FWindowProc;
published
property Cursor: TCursor read FCursor write SetCursor default crDefault;
property Left: Integer read FLeft write SetLeft;
property Top: Integer read FTop write SetTop;
property Height: Integer read FHeight write SetHeight;
property Width: Integer read FWidth write SetWidth;
property Hint: String read FHint write SetHint;
end;
@ -1123,6 +1123,11 @@ end.
{ =============================================================================
$Log$
Revision 1.3 2000/11/27 18:52:37 lazarus
Added the Object Inspector code.
Added more form editor code.
Shane
Revision 1.2 2000/07/30 21:48:32 lazarus
MWE:
= Moved ObjectToGTKObject to GTKProc unit

11
lcl/forms.pp
View File

@ -163,8 +163,19 @@ type
property ClientHandle: HWND read FClientHandle;
published
property ActiveCOntrol;
property Align;
property AutoSize;
property Caption;
property Color;
property ClientHeight;
property ClientWidth;
property Enabled;
property FormStyle;
property Position;
property Visible;
// property WindowState;
property OnCreate;
property OnDestroy;
end;
TFormClass = class of TForm;