Changeset 42 for branches/DelphiToC/UMainForm.pas

Timestamp:

Aug 5, 2010, 3:13:03 PM (14 years ago)

Author:

george

Message:

Enhanced C code generation.

File:

• branches/DelphiToC/UMainForm.pas (modified) (4 diffs)

branches/DelphiToC/UMainForm.pas

@@ -27 +27 @@
     procedure ErrorMessage(Text: string);
   private
-    procedure FillTreeView;
   public
     Compiler: TCompiler;
@@ -52 +51 @@
   SourceTree.Code := Compiler.ProgramCode;
   SourceTree.Fill;
-  //FillTreeView;
   Memo2.Clear;
   if Compiler.Producer is TAssemblerProducer then begin
@@ -68 +66 @@
 begin
   MainForm.Memo3.Lines.Add(Text);
-end;
-
-procedure TMainForm.FillTreeView;
-var
-  NewNode: TTreeNode;
-  NewNode2: TTreeNode;
-  NewNode3: TTreeNode;
-  ModuleNode: TTreeNode;
-  I: Integer;
-  II: Integer;
-  M: Integer;
-begin
-  with TreeView1, Items, Compiler do begin
-    BeginUpdate;
-    Clear;
-    AddChild(nil, 'Projekt');
-    for M := 0 to ProgramCode.Modules.Count - 1 do
-      with TModule(ProgramCode.Modules[M]) do begin
-        ModuleNode := AddChild(TopItem, Name);
-        NewNode := AddChild(ModuleNode, 'Typy');
-        for I := 0 to Types.Count - 1 do
-        with TType(Types[I]) do
-          NewNode2 := AddChild(NewNode, Name);
-        NewNode := AddChild(ModuleNode, 'Funkce');
-        for I := 0 to Methods.Count - 1 do
-        with TFunction(Methods[I]) do begin
-          NewNode2 := AddChild(NewNode, Name);
-          with NewNode2 do begin
-            NewNode3 := AddChild(NewNode2, 'Parametery');
-            for II := 0 to Parameters.Count - 1 do
-              AddChild(NewNode3, TParameter(Parameters[II]).Name + ':' + TParameter(Parameters[II]).ValueType.Name);
-          end;
-        end;
-        NewNode := AddChild(ModuleNode, 'Promìnné');
-        for I := 0 to Variables.Count - 1 do
-        with TVariable(Variables[I]) do
-          NewNode2 := AddChild(NewNode, Name + ':' + ValueType.Name);
-        NewNode := AddChild(ModuleNode, 'Konstanty');
-        for I := 0 to Constants.Count - 1 do
-        with TConstant(Constants[I]) do
-          NewNode2 := AddChild(NewNode, Name + ':' + ValueType.Name + '=' + Value);
-        NewNode := AddChild(ModuleNode, 'Program');
-        for I := 0 to Code.Commands.Count - 1 do begin
-          if TObject(Code.Commands[I]) is TBeginEnd then begin
-            NewNode2 := AddChild(NewNode, 'Begin-End');
-
-          end else
-          if TObject(Code.Commands[I]) is TWhileDo then begin
-            NewNode2 := AddChild(NewNode, 'While-Do');
-            NewNode3 := AddChild(NewNode2, 'Podmínka');
-
-            NewNode3 := AddChild(NewNode2, 'Povel');
-          end else
-          if TObject(Code.Commands[I]) is TAssignment then begin
-            NewNode2 := AddChild(NewNode, TAssignment(Code.Commands[I]).Target.Name + ' := exp');
-
-          end;
-        end;
-
-      end;
-    TopItem.Expand(True);
-    EndUpdate;
-  end;
 end;
 
@@ -153 +88 @@
 procedure TMainForm.FormShow(Sender: TObject);
 begin
+  WindowState := wsMaximized;
   Memo1.Lines.LoadFromFile(ExampleFileName);
   Button1Click(Self);