paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 10:37:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

Project Templates: Disable OK button while necessary information is not given.

Browse Source
This commit is contained in:
Juha 2021-12-18 20:51:42 +02:00
parent c55ec94d74
commit 734cf1a136
2 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/projecttemplates/frmtemplatevariables.lfm
View File

@ -9,7 +9,7 @@ object ProjectVariablesForm: TProjectVariablesForm
OnCreate = FormCreate
OnShow = ProjectVariablesFormShow
Position = poScreenCenter
LCLVersion = '2.1.0.0'
LCLVersion = '2.3.0.0'
object ProjNameLabel: TLabel
AnchorSideTop.Control = EProjectName
AnchorSideTop.Side = asrCenter
@ -20,7 +20,6 @@ object ProjectVariablesForm: TProjectVariablesForm
Alignment = taRightJustify
Caption = '&Name for new project:'
Layout = tlCenter
ParentColor = False
end
object DEDestDirLabel: TLabel
AnchorSideTop.Control = DEDestDir
@ -32,7 +31,6 @@ object ProjectVariablesForm: TProjectVariablesForm
Alignment = taRightJustify
Caption = 'Create in &directory:'
Layout = tlCenter
ParentColor = False
end
object PDescription: TPanel
AnchorSideLeft.Control = Owner
@ -89,6 +87,7 @@ object ProjectVariablesForm: TProjectVariablesForm
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
BorderSpacing.Right = 6
OnChange = EssentialDataChange
TabOrder = 1
end
object DEDestDir: TDirectoryEdit
@ -104,6 +103,7 @@ object ProjectVariablesForm: TProjectVariablesForm
Anchors = [akTop, akLeft, akRight]
MaxLength = 0
TabOrder = 2
OnChange = EssentialDataChange
end
object ButtonPanel1: TButtonPanel
Left = 6

9
components/projecttemplates/frmtemplatevariables.pas
View File

@ -24,6 +24,7 @@ type
PDescription: TPanel;
SGVariables: TStringGrid;
procedure BOKClick(Sender: TObject);
procedure EssentialDataChange(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure ProjectVariablesFormShow(Sender: TObject);
procedure SGVariablesSelectEditor(Sender: TObject; aCol, aRow: Integer;
@ -74,20 +75,24 @@ Var
begin
For I:=0 to FVariables.Count-1 do
begin
V:='';
N:='';
FVariables.GetNameValue(I,N,V);
V:=SGVariables.Cells[1,I+1];
FVariables[i]:=N+'='+V;
end;
end;
procedure TProjectVariablesForm.EssentialDataChange(Sender: TObject);
begin
ButtonPanel1.OKButton.Enabled:=(EProjectName.Text<>'') and (DEDestDir.Text<>'');
end;
procedure TProjectVariablesForm.FormCreate(Sender: TObject);
begin
Caption := SNewFromTemplate;
ProjNameLabel.Caption:= SNameforProject;
DEDestDirLabel.Caption:= SCreateinDir;
PDescription.Caption:= SThisProject;
EssentialDataChange(Nil);
end;
procedure TProjectVariablesForm.SetVariables(const AValue: TStrings);