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

nonlcldesigner: register MyForm

Browse Source 
git-svn-id: trunk@22634 -
This commit is contained in:
mattias 2009-11-17 04:29:47 +00:00
parent 9e8c913c8c
commit 415c71e3ac
1 changed files with 39 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
examples/designnonlcl/mywidgetdesigner.pas
View File

@ -36,7 +36,7 @@ interface
uses
LCLProc, LCLType, Classes, SysUtils, FormEditingIntf, LCLIntf, Graphics,
MyWidgetSet;
ProjectIntf, MyWidgetSet;
type
@ -66,6 +66,17 @@ type
property MyForm: TMyForm read FMyForm;
end;
{ TFileDescPascalUnitWithMyForm }
TFileDescPascalUnitWithMyForm = class(TFileDescPascalUnitWithResource)
public
constructor Create; override;
function GetInterfaceUsesSection: string; override;
function GetLocalizedName: string; override;
function GetLocalizedDescription: string; override;
end;
procedure Register;
implementation
@ -74,6 +85,8 @@ procedure Register;
begin
FormEditingHook.RegisterDesignerMediator(TMyWidgetMediator);
RegisterComponents('MyWidgets',[TMyButton,TMyGroupBox]);
RegisterProjectFileDescriptor(TFileDescPascalUnitWithMyForm.Create,
FileDescGroupName);
end;
{ TMyWidgetMediator }
@ -216,5 +229,30 @@ begin
and (TMyWidget(Parent).AcceptChildsAtDesignTime);
end;
{ TFileDescPascalUnitWithMyForm }
constructor TFileDescPascalUnitWithMyForm.Create;
begin
inherited Create;
Name:='MyForm';
ResourceClass:=TMyForm;
UseCreateFormStatements:=true;
end;
function TFileDescPascalUnitWithMyForm.GetInterfaceUsesSection: string;
begin
Result:=Result+'Classes, SysUtils, MyWidgetSet';
end;
function TFileDescPascalUnitWithMyForm.GetLocalizedName: string;
begin
Result:='MyForm';
end;
function TFileDescPascalUnitWithMyForm.GetLocalizedDescription: string;
begin
Result:='Create a new MyForm from example package NotLCLDesigner';
end;
end.