Changeset 31

Timestamp:

Aug 24, 2006, 8:08:40 PM (19 years ago)

Author:

RBRi

Message:

source cleanup

File:

• trunk/NewView/HelpTopic.pas (modified) (10 diffs)

trunk/NewView/HelpTopic.pas

@@ -17 +17 @@
   Classes, Graphics,
   ACLString,
-  RichTextDocumentUnit,
+//  RichTextDocumentUnit,
   HelpWindowDimensions, IPFFileFormatUnit;
 
@@ -309 +309 @@
 end;
 
+
 function GetBeginLink( LinkIndex: longint ): string;
 begin
@@ -552 +553 @@
 var
   ImageIndex: longint;
-  OriginalAlignTag: string;
-  ImageTag: string;
-  AlignTag: string;
 begin
   ImageIndex := ImageOffsets.IndexOf( pointer( BitmapOffset ) );
@@ -660 +658 @@
   BitmapOffset: longword;
   BitmapFlags: uint8;
-  Link: TInternalHelpLink;
   LinkTopicIndex: uint16;
 begin
@@ -904 +901 @@
 
   OutputString: string;
-  p: longint;
 begin
   EscapeLen := pData^;
@@ -2237 +2233 @@
   EscapeCode: uint8;
 
-  Link: TInternalHelpLink;
-  FootnoteLink: TFootnoteHelpLink;
-  LinkByResourceID: THelpLinkByResourceID;
-
   Margin: integer;
 
@@ -2253 +2245 @@
 
   FaceName: string;
-  PointSize: longint;
-  QuotedFaceName: string;
 
   ExternalLinkFileIndex: uint8;
@@ -2261 +2251 @@
   ProgramLink: string;
   ProgramPath: string;
-  ProgramFilename: string;
 
   OutputString: string;
-  p: longint;
-  ImageIndex: longint;
 begin
   EscapeLen := pData^;
@@ -2537 +2524 @@
 
   State: TParseState;
-
-  EscapeLen: uint8;
-  i: longint;
 
   SequenceStepIndex: longint;
@@ -2670 +2654 @@
           begin
             WriteLn( F, '' );
-//            WriteLn( F, '.br ' ); // break must be the only thing on the line
             if not State.InCharGraphics then
               WriteLn( F, '.br ' ); // break must be the only thing on the line