v1.4 + replacing sakura terminal with xterm (bug: dabisu/sakura#16)

AKotov-dev · Aug 7, 2022 · 8ed0b26 · 8ed0b26
1 parent 5387d9a
commit 8ed0b26
Show file tree

Hide file tree

Showing 36 changed files with 800 additions and 758 deletions.
diff --git a/README.md b/README.md
@@ -1,6 +1,6 @@
 PChanger - plymouth changer
 ---
-Dependencies: `sakura binutils plymouth plymouth-x11 plymouth-plugin-two-step`
+Dependencies: `xterm gtk2 binutils plymouth plymouth-x11 plymouth-plugin-two-step`
 
 The program is designed to quickly change the system boot screen (Plymouth).
 
@@ -10,6 +10,6 @@ The left side of the picture window shows the themes embedded in the package. On
 + brand-themes-pack: https://cloud.mail.ru/public/2R6b/KRqVM6yJr  
 + android-themes-pack: https://cloud.mail.ru/public/Y3fR/GA9s71Qyg  
 
-Developed and tested only on Mageia Linux-7/8.
+Developed and tested only on Mageia Linux-8/9.
 
 ![](https://github.com/AKotov-dev/pchanger/blob/main/ScreenShot.png)
diff --git a/pchanger/about.lfm b/pchanger/about.lfm
@@ -1,34 +1,32 @@
 object MyAboutForm: TMyAboutForm
-  Left = 485
-  Height = 225
-  Top = 224
+  Left = 489
+  Height = 231
+  Top = 192
   Width = 368
   Caption = 'About'
-  ClientHeight = 225
+  ClientHeight = 231
   ClientWidth = 368
-  DesignTimePPI = 92
   OnCreate = FormCreate
   Position = poMainFormCenter
   SessionProperties = 'Height;Width'
-  LCLVersion = '1.8.4.0'
+  LCLVersion = '2.2.0.4'
   object Label1: TLabel
-    Left = 106
-    Height = 23
-    Top = 16
-    Width = 201
+    Left = 111
+    Height = 24
+    Top = 17
+    Width = 209
     Caption = 'Plymouth Changer'
     Font.Color = clMaroon
-    Font.Height = -19
+    Font.Height = -20
     Font.Name = 'Sans'
     Font.Style = [fsBold]
-    ParentColor = False
     ParentFont = False
   end
   object Image1: TImage
     Left = 8
-    Height = 72
-    Top = 16
-    Width = 72
+    Height = 75
+    Top = 17
+    Width = 75
     Picture.Data = {
       1754506F727461626C654E6574776F726B47726170686963FF04000089504E47
       0D0A1A0A0000000D4948445200000040000000400806000000AA6971DE000000
@@ -75,19 +73,18 @@ object MyAboutForm: TMyAboutForm
     Transparent = True
   end
   object Label2: TLabel
-    Left = 106
-    Height = 120
-    Top = 48
-    Width = 190
-    Caption = 'Plymouth change program'#10#10'License: GNU GPL'#10'Compilation: Lazarus 1.8.4'#10'Author: alex_q_2000 (C) 2020'#10#10'Russian Linux Forum:'#10'https://linuxforum.ru'
-    ParentColor = False
+    Left = 111
+    Height = 102
+    Top = 50
+    Width = 177
+    Caption = 'Plymouth change program'#10#10'License: GNU GPL'#10'Compilation: Lazarus 2.2.0'#10'Author: alex_q_2000 (C) 2020'#10#10'Russian Linux Forum:'#10'https://linuxforum.ru'
   end
   object Bevel1: TBevel
     AnchorSideRight.Control = Owner
     AnchorSideRight.Side = asrBottom
     Left = 3
-    Height = 16
-    Top = 179
+    Height = 17
+    Top = 182
     Width = 363
     Anchors = [akLeft, akRight]
     BorderSpacing.Right = 2
@@ -97,18 +94,18 @@ object MyAboutForm: TMyAboutForm
     AnchorSideRight.Control = Owner
     AnchorSideRight.Side = asrBottom
     Left = 146
-    Height = 25
-    Top = 193
-    Width = 75
+    Height = 34
+    Top = 190
+    Width = 78
     Anchors = [akBottom]
-    BorderSpacing.Right = 165
+    BorderSpacing.Right = 172
     Caption = 'Ok'
     OnClick = Button1Click
     TabOrder = 0
   end
   object AboutXMLPropStorage1: TXMLPropStorage
     StoredValues = <>
-    left = 64
-    top = 152
+    Left = 64
+    Top = 136
   end
 end
diff --git a/pchanger/about.lrj b/pchanger/about.lrj
@@ -1,6 +1,6 @@
 {"version":1,"strings":[
 {"hash":4691652,"name":"tmyaboutform.caption","sourcebytes":[65,98,111,117,116],"value":"About"},
 {"hash":227513218,"name":"tmyaboutform.label1.caption","sourcebytes":[80,108,121,109,111,117,116,104,32,67,104,97,110,103,101,114],"value":"Plymouth Changer"},
-{"hash":61494149,"name":"tmyaboutform.label2.caption","sourcebytes":[80,108,121,109,111,117,116,104,32,99,104,97,110,103,101,32,112,114,111,103,114,97,109,10,10,76,105,99,101,110,115,101,58,32,71,78,85,32,71,80,76,10,67,111,109,112,105,108,97,116,105,111,110,58,32,76,97,122,97,114,117,115,32,49,46,56,46,52,10,65,117,116,104,111,114,58,32,97,108,101,120,95,113,95,50,48,48,48,32,40,67,41,32,50,48,50,48,10,10,82,117,115,115,105,97,110,32,76,105,110,117,120,32,70,111,114,117,109,58,10,104,116,116,112,115,58,47,47,108,105,110,117,120,102,111,114,117,109,46,114,117],"value":"Plymouth change program\n\nLicense: GNU GPL\nCompilation: Lazarus 1.8.4\nAuthor: alex_q_2000 (C) 2020\n\nRussian Linux Forum:\nhttps://linuxforum.ru"},
+{"hash":64647749,"name":"tmyaboutform.label2.caption","sourcebytes":[80,108,121,109,111,117,116,104,32,99,104,97,110,103,101,32,112,114,111,103,114,97,109,10,10,76,105,99,101,110,115,101,58,32,71,78,85,32,71,80,76,10,67,111,109,112,105,108,97,116,105,111,110,58,32,76,97,122,97,114,117,115,32,50,46,50,46,48,10,65,117,116,104,111,114,58,32,97,108,101,120,95,113,95,50,48,48,48,32,40,67,41,32,50,48,50,48,10,10,82,117,115,115,105,97,110,32,76,105,110,117,120,32,70,111,114,117,109,58,10,104,116,116,112,115,58,47,47,108,105,110,117,120,102,111,114,117,109,46,114,117],"value":"Plymouth change program\n\nLicense: GNU GPL\nCompilation: Lazarus 2.2.0\nAuthor: alex_q_2000 (C) 2020\n\nRussian Linux Forum:\nhttps://linuxforum.ru"},
 {"hash":1371,"name":"tmyaboutform.button1.caption","sourcebytes":[79,107],"value":"Ok"}
 ]}
diff --git a/pchanger/backup/about.lfm b/pchanger/backup/about.lfm
@@ -1,11 +1,11 @@
 object MyAboutForm: TMyAboutForm
   Left = 485
-  Height = 232
+  Height = 225
   Top = 224
-  Width = 372
+  Width = 368
   Caption = 'About'
-  ClientHeight = 232
-  ClientWidth = 372
+  ClientHeight = 225
+  ClientWidth = 368
   DesignTimePPI = 92
   OnCreate = FormCreate
   Position = poMainFormCenter
@@ -85,20 +85,20 @@ object MyAboutForm: TMyAboutForm
   object Bevel1: TBevel
     AnchorSideRight.Control = Owner
     AnchorSideRight.Side = asrBottom
-    Left = 0
+    Left = 3
     Height = 16
-    Top = 181
-    Width = 364
+    Top = 179
+    Width = 363
     Anchors = [akLeft, akRight]
-    BorderSpacing.Right = 8
+    BorderSpacing.Right = 2
     Shape = bsTopLine
   end
   object Button1: TButton
     AnchorSideRight.Control = Owner
     AnchorSideRight.Side = asrBottom
-    Left = 144
+    Left = 146
     Height = 25
-    Top = 196
+    Top = 193
     Width = 75
     Anchors = [akBottom]
     BorderSpacing.Right = 165

diff --git a/pchanger/backup/pchanger.lpi b/pchanger/backup/pchanger.lpi
@@ -1,11 +1,13 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <CONFIG>
   <ProjectOptions>
-    <Version Value="10"/>
+    <Version Value="12"/>
     <General>
+      <Flags>
+        <CompatibilityMode Value="True"/>
+      </Flags>
       <SessionStorage Value="InProjectDir"/>
-      <MainUnit Value="0"/>
-      <Title Value="Plymouth Changer v1.3"/>
+      <Title Value="Plymouth Changer v1.4"/>
       <ResourceType Value="res"/>
       <UseXPManifest Value="True"/>
       <Icon Value="0"/>
@@ -60,9 +62,10 @@
       <Version Value="2"/>
     </PublishOptions>
     <RunParams>
-      <local>
-        <FormatVersion Value="1"/>
-      </local>
+      <FormatVersion Value="2"/>
+      <Modes Count="1">
+        <Mode0 Name="default"/>
+      </Modes>
     </RunParams>
     <RequiredPackages Count="1">
       <Item1>

diff --git a/pchanger/backup/pchanger.lpr b/pchanger/backup/pchanger.lpr
@@ -7,12 +7,12 @@
   cthreads,
   {$ENDIF}{$ENDIF}
   Interfaces, // this includes the LCL widgetset
-  Forms, Unit1, about, LCLTranslator, DefaultTranslator;
+  Forms, Unit1, about;
 
 {$R *.res}
 
 begin
-  Application.Title:='Plymouth Changer v1.0';
+  Application.Title:='Plymouth Changer v1.4';
   RequireDerivedFormResource:=True;
   Application.Initialize;
   Application.CreateForm(TMainForm, MainForm);