Changeset 13 for trunk/Forms/UMainForm.pas

Timestamp:

Dec 18, 2017, 10:13:15 PM (6 years ago)

Author:

chronos

Message:

• Fixed: Build under Lazarus 1.8.0.

File:

• trunk/Forms/UMainForm.pas (modified) (7 diffs)

trunk/Forms/UMainForm.pas

@@ -32 +32 @@
     ADownload: TAction;
     ActionList1: TActionList;
-    Bevel1: TBevel;
-    Button1: TButton;
-    Button2: TButton;
-    Button3: TButton;
-    Button4: TButton;
-    Button5: TButton;
-    Button7: TButton;
-    Options: TButton;
-    ButtonEdit: TButton;
-    Button6: TButton;
+    ImageListLarge: TImageList;
+    ImageListSmall: TImageList;
+    MainMenu1: TMainMenu;
+    MenuItem10: TMenuItem;
+    MenuItem7: TMenuItem;
     Label1: TLabel;
     ListView1: TListView;
@@ -50 +45 @@
     MenuItem5: TMenuItem;
     MenuItem6: TMenuItem;
+    MenuItem9: TMenuItem;
     PopupMenu1: TPopupMenu;
+    ToolBar1: TToolBar;
+    ToolButton1: TToolButton;
+    ToolButton2: TToolButton;
+    ToolButton3: TToolButton;
+    ToolButton4: TToolButton;
+    ToolButton5: TToolButton;
+    ToolButton6: TToolButton;
+    ToolButton7: TToolButton;
     procedure AAddExecute(Sender: TObject);
     procedure ACompileExecute(Sender: TObject);
@@ -177 +181 @@
     if ListView1.Selected.Index < Instances.Count then
     with TInstance(Instances[ListView1.Selected.Index]) do begin
-      ForceDirectoriesUTF8(GetPath);
+      ForceDirectories(GetPath);
       if Assigned(FPCSource) then begin
         FPCSource.Download;
@@ -247 +251 @@
     ADownload.Enabled := not Downloaded;
     AStart.Enabled := Downloaded and Compiled and Assigned(IDESource) and
-      FileExistsUTF8(GetPath + DirectorySeparator +
+      FileExists(GetPath + DirectorySeparator +
       IDESource.ProjectShortName + DirectorySeparator + IDESource.GetExecutableFile);
     ARemove.Enabled := True;
@@ -278 +282 @@
   Child: TDOMNode;
 begin
-  if FileExistsUTF8(ConfigFileName) then
+  if FileExists(ConfigFileName) then
   try
     ReadXMLFile(Doc, UTF8Decode(ConfigFileName));
@@ -510 +514 @@
   {$ENDIF}
   {$IFDEF Linux}
-  Result := '/usr/lib/fpc/2.4.0/ppc386';
+  Result := '/usr/lib/fpc/2.6.2/ppcx64';
   {$ENDIF}
 end;
@@ -524 +528 @@
   {$ENDIF}
   {$IFDEF Linux}
-  if FileExistsUTF8('yum') then begin
+  if FileExists('yum') then begin
   end else
-  if FileExistsUTF8('apt-get') then begin
+  if FileExists('apt-get') then begin
   (* sudo apt-get install -y subversion
     sudo apt-get install -y cvs