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

MG: reduced output

Browse Source 
git-svn-id: trunk@1596 -
This commit is contained in:
lazarus 2002-04-05 17:29:14 +00:00
parent 0ece6bc6a1
commit 0bb368c7b6
2 changed files with 6 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/inputfiledialog.pas
View File

@ -403,16 +403,18 @@ var
ListIndex, i: integer; ListIndex, i: integer;
NewLabel: TLabel; NewLabel: TLabel;
begin begin
LabelsAsText:=TStringList.Create;
// add new TLabels // add new TLabels
while FInputLabels.Count<FFileCount do begin while FInputLabels.Count<FFileCount do begin
ListIndex:=FInputLabels.Count; ListIndex:=FInputLabels.Count;
// create TLabel list // create TLabel list
NewLabelList:=TList.Create; NewLabelList:=TList.Create;
LabelsAsText.Text:=FFileDescs[ListIndex];
// create one TLabel for every line // create one TLabel for every line
for i:=0 to LabelsAsText.Count-1 do begin for i:=0 to LabelsAsText.Count-1 do begin
NewLabel:=TLabel.Create(Self); NewLabel:=TLabel.Create(Self);
with NewLabel do begin with NewLabel do begin
Name:='NewLabel'; Name:='NewLabel'+IntToStr(FInputLabels.Count)+'_'+IntToStr(i);
Parent:=Self; Parent:=Self;
Visible:=true; Visible:=true;
end; end;
@ -425,7 +427,6 @@ begin
DeleteLabelList(FInputLabels.Count-1); DeleteLabelList(FInputLabels.Count-1);
end; end;
// update label text // update label text
LabelsAsText:=TStringList.Create;
for ListIndex:=0 to FInputLabels.Count-1 do begin for ListIndex:=0 to FInputLabels.Count-1 do begin
// split description into lines // split description into lines
LabelsAsText.Text:=FFileDescs[ListIndex]; LabelsAsText.Text:=FFileDescs[ListIndex];
@ -511,6 +512,7 @@ begin
OnResize:=@FormResize; OnResize:=@FormResize;
OkButton:=TButton.Create(Self);
with OkButton do begin with OkButton do begin
Name:='OkButton'; Name:='OkButton';
Parent:=Self; Parent:=Self;
@ -519,6 +521,7 @@ begin
Visible:=true; Visible:=true;
end; end;
CancelButton:=TButton.Create(Self);
with CancelButton do begin with CancelButton do begin
Name:='CancelButton'; Name:='CancelButton';
Parent:=Self; Parent:=Self;

8
ide/projectopts.pp
View File

@ -378,9 +378,6 @@ function TProjectOptionsDialog.GetAutoCreatedFormsList: TStrings;
var i, j: integer; var i, j: integer;
begin begin
if (FProject<>nil) and (FProject.MainUnit>=0) then begin if (FProject<>nil) and (FProject.MainUnit>=0) then begin
writeln('==CCC=============================================================');
writeln(FProject.MainUnitInfo.Source.Source);
writeln('==DDD=============================================================');
Result:=CodeToolBoss.ListAllCreateFormStatements( Result:=CodeToolBoss.ListAllCreateFormStatements(
FProject.MainUnitInfo.Source); FProject.MainUnitInfo.Source);
if Result<>nil then begin if Result<>nil then begin
@ -394,7 +391,6 @@ writeln('==DDD=============================================================');
Result[i]:=copy(Result[i],1,j-1); Result[i]:=copy(Result[i],1,j-1);
end; end;
end; end;
writeln('BBB1 ',Result[i]);
end; end;
end; end;
end else begin end else begin
@ -582,15 +578,11 @@ begin
try try
for i:=0 to FormsAutoCreatedListBox.Items.Count-1 do begin for i:=0 to FormsAutoCreatedListBox.Items.Count-1 do begin
NewList.Add(FormsAutoCreatedListBox.Items[i]); NewList.Add(FormsAutoCreatedListBox.Items[i]);
writeln('AAA3 ',i,' ',NewList[i]);
end; end;
if not CodeToolBoss.SetAllCreateFromStatements( if not CodeToolBoss.SetAllCreateFromStatements(
Project.Units[Project.MainUnit].Source, NewList) then begin Project.Units[Project.MainUnit].Source, NewList) then begin
// ToDo: print a message // ToDo: print a message
end; end;
writeln('==EEE=============================================================');
writeln(FProject.MainUnitInfo.Source.Source);
writeln('==FFF=============================================================');
finally finally
NewList.Free; NewList.Free;
end; end;