You've already forked lazarus-ccr
cmdlinecfg: the initial files commit
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2802 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
217
components/cmdlinecfg/trunk/cmdlinelclutils.pas
Normal file
217
components/cmdlinecfg/trunk/cmdlinelclutils.pas
Normal file
@ -0,0 +1,217 @@
|
||||
unit cmdlinelclutils;
|
||||
|
||||
interface
|
||||
|
||||
uses Controls, SysUtils, StdCtrls, Classes, cmdlinecfg;
|
||||
|
||||
var
|
||||
ADirsDialogs : function (var path: string): Boolean = nil;
|
||||
AFilesDialogs : function (var path: string): Boolean = nil;
|
||||
|
||||
procedure CreateComboBoxWithLabel(opt: TCmdLineCfgOption; AOwner: TWinControl; var combo: TComboBox; var lbl: TLabel);
|
||||
procedure CreateComboBox(opt: TCmdLineCfgOption; AOwner: TWinControl; var combo: TComboBox);
|
||||
procedure CreateCheckBox(opt: TCmdLineCfgOption; AOwner: TWinControl; SetCaptionToDisplay: Boolean; var chk: TCheckBox);
|
||||
procedure AnchorControls(left, right: TControl; Spacing: Integer = 10);
|
||||
procedure ControlSpanToRight(ctrl: TControl; XOffset: Integer = 10);
|
||||
function SerializeComboBox(opt: TCmdLineCfgOption; combo: TComboBox): string;
|
||||
function SerializeCheckBox(opt: TCmdLineCfgOption; chk: TCheckBox): string;
|
||||
function SerializeEdit(opt: TCmdLineCfgOption; edt: TEdit): string;
|
||||
procedure SetValueComboBox(opt: TCmdLineCfgOption; const vl: string; combo: TComboBox);
|
||||
procedure SetValueCheckBox(opt: TCmdLineCfgOption; const vl: string; chk: TCheckBox);
|
||||
procedure SetValueEdit(opt: TCmdLineCfgOption; const vl: string; edt: TEdit);
|
||||
procedure SetMultiValueEdit(opt: TCmdLineCfgOption; const vl: string; const Delim: string; edt: TEdit);
|
||||
|
||||
procedure ResetValue(ctrl: TControl);
|
||||
function SerializeAControl(opt: TCmdLineCfgOption; ctrl: TControl; var v: string): Boolean;
|
||||
|
||||
type
|
||||
TEditPathsOpt = (epoSingleFileOnly, epoSingleDirOnly, epoFilesOnly, epoDirsOnly);
|
||||
|
||||
function ExecuteEditPathsDialogs(var path: string; DialogOption: TEditPathsOpt ): Boolean;
|
||||
procedure CreatePathsEdit(opt: TCmdLineCfgOption; AOwner: TWinControl;
|
||||
var lbl: TLabel; var edit: TEdit; var lookupbtn: TButton);
|
||||
procedure CreateEdit(opt: TCmdLineCfgOption; AOwner: TWinControl; var lbl: TLabel; var edit: TEdit);
|
||||
|
||||
function OptKeyLabel(opt: TCmdLineCfgOption): string;
|
||||
|
||||
implementation
|
||||
|
||||
function OptKeyLabel(opt: TCmdLineCfgOption): string;
|
||||
begin
|
||||
if not Assigned(opt) then Result:=''
|
||||
else Result:='('+StringReplace(opt.key, '%value%','', [rfIgnoreCase, rfReplaceAll])+')';
|
||||
end;
|
||||
|
||||
procedure AnchorControls(left, right: TControl; Spacing: Integer);
|
||||
begin
|
||||
right.AnchorSideLeft.Control:=left;
|
||||
right.AnchorSideLeft.Side:=asrRight;
|
||||
right.BorderSpacing.Left:=Spacing;
|
||||
end;
|
||||
|
||||
function SerializeEdit(opt: TCmdLineCfgOption; edt: TEdit): string;
|
||||
begin
|
||||
Result:=edt.Text;
|
||||
end;
|
||||
|
||||
procedure SetValueComboBox(opt: TCmdLineCfgOption; const vl: string; combo: TComboBox);
|
||||
var
|
||||
j : Integer;
|
||||
begin
|
||||
if vl='' then begin
|
||||
combo.ItemIndex:=-1;
|
||||
Exit;
|
||||
end;
|
||||
for j:=0 to opt.ValCount-1 do begin
|
||||
if (opt.Values[j].CmdLineValue =vl) then begin
|
||||
if j<=combo.Items.Count then begin
|
||||
combo.ItemIndex:=j;
|
||||
end;
|
||||
Exit;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SetValueCheckBox(opt: TCmdLineCfgOption; const vl: string; chk: TCheckBox);
|
||||
begin
|
||||
chk.Checked:=vl<>'';
|
||||
end;
|
||||
|
||||
procedure SetValueEdit(opt: TCmdLineCfgOption; const vl: string; edt: TEdit);
|
||||
begin
|
||||
edt.Text:=vl;
|
||||
end;
|
||||
|
||||
procedure SetMultiValueEdit(opt: TCmdLineCfgOption; const vl: string;
|
||||
const Delim: string; edt: TEdit);
|
||||
begin
|
||||
if vl<>'' then begin
|
||||
if edt.Text<>'' then edt.Text:=edt.Text+Delim+vl
|
||||
else edt.Text:=vl;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure ControlSpanToRight(ctrl: TControl; XOffset: Integer = 10);
|
||||
begin
|
||||
if not Assigned(ctrl) or not Assigned(ctrl.Parent) then Exit;
|
||||
ctrl.Anchors:=ctrl.Anchors-[akRight];
|
||||
ctrl.Width:=ctrl.Parent.ClientWidth-ctrl.Left-XOffset;
|
||||
ctrl.Anchors:=ctrl.Anchors+[akRight];
|
||||
end;
|
||||
|
||||
function ExecuteEditPathsDialogs(var path: string; DialogOption: TEditPathsOpt
|
||||
): Boolean;
|
||||
begin
|
||||
case DialogOption of
|
||||
epoSingleFileOnly: begin
|
||||
|
||||
end;
|
||||
epoSingleDirOnly: begin
|
||||
|
||||
end;
|
||||
epoDirsOnly: if not Assigned(ADirsDialogs) then Result:=false
|
||||
else Result:=ADirsDialogs(path);
|
||||
epoFilesOnly: if not Assigned(AFilesDialogs) then Result:=false;
|
||||
else Result:=AFilesDialogs(path);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure CreatePathsEdit(opt: TCmdLineCfgOption; AOwner: TWinControl;
|
||||
var lbl: TLabel; var edit: TEdit; var lookupbtn: TButton);
|
||||
begin
|
||||
lbl:=TLabel.Create(AOwner);
|
||||
lbl.Caption:=opt.Display+' '+OptKeyLabel(opt);
|
||||
edit:=TEdit.Create(AOwner);
|
||||
lookupbtn:=TButton.Create(AOwner);
|
||||
lookupbtn.Caption:='...';
|
||||
lookupbtn.AutoSize:=true;
|
||||
AnchorControls(lbl, edit);
|
||||
AnchorControls(edit, lookupbtn);
|
||||
end;
|
||||
|
||||
procedure CreateEdit(opt: TCmdLineCfgOption; AOwner: TWinControl; var lbl: TLabel; var edit: TEdit);
|
||||
begin
|
||||
lbl:=TLabel.Create(AOwner);
|
||||
lbl.Caption:=opt.Display+' '+OptKeyLabel(opt);
|
||||
edit:=TEdit.Create(AOwner);
|
||||
edit.Parent:=AOwner;
|
||||
lbl.Parent:=AOwner;
|
||||
end;
|
||||
|
||||
procedure CreateComboBoxWithLabel(opt: TCmdLineCfgOption; AOwner: TWinControl;
|
||||
var combo: TComboBox; var lbl: TLabel);
|
||||
begin
|
||||
lbl:=TLabel.Create(AOwner);
|
||||
lbl.Caption:=opt.Display + ' '+OptKeyLabel(opt);
|
||||
lbl.Parent:=AOwner;
|
||||
CreateComboBox(opt, AOwner, combo);
|
||||
end;
|
||||
|
||||
procedure CreateComboBox(opt: TCmdLineCfgOption; AOwner: TWinControl; var combo: TComboBox);
|
||||
var
|
||||
dd : TComboBox;
|
||||
j : Integer;
|
||||
nm : string;
|
||||
begin
|
||||
dd:=TComboBox.Create(AOwner);
|
||||
for j:=0 to opt.ValCount-1 do begin
|
||||
nm:=opt.Values[j].DisplayName;
|
||||
if nm='' then nm:=opt.Values[j].CmdLineValue;
|
||||
dd.Items.Add(nm);
|
||||
end;
|
||||
dd.Parent:=AOwner;
|
||||
combo:=dd;
|
||||
end;
|
||||
|
||||
function SerializeComboBox(opt: TCmdLineCfgOption; combo: TComboBox): string;
|
||||
var
|
||||
vl : string;
|
||||
j : Integer;
|
||||
begin
|
||||
vl:=combo.Text;
|
||||
Result:='';
|
||||
if vl='' then Exit;
|
||||
for j:=0 to opt.ValCount-1 do
|
||||
if (opt.Values[j].DisplayName='') then begin
|
||||
if (opt.Values[j].CmdLineValue =vl) then begin
|
||||
Result:=vl;
|
||||
Exit;
|
||||
end;
|
||||
end else if (opt.Values[j].DisplayName=vl) then begin
|
||||
Result:=opt.Values[j].CmdLineValue;
|
||||
Exit;
|
||||
end;
|
||||
Result:=vl;
|
||||
end;
|
||||
|
||||
procedure CreateCheckBox(opt: TCmdLineCfgOption; AOwner: TWinControl;
|
||||
SetCaptionToDisplay: Boolean; var chk: TCheckBox);
|
||||
begin
|
||||
chk := TCheckBox.Create(AOwner);
|
||||
if SetCaptionToDisplay then chk.Caption:=opt.Display+' '+ OptKeyLabel(opt);
|
||||
chk.Parent:=AOwner;
|
||||
end;
|
||||
|
||||
function SerializeCheckBox(opt: TCmdLineCfgOption; chk: TCheckBox): string;
|
||||
begin
|
||||
if chk.Checked then Result:='1' else Result:='';
|
||||
end;
|
||||
|
||||
procedure ResetValue(ctrl: TControl);
|
||||
begin
|
||||
if ctrl is TEdit then TEdit(ctrl).Text:=''
|
||||
else if ctrl is TCheckBox then TCheckBox(ctrl).Checked:=false
|
||||
else if ctrl is TComboBox then TComboBox(ctrl).ItemIndex:=-1;
|
||||
end;
|
||||
|
||||
function SerializeAControl(opt: TCmdLineCfgOption; ctrl: TControl; var v: string): Boolean;
|
||||
begin
|
||||
v:='';
|
||||
Result:=true;
|
||||
if ctrl is TComboBox then v:=SerializeComboBox(opt, TComboBox(ctrl))
|
||||
else if ctrl is TCheckBox then v:=SerializeCheckBox(opt, TCheckBox(ctrl))
|
||||
else if ctrl is TEdit then v:=SerializeEdit(opt, TEdit(ctrl))
|
||||
else Result:=false;
|
||||
end;
|
||||
|
||||
end.
|
||||
Reference in New Issue
Block a user