Class

TfrmOMHTML

Module

fOMHTML

Last Modified

7/15/2014 3:26:42 PM

Scope

Interfaced

Inherits from

TfrmOMAction

Declaration


TfrmOMHTML = class(TfrmOMAction)
  btnOK: TButton;
  btnCancel: TButton;
  btnBack: TButton;
  pnlWeb: TPanel;
  webView: TWebBrowser;
  btnShow: TButton;
  procedure btnOKClick(Sender: TObject);
  procedure btnCancelClick(Sender: TObject);
  procedure FormCreate(Sender: TObject);
  procedure webViewDocumentComplete(Sender: TObject;
    const pDisp: IDispatch; var URL: OleVariant);
  procedure webViewBeforeNavigate2(Sender: TObject;
    const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
    Headers: OleVariant; var Cancel: WordBool);
  procedure FormDestroy(Sender: TObject);
  procedure FormClose(Sender: TObject; var Action: TCloseAction);
  procedure btnBackClick(Sender: TObject);
  procedure btnShowClick(Sender: TObject);
private
  FOwnedBy: TComponent;
  FRefNum:  Integer;
  FDialog:  Integer;
  FSetList: TStringList;
  FPageCache: TList;
  FCurrentIndex: Integer;
  FCurrentURL: string;
  FCurrentDoc: IHtmlDocument2;
  FDelayEvent: TOrderDelayEvent;
  FHistoryStack: TStringList;
  FHistoryIndex: Integer;
  function GetPageIndex(const URL: string): Integer;
  function MetaElementExists(const AName, AContent: string): Boolean;
  procedure AddPageToCache;
  procedure SaveState;
  procedure RestoreState;
  procedure SetDialog(Value: Integer);
public
  procedure SetEventDelay(AnEvent: TOrderDelayEvent);
  property Dialog:  Integer     read FDialog  write SetDialog;
  property OwnedBy: TComponent  read FOwnedBy write FOwnedBy;
  property RefNum:  Integer     read FRefNum  write FRefNum;
  property SetList: TStringList read FSetList write FSetList;
end;

DFM Objects


frmOMHTML : TfrmOMHTML
 ├btnOK : TButton
 ├btnCancel : TButton
 ├btnBack : TButton
 ├pnlWeb : TPanel
 │ └webView : TWebBrowser
 ├btnShow : TButton
 └amgrMain : TVA508AccessibilityManager

Class Hierarchy


Class Fields

Name Type Scope Comments
btnBack TButton Public/Published -
btnCancel TButton Public/Published -
btnOK TButton Public/Published -
btnShow TButton Public/Published -
FCurrentDoc Simple (unknown) Private -
FCurrentIndex Integer Private -
FCurrentURL UnicodeString Private -
FDelayEvent Private -
FDialog Integer Private -
FHistoryIndex Integer Private -
FHistoryStack TStringList Private -
FOwnedBy TComponent Private -
FPageCache TList Private -
FRefNum Integer Private -
FSetList TStringList Private -
pnlWeb TPanel Public/Published -
webView Simple (unknown) Public/Published -

Properties

Name Type Scope Comments
Dialog Integer Public -
OwnedBy TComponent Public -
RefNum Integer Public -
SetList TStringList Public -

Methods

Name Declaration Scope Comments
AddPageToCache procedure AddPageToCache; Private -
btnBackClick procedure btnBackClick(Sender: TObject); Public/Published -
btnCancelClick procedure btnCancelClick(Sender: TObject); Public/Published -
btnOKClick procedure btnOKClick(Sender: TObject); Public/Published Button events
btnShowClick procedure btnShowClick(Sender: TObject); Public/Published -
FormClose procedure FormClose(Sender: TObject; var Action: TCloseAction); Public/Published -
FormCreate procedure FormCreate(Sender: TObject); Public/Published Form events (get the initial page loaded)
FormDestroy procedure FormDestroy(Sender: TObject); Public/Published -
GetPageIndex function GetPageIndex(const URL: string): Integer; Private -
MetaElementExists function MetaElementExists(const AName, AContent: string): Boolean; Private -
RestoreState procedure RestoreState; Private -
SaveState procedure SaveState; Private -
SetDialog procedure SetDialog(Value: Integer); Private -
SetEventDelay procedure SetEventDelay(AnEvent: TOrderDelayEvent); Public General procedures
webViewBeforeNavigate2 procedure webViewBeforeNavigate2(Sender: TObject; const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData, Headers: OleVariant; var Cancel: WordBool); Public/Published -
webViewDocumentComplete procedure webViewDocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant); Public/Published
WebBrowser events 

 This event happens after a navigation.  It is at this point that there is an instantiated
  instance of IHtmlDocument available.

Referenced By (4)

Module (line) Referrer Type
fOMHTML (59) frmOMHTML Read
uOrders (120) uOrderHTML Read
uOrders (846) - Read
uOrders (1392) - Read