mirror of
https://github.com/keymanapp/keyman.git
synced 2026-09-16 04:37:41 +00:00
44 lines
1,023 B
ObjectPascal
44 lines
1,023 B
ObjectPascal
unit Keyman.Developer.System.Project.wordlistTsvProjectFile;
|
|
|
|
interface
|
|
|
|
uses
|
|
System.SysUtils,
|
|
Xml.XMLIntf,
|
|
|
|
Keyman.Developer.System.Project.ProjectFile,
|
|
Keyman.Developer.System.Project.ProjectFiles,
|
|
Keyman.Developer.System.Project.ProjectFileType,
|
|
UKeymanTargets;
|
|
|
|
type
|
|
TwordlistTsvProjectFile = class;
|
|
|
|
TwordlistTsvProjectFile = class(TOpenableProjectFile)
|
|
private
|
|
protected
|
|
function GetRelativeOrder: Integer; override;
|
|
procedure GetFileParameters; override;
|
|
public
|
|
end;
|
|
|
|
implementation
|
|
|
|
{-------------------------------------------------------------------------------
|
|
- TwordlistTsvProjectFile -
|
|
-------------------------------------------------------------------------------}
|
|
|
|
function TwordlistTsvProjectFile.GetRelativeOrder: Integer;
|
|
begin
|
|
Result := 21;
|
|
end;
|
|
|
|
procedure TwordlistTsvProjectFile.GetFileParameters;
|
|
begin
|
|
// TODO: ?
|
|
end;
|
|
|
|
initialization
|
|
RegisterProjectFileType('.tsv', TwordlistTsvProjectFile);
|
|
end.
|
|
|