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

IDE: fixed saving ResourceBaseClass(name)

Browse Source
This commit is contained in:
mattias 2023-09-25 10:30:55 +02:00
parent 3a4dd50e93
commit 1acc98a582
3 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/ideintf/formeditingintf.pas
View File

@ -242,7 +242,7 @@ type
function DesignerBaseClassCount: Integer; virtual; abstract;
property DesignerBaseClasses[Index: integer]: TComponentClass read GetDesignerBaseClasses;
procedure UnregisterDesignerBaseClass(AClass: TComponentClass); virtual; abstract;
function IndexOfDesignerBaseClass(AClass: TComponentClass): integer; virtual; abstract;
function IndexOfDesignerBaseClass(AClass: TComponentClass): integer; virtual; abstract; // search exact match
function DescendFromDesignerBaseClass(AClass: TComponentClass): integer; virtual; abstract;
function FindDesignerBaseClassByName(const AClassName: shortstring; WithDefaults: boolean): TComponentClass; virtual; abstract;
function DesignerClassCanAppCreateForm(AClass: TComponentClass; CheckInherited: boolean = true): boolean; virtual; abstract;

2
ide/sourcefilemanager.pas
View File

@ -8345,7 +8345,7 @@ begin
exit('TCustomFrame')
else if aCompClass.InheritsFrom(TDataModule) then
exit(DefaultResourceBaseClassnames[pfcbcDataModule]);
i:=FormEditingHook.IndexOfDesignerBaseClass(TComponentClass(aCompClass.ClassType));
i:=FormEditingHook.DescendFromDesignerBaseClass(TComponentClass(aCompClass.ClassType));
if i<0 then exit;
Result:=FormEditingHook.DesignerBaseClasses[i].ClassName;
end;

2
packager/packagedefs.pas
View File

@ -124,7 +124,7 @@ const
'Frame',
'DataModule',
'CustomForm',
''
'Other'
);
DefaultResourceBaseClassnames: array[TPFComponentBaseClass] of string = (
'',