pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Cleanup

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2318 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
lazarus-bart
2012-02-28 14:18:41 +00:00
parent cd2d3f37da
commit a69372cd07
2 changed files with 1 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
applications/lazedit/lazedit.lpr
View File

@ -7,11 +7,7 @@ uses
cthreads, cthreads,
{$ENDIF}{$ENDIF} {$ENDIF}{$ENDIF}
Interfaces, // this includes the LCL widgetset Interfaces, // this includes the LCL widgetset
Forms, main, Forms, main,lazedit_about;
lazedit_translations,
EditorPageControl,
HtmlCode,
lazedit_constants, lazedit_about;
{$R *.res} {$R *.res}
@ -19,21 +15,6 @@ begin
RequireDerivedFormResource := True; RequireDerivedFormResource := True;
Application.Initialize; Application.Initialize;
Application.CreateForm(TLazEditMainForm, LazEditMainForm); Application.CreateForm(TLazEditMainForm, LazEditMainForm);
(*
{$ifndef Darwin}
// Parse the command line options
// if there are no files to open, then
if ParamCount = 0 then
begin
LazEditMainForm.NoteBook.IsCreating := True;
LazEditMainForm.DoFileNewByType(eftNone);
LazEditMainForm.NoteBook.IsCreating := False;
end
else
LazEditMainForm.TryFileOpen(ParamStr(1), False);
{$endif}
*)
Application.CreateForm(TformAbout, formAbout); Application.CreateForm(TformAbout, formAbout);
Application.Run; Application.Run;
end. end.

1
applications/lazedit/main.pp
View File

@ -1520,7 +1520,6 @@ procedure TLazEditMainForm.ConstructOpenDialogFileFilters;
end; end;
var var
Filter, SubFilter, WildFilter, AllSupportedExt: String; Filter, SubFilter, WildFilter, AllSupportedExt: String;
Index: Integer;
FileType: TEditorFileType; FileType: TEditorFileType;
begin begin
//First filter for OpenSave //First filter for OpenSave