Changeset 6 for trunk/Forms
- Timestamp:
- Nov 5, 2010, 11:31:04 AM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UProjectManager.pas
r2 r6 34 34 procedure TProjectManager.TreeViewProjectChange(Sender: TObject; Node: TTreeNode 35 35 ); 36 var37 FileName: string;38 36 begin 39 37 with MainForm, CodeForm do … … 41 39 if TProjectNode(Node.Data) is TProjectFile then begin 42 40 SynEditSource.Lines.Assign(TProjectFile(Node.Data).Source); 43 FileName := Compiler.TargetFolder + DirectorySeparator + 44 Compiler.CompiledFolder + DirectorySeparator + 45 Compiler.Producer.ClassName + DirectorySeparator + ExtractFileNameOnly(TProjectFile(Node.Data).Name) + Compiler.Producer.FileExtension; 46 if FileExists(FileName) then 41 (* if FileExists(TProjectFile(Node.Data).ProducedFileName) then 47 42 CompiledForm.SynEdit1.Lines.LoadFromFile(FileName) else 48 43 CompiledForm.SynEdit1.Lines.Clear; … … 55 50 if ComboBoxTargetSelection.ItemIndex = 3 then 56 51 CompiledForm.SynEdit1.Highlighter := CompiledForm.SynXMLSyn1; 57 52 *) 58 53 (*// Load code tree view 59 54 Compiler.Producer.Free;
Note:
See TracChangeset
for help on using the changeset viewer.