You've already forked lazarus-ccr
33dadcd154
* minimized TCmdLineLayoutInfo class public section; * updated the TCmdLineScrollBoxControl loader to use %%other switch; using hash list to check of used/unused controls; * updated readme.txt description for UI layout controls; * updated IDE package to make the dialog look close to the existing compiler options; * updated testguibuild to be able to load a certain section only; * added smaller sample files for testguibuild, modified conf.coptui to have %%other switch, where all "non-default" compiler options would go; git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2806 8e941d3f-bd1b-0410-a28a-d453659cc2b4
124 lines
2.6 KiB
ObjectPascal
124 lines
2.6 KiB
ObjectPascal
unit mainform;
|
|
|
|
{$mode delphi}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs
|
|
,StdCtrls, ExtCtrls
|
|
,cmdlinecfg , cmdlinelclctrlsbox, cmdlinecfgjson //, patheditor
|
|
,cmdlinecfgui, cmdlinecfguijson
|
|
,cmdlinecfgparser;
|
|
|
|
type
|
|
|
|
{ TForm1 }
|
|
|
|
TForm1 = class(TForm)
|
|
ScrollBox1: TScrollBox;
|
|
toOpt: TButton;
|
|
Memo1: TMemo;
|
|
Panel1: TPanel;
|
|
Splitter1: TSplitter;
|
|
procedure FormCreate(Sender: TObject);
|
|
procedure FormDestroy(Sender: TObject);
|
|
procedure toOptClick(Sender: TObject);
|
|
private
|
|
{ private declarations }
|
|
ctrl : TCmdLineScrollBoxControl;
|
|
cfg : TCmdLineCfg;
|
|
lt : TCmdLineLayoutInfo;
|
|
sct : string; // desired section
|
|
public
|
|
{ public declarations }
|
|
procedure OnValueChanged(Sender: TObject);
|
|
end;
|
|
|
|
var
|
|
Form1: TForm1;
|
|
|
|
implementation
|
|
|
|
{$R *.lfm}
|
|
|
|
{ TForm1 }
|
|
|
|
procedure TForm1.FormCreate(Sender: TObject);
|
|
begin
|
|
{cmdlinelclutils.ADirsDialogs:=DummyEditPaths;
|
|
cmdlinelclutils.AFilesDialogs:=DummyEditPaths;
|
|
}
|
|
|
|
{fScrollBox := TScrollBox.Create(AParent);
|
|
fScrollBox.Align:=alClient;
|
|
fScrollBox.Parent:=AParent;
|
|
fScrollBox.VertScrollBar.Tracking:=true;}
|
|
|
|
Memo1.Clear;
|
|
if ParamCount=0 then begin
|
|
Memo1.Lines.Add('Please pass the following information through the command-line: ');
|
|
Memo1.Lines.Add(' 1. json file for command-lines');
|
|
Memo1.Lines.Add(' (optional) 2. layout information json file ');
|
|
Memo1.Lines.Add(' (optional) 3. name of the section that you would need to render');
|
|
end;
|
|
|
|
ctrl:=TCmdLineScrollBoxControl.Create(ScrollBox1);
|
|
if ParamCount>0 then begin
|
|
cfg:=TCmdLineCfg.Create;
|
|
CmdLineCfgJSONReadFile(ParamStr(1), cfg);
|
|
if ParamCOunt>1 then begin
|
|
lt:=TCmdLineLayoutInfo.Create;
|
|
CmdLineUIJSONReadFile(ParamStr(2), lt);
|
|
end;
|
|
if ParamCount>2 then
|
|
sct:=ParamStr(3);
|
|
Self.Caption:=Paramstr(1);
|
|
if sct<>'' then Self.Caption:=Self.Caption+'.'+sct;
|
|
ctrl.Init(cfg, lt, sct);
|
|
|
|
ctrl.OnValueChanged:=OnValueChanged;
|
|
end;
|
|
end;
|
|
|
|
procedure TForm1.FormDestroy(Sender: TObject);
|
|
begin
|
|
ctrl.Free;
|
|
lt.Free;
|
|
cfg.Free;
|
|
end;
|
|
|
|
procedure TForm1.toOptClick(Sender: TObject);
|
|
var
|
|
vl : TList;
|
|
i : Integer;
|
|
begin
|
|
vl := TList.Create;
|
|
try
|
|
CmdLineMatchArgsToOpts(cfg, Memo1.Text, vl);
|
|
ctrl.SetValues(vl);
|
|
for i:=0 to vl.Count-1 do TObject(vl[i]).Free;
|
|
finally
|
|
vl.Free;
|
|
end;
|
|
end;
|
|
|
|
procedure TForm1.OnValueChanged(Sender: TObject);
|
|
var
|
|
l : TList;
|
|
i : integer;
|
|
begin
|
|
l :=TList.create;
|
|
try
|
|
ctrl.Serialize(l);
|
|
Memo1.Text:=CmdLineMakeOptions(l);
|
|
for i:=0 to l.Count-1 do
|
|
TObject(l[i]).Free;
|
|
finally
|
|
l.Free;
|
|
end;
|
|
end;
|
|
|
|
end.
|
|
|