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: Give variables a default value when not typed by user.

Browse Source
This commit is contained in:
Juha 2021-12-19 00:49:27 +02:00
parent ce4661f5ec
commit 7e1fcc4033
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/projecttemplates/frmtemplatevariables.pas
View File

@ -77,6 +77,8 @@ begin
begin
FVariables.GetNameValue(I,N,V);
V:=SGVariables.Cells[1,I+1];
if V='' then
V:=N; // Let Value=Name if not given by user.
FVariables[i]:=N+'='+V;
end;
end;
@ -92,6 +94,8 @@ begin
ProjNameLabel.Caption:= SNameforProject;
DEDestDirLabel.Caption:= SCreateinDir;
PDescription.Caption:= SThisProject;
// This is good for most projects and can be changed later. Only directory must be selected.
EProjectName.Text:='project1';
EssentialDataChange(Nil);
end;