Changeset 72 for trunk/Forms

Timestamp:

Mar 6, 2016, 12:10:38 AM (9 years ago)

Author:

chronos

Message:

• Modified: Built with FPC 3.0.0. Fixed various compiler messages.

Location:

trunk/Forms

Files:

• UFormMain.lfm (modified) (15 diffs)
• UFormMain.pas (modified) (5 diffs)
• UFormMessages.pas (modified) (1 diff)
• UFormOptions.pas (modified) (1 diff)
• UFormTargetOptions.pas (modified) (1 diff)

trunk/Forms/UFormMain.lfm

@@ -5 +5 @@
   Width = 860
   Caption = 'LazFuck'
-  ClientHeight = 557
+  ClientHeight = 558
   ClientWidth = 860
   Menu = MainMenu1
@@ -12 +12 @@
   OnDestroy = FormDestroy
   OnShow = FormShow
-  LCLVersion = '1.5'
+  LCLVersion = '1.7'
   WindowState = wsMaximized
   object StatusBarMain: TStatusBar
     Left = 0
-    Height = 29
-    Top = 528
+    Height = 24
+    Top = 534
     Width = 860
     Panels = <    
@@ -130 +130 @@
   object PageControlRight: TPageControl
     Left = 467
-    Height = 502
+    Height = 508
     Top = 26
     Width = 393
@@ -140 +140 @@
     object TabSheetDebug: TTabSheet
       Caption = 'Debug'
-      ClientHeight = 496
-      ClientWidth = 315
+      ClientHeight = 504
+      ClientWidth = 313
       object PanelInput: TPanel
         Left = 0
         Height = 64
         Top = 0
-        Width = 315
+        Width = 313
         Align = alTop
         BevelOuter = bvNone
@@ -156 +156 @@
         Height = 5
         Top = 64
-        Width = 315
+        Width = 313
         Align = alTop
         ResizeAnchor = akTop
@@ -164 +164 @@
         Height = 259
         Top = 69
-        Width = 315
+        Width = 313
         Align = alTop
         BevelOuter = bvNone
@@ -174 +174 @@
         Height = 5
         Top = 328
-        Width = 315
+        Width = 313
         Align = alTop
         ResizeAnchor = akTop
@@ -182 +182 @@
         Height = 86
         Top = 333
-        Width = 315
+        Width = 313
         Align = alTop
         BevelOuter = bvNone
@@ -192 +192 @@
         Height = 5
         Top = 419
-        Width = 315
+        Width = 313
         Align = alTop
         ResizeAnchor = akTop
@@ -198 +198 @@
       object PanelMemory: TPanel
         Left = 0
-        Height = 72
+        Height = 80
         Top = 424
-        Width = 315
+        Width = 313
         Align = alClient
         BevelOuter = bvNone
@@ -209 +209 @@
   object Splitter1: TSplitter
     Left = 462
-    Height = 502
+    Height = 508
     Top = 26
     Width = 5
@@ -217 +217 @@
   object PanelLeft: TPanel
     Left = 0
-    Height = 502
+    Height = 508
     Top = 26
     Width = 462
     Align = alClient
     BevelOuter = bvNone
-    ClientHeight = 502
+    ClientHeight = 508
     ClientWidth = 462
     TabOrder = 4
     object PageControlMain: TPageControl
       Left = 0
-      Height = 379
+      Height = 385
       Top = 0
       Width = 462
@@ -245 +245 @@
       Left = 0
       Height = 118
-      Top = 384
+      Top = 390
       Width = 462
       ActivePage = TabSheetMessages
@@ -260 +260 @@
       Left = 0
       Height = 5
-      Top = 379
+      Top = 385
       Width = 462
       Align = alBottom
@@ -1891 +1891 @@
       E7FFEAEAEAFFB5B0AAFF887459FFC6BDB1008F7D65FF735D3EFF735D3EFF735D
       3EFF735D3EFF735D3EFF735D3EFF735D3EFF735D3EFF735D3EFF735D3EFF735D
-      3EFF735D3EFF8F7D65FFC6BDB100FF00FF00FF00FF00FF00FF00FF00FF00FF00
-      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
-      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
-      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
-      FF00FF00FF00FF00FF00FF00FF00FF00FF00D6B5A5FFD6B5A5FFD6B5A5FFD6B5
+      3EFF735D3EFF8F7D65FFC6BDB1002A351A002A351A002A351A002A351A002A35
+      1A002A351A002A351A002A351A002A351A002A351A002A351A002A351A002A35
+      1A002A351A002A351A002A351A002A351A002A351A002A351A002A351A002A35
+      1A002A351A002A351A002A351A002A351A002A351A002A351A002A351A002A35
+      1A002A351A002A351A002A351A002A351A00D6B5A5FFD6B5A5FFD6B5A5FFD6B5
       A5FFC6ADA5FFC6ADA5FFC6ADA5FFC6ADA5FFC6ADA5FFC6ADA5FFC6ADA5FFC6AD
-      A5FFC6ADA5FFFF00FF00FF00FF00D6B5A5FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      A5FFC6ADA5FF2A351A002A351A00D6B5A5FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
       FFFFFFF7F7FFFFF7F7FFFFF7F7FFFFF7F7FFFFF7F7FFFFEFE7FFFFEFE7FFFFEF
-      E7FFFFEFE7FF634A31FFFF00FF00D6B5A5FFFFFFFFFFD69C84FFD69484FFC694
+      E7FFFFEFE7FF634A31FF2A351A00D6B5A5FFFFFFFFFFD69C84FFD69484FFC694
       73FFD68C73FFD68C63FFC68463FFC67B52FFC67342FFC66B42FFC66B42FFD67B
-      42FFFFEFE7FF634A31FFFF00FF00D6B5A5FFFFFFFFFFC69473FFFFDED6FFFFDE
+      42FFFFEFE7FF634A31FF2A351A00D6B5A5FFFFFFFFFFC69473FFFFDED6FFFFDE
       D6FFFFD6C6FFFFCEB5FFFFCEB5FFFFC6A5FFFFC6A5FFFFB594FFFFB584FFE77B
-      42FFFFEFE7FF634A31FFFF00FF00D6B5A5FFFFFFFFFFC69473FFFFDED6FFFFEF
+      42FFFFEFE7FF634A31FF2A351A00D6B5A5FFFFFFFFFFC69473FFFFDED6FFFFEF
       E7FFFFEFE7FFFFEFE7FFFFC6A5FFFFC6A5FFFFB594FFFFB594FFF79C73FFE77B
-      42FFFFEFE7FF634A31FFFF00FF00C6ADA5FFFFF7F7FFC69473FFFFD6C6FFFFD6
+      42FFFFEFE7FF634A31FF2A351A00C6ADA5FFFFF7F7FFC69473FFFFD6C6FFFFD6
       C6FFFFCEB5FFFFC6A5FFFFC6A5FFFFB594FFF7A584FFF79C73FFF79C73FFE773
-      42FFFFEFE7FF634A31FFFF00FF00C6ADA5FFFFF7F7FFC69473FFFFD6C6FFFFEF
+      42FFFFEFE7FF634A31FF2A351A00C6ADA5FFFFF7F7FFC69473FFFFD6C6FFFFEF
       E7FFFFEFE7FFFFEFE7FFFFE7D6FFFFDED6FFFFDED6FFFFDED6FFE78C63FFE773
-      42FFFFE7D6FF634A31FFFF00FF00C6ADA5FFFFF7F7FFC69473FFFFCEB5FFFFC6
+      42FFFFE7D6FF634A31FF2A351A00C6ADA5FFFFF7F7FFC69473FFFFCEB5FFFFC6
       A5FFFFC6A5FFFFB594FFF7A584FFF7A584FFF79C73FFE78C63FFE78463FFE773
-      42FFFFDED6FF634A31FFFF00FF00C6ADA5FFFFF7F7FFC69473FFFFCEB5FFFFEF
+      42FFFFDED6FF634A31FF2A351A00C6ADA5FFFFF7F7FFC69473FFFFCEB5FFFFEF
       E7FFFFE7D6FFFFDED6FFFFDED6FFFFDED6FFFFD6C6FFFFD6C6FFD67B52FFE773
-      42FFFFDED6FF634A31FFFF00FF00C6ADA5FFFFF7F7FFC69473FFFFC6A5FFF7B5
+      42FFFFDED6FF634A31FF2A351A00C6ADA5FFFFF7F7FFC69473FFFFC6A5FFF7B5
       94FFF7A584FFF79C73FFF79C73FFE78C63FFE78463FFD67B52FFD67352FFE773
-      42FFFFDED6FF634A31FFFF00FF00C6ADA5FFFFEFE7FFD69484FFE7A584FFF7A5
+      42FFFFDED6FF634A31FF2A351A00C6ADA5FFFFEFE7FFD69484FFE7A584FFF7A5
       84FFF79C73FFF79C73FFE78C63FFE78463FFE78452FFE78442FFE77B42FFE784
-      52FFFFDED6FF634A31FFFF00FF00C6ADA5FFFFEFE7FFFFEFE7FFFFEFE7FFFFEF
+      52FFFFDED6FF634A31FF2A351A00C6ADA5FFFFEFE7FFFFEFE7FFFFEFE7FFFFEF
       E7FFFFEFE7FFFFEFE7FFFFEFE7FFFFE7D6FFFFDED6FFFFDED6FFFFDED6FFFFDE
-      D6FFFFDED6FF634A31FFFF00FF00FF00FF00634A31FF634A31FF634A31FF634A
+      D6FFFFDED6FF634A31FF2A351A002A351A00634A31FF634A31FF634A31FF634A
       31FF634A31FF634A31FF634A31FF634A31FF634A31FF634A31FF634A31FF634A
-      31FF634A31FFFF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
-      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
-      FF00FF00FF00FF00FF00FF00FF00
+      31FF634A31FF2A351A002A351A002A351A002A351A002A351A002A351A002A35
+      1A002A351A002A351A002A351A002A351A002A351A002A351A002A351A002A35
+      1A002A351A002A351A002A351A00
     }
   end

trunk/Forms/UFormMain.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, SynEdit, Forms, Controls, Graphics, Dialogs,
-  Menus, ActnList, ComCtrls, ExtCtrls, UTarget, Registry, URegistry, Process;
+  Menus, ActnList, ComCtrls, ExtCtrls, UTarget, Registry, URegistry, Process,
+  LazFileUtils;
 
 type
@@ -171 +172 @@
 
 resourcestring
-  SProgramExited = 'Program exited';
   SProgramStarted = 'Program started';
   SProgramStopped = 'Program stopped';
@@ -245 +245 @@
   if Core.Project.Openned then
     raise Exception.Create(SCloseProjectFirst);
-  FormSourceCode.MemoSource.Lines.LoadFromFile(UTF8Decode(FileName));
+  FormSourceCode.MemoSource.Lines.LoadFromFile(FileName);
   Core.LastOpenedList.AddItem(FileName);
   Core.Project.FileName := FileName;
@@ -609 +609 @@
   SaveDialog1.FileName := Core.Project.FileName;
   if SaveDialog1.Execute then begin
-    FormSourceCode.MemoSource.Lines.SaveToFile(UTF8Decode(SaveDialog1.FileName));
+    FormSourceCode.MemoSource.Lines.SaveToFile(SaveDialog1.FileName);
     Core.Project.FileName := SaveDialog1.FileName;
     Core.LastOpenedList.AddItem(SaveDialog1.FileName);
@@ -620 +620 @@
 begin
   if Core.Project.Modified and FileExistsUTF8(Core.Project.FileName) then begin
-    FormSourceCode.MemoSource.Lines.SaveToFile(UTF8Decode(Core.Project.FileName));
+    FormSourceCode.MemoSource.Lines.SaveToFile(Core.Project.FileName);
     Core.Project.Modified := False;
     UpdateInterface;

trunk/Forms/UFormMessages.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
+  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
   ComCtrls;
 

trunk/Forms/UFormOptions.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  Spin, UTargetInterpretter, UTarget;
+  Spin, UTarget;
 
 type

trunk/Forms/UFormTargetOptions.pas

@@ -37 +37 @@
 implementation
 
-resourcestring
-  SCompilerOptions = 'Compiler options';
-  SCompilerPath = 'Compiler path';
-  SSelectDirectory = 'Select directory';
-
 {$R *.lfm}