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

MG: removed unused

Browse Source 
git-svn-id: trunk@1398 -
This commit is contained in:
lazarus 2002-02-09 02:30:22 +00:00
parent 0cad522d25
commit 89233d5b7c
4 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
designer/propedits.pp
View File

@ -840,7 +840,7 @@ type
implementation implementation
uses Dialogs, Math, ColumnDlg; uses Dialogs, ColumnDlg;
const const

1
ide/buildlazdialog.pas
View File

@ -321,6 +321,7 @@ end;
procedure TConfigureBuildLazarusDlg.Save(Options: TBuildLazarusOptions); procedure TConfigureBuildLazarusDlg.Save(Options: TBuildLazarusOptions);
begin begin
if Options=nil then exit;
Options.CleanAll:=CleanAllCheckBox.Checked; Options.CleanAll:=CleanAllCheckBox.Checked;
Options.BuildLCL:=IntToMakeMode(BuildLCLRadioGroup.ItemIndex); Options.BuildLCL:=IntToMakeMode(BuildLCLRadioGroup.ItemIndex);
Options.BuildSynEdit:=IntToMakeMode(BuildSynEditRadioGroup.ItemIndex); Options.BuildSynEdit:=IntToMakeMode(BuildSynEditRadioGroup.ItemIndex);

5
ide/compiler.pp
View File

@ -78,8 +78,6 @@ end;
{------------------------------------------------------------------------------} {------------------------------------------------------------------------------}
function TCompiler.Compile(AProject: TProject; BuildAll: boolean; function TCompiler.Compile(AProject: TProject; BuildAll: boolean;
const DefaultFilename: string): TModalResult; const DefaultFilename: string): TModalResult;
const
BufSize = 1024;
var var
CmdLine : String; CmdLine : String;
Abort : Boolean; Abort : Boolean;
@ -181,6 +179,9 @@ end.
{ {
$Log$ $Log$
Revision 1.29 2002/03/28 00:11:04 lazarus
MG: removed unused
Revision 1.28 2002/01/23 20:07:20 lazarus Revision 1.28 2002/01/23 20:07:20 lazarus
MG: added outputfilter MG: added outputfilter

2
ide/wordcompletion.pp
View File

@ -41,8 +41,6 @@ type
implementation implementation
uses Strings, Math;
type type
TCharType = (ctNone,ctWordBegin,ctWord); TCharType = (ctNone,ctWordBegin,ctWord);