mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-15 20:09:20 +02:00
* Renamefest
This commit is contained in:
parent
c088f4d620
commit
143b24833e
@ -825,7 +825,7 @@ program install;
|
|||||||
P : PStaticText;
|
P : PStaticText;
|
||||||
Control : PButton;
|
Control : PButton;
|
||||||
YB: word;
|
YB: word;
|
||||||
{$IFNDEF LINUX}
|
{$IFNDEF UNIX}
|
||||||
i : longint;
|
i : longint;
|
||||||
S: string;
|
S: string;
|
||||||
WPath: boolean;
|
WPath: boolean;
|
||||||
@ -844,7 +844,7 @@ program install;
|
|||||||
else
|
else
|
||||||
YB := 14;
|
YB := 14;
|
||||||
|
|
||||||
{$IFNDEF LINUX}
|
{$IFNDEF UNIX}
|
||||||
s:='';
|
s:='';
|
||||||
for i:=1 to cfg.packs do
|
for i:=1 to cfg.packs do
|
||||||
if cfg.pack[i].binsub<>'' then
|
if cfg.pack[i].binsub<>'' then
|
||||||
@ -889,7 +889,7 @@ program install;
|
|||||||
R.Assign(6, 6, 74, YB);
|
R.Assign(6, 6, 74, YB);
|
||||||
inherited init(r,'Installation Successful.');
|
inherited init(r,'Installation Successful.');
|
||||||
|
|
||||||
{$IFNDEF LINUX}
|
{$IFNDEF UNIX}
|
||||||
if WPath then
|
if WPath then
|
||||||
begin
|
begin
|
||||||
R.Assign(2, 3, 64, 5);
|
R.Assign(2, 3, 64, 5);
|
||||||
@ -1309,7 +1309,7 @@ end;
|
|||||||
found:=true;
|
found:=true;
|
||||||
if found then
|
if found then
|
||||||
begin
|
begin
|
||||||
{$IFNDEF LINUX}
|
{$IFNDEF UNIX}
|
||||||
{ TH - check the available disk space here }
|
{ TH - check the available disk space here }
|
||||||
DSize := 0;
|
DSize := 0;
|
||||||
for j:=1 to cfg.packs do
|
for j:=1 to cfg.packs do
|
||||||
@ -1920,7 +1920,10 @@ begin
|
|||||||
end.
|
end.
|
||||||
{
|
{
|
||||||
$Log$
|
$Log$
|
||||||
Revision 1.10 2002-06-01 19:43:07 marco
|
Revision 1.11 2002-06-02 17:24:27 marco
|
||||||
|
* Renamefest
|
||||||
|
|
||||||
|
Revision 1.10 2002/06/01 19:43:07 marco
|
||||||
* Renamefest
|
* Renamefest
|
||||||
|
|
||||||
Revision 1.9 2002/04/11 13:20:27 pierre
|
Revision 1.9 2002/04/11 13:20:27 pierre
|
||||||
|
Loading…
Reference in New Issue
Block a user