[SOLVED] Custom form

[dbannon]

I AM STILL USING 2.0.12

But you have established that version 2.0.12 does not do what you want. Its a released and therefore frozen product, its not going to change. You need to either use a version that might do what you want or do something different.

As you mentioned earlier, its not rocket science.

Davo

EDIT: Actually, on my system, its is there on even 2.0.10 (I don't have ~12 installed). I suggest you try rebuilding your 2.0.12 with the bigide option, https://wiki.freepascal.org/Installing_Lazarus_on_Windows#Building_Lazarus clearly says -

Code: Pascal  [Select][+][-]

1. make bigide

That being said, Juha has said, again, pretty clearly, that this area of Lazarus will work better with trunk. I would believe him ...

I have made, perhaps, 20 releases of tomboy-ng using trunk Lazarus. I have NEVER got into trouble doing so.
 
Davo

[pcurtis]

I'm currently debugging the project templates code. I've nearly got what I want. I don't want to use an unofficial release. I'm not a hard core programmer, and find it hard to deal with new issues because of slight changes. I'll stick to what I know, and wait for the official release, plus while I'm delving into the IDE workings I'm learning.

[pcurtis]

Ok, I've done it. Just a few changes and it works for me.

idetemplateproject.pp comment out line 158

  //FileReplaceText(fn+'.lpi',Desc.FTemplate.ProjectFile,Desc.FProjectName);

frmtemplatevariables.pas

add Sysutils to uses and change

Code: Pascal  [Select][+][-]

1. procedure TProjectVariablesForm.FormCreate(Sender: TObject);
2. begin
3.   if not DirectoryExists('c:\lazarus\temp') then    // <- add this
4.     MkDir('c:\lazarus\temp');                               // <- add this
5.   Caption := STitle;
6.   ProjNameLabel.Caption:= SNameforProject;
7.   DEDestDirLabel.Caption:= SCreateinDir;
8.   PDescription.Caption:= SThisProject;
9.   ButtonPanel1.CancelButton.Caption:= SbtnCancel;
10.   ButtonPanel1.OKButton.Caption:= SbtnOK;
11.   DEDestDir.Text := 'c:\lazarus\temp';    // <- add this
12.   EProjectName.Text := 'project1';    // <- add this
13. end;
14.  
15. procedure TProjectVariablesForm.ProjectVariablesFormShow(Sender: TObject);
16. begin
17.   SGVariables.Cells[0,0]:=SVariable;
18.   SGVariables.Cells[1,0]:=SValue;
19.   SGVariables.Cells[2,0]:=SDescription;
20.   SGVariables.cells[1, 1] := 'untMain';  // <- add this
21. end;
22.