mirror of
https://github.com/keymanapp/keyman.git
synced 2026-08-16 05:39:24 +00:00
8460b8ff6c
Relates to #3394. Fixes all remaining hardcoded URLs in the Project / Welcome and the About window in Keyman Developer.
45 lines
1.1 KiB
ObjectPascal
45 lines
1.1 KiB
ObjectPascal
unit Keyman.Developer.System.Project.UrlRenderer;
|
|
|
|
interface
|
|
|
|
uses
|
|
Winapi.msxml;
|
|
|
|
type
|
|
TProjectUrlRenderer = class
|
|
class procedure AddUrls(root: IXMLDomNode);
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses
|
|
Upload_Settings;
|
|
|
|
{ TProjectUrlRenderer }
|
|
|
|
class procedure TProjectUrlRenderer.AddUrls(root: IXMLDomNode);
|
|
var
|
|
node: IXMLDomNode;
|
|
|
|
procedure AddUrl(const id, href: string);
|
|
var
|
|
urlNode: IXMLDOMElement;
|
|
begin
|
|
urlNode := root.ownerDocument.createElement('Url');
|
|
urlNode.setAttribute('id', id);
|
|
urlNode.setAttribute('href', MakeKeymanURL(href));
|
|
node.appendChild(urlNode);
|
|
end;
|
|
begin
|
|
node := root.ownerDocument.createElement('DeveloperUrls');
|
|
AddUrl('help-keyboards', URLPath_KeymanDeveloper_HelpKeyboards);
|
|
AddUrl('help-packages', URLPath_KeymanDeveloper_HelpPackages);
|
|
AddUrl('help-mobile', URLPath_KeymanDeveloper_HelpMobile);
|
|
AddUrl('keymanweb', URLPath_KeymanDeveloper_KeymanWeb);
|
|
AddUrl('keyman-engine-home', URLPath_KeymanDeveloper_KeymanEngineHome);
|
|
AddUrl('home', URLPath_KeymanDeveloperHome);
|
|
AddUrl('home-presentation', URLPath_KeymanDeveloperHome_Presentation);
|
|
root.appendChild(node);
|
|
end;
|
|
|
|
end.
|