mirror of
https://github.com/keymanapp/keyman.git
synced 2026-08-05 08:25:32 +00:00
91 lines
2.3 KiB
ObjectPascal
91 lines
2.3 KiB
ObjectPascal
(*
|
|
Name: UfrmVisualKeyboardExportHTMLParams
|
|
Copyright: Copyright (C) SIL International.
|
|
Documentation:
|
|
Description:
|
|
Create Date: 23 Aug 2006
|
|
|
|
Modified Date: 3 Aug 2015
|
|
Authors: mcdurdin
|
|
Related Files:
|
|
Dependencies:
|
|
|
|
Bugs:
|
|
Todo:
|
|
Notes:
|
|
History: 23 Aug 2006 - mcdurdin - Initial refactor for new visual keyboard
|
|
29 Sep 2008 - mcdurdin - I1658 - Reworked for graphics options
|
|
18 May 2012 - mcdurdin - I3306 - V9.0 - Remove TntControls + Win9x support
|
|
03 Aug 2015 - mcdurdin - I4822 - Form sizes are incorrect with new theming
|
|
*)
|
|
unit UfrmVisualKeyboardExportHTMLParams; // I3306
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
|
|
StdCtrls, UfrmTike;
|
|
|
|
type
|
|
TfrmVisualKeyboardExportHTMLParams = class(TTIKEForm) // I4822
|
|
cmdOK: TButton;
|
|
cmdCancel: TButton;
|
|
gbOutputType: TGroupBox;
|
|
Label1: TLabel;
|
|
lblFileName: TLabel;
|
|
Label5: TLabel;
|
|
rbFolders: TRadioButton;
|
|
rbNoFolders: TRadioButton;
|
|
chkGraphical: TCheckBox;
|
|
Label2: TLabel;
|
|
procedure cmdOKClick(Sender: TObject);
|
|
private
|
|
procedure SetFileName(const Value: string);
|
|
function GetFolders: Boolean;
|
|
function GetGraphical: Boolean;
|
|
protected
|
|
function GetHelpTopic: string; override;
|
|
public
|
|
property FileName: string write SetFileName;
|
|
property Folders: Boolean read GetFolders;
|
|
property Graphical: Boolean read GetGraphical;
|
|
end;
|
|
|
|
implementation
|
|
|
|
{$R *.DFM}
|
|
|
|
uses
|
|
Keyman.Developer.System.HelpTopics,
|
|
|
|
messageidentifiers;
|
|
|
|
{ TfrmVisualKeyboardExportHTMLParams }
|
|
|
|
procedure TfrmVisualKeyboardExportHTMLParams.SetFileName(const Value: string);
|
|
begin
|
|
lblFileName.Caption := ChangeFileExt(ExtractFileName(Value), '')+'_files';
|
|
end;
|
|
|
|
function TfrmVisualKeyboardExportHTMLParams.GetFolders: Boolean;
|
|
begin
|
|
Result := rbFolders.Checked;
|
|
end;
|
|
|
|
function TfrmVisualKeyboardExportHTMLParams.GetGraphical: Boolean;
|
|
begin
|
|
Result := chkGraphical.Checked;
|
|
end;
|
|
|
|
function TfrmVisualKeyboardExportHTMLParams.GetHelpTopic: string;
|
|
begin
|
|
Result := SHelpTopic_Context_VisualKeyboardExportHtmlParams;
|
|
end;
|
|
|
|
procedure TfrmVisualKeyboardExportHTMLParams.cmdOKClick(Sender: TObject);
|
|
begin
|
|
ModalResult := mrOk;
|
|
end;
|
|
|
|
end.
|
|
|