paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-26 16:21:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: added some property editors and started component editors

Browse Source 
git-svn-id: trunk@1987 -
This commit is contained in:
lazarus 2002-08-17 23:40:31 +00:00
parent 8b114c41b6
commit d10d5a9ee8
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
designer/designer.pp
View File

@ -39,7 +39,7 @@ uses
Classes, LCLType, LCLLinux, Forms, Controls, LMessages, GraphType, Graphics,
ControlSelection, CustomFormEditor, FormEditor, UnitEditor, CompReg, Menus,
AlignCompsDlg, SizeCompsDlg, ScaleCompsDlg, ExtCtrls, EnvironmentOpts,
DesignerProcs;
DesignerProcs, PropEdits, ComponentEditors;
type
TDesigner = class;
@ -58,7 +58,7 @@ type
TOnRenameComponent = procedure(Designer: TDesigner; AComponent: TComponent;
const NewName: string) of object;
TDesigner = class(TIDesigner)
TDesigner = class(TComponentEditorDesigner)
private
FCustomForm: TCustomForm;
FFormEditor : TFormEditor;
@ -135,6 +135,8 @@ type
procedure OnBringToFrontMenuClick(Sender: TObject);
procedure OnSendToBackMenuClick(Sender: TObject);
Procedure OnFormActivated;
function GetPropertyEditorHook: TPropertyEditorHook; override;
public
ControlSelection : TControlSelection;
DDC: TDesignerDeviceContext;
@ -1337,6 +1339,11 @@ begin
FOnActivated(Form);
end;
function TDesigner.GetPropertyEditorHook: TPropertyEditorHook;
begin
Result:=FormEditor.PropertyEditorHook;
end;
end.