v1.8-3 Correction of script templates & startup shortcut (RU)

Author: AKotov-dev

RPMCreator/RPMCreator

@@ -1,12 +1,14 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <CONFIG>
   <ProjectOptions>
-    <Version Value="11"/>
+    <Version Value="12"/>
     <PathDelim Value="\"/>
     <General>
+      <Flags>
+        <CompatibilityMode Value="True"/>
+      </Flags>
       <SessionStorage Value="InProjectDir"/>
-      <MainUnit Value="0"/>
-      <Title Value="RPMCreator v1.8-2"/>
+      <Title Value="RPMCreator v1.8-3"/>
       <ResourceType Value="res"/>
       <UseXPManifest Value="True"/>
       <XPManifest>

RPMCreator/RPMCreator.lpi

@@ -2,7 +2,7 @@
 <CONFIG>
   <ProjectSession>
     <PathDelim Value="\"/>
-    <Version Value="11"/>
+    <Version Value="12"/>
     <BuildModes Count="1" Active="Release">
       <Item1 Name="Release">
         <CompilerOptions>
@@ -161,7 +161,7 @@
     </JumpHistory>
     <RunParams>
       <FormatVersion Value="2"/>
-      <Modes Count="0" ActiveMode="default"/>
+      <Modes ActiveMode="default"/>
     </RunParams>
   </ProjectSession>
 </CONFIG>

RPMCreator/RPMCreator.lps

@@ -18,7 +18,7 @@
 {$R *.res}
 
 begin
-  Application.Title:='RPMCreator v1.8-2';
+  Application.Title:='RPMCreator v1.8-3';
   //Создаём объект с уникальным идентификатором
   MyProg := TUniqueInstance.Create('RPMCreator');
 

RPMCreator/RPMCreator.pas

@@ -1,11 +1,13 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <CONFIG>
   <ProjectOptions>
-    <Version Value="11"/>
+    <Version Value="12"/>
     <PathDelim Value="\"/>
     <General>
+      <Flags>
+        <CompatibilityMode Value="True"/>
+      </Flags>
       <SessionStorage Value="InProjectDir"/>
-      <MainUnit Value="0"/>
       <Title Value="RPMCreator v1.8-2"/>
       <ResourceType Value="res"/>
       <UseXPManifest Value="True"/>

RPMCreator/RPMCreator.res

@@ -2,7 +2,7 @@
 <CONFIG>
   <ProjectSession>
     <PathDelim Value="\"/>
-    <Version Value="11"/>
+    <Version Value="12"/>
     <BuildModes Count="1" Active="Release">
       <Item1 Name="Release">
         <CompilerOptions>
@@ -52,8 +52,8 @@
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="Unit1"/>
         <IsVisibleTab Value="True"/>
-        <TopLine Value="15"/>
-        <CursorPos X="55" Y="23"/>
+        <TopLine Value="422"/>
+        <CursorPos X="34" Y="436"/>
         <UsageCount Value="187"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
@@ -117,7 +117,7 @@
         <UsageCount Value="10"/>
       </Unit7>
     </Units>
-    <JumpHistory Count="9" HistoryIndex="8">
+    <JumpHistory Count="10" HistoryIndex="9">
       <Position1>
         <Filename Value="unit1.pas"/>
         <Caret Line="338" TopLine="334"/>
@@ -154,10 +154,14 @@
         <Filename Value="unit1.pas"/>
         <Caret Line="446" Column="13" TopLine="419"/>
       </Position9>
+      <Position10>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="23" Column="55" TopLine="15"/>
+      </Position10>
     </JumpHistory>
     <RunParams>
       <FormatVersion Value="2"/>
-      <Modes Count="0" ActiveMode="default"/>
+      <Modes ActiveMode="default"/>
     </RunParams>
   </ProjectSession>
 </CONFIG>

RPMCreator/backup/RPMCreator.lpi

@@ -19,10 +19,10 @@ object MainForm: TMainForm
     Height = 637
     Top = 48
     Width = 991
-    ActivePage = TabSheet1
+    ActivePage = TabSheet3
     Align = alClient
     ParentShowHint = False
-    TabIndex = 0
+    TabIndex = 2
     TabOrder = 0
     object TabSheet1: TTabSheet
       Caption = 'Basic'

RPMCreator/backup/RPMCreator.lps

@@ -430,9 +430,10 @@ procedure TMainForm.CreateRepackTxtClick(Sender: TObject);
       Application.ProcessMessages;
 
       RunCommand('/bin/bash',
-        ['-c', 'pkexec /bin/bash -c "mkdir /usr/share/doc/' +
-        NameEdit.Text + '; mv -f ' + WorkDir + '/repack.txt ' +
-        '/usr/share/doc/' + NameEdit.Text + '/repack.txt"; echo $?'],
+        ['-c', 'pkexec /bin/bash -c "[ -d /usr/share/doc/' + NameEdit.Text +
+        '] || mkdir /usr/share/doc/' + NameEdit.Text + '; mv -f ' +
+        WorkDir + '/repack.txt ' + '/usr/share/doc/' + NameEdit.Text +
+        '/repack.txt"; echo $?'],
         output);
 
       //Ловим отмену и ошибку аутентификации pkexec