Some improvements in hypertext ability

Return to index

Author

Message

Artyom Shegeda

Posted: 09/24/2003 13:43:24

Whether it is possible to add following lines to RichView.pas to enhance hotspot

work?

//----------------------------

TJumpInfo = class

public

{...}

  line : integer;

end;

TRichView = class(TRVScroller)

{...}

public

  function GetHotSpotText(HotSpotID:integer):string;

{...}

end;

function TRichView.GetHotSpotText(HotSpotID:integer):string;

begin

  Result := lines.Strings[TJumpInfo(jumps.Objects[HotSpotID]).line];

end;

procedure TRichView.FormatLine(no: Integer; var x,baseline,prevdesc,prevabove:Integer;

Canvas: TCanvas; var sad: TScreenAndDevice);

{...}

          jmpinfo     := TJumpInfo.Create; // all occurences

          jmpinfo.line:= no;

{...}

end;

//----------------------------

This code should allow programmers to take hotspot's text