Changeset 55 for branches/DelphiToC/Forms/UMainForm.lfm

Timestamp:

Aug 10, 2010, 1:48:38 PM (14 years ago)

Author:

george

Message:

Fix: View proper source file after click to error message.
Made partial changes to support unit interface and implementation sections.

File:

• branches/DelphiToC/Forms/UMainForm.lfm (modified) (7 diffs)

branches/DelphiToC/Forms/UMainForm.lfm

@@ -3 +3 @@
   Height = 494
   Top = 103
-  Width = 884
+  Width = 861
   Caption = 'Transpascal '
   ClientHeight = 494
-  ClientWidth = 884
+  ClientWidth = 861
   Font.Height = -11
   Font.Name = 'Tahoma'
@@ -16 +16 @@
   LCLVersion = '0.9.29'
   object ButtonCompile: TButton
-    Left = 736
+    Left = 713
     Height = 22
     Top = 397
@@ -28 +28 @@
     TabOrder = 0
   end
-  inline SynEdit1: TSynEdit
+  inline SynEditSource: TSynEdit
     Left = 248
     Height = 384
@@ -611 +611 @@
       end>
     Lines.Strings = (
-      'SynEdit1'
+      'SynEditSource'
     )
     BracketHighlightStyle = sbhsBoth
@@ -723 +723 @@
   end
   object ComboBox1: TComboBox
-    Left = 735
+    Left = 712
     Height = 21
     Top = 424
     Width = 144
-    Anchors = [akLeft, akRight, akBottom]
+    Anchors = [akRight, akBottom]
     ItemHeight = 13
     ItemIndex = 0
@@ -741 +741 @@
     Text = 'Pascal'
   end
-  object ListBox1: TListBox
+  object ListBoxMessages: TListBox
     Left = 8
     Height = 91
     Top = 398
-    Width = 720
+    Width = 697
     Anchors = [akLeft, akRight, akBottom]
     ItemHeight = 0
-    OnClick = ListBox1Click
+    OnClick = ListBoxMessagesClick
     TabOrder = 3
   end
@@ -755 +755 @@
     Height = 382
     Top = 8
-    Width = 231
+    Width = 208
     Anchors = [akTop, akLeft, akRight, akBottom]
     BevelOuter = bvNone