UPD: Disable minimize button in some modal dialogs

This commit is contained in:
Alexander Koblov 2012-03-13 16:13:13 +00:00
commit be5431213c
2 changed files with 2 additions and 1 deletions

View file

@ -4,6 +4,7 @@ object frmDescrEdit: TfrmDescrEdit
Top = 175
Width = 400
ActiveControl = memDescr
BorderIcons = [biSystemMenu, biMaximize]
Caption = 'File/folder comment'
ClientHeight = 300
ClientWidth = 400

View file

@ -199,7 +199,7 @@ begin
Assert(Assigned(frmMsg));
frmMsg.Position:=poScreenCenter;
frmMsg.BorderStyle := bsSingle;
frmMsg.BorderIcons := [biSystemMenu, biMinimize];
frmMsg.BorderIcons := [biSystemMenu];
if (High(Buttons)+1)>=3 then
frmMsg.Width:=(cButtonWidth+cButtonSpace)*3+cButtonSpace