paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 16:50:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

Merged revisions 1981 via svnmerge from

Browse Source 
http://hajny@svn.freepascal.org/svn/fpc/trunk

........
r1981 | hajny | 2005-12-18 21:55:31 +0000 (Sun, 18 Dec 2005) | 1 line

  * mistyping fixed (HMTL)
........

git-svn-id: branches/fixes_2_0@1985 -
This commit is contained in:
Tomas Hajny 2005-12-18 22:18:07 +00:00
parent 5cc60acaf1
commit 9b0e07d25c
3 changed files with 9 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
fv/test/testapp.pas
View File

@ -45,9 +45,9 @@ PROGRAM TestApp;
{$ifdef TEST}
AsciiTab,
{$endif TEST}
{$ifdef DEBUG}
{ $ifdef DEBUG
Gfvgraph,
{$endif DEBUG}
$endif DEBUG}
Gadgets, TimedDlg, MsgBox;
@ -122,7 +122,7 @@ Var
{$endif DEBUG}
begin
inherited Idle;
{$ifdef DEBUG}
{ $ifdef DEBUG
if WriteDebugInfo then
begin
WasSet:=true;
@ -131,13 +131,13 @@ begin
else
WasSet:=false;
if WriteDebugInfo then
{$endif DEBUG}
$endif DEBUG}
Clock^.Update;
Heap^.Update;
{$ifdef DEBUG}
{ $ifdef DEBUG
if WasSet then
WriteDebugInfo:=true;
{$endif DEBUG}
$endif DEBUG}
if Desktop^.FirstThat(@IsTileable) <> nil then
EnableCommands([cmTile, cmCascade])
else

29
fv/test/tfileio.pas
View File

@ -1,27 +1,2 @@
USES
FVCommon,FileIO;
VAR
Handle : THandle;
buf : ARRAY[0..255] OF CHAR;
n : LongWord;
BEGIN
Handle := FileOpen(AsciiZ('test'), fa_Create);
writeln('FileOpen: ',Handle);
buf := 'Test'#0;
writeln('FileWrite: ', FileWrite(handle, Buf, 5, n));
writeln('Bytes written: ', n);
Writeln('SetFileSize: ', SetFileSize(handle, 4));
Writeln('SetFilePos: ', SetFilePos(handle, 2, 0, (LongInt(n))));
Writeln('Actual: ', n);
Writeln('FileRead: ', FileRead(Handle, buf, 2, n) );
Writeln('Actual: ', n);
Writeln('Buf[0]=', Buf[0], ' Buf[1]=', Buf[1]);
Writeln('FileClose: ', FileClose(Handle));
END.
begin
end.

2
installer/install.dat
View File

@ -293,7 +293,7 @@ pack=Commo~n~
# Common 1
package=docs-pdf.zip,Documentation (~P~DF)
# Common 2
package=doc-html.zip[doc-htm.zip],Documentation (~H~MTL)
package=doc-html.zip[doc-htm.zip],Documentation (~H~TML)
# Common 3
package=demo.zip,D~e~mos