mirror of
https://github.com/keymanapp/keyman.git
synced 2026-08-13 04:09:25 +00:00
82 lines
2.2 KiB
ObjectPascal
82 lines
2.2 KiB
ObjectPascal
(*
|
|
Name: Keyman.Developer.UI.Project.kvkProjectFileUI
|
|
Copyright: Copyright (C) 2003-2017 SIL International.
|
|
Documentation:
|
|
Description:
|
|
Create Date: 4 May 2015
|
|
|
|
Modified Date: 4 May 2015
|
|
Authors: mcdurdin
|
|
Related Files:
|
|
Dependencies:
|
|
|
|
Bugs:
|
|
Todo:
|
|
Notes:
|
|
History: 04 May 2015 - mcdurdin - I4694 - V9.0 - Split UI actions from non-UI actions in projects
|
|
*)
|
|
unit Keyman.Developer.UI.Project.kvkProjectFileUI;
|
|
|
|
interface
|
|
|
|
uses
|
|
System.SysUtils,
|
|
Vcl.Menus,
|
|
|
|
Keyman.Developer.System.Project.kvkProjectFile,
|
|
Keyman.Developer.System.Project.ProjectFile,
|
|
Keyman.Developer.UI.Project.ProjectFileUI,
|
|
Keyman.Developer.UI.Project.ProjectFilesUI,
|
|
Keyman.Developer.UI.Project.ProjectUIFileType,
|
|
Keyman.Developer.System.Project.ProjectFileType,
|
|
UfrmMessages,
|
|
UfrmEditor;
|
|
|
|
type
|
|
TkvkProjectFileUI = class(TOpenableProjectFileUI)
|
|
private
|
|
FDebug: Boolean;
|
|
function GetProjectFile: TkvkProjectFile;
|
|
public
|
|
function DoAction(action: TProjectFileAction; FSilent: Boolean): Boolean; override;
|
|
property Debug: Boolean read FDebug write FDebug;
|
|
property ProjectFile: TkvkProjectFile read GetProjectFile;
|
|
end;
|
|
|
|
type
|
|
TkvksProjectFileUI = class(TOpenableProjectFileUI)
|
|
private
|
|
FDebug: Boolean;
|
|
function GetProjectFile: TkvksProjectFile;
|
|
public
|
|
function DoAction(action: TProjectFileAction; FSilent: Boolean): Boolean; override;
|
|
property Debug: Boolean read FDebug write FDebug;
|
|
property ProjectFile: TkvksProjectFile read GetProjectFile;
|
|
end;
|
|
|
|
implementation
|
|
|
|
function TkvkProjectFileUI.DoAction(action: TProjectFileAction; FSilent: Boolean): Boolean;
|
|
begin
|
|
Result := False;
|
|
end;
|
|
|
|
function TkvkProjectFileUI.GetProjectFile: TkvkProjectFile;
|
|
begin
|
|
Result := FOwner as TkvkProjectFile;
|
|
end;
|
|
|
|
function TkvksProjectFileUI.DoAction(action: TProjectFileAction; FSilent: Boolean): Boolean;
|
|
begin
|
|
Result := False;
|
|
end;
|
|
|
|
function TkvksProjectFileUI.GetProjectFile: TkvksProjectFile;
|
|
begin
|
|
Result := FOwner as TkvksProjectFile;
|
|
end;
|
|
|
|
initialization
|
|
RegisterProjectFileUIType(TkvkProjectFile, TkvkProjectFileUI);
|
|
RegisterProjectFileUIType(TkvksProjectFile, TkvksProjectFileUI);
|
|
end.
|