MG: removed unused

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

View File

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

View File

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

View File

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

View File

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