mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Bug [0001378]

Browse source
This commit is contained in:
Alexander Koblov 2016-05-22 11:41:04 +00:00
commit e70a1be6fd
2 changed files with 27 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

35
src/ffileexecuteyourself.lfm
View file

@ -12,15 +12,16 @@ object frmFileExecuteYourSelf: TfrmFileExecuteYourSelf
ClientHeight = 102
ClientWidth = 320
OnClose = FormClose
OnCreate = FormCreate
ShowInTaskBar = stAlways
LCLVersion = '1.0.1.3'
LCLVersion = '1.6.0.4'
object lblPrompt: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 8
Height = 14
Height = 15
Top = 8
Width = 304
Anchors = [akTop, akLeft, akRight]
@ -34,7 +35,7 @@ object frmFileExecuteYourSelf: TfrmFileExecuteYourSelf
AnchorSideTop.Side = asrBottom
Left = 123
Height = 30
Top = 70
Top = 45
Width = 75
BorderSpacing.Top = 8
Caption = '&Close'
@ -48,10 +49,10 @@ object frmFileExecuteYourSelf: TfrmFileExecuteYourSelf
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 64
Height = 14
Top = 28
Width = 248
Left = 68
Height = 1
Top = 29
Width = 244
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
BorderSpacing.Top = 6
@ -64,10 +65,10 @@ object frmFileExecuteYourSelf: TfrmFileExecuteYourSelf
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 43
Height = 14
Top = 48
Width = 269
Left = 45
Height = 1
Top = 36
Width = 267
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
BorderSpacing.Top = 6
@ -78,9 +79,9 @@ object frmFileExecuteYourSelf: TfrmFileExecuteYourSelf
AnchorSideTop.Control = lblPrompt
AnchorSideTop.Side = asrBottom
Left = 8
Height = 14
Top = 28
Width = 50
Height = 15
Top = 29
Width = 54
BorderSpacing.Top = 6
Caption = 'File name:'
ParentColor = False
@ -90,9 +91,9 @@ object frmFileExecuteYourSelf: TfrmFileExecuteYourSelf
AnchorSideTop.Control = lblFileName
AnchorSideTop.Side = asrBottom
Left = 8
Height = 14
Top = 48
Width = 29
Height = 15
Top = 50
Width = 31
BorderSpacing.Top = 6
Caption = 'From:'
ParentColor = False

9
src/ffileexecuteyourself.pas
View file

@ -43,6 +43,7 @@ type
lblFileNameValue: TLabel;
lblPrompt: TLabel;
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure FormCreate(Sender: TObject);
private
FFileSource: IFileSource;
public
@ -116,6 +117,14 @@ begin
CloseAction:= caFree;
end;
procedure TfrmFileExecuteYourSelf.FormCreate(Sender: TObject);
begin
// Workaround: TWinControl.WMSize loop detected
// http://doublecmd.sourceforge.net/mantisbt/view.php?id=1378
Constraints.MaxWidth:= Screen.Width;
Constraints.MaxHeight:= Screen.Height;
end;
constructor TfrmFileExecuteYourSelf.Create(TheOwner: TComponent;
aFileSource: IFileSource; const FileName, FromPath: String);
begin