forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

prevented proc input field height to be sized

This commit is contained in:
Basile Burg 2015-05-11 12:53:04 +02:00
parent de34bed12d
commit 187b9499d0
2 changed files with 59 additions and 43 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

98
src/ce_procinput.lfm
View File

@ -1,59 +1,71 @@
inherited CEProcInputWidget: TCEProcInputWidget inherited CEProcInputWidget: TCEProcInputWidget
Left = 868 Left = 863
Height = 61 Height = 65
Top = 335 Top = 397
Width = 608 Width = 613
Caption = 'Process input' Caption = 'Process input'
ClientHeight = 61 ClientHeight = 65
ClientWidth = 608 ClientWidth = 613
inherited Back: TPanel inherited Back: TPanel
Height = 61 Height = 65
Width = 608 Width = 613
ClientHeight = 61 ClientHeight = 65
ClientWidth = 608 ClientWidth = 613
inherited Content: TPanel inherited Content: TPanel
Height = 61 Height = 65
Width = 608 Width = 613
ClientHeight = 61 ClientHeight = 65
ClientWidth = 608 ClientWidth = 613
object txtInp: TEdit[0] object txtExeName: TStaticText[0]
Left = 4
Height = 27
Top = 30
Width = 521
Align = alClient
BorderSpacing.Left = 4
BorderSpacing.Top = 2
BorderSpacing.Right = 4
BorderSpacing.Bottom = 4
OnKeyDown = txtInpKeyDown
TabOrder = 0
end
object btnSend: TButton[1]
Left = 529
Height = 27
Top = 30
Width = 75
Align = alRight
BorderSpacing.Top = 2
BorderSpacing.Right = 4
BorderSpacing.Bottom = 4
Caption = 'Send'
OnClick = btnSendClick
TabOrder = 1
end
object txtExeName: TStaticText[2]
Left = 4 Left = 4
Height = 22 Height = 22
Top = 4 Top = 4
Width = 600 Width = 605
Align = alTop Align = alTop
BorderSpacing.Around = 4 BorderSpacing.Around = 4
BorderStyle = sbsSunken BorderStyle = sbsSunken
Caption = 'no process' Caption = 'no process'
TabOrder = 2 TabOrder = 0
Transparent = False Transparent = False
end end
object Panel1: TPanel[1]
Left = 4
Height = 30
Top = 31
Width = 605
Align = alBottom
BorderSpacing.Around = 4
BevelOuter = bvNone
ClientHeight = 30
ClientWidth = 605
TabOrder = 1
object btnSend: TButton
Left = 530
Height = 30
Top = 0
Width = 75
Align = alRight
BorderSpacing.Left = 4
Caption = 'Send'
OnClick = btnSendClick
TabOrder = 0
end
object txtInp: TEdit
Left = 0
Height = 26
Top = 2
Width = 526
Align = alClient
BorderSpacing.Top = 2
BorderSpacing.Bottom = 2
OnKeyDown = txtInpKeyDown
TabOrder = 1
end end
end end
end end
end
inherited contextMenu: TPopupMenu
left = 16
top = 8
end
end

4
src/ce_procinput.pas
View File

@ -10,8 +10,12 @@ uses
ce_mru; ce_mru;
type type
{ TCEProcInputWidget }
TCEProcInputWidget = class(TCEWidget, ICEProcInputHandler) TCEProcInputWidget = class(TCEWidget, ICEProcInputHandler)
btnSend: TButton; btnSend: TButton;
Panel1: TPanel;
txtInp: TEdit; txtInp: TEdit;
txtExeName: TStaticText; txtExeName: TStaticText;
procedure btnSendClick(Sender: TObject); procedure btnSendClick(Sender: TObject);