erabo/spiegel-keyman
1
0
Fork 0
mirror of https://github.com/keymanapp/keyman.git synced 2026-08-11 03:15:33 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 20

chore(developer): remove obsolete InitClasses

Browse source
This commit is contained in:
Marc Durdin 2021-07-01 07:39:39 +10:00
parent 3bccc90f15
commit 449083fc0a
2 changed files with 7 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
windows/src/developer/TIKE/Tike.dpr
View file

@ -317,7 +317,6 @@ begin
Application.Title := 'Keyman Developer';
//TBX.TBXSetTheme('OfficeXP2');
if TikeActive then Exit;
InitClasses;
Application.CreateForm(TmodWebHttpServer, modWebHttpServer);
Application.CreateForm(TfrmKeymanDeveloper, frmKeymanDeveloper);
Application.Run;

24
windows/src/developer/TIKE/main/UfrmMain.pas
View file

@ -1,18 +1,18 @@
(*
Name: UfrmMain
Copyright: Copyright (C) SIL International.
Documentation:
Description:
Documentation:
Description:
Create Date: 20 Jun 2006
Modified Date: 24 Aug 2015
Authors: mcdurdin
Related Files:
Dependencies:
Related Files:
Dependencies:
Bugs:
Todo:
Notes:
Bugs:
Todo:
Notes:
History: 20 Jun 2006 - mcdurdin - Initial version
01 Aug 2006 - mcdurdin - Rework ui using sp-TBX
02 Aug 2006 - mcdurdin - Remove old menu
@ -410,15 +410,12 @@ type
var
frmKeymanDeveloper: TfrmKeymanDeveloper;
procedure InitClasses;
implementation
uses
System.Math,
Winapi.WinInet,
Winapi.ShlObj,
Winapi.Urlmon,
Winapi.UxTheme,
System.Win.ComObj,
Vcl.Themes,
@ -1544,12 +1541,5 @@ begin
ProjectForm.SetGlobalProject;
end;
procedure InitClasses; // I3350
const
CUserAgent: AnsiString = 'Mozilla/5.0 (compatible; MSIE 11.0; Windows NT 6.1; WOW64; Trident/5.0; TIKE/'+SKeymanVersion+')'; // I4045
begin
OleCheck(UrlMkSetSessionOption(URLMON_OPTION_USERAGENT, PAnsiChar(CUserAgent), Length(CUserAgent), 0)); // I4045
end;
end.