Добавлены иконки на кнопки диалогов

accuratealx · Dec 24, 2023 · 83d5d0f · 83d5d0f
1 parent 6235904
commit 83d5d0f
Show file tree

Hide file tree

Showing 3 changed files with 114 additions and 5 deletions.
diff --git a/App/Dialogs/MemoDialog/MemoDialogUnit.lfm b/App/Dialogs/MemoDialog/MemoDialogUnit.lfm
@@ -14,11 +14,47 @@ inherited MemoDialogForm: TMemoDialogForm
     ClientWidth = 500
     object btnClose: TSpeedButton[0]
       Cursor = crHandPoint
-      Left = 195
+      Left = 190
       Height = 25
       Top = 10
-      Width = 100
+      Width = 120
       Caption = 'Закрыть'
+      Glyph.Data = {
+        36040000424D3604000000000000360000002800000010000000100000000100
+        2000000000000004000064000000640000000000000000000000000000000000
+        0000000000000000001200000033000000330000003300000033000000330000
+        00330000003300000012000000000000000000000000FFFFFF00000000000000
+        000000000012222D8E7C2C3CC0FF2B3BBEFF2B3ABEFF2B3ABEFF2B3ABEFF2B3B
+        BEFF2C3CC0FF222D8E7C000000120000000000000000FFFFFF00000000000000
+        0012212D8D792F3EC3FF5F71F9FF697DFFFF697CFFFF697CFFFF697CFFFF697D
+        FFFF5F71F9FF2F3EC3FF212D8D790000001200000000FFFFFF0000000012212D
+        8D792F3EC2FF586BF6FF5F74FFFF5D72FEFF5E72FDFF5E73FDFF5E72FDFF5D72
+        FEFF5F74FFFF586BF6FF2F3EC2FF212D8D7900000012FFFFFF00222D8E7C303F
+        C2FF5568F3FF586CFCFF4E64F9FF4D63F8FF5468F9FF576BF9FF5468F9FF4D63
+        F8FF4E64F9FF586CFCFF5568F3FF303FC2FF222D8E7CFFFFFF002D3DC0FF5367
+        F2FF556BFAFF4960F7FFFFFFFFFFFFFFFFFF3E56F6FF475EF6FF3E56F6FFFFFF
+        FFFFFFFFFFFF4960F7FF556BFAFF5166F2FF2D3DC0FFFFFFFF002B3BBFFF6276
+        FCFF4D64F6FF4259F4FFFFFFFFFFFFFFFFFFFFFFFFFF2C46F3FFFFFFFFFFFFFF
+        FFFFFFFFFFFF4259F4FF4E64F6FF5F75FCFF2C3BBFFFFFFFFF002A3ABFFF7386
+        FAFF495FF3FF435AF3FF6E80F6FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+        FFFF6E80F6FF435AF3FF495FF3FF6E81FAFF2B3ABFFFFFFFFF002939BFFF8696
+        FBFF425AF1FF4259F1FF354EF0FF5B70F2FFFFFFFFFFFFFFFFFFFFFFFFFF5B70
+        F2FF354EF0FF4259F1FF435BF1FF7D90F9FF2A39BFFFFFFFFF002737BFFF9AA8
+        FBFF3A55EFFF3953EEFF2844EDFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+        FFFF2844EDFF3953EEFF3B55EFFF8E9DFAFF2838BFFFFFFFFF002637BFFF9FAB
+        F1FF314CEDFF2B47EBFFFFFFFFFFFFFFFFFFFFFFFFFF5369EFFFFFFFFFFFFFFF
+        FFFFFFFFFFFF2C47EBFF314CEDFF9FABF1FF2737BFFFFFFFFF002838C1FF9FAB
+        F1FF8091F4FF213EE8FFFFFFFFFFFFFFFFFF5D72EEFF2340E8FF5D72EEFFFFFF
+        FFFFFFFFFFFF213EE8FF8091F4FF9FABF1FF2838C1FFFFFFFF002D3DC25B2E3E
+        C3FF97A5EFFF778AF2FF5B71EEFF6074EEFF2643E6FF2C48E7FF2643E6FF6074
+        EEFF5B71EEFF778AF2FF97A5EFFF2E3EC3FF2D3DC25BFFFFFF00000000002C3C
+        C2582E3EC2FF95A2EEFF7688F0FF1E3BE4FF2340E5FF2541E5FF2340E5FF1E3B
+        E4FF7688F0FF95A2EEFF2E3EC2FF2C3CC25800000000FFFFFF00000000000000
+        00002C3CC2582F3DC3FF94A0EFFFADB9F8FFADB8F7FFADB9F7FFADB8F7FFADB9
+        F8FF94A0EFFF2F3DC3FF2C3CC2580000000000000000FFFFFF00000000000000
+        0000000000002C3CC25B303FC4FF4555CEFF4454CDFF4354CDFF4454CDFF4555
+        CEFF303FC4FF2C3CC25B000000000000000000000000FFFFFF00
+      }
       OnClick = btnCloseClick
     end
     object btnCopyContent: TSpeedButton[1]

diff --git a/App/Dialogs/SelectDirectoryDialog/SelectDirectoryDialogUnit.lfm b/App/Dialogs/SelectDirectoryDialog/SelectDirectoryDialogUnit.lfm
@@ -17,18 +17,90 @@ inherited SelectDirectoryDialogForm: TSelectDirectoryDialogForm
       Left = 240
       Height = 25
       Top = 10
-      Width = 100
+      Width = 120
       Caption = 'Закрыть'
+      Glyph.Data = {
+        36040000424D3604000000000000360000002800000010000000100000000100
+        2000000000000004000064000000640000000000000000000000000000000000
+        0000000000000000001200000033000000330000003300000033000000330000
+        00330000003300000012000000000000000000000000FFFFFF00000000000000
+        000000000012222D8E7C2C3CC0FF2B3BBEFF2B3ABEFF2B3ABEFF2B3ABEFF2B3B
+        BEFF2C3CC0FF222D8E7C000000120000000000000000FFFFFF00000000000000
+        0012212D8D792F3EC3FF5F71F9FF697DFFFF697CFFFF697CFFFF697CFFFF697D
+        FFFF5F71F9FF2F3EC3FF212D8D790000001200000000FFFFFF0000000012212D
+        8D792F3EC2FF586BF6FF5F74FFFF5D72FEFF5E72FDFF5E73FDFF5E72FDFF5D72
+        FEFF5F74FFFF586BF6FF2F3EC2FF212D8D7900000012FFFFFF00222D8E7C303F
+        C2FF5568F3FF586CFCFF4E64F9FF4D63F8FF5468F9FF576BF9FF5468F9FF4D63
+        F8FF4E64F9FF586CFCFF5568F3FF303FC2FF222D8E7CFFFFFF002D3DC0FF5367
+        F2FF556BFAFF4960F7FFFFFFFFFFFFFFFFFF3E56F6FF475EF6FF3E56F6FFFFFF
+        FFFFFFFFFFFF4960F7FF556BFAFF5166F2FF2D3DC0FFFFFFFF002B3BBFFF6276
+        FCFF4D64F6FF4259F4FFFFFFFFFFFFFFFFFFFFFFFFFF2C46F3FFFFFFFFFFFFFF
+        FFFFFFFFFFFF4259F4FF4E64F6FF5F75FCFF2C3BBFFFFFFFFF002A3ABFFF7386
+        FAFF495FF3FF435AF3FF6E80F6FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+        FFFF6E80F6FF435AF3FF495FF3FF6E81FAFF2B3ABFFFFFFFFF002939BFFF8696
+        FBFF425AF1FF4259F1FF354EF0FF5B70F2FFFFFFFFFFFFFFFFFFFFFFFFFF5B70
+        F2FF354EF0FF4259F1FF435BF1FF7D90F9FF2A39BFFFFFFFFF002737BFFF9AA8
+        FBFF3A55EFFF3953EEFF2844EDFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+        FFFF2844EDFF3953EEFF3B55EFFF8E9DFAFF2838BFFFFFFFFF002637BFFF9FAB
+        F1FF314CEDFF2B47EBFFFFFFFFFFFFFFFFFFFFFFFFFF5369EFFFFFFFFFFFFFFF
+        FFFFFFFFFFFF2C47EBFF314CEDFF9FABF1FF2737BFFFFFFFFF002838C1FF9FAB
+        F1FF8091F4FF213EE8FFFFFFFFFFFFFFFFFF5D72EEFF2340E8FF5D72EEFFFFFF
+        FFFFFFFFFFFF213EE8FF8091F4FF9FABF1FF2838C1FFFFFFFF002D3DC25B2E3E
+        C3FF97A5EFFF778AF2FF5B71EEFF6074EEFF2643E6FF2C48E7FF2643E6FF6074
+        EEFF5B71EEFF778AF2FF97A5EFFF2E3EC3FF2D3DC25BFFFFFF00000000002C3C
+        C2582E3EC2FF95A2EEFF7688F0FF1E3BE4FF2340E5FF2541E5FF2340E5FF1E3B
+        E4FF7688F0FF95A2EEFF2E3EC2FF2C3CC25800000000FFFFFF00000000000000
+        00002C3CC2582F3DC3FF94A0EFFFADB9F8FFADB8F7FFADB9F7FFADB8F7FFADB9
+        F8FF94A0EFFF2F3DC3FF2C3CC2580000000000000000FFFFFF00000000000000
+        0000000000002C3CC25B303FC4FF4555CEFF4454CDFF4354CDFF4454CDFF4555
+        CEFF303FC4FF2C3CC25B000000000000000000000000FFFFFF00
+      }
       OnClick = btnCloseClick
     end
     object btnSelect: TSpeedButton[1]
       Cursor = crHandPoint
-      Left = 130
+      Left = 110
       Height = 25
       Top = 10
-      Width = 100
+      Width = 120
       Caption = 'Выбрать'
       Enabled = False
+      Glyph.Data = {
+        36040000424D3604000000000000360000002800000010000000100000000100
+        2000000000000004000064000000640000000000000000000000FFFFFF000000
+        000000000000000000000000000A000000250000003300000033000000330000
+        0033000000250000000A000000000000000000000000FFFFFF00FFFFFF000000
+        00000000000000000022004F2B5C008347C9008C4BFF008B4AFF008B4AFF008C
+        4BFF008347C9004F2B5C0000001E0000000000000000FFFFFF00FFFFFF000000
+        00000000001E008046BB009050FF01A169FF01AB76FF01AC79FF01AC79FF01AB
+        76FF01A169FF009050FF007C44AA0000001E00000000FFFFFF00FFFFFF000000
+        000A007C43AA009152FF02AC77FF00C38CFF00D79BFF00DA9CFF00DA9CFF00D7
+        9CFF01C38CFF01AB76FF009253FF007C44AA0000000AFFFFFF00FFFFFF000059
+        3151009051FF0FB483FF00D298FF00D598FF00D192FF00CF90FF00D091FF00D3
+        96FF00D69BFF00D198FF01AB76FF009050FF005A3151FFFFFF00FFFFFF000083
+        45C916AB78FF10C996FF00D397FF00CD8CFFFFFFFFFFFFFFFFFFFFFFFFFF00CC
+        8CFF00D195FF00D59BFF01C18CFF01A169FF008447C9FFFFFF00FFFFFF00008A
+        48FF39C49DFF00D198FF00CB8CFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+        FFFF00CA8CFF00CF96FF00D29BFF01AB76FF008C4BFFFFFFFF00FFFFFF000089
+        46FF52D2B0FF00CC92FFFFFFFFFFFFFFFFFFFFFFFFFF00C484FFFFFFFFFFFFFF
+        FFFFFFFFFFFF00C88DFF00D09AFF00AD79FF008B4AFFFFFFFF00FFFFFF000088
+        45FF68DDBEFF00C991FFFFFFFFFFFFFFFFFF00C68CFF00C891FF00C58BFFFFFF
+        FFFFFFFFFFFFFFFFFFFF00CC96FF00AD78FF008B4AFFFFFFFF00FFFFFF000088
+        46FF76E0C6FF00CB98FF00C590FF00C691FF00C895FF00C997FF00C894FF00C3
+        8CFFFFFFFFFFFFFFFFFF00C792FF00AB75FF008C4BFFFFFFFF00FFFFFF000088
+        46BE59C9A4FF49DEBCFF00C794FF00C897FF00C998FF00C999FF00C998FF00C7
+        94FF00C38EFFFFFFFFFF00BD8AFF00A067FF008B4BBFFFFFFF00FFFFFF00008C
+        4B330A9458FFADF8E9FF18D0A7FF00C495FF00C697FF00C698FF00C798FF00C7
+        98FF00C697FF00C596FF12B585FF008F50FF008E4D33FFFFFF00FFFFFF000000
+        0000008A48AA199C63FFBCFFF7FF5EE4C9FF00C59AFF00C396FF00C497FF00C5
+        9AFF22CAA2FF2FC196FF029355FF008D4C9500000000FFFFFF00FFFFFF000000
+        000000000000008A48950E9659FF74D5B6FFA0F4E1FF94EFDCFF7CE6CCFF5ED6
+        B5FF2EB587FF039152FF008C4CAA0000000000000000FFFFFF00FFFFFF000000
+        00000000000000000000008C4A33008946BB008744FF008743FF008744FF0089
+        46FF008B49BB008D4C33000000000000000000000000FFFFFF00FFFFFF00FFFF
+        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
+      }
       OnClick = btnSelectClick
     end
   end

diff --git a/App/Dialogs/SelectDirectoryDialog/SelectDirectoryDialogUnit.pas b/App/Dialogs/SelectDirectoryDialog/SelectDirectoryDialogUnit.pas
@@ -91,6 +91,7 @@ procedure TSelectDirectoryDialogForm.PrepareInterface(ACaption, APath: String);
   begin
     stvDirectoryTree.Path := APath;
     edCurrentPath.Text := APath;
+    btnSelect.Enabled := True;
   end;
 end;
-Original file line number
+Diff line change
@@ Expand Up @@
       begin
         stvDirectoryTree.Path := APath;
         edCurrentPath.Text := APath;
+        btnSelect.Enabled := True;
       end;
     end;
@@ Expand Down @@