forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

process input widget, get rid of the centralized option system

This commit is contained in:
Basile Burg 2015-05-11 05:50:35 +02:00
parent b00fd349ab
commit 218287f7a0
1 changed files with 12 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
src/ce_procinput.pas
View File

@ -22,9 +22,6 @@ type
fProc: TProcess; fProc: TProcess;
procedure sendInput; procedure sendInput;
// //
procedure optset_InputMru(aReader: TReader);
procedure optget_InputMru(aWriter: TWriter);
//
function singleServiceName: string; function singleServiceName: string;
procedure addProcess(aProcess: TProcess); procedure addProcess(aProcess: TProcess);
procedure removeProcess(aProcess: TProcess); procedure removeProcess(aProcess: TProcess);
@ -32,8 +29,6 @@ type
public public
constructor create(aOwner: TComponent); override; constructor create(aOwner: TComponent); override;
destructor destroy; override; destructor destroy; override;
//
procedure sesoptDeclareProperties(aFiler: TFiler); override;
end; end;
implementation implementation
@ -42,40 +37,34 @@ implementation
uses uses
ce_symstring, LCLType; ce_symstring, LCLType;
const
OptsFname = 'procinput.txt';
{$REGION Standard Comp/Obj -----------------------------------------------------} {$REGION Standard Comp/Obj -----------------------------------------------------}
constructor TCEProcInputWidget.create(aOwner: TComponent); constructor TCEProcInputWidget.create(aOwner: TComponent);
var
fname: string;
begin begin
inherited; inherited;
fMru := TCEMRUList.Create; fMru := TCEMRUList.Create;
fMru.maxCount := 25; fMru.maxCount := 25;
EntitiesConnector.addSingleService(self); EntitiesConnector.addSingleService(self);
fname := getCoeditDocPath + OptsFname;
if fileExists(OptsFname) then
fMru.LoadFromFile(fname);
if fMru.Count = 0 then
fMru.Insert(0, '(your input here)');
end; end;
destructor TCEProcInputWidget.destroy; destructor TCEProcInputWidget.destroy;
begin begin
// note that mru list max count is not saved.
fMru.SaveToFile(getCoeditDocPath + OptsFname);
fMru.Free; fMru.Free;
inherited; inherited;
end; end;
{$ENDREGION --------------------------------------------------------------------} {$ENDREGION --------------------------------------------------------------------}
{$REGION ICESessionOptionsObserver ---------------------------------------------}
procedure TCEProcInputWidget.sesoptDeclareProperties(aFiler: TFiler);
begin
inherited;
aFiler.DefineProperty(Name + '_inputMru', @optset_InputMru, @optget_InputMru, true);
end;
procedure TCEProcInputWidget.optset_InputMru(aReader: TReader);
begin
fMru.DelimitedText := aReader.ReadString;
end;
procedure TCEProcInputWidget.optget_InputMru(aWriter: TWriter);
begin
aWriter.WriteString(fMru.DelimitedText);
end;
{$ENDREGION --------------------------------------------------------------------}
{$REGION ICEProcInputHandler ---------------------------------------------------} {$REGION ICEProcInputHandler ---------------------------------------------------}
function TCEProcInputWidget.singleServiceName: string; function TCEProcInputWidget.singleServiceName: string;
begin begin