Flexisoft

Klasse TFlexiHelp

Beschreibung
Hierarchie
Felder
Methoden
Eigenschaften

Unit

IBP_FlexiHelp

Deklaration

type TFlexiHelp = class(TMdiChildForm)

Beschreibung

Die wichtigste Prozedur ist LoadUrl.

Hierarchie

Übersicht

Felder

Public ToolPanel: TPanel;
Public btnHome: TPngSpeedButton;
Public btnBack: TPngSpeedButton;
Public btnRelaod: TPngSpeedButton;
Public btnSearch: TPngSpeedButton;
Public pnlTools: TPanel;
Public pnlError: TPanel;
Public cbLinks: TComboBox;
Public btnCopyLink2Clipboard: TPngSpeedButton;
Private FIsViewed: Boolean;
Private FPageError: Boolean;
Private FPageErrorUrl: string;
Private FWebView: TFrame_WebView;

Methoden

Public procedure ToolButton5Click(Sender: TObject);
Public procedure btnRelaodClick(Sender: TObject);
Public procedure btnBackClick(Sender: TObject);
Public procedure btnHomeClick(Sender: TObject);
Public procedure btnSearchClick(Sender: TObject);
Public procedure ToolPanelResize(Sender: TObject);
Public procedure pnlErrorClick(Sender: TObject);
Public procedure cbLinksChange(Sender: TObject);
Public procedure btnCopyLink2ClipboardClick(Sender: TObject);
Private function GetTrimmedUrl: string;
Private function GetBaseUrl: string;
Private function GetTitle: string;
Private procedure DoReloadView;
Private procedure DoOnDocumentTitleChanged(aSender: TObject);
Private procedure DoSendMsg;
Private procedure DoShowMsgPanel(aMsg: string);
Private procedure DoHideError;
Private procedure DoResizePanel(aPanel: TPanel);
Protected function GetLink(aPosition: Boolean = true; aFilter: Boolean = false): string; override;
Protected procedure SetLink(aLink: string); override;
Protected function GetShareName: string; override;
Protected function CanPosition: Boolean; override;
Protected function CanFilter: Boolean; override;
Protected function GetFlexiHelpUrl: string; override;
Public constructor Create(aOwner: TComponent); override;
Public procedure LoadUrl(aUrl: string; aClearCache: Boolean = false);

Beschreibung

Felder

Public ToolPanel: TPanel;
 
Public btnHome: TPngSpeedButton;
 
Public btnBack: TPngSpeedButton;
 
Public btnRelaod: TPngSpeedButton;
 
Public btnSearch: TPngSpeedButton;
 
Public pnlTools: TPanel;
 
Public pnlError: TPanel;
 
Public cbLinks: TComboBox;
 
Public btnCopyLink2Clipboard: TPngSpeedButton;
 
Private FIsViewed: Boolean;
 
Private FPageError: Boolean;
 
Private FPageErrorUrl: string;
 
Private FWebView: TFrame_WebView;
 

Methoden

Public procedure ToolButton5Click(Sender: TObject);
 
Public procedure btnRelaodClick(Sender: TObject);
 
Public procedure btnBackClick(Sender: TObject);
 
Public procedure btnHomeClick(Sender: TObject);
 
Public procedure btnSearchClick(Sender: TObject);
 
Public procedure ToolPanelResize(Sender: TObject);
 
Public procedure pnlErrorClick(Sender: TObject);
 
Public procedure cbLinksChange(Sender: TObject);
 
Public procedure btnCopyLink2ClipboardClick(Sender: TObject);
 
Private function GetTrimmedUrl: string;

Hier wir aus der aktuellen URL die Base-URL extrahiert, damit der Link auch funktioniert, wenn der Dok-Webservice umzieht. Außerdem muss der Slash / ersetzt werden, da er im FlexiSoft-Link die Sektionen teilt.

Private function GetBaseUrl: string;

Die BaseUrl ist in der Flexisoft.cfg hinterlegt.

Private function GetTitle: string;

Formatiert den DocumentTitle des Webviewers, u.a. für "Home"

Private procedure DoReloadView;

Löscht den Cache und lädt die Seite erneut.

Private procedure DoOnDocumentTitleChanged(aSender: TObject);

Reagiert auch Seitenwechsel

Private procedure DoSendMsg;

Sendet einen Linkfehler via Telegram

Private procedure DoShowMsgPanel(aMsg: string);

Blendet eine Meldung non-blocking als Top-Panel ein

Private procedure DoHideError;

Blendet das Meldungs-Panel aus

Private procedure DoResizePanel(aPanel: TPanel);

Zentriert ein Panel

Protected function GetLink(aPosition: Boolean = true; aFilter: Boolean = false): string; override;

IFormShareSheet Funktion, die einen FS-Link erzeugt wie "/Url=content/demo"

Protected procedure SetLink(aLink: string); override;

Aus dem FS-Link wird die Sektion URL extrahiert, der Slash eingefügt und die aktuelle Base-Url vorangestellt.

Protected function GetShareName: string; override;

IFormShareSheet Funktion, die einen Titel erzeugt wie "[FlexiHelp] Titel der Url"

Protected function CanPosition: Boolean; override;

IFormShareSheet Funktion, die in AddLink die Position-Option deaktiviert.

Protected function CanFilter: Boolean; override;

IFormShareSheet Funktion, die in AddLink die Filter-Option deaktiviert.

Protected function GetFlexiHelpUrl: string; override;

IFlexiHelp

Public constructor Create(aOwner: TComponent); override;
 
Public procedure LoadUrl(aUrl: string; aClearCache: Boolean = false);

Hier wird ein WebView2-BaseFrame erzeugt und eingefügt und die Url geladen.

Erstellt mit PasDoc 0.16.0.