FIX: background color of some Buttons (issue #1593)

(cherry picked from commit 69ab554ba5)
This commit is contained in:
rich2014 2024-04-28 20:51:40 +08:00 committed by Alexander Koblov
commit 0272038b9f
3 changed files with 3 additions and 4 deletions

View file

@ -39,6 +39,7 @@ procedure TfrmMsg.FormCreate(Sender: TObject);
begin
Escape:= -1;
iSelected:= -1;
pnlButtons.ParentColor:= true;
end;
procedure TfrmMsg.FormClose(Sender: TObject; var CloseAction: TCloseAction);

View file

@ -71,8 +71,6 @@ object frmCopyDlg: TfrmCopyDlg
AutoSize = True
BorderSpacing.Top = 8
BevelOuter = bvNone
Color = clForm
ParentColor = False
TabOrder = 1
end
object pnlButtons: TPanel
@ -91,8 +89,6 @@ object frmCopyDlg: TfrmCopyDlg
BevelOuter = bvNone
ClientHeight = 36
ClientWidth = 596
Color = clForm
ParentColor = False
TabOrder = 2
object btnOptions: TButton
Left = 0

View file

@ -19,6 +19,7 @@ inherited frmDeleteDlg: TfrmDeleteDlg
Align = alTop
ClientHeight = 1
ClientWidth = 399
ParentColor = True
object lblMessage: TLabel[0]
AnchorSideLeft.Control = pnlContent
AnchorSideTop.Control = pnlContent
@ -45,6 +46,7 @@ inherited frmDeleteDlg: TfrmDeleteDlg
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 32
ClientWidth = 399
ParentColor = True
inherited btnCancel: TBitBtn
Left = 221
end