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

IDE: clean up

Browse Source 
git-svn-id: trunk@40365 -
This commit is contained in:
mattias 2013-02-22 16:46:24 +00:00
parent 51657166be
commit 401d8bc33b
2 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/customformeditor.pp
View File

@ -235,7 +235,7 @@ type
AncestorClassName, Identifier: string; AncestorClassName, Identifier: string;
var IsDefined: boolean); var IsDefined: boolean);
procedure RegisterDefineProperty(const APersistentClassName, procedure RegisterDefineProperty(const APersistentClassName,
Identifier: string); Identifier: string); override;
procedure RegisterStandardDefineProperties; procedure RegisterStandardDefineProperties;
// keys // keys

1
ide/sourcefilemanager.pas
View File

@ -4134,7 +4134,6 @@ begin
NewUnitName:=AnUnitInfo.Unit_Name; NewUnitName:=AnUnitInfo.Unit_Name;
if NewUnitName='' then if NewUnitName='' then
NewUnitName:=ExtractFileNameOnly(AnUnitInfo.Filename); NewUnitName:=ExtractFileNameOnly(AnUnitInfo.Filename);
// ToDo: create AncestorBinStream(s) via hook, not via parameters
DisableAutoSize:=true; DisableAutoSize:=true;
NewComponent:=FormEditor1.CreateRawComponentFromStream(BinStream, AnUnitInfo.UnitResourceFileformat, NewComponent:=FormEditor1.CreateRawComponentFromStream(BinStream, AnUnitInfo.UnitResourceFileformat,
AncestorType,copy(NewUnitName,1,255),true,true,DisableAutoSize,AnUnitInfo); AncestorType,copy(NewUnitName,1,255),true,true,DisableAutoSize,AnUnitInfo);