trichview.support
Some improvements in hypertext ability |
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