opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-26 11:17:57 +08:00
Code Issues Packages Projects Releases Wiki Activity

Unify help calls in helpers.Help(), and pass sending control for "place" parameter in help url.

Browse Source
This commit is contained in:
Ansgar Becker
2014-10-16 08:02:06 +00:00
parent 2ee5aa43a5
commit a966ec7267
6 changed files with 49 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
source/helpers.pas
View File

@ -13,7 +13,7 @@ uses
Windows, ShlObj, ActiveX, VirtualTrees, SynRegExpr, Messages, Math,
Registry, DateUtils, Generics.Collections, StrUtils, AnsiStrings, TlHelp32, Types,
dbconnection, mysql_structures, SynMemo, Menus, WinInet, gnugettext, Themes,
Character, ImgList, System.UITypes;
Character, ImgList, System.UITypes, ActnList;
type
@ -322,6 +322,7 @@ type
function GetSystemImageList: TImageList;
function GetSystemImageIndex(Filename: String): Integer;
function GetExecutableBits: Byte;
procedure Help(Sender: TObject; Anchor: String);
var
@ -2657,6 +2658,21 @@ begin
end;
procedure Help(Sender: TObject; Anchor: String);
var
Place: String;
begin
// Go to online help page
if Sender is TAction then
Place := (Sender as TAction).ActionComponent.Name
else if Sender is TControl then
Place := (Sender as TControl).Name
else
Place := 'unhandled-'+Sender.ClassName;
if IsNotEmpty(Anchor) then
Anchor := '#'+Anchor;
ShellExec(APPDOMAIN+'help.php?place='+EncodeURLParam(Place)+Anchor);
end;