paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-16 13:09:28 +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

9
ide/inputfiledialog.pas
View File

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

8
ide/projectopts.pp
View File

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