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

Converter: improved comments.

Browse Source 
git-svn-id: trunk@28078 -
This commit is contained in:
juha 2010-11-04 22:30:41 +00:00
parent 1d91673a50
commit b6a99db82e
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
converter/convcodetool.pas
View File

@ -175,6 +175,7 @@ function TConvDelphiCodeTool.Convert(aIsConsoleApp: boolean): TModalResult;
// add {$mode delphi} directive // add {$mode delphi} directive
// remove {$R *.dfm} or {$R *.xfm} directive // remove {$R *.dfm} or {$R *.xfm} directive
// Change {$R *.RES} to {$R *.res} if needed // Change {$R *.RES} to {$R *.res} if needed
// Add, remove, rename and comment out used unit names.
// TODO: fix delphi ambiguouties like incomplete proc implementation headers // TODO: fix delphi ambiguouties like incomplete proc implementation headers
begin begin
Result:=mrCancel; Result:=mrCancel;
@ -229,7 +230,8 @@ begin
end; end;
function TConvDelphiCodeTool.AddDelphiAndLCLSections: boolean; function TConvDelphiCodeTool.AddDelphiAndLCLSections: boolean;
// add, remove and rename units for desired target. // Add unit names into conditional blocks for Delphi and Lazarus targets. If the name
// would otherwise be deleted or commented out, now it is added to Delphi block.
var var
DelphiOnlyUnits: TStringList; // Delphi specific units. DelphiOnlyUnits: TStringList; // Delphi specific units.
LclOnlyUnits: TStringList; // LCL specific units. LclOnlyUnits: TStringList; // LCL specific units.