paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-22 15:29:35 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: clean up

Browse Source 
git-svn-id: trunk@26848 -
This commit is contained in:
mattias 2010-07-27 09:07:40 +00:00
parent 5a1cba9ff7
commit 4ed9268f99
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
converter/missingpropertiesdlg.pas
View File

@ -69,7 +69,7 @@ type
private private
fSettings: TConvertSettings; fSettings: TConvertSettings;
// List of property values which need to be adjusted. // List of property values which need to be adjusted.
fValueTreeNodes: TList; //fValueTreeNodes: TList;
fHasMissingProperties: Boolean; // LFM file has unknown properties. fHasMissingProperties: Boolean; // LFM file has unknown properties.
fHasMissingObjectTypes: Boolean; // LFM file has unknown object types. fHasMissingObjectTypes: Boolean; // LFM file has unknown object types.
// References to controls in UI: // References to controls in UI:
@ -395,10 +395,10 @@ end;
function TLFMFixer.Repair: TModalResult; function TLFMFixer.Repair: TModalResult;
var var
CurError: TLFMError; // CurError: TLFMError;
// MissingObjectTypes: TStringList; <- Remove. Must be a left-over from something. // MissingObjectTypes: TStringList; <- Remove. Must be a left-over from something.
ConvTool: TConvDelphiCodeTool; ConvTool: TConvDelphiCodeTool;
TypeName: String; // TypeName: String;
LoopCount: integer; LoopCount: integer;
begin begin
Result:=mrCancel; Result:=mrCancel;