trichview.com

trichview.support




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





Powered by ABC Amber Outlook Express Converter