TFVBase

type TFVBase = class(TFrameViewerBase)

protected

  FBaseEx: ThtString;

  FURL: ThtString;

  FLinkAttributes: ThtStringList;

  FLinkText: ThtString;

  FCurFrameSet: TFrameSetBase;

  ProcessList: TList;

  Visited: ThtStringList;

  function CreateViewer(); virtual;

  function CreateIFrameControl();

  function GetActiveViewer;

  function GetBase;

  function GetBaseTarget;

  function GetCaretPos;

  function GetCurrentFile;

  function GetCurViewer();

  function GetCurViewerCount;

  function GetFrameSetClass; virtual; abstract;

  function GetOurPalette;

  function GetProcessing;

  function GetSelLength;

  function GetSelStart;

  function GetSelText;

  function GetSelTextBuf();

  function GetSubFrameSetClass; virtual; abstract;

  function GetTitle;

  function GetUseQuirksMode; override;

  function GetViewerBase();

  function GetViewerClass; virtual;

  function GetViewers;

  function GetViewerTarget();

  function HotSpotClickHandled();

  procedure AddVisitedLink();

  procedure BeginProcessing; virtual;

  procedure BumpHistory();

  procedure BumpHistory1();

  procedure BumpHistory2();

  procedure CheckProcessing();

  procedure CheckVisitedLinks; virtual; abstract;

  procedure ChkFree();

  procedure DoFormSubmitEvent(); virtual; abstract;

  procedure DoGetImage(); virtual;

  procedure DoURLRequest(); virtual; abstract;

  procedure EndProcessing; virtual;

  procedure HotSpotClick(); virtual; abstract;

  procedure HotSpotCovered(); virtual; abstract;

  procedure Loaded; override;

  procedure LoadFromStringInternal();

  procedure SetActiveColor(); override;

  procedure SetCharset(); override;

  procedure SetDefBackground(); override;

  procedure SetFontColor(); override;

  procedure SetFontName(); override;

  procedure SetFontSize(); override;

  procedure SetHistoryMaxCount(); override;

  procedure SetHotSpotColor(); override;

  procedure SetImageCacheCount(); override;

  procedure SetLoadCursor(); override;

  procedure SetMarginHeight(); override;

  procedure SetMarginWidth(); override;

  procedure SetNoSelect(); override;

  procedure SetOnBitmapRequest(); override;

  procedure SetOnBitmapRequested(); override;

  procedure SetOnDragDrop(); override;

  procedure SetOnDragOver(); override;

  procedure SetOnImageClick(); override;

  procedure SetOnImageOver(); override;

  procedure SetOnImageRequested(); override;

  procedure SetOnLink(); override;

  procedure SetOnMeta(); override;

  procedure SetOnMouseDouble(); override;

  procedure SetOnObjectBlur(); override;

  procedure SetOnObjectChange(); override;

  procedure SetOnObjectClick(); override;

  procedure SetOnObjectFocus(); override;

  procedure SetOnObjectTag(); override;

  procedure SetOnPanelCreate(); override;

  procedure SetOnPanelDestroy(); override;

  procedure SetOnPanelPrint(); override;

  procedure SetOnParseBegin(); override;

  procedure SetOnParseEnd(); override;

  procedure SetOnPrintFooter(); override;

  procedure SetOnPrintHeader(); override;

  procedure SetOnProgress(); override;

  procedure SetOnScript(); override;

  procedure SetPreFontName(); override;

  procedure SetPrintMarginBottom(); override;

  procedure SetPrintMarginLeft(); override;

  procedure SetPrintMarginRight(); override;

  procedure SetPrintMarginTop(); override;

  procedure SetPrintScale(); override;

  procedure SetQuirksMode(); override;

  procedure SetVisitedColor(); override;

  procedure SetVisitedMaxCount(); override;

  procedure ScaleChanged; override;

  procedure StyleChanged; override;

  property Base: ThtString; [rw]

  property BaseTarget: ThtString; [r]

  property CurFrameSet: TFrameSetBase; [r]

  property CurViewer []: THtmlViewer; [r]

public

  constructor Create(); override;

  constructor CreateCopy(); override;

  destructor Destroy; override;

  function CreateSubFrameSet(); override;

  function Find();

  function FindEx();

  function ViewerFromTarget();

  function IsFrame();

  procedure ParseFrame();

  procedure AddFrame(); override;

  procedure Clear;

  procedure ClearHistory;

  procedure CopyToClipboard;

  procedure DoAttributes(); override;

  procedure GoBack;

  procedure GoFwd;

  procedure LoadFromFile(); virtual; abstract;

  procedure LoadFromString();

  procedure Retext;

  procedure Reload;

  procedure Repaint; override;

  procedure SelectAll;

  procedure SetFocus; override;

  property ActiveViewer: THtmlViewer; [r]

  property CaretPos: Integer; [rw]

  property CurrentFile: ThtString; [r]

  property DocumentTitle: ThtString; [r]

  property History: ThtStringList; [r]

  property LinkAttributes: ThtStringList; [r]

  property LinkText: ThtString; [r]

  property Palette: HPalette; [rw]

  property Processing: Boolean; [r]

  property SelLength: Integer; [rw]

  property SelStart: Integer; [rw]

  property SelText: UnicodeString; [r]

  property TitleHistory: ThtStringList; [r]

  property URL: ThtString; [r]

  property Viewers: ThtStringList; [r]

  property FwdButtonEnabled: Boolean; [r]

  property BackButtonEnabled: Boolean; [r]

published

  property CharSet: TFontCharset;

  property CodePage: Integer;

  property Cursor: TCursor; [rw]

  property DefBackground: TColor;

  property DefFontColor: TColor;

  property DefFontName: TFontName;

  property DefFontSize: Integer;

  property DefHotSpotColor: TColor;

  property DefOverLinkColor: TColor;

  property DefPreFontName: TFontName;

  property DefVisitedLinkColor: TColor;

  property fvOptions: TFrameViewerOptions; [rw]

  property HistoryIndex: Integer; [rw]

  property HistoryMaxCount: Integer;

  property ImageCacheCount: Integer;

  property LoadCursor: TCursor;

  property MarginHeight: Integer;

  property MarginWidth: Integer;

  property NoSelect: Boolean;

  property PrintMarginBottom: Double;

  property PrintMarginLeft: Double;

  property PrintMarginRight: Double;

  property PrintMarginTop: Double;

  property PrintMaxHPages: Integer;

  property PrintScale: Double;

  property QuirksMode: THtQuirksMode;

  property Text: ThtString; [rw]

  property ViewImages: Boolean; [rw]

  property VisitedMaxCount: Integer;

  property OnBitmapRequest: TGetBitmapEvent;

  property OnBitmapRequested: TGottenBitmapEvent;

  property OnBlankWindowRequest: TWindowRequestEvent; [rw]

  property OnDragDrop: TDragDropEvent;

  property OnDragOver: TDragOverEvent;

  property OnFileBrowse: TFileBrowseEvent; [rw]

  property OnHistoryChange: TNotifyEvent;

  property OnHotSpotTargetClick: THotSpotTargetClickEvent;

  property OnHotSpotTargetCovered: THotSpotTargetEvent;

  property OnImageClick: TImageClickEvent;

  property OnImageOver: TImageOverEvent;

  property OnImageRequest: TGetImageEvent;

  property OnImageRequested: TGottenImageEvent;

  property OnInclude: TIncludeType;

  property OnLink: TLinkType;

  property OnMeta: TMetaType;

  property OnMouseDouble: TMouseEvent;

  property OnObjectBlur: ThtObjectEvent;

  property OnObjectChange: ThtObjectEvent;

  property OnObjectClick: TObjectClickEvent;

  property OnObjectFocus: ThtObjectEvent;

  property OnObjectTag: TObjectTagEvent;

  property OnPanelCreate: TPanelCreateEvent;

  property OnPanelDestroy: TPanelDestroyEvent;

  property OnPanelPrint: TPanelPrintEvent;

  property OnParseBegin: TParseEvent;

  property OnParseEnd: TNotifyEvent;

  property OnPrintFooter: TPagePrinted;

  property OnPrintHeader: TPagePrinted;

  property OnPrintHTMLFooter: ThtmlPagePrinted; [rw]

  property OnPrintHTMLHeader: ThtmlPagePrinted; [rw]

  property OnProcessing: TProcessingEvent;

  property OnProgress: ThtProgressEvent;

  property OnRightClick: TRightClickEvent; [rw]

  property OnScript: TScriptEvent;

  property OnSoundRequest: TSoundType;

  property OnViewerClear: TNotifyEvent; [rw]

  property Align;

  property Anchors;

  property Enabled;

  property Height;

  property ParentColor;

  property ParentFont;

  property ParentShowHint;

  property PopupMenu;

  property ShowHint;

  property TabOrder;

  property TabStop;

  property Visible;

  property Width;

  property OnEnter;

  property OnExit;

  property OnMouseDown;

  property OnMouseMove;

  property OnMouseUp;

  property OnMouseWheel;

  property OnKeyDown;

  property OnKeyUp;

  property OnKeyPress;

end;

TFVBase

TFrameViewerBase

TViewerBase

ThtControlBase

TObject