|
@@ -620,7 +620,7 @@ begin
|
|
|
case N of
|
|
case N of
|
|
|
$00 : C:=#0;
|
|
$00 : C:=#0;
|
|
|
$01..$0D : C:=chr(Compression.CharTable[N]);
|
|
$01..$0D : C:=chr(Compression.CharTable[N]);
|
|
|
- ncRawChar : C:=chr(GetNextNibble*16+GetNextNibble);
|
|
|
|
|
|
|
+ ncRawChar : C:=chr(GetNextNibble+GetNextNibble shl 4);
|
|
|
ncRepChar : begin
|
|
ncRepChar : begin
|
|
|
Cnt:=2+GetNextNibble;
|
|
Cnt:=2+GetNextNibble;
|
|
|
C:=GetNextChar{$ifdef FPC}(){$endif};
|
|
C:=GetNextChar{$ifdef FPC}(){$endif};
|
|
@@ -658,7 +658,7 @@ begin
|
|
|
end;
|
|
end;
|
|
|
var OK: boolean;
|
|
var OK: boolean;
|
|
|
TextR,KeyWR: TRecord;
|
|
TextR,KeyWR: TRecord;
|
|
|
- W,I: word;
|
|
|
|
|
|
|
+ I: word;
|
|
|
begin
|
|
begin
|
|
|
OK:=T<>nil;
|
|
OK:=T<>nil;
|
|
|
if OK and (T^.Text=nil) then
|
|
if OK and (T^.Text=nil) then
|
|
@@ -913,11 +913,15 @@ end;
|
|
|
END.
|
|
END.
|
|
|
{
|
|
{
|
|
|
$Log$
|
|
$Log$
|
|
|
- Revision 1.8 1999-03-01 15:42:11 peter
|
|
|
|
|
|
|
+ Revision 1.9 1999-03-03 16:44:05 pierre
|
|
|
|
|
+ * TPH reader fix from Peter
|
|
|
|
|
+
|
|
|
|
|
+ Revision 1.8 1999/03/01 15:42:11 peter
|
|
|
+ Added dummy entries for functions not yet implemented
|
|
+ Added dummy entries for functions not yet implemented
|
|
|
* MenuBar didn't update itself automatically on command-set changes
|
|
* MenuBar didn't update itself automatically on command-set changes
|
|
|
* Fixed Debugging/Profiling options dialog
|
|
* Fixed Debugging/Profiling options dialog
|
|
|
- * TCodeEditor converts spaces to tabs at save only if efUseTabChars is
set
|
|
|
|
|
|
|
+ * TCodeEditor converts spaces to tabs at save only if efUseTabChars is
|
|
|
|
|
+ set
|
|
|
* efBackSpaceUnindents works correctly
|
|
* efBackSpaceUnindents works correctly
|
|
|
+ 'Messages' window implemented
|
|
+ 'Messages' window implemented
|
|
|
+ Added '$CAP MSG()' and '$CAP EDIT' to available tool-macros
|
|
+ Added '$CAP MSG()' and '$CAP EDIT' to available tool-macros
|
pierre