Changeset 13 for trunk/Forms/UMainForm.pas
- Timestamp:
- Dec 18, 2017, 10:13:15 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UMainForm.pas
r9 r13 32 32 ADownload: TAction; 33 33 ActionList1: TActionList; 34 Bevel1: TBevel; 35 Button1: TButton; 36 Button2: TButton; 37 Button3: TButton; 38 Button4: TButton; 39 Button5: TButton; 40 Button7: TButton; 41 Options: TButton; 42 ButtonEdit: TButton; 43 Button6: TButton; 34 ImageListLarge: TImageList; 35 ImageListSmall: TImageList; 36 MainMenu1: TMainMenu; 37 MenuItem10: TMenuItem; 38 MenuItem7: TMenuItem; 44 39 Label1: TLabel; 45 40 ListView1: TListView; … … 50 45 MenuItem5: TMenuItem; 51 46 MenuItem6: TMenuItem; 47 MenuItem9: TMenuItem; 52 48 PopupMenu1: TPopupMenu; 49 ToolBar1: TToolBar; 50 ToolButton1: TToolButton; 51 ToolButton2: TToolButton; 52 ToolButton3: TToolButton; 53 ToolButton4: TToolButton; 54 ToolButton5: TToolButton; 55 ToolButton6: TToolButton; 56 ToolButton7: TToolButton; 53 57 procedure AAddExecute(Sender: TObject); 54 58 procedure ACompileExecute(Sender: TObject); … … 177 181 if ListView1.Selected.Index < Instances.Count then 178 182 with TInstance(Instances[ListView1.Selected.Index]) do begin 179 ForceDirectories UTF8(GetPath);183 ForceDirectories(GetPath); 180 184 if Assigned(FPCSource) then begin 181 185 FPCSource.Download; … … 247 251 ADownload.Enabled := not Downloaded; 248 252 AStart.Enabled := Downloaded and Compiled and Assigned(IDESource) and 249 FileExists UTF8(GetPath + DirectorySeparator +253 FileExists(GetPath + DirectorySeparator + 250 254 IDESource.ProjectShortName + DirectorySeparator + IDESource.GetExecutableFile); 251 255 ARemove.Enabled := True; … … 278 282 Child: TDOMNode; 279 283 begin 280 if FileExists UTF8(ConfigFileName) then284 if FileExists(ConfigFileName) then 281 285 try 282 286 ReadXMLFile(Doc, UTF8Decode(ConfigFileName)); … … 510 514 {$ENDIF} 511 515 {$IFDEF Linux} 512 Result := '/usr/lib/fpc/2. 4.0/ppc386';516 Result := '/usr/lib/fpc/2.6.2/ppcx64'; 513 517 {$ENDIF} 514 518 end; … … 524 528 {$ENDIF} 525 529 {$IFDEF Linux} 526 if FileExists UTF8('yum') then begin530 if FileExists('yum') then begin 527 531 end else 528 if FileExists UTF8('apt-get') then begin532 if FileExists('apt-get') then begin 529 533 (* sudo apt-get install -y subversion 530 534 sudo apt-get install -y cvs
Note:
See TracChangeset
for help on using the changeset viewer.