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

process input widget, flat style

This commit is contained in:
Basile Burg 2016-10-21 14:09:42 +02:00
parent 58f47db23c
commit 4ad0b6bdfe
No known key found for this signature in database
GPG Key ID: 1868039F415CB8CF
2 changed files with 53 additions and 57 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

98
src/ce_procinput.lfm
View File

@ -1,26 +1,26 @@
inherited CEProcInputWidget: TCEProcInputWidget
Left = 863
Height = 63
Height = 107
Top = 397
Width = 620
Width = 558
Caption = 'Process input'
ClientHeight = 63
ClientWidth = 620
ClientHeight = 107
ClientWidth = 558
inherited Back: TPanel
Height = 63
Width = 620
ClientHeight = 63
ClientWidth = 620
Height = 107
Width = 558
ClientHeight = 107
ClientWidth = 558
inherited Content: TPanel
Height = 63
Width = 620
ClientHeight = 63
ClientWidth = 620
Height = 71
Width = 558
ClientHeight = 71
ClientWidth = 558
object txtExeName: TStaticText[0]
Left = 4
Height = 22
Height = 24
Top = 4
Width = 612
Width = 550
Align = alTop
BorderSpacing.Around = 4
BorderStyle = sbsSunken
@ -30,68 +30,62 @@ inherited CEProcInputWidget: TCEProcInputWidget
end
object Panel1: TPanel[1]
Left = 4
Height = 30
Top = 30
Width = 612
Height = 32
Top = 32
Width = 550
Align = alTop
BorderSpacing.Around = 4
BevelOuter = bvNone
ClientHeight = 30
ClientWidth = 612
ClientHeight = 32
ClientWidth = 550
Enabled = False
TabOrder = 1
object txtInp: TEdit
Left = 0
Height = 26
Top = 2
Width = 520
Top = 3
Width = 449
Align = alClient
BorderSpacing.Top = 2
BorderSpacing.Bottom = 2
BorderSpacing.Top = 3
BorderSpacing.Bottom = 3
OnKeyDown = txtInpKeyDown
TabOrder = 0
end
object btnClose: TBitBtn
Left = 552
Height = 26
Hint = 'close the process input stream'
object btnClose: TSpeedButton
Left = 484
Height = 28
Hint = 'close standard input'
Top = 2
Width = 28
Width = 31
Align = alRight
BorderSpacing.Around = 2
Layout = blGlyphBottom
OnClick = btnCloseClick
Spacing = 0
TabOrder = 1
end
object btnSend: TBitBtn
Left = 522
Height = 26
Hint = 'send the text to hte process'
object btnKill: TSpeedButton
Left = 517
Height = 28
Hint = 'kill process'
Top = 2
Width = 28
Width = 31
Align = alRight
BorderSpacing.Around = 2
Layout = blGlyphBottom
OnClick = btnSendClick
Spacing = 0
TabOrder = 2
end
object btnKill: TBitBtn
Left = 582
Height = 26
Hint = 'kill the process'
Top = 2
Width = 28
Align = alRight
BorderSpacing.Around = 2
Layout = blGlyphBottom
OnClick = btnKillClick
Spacing = 0
TabOrder = 3
end
object btnSend: TSpeedButton
Left = 451
Height = 28
Hint = 'write content to standard input'
Top = 2
Width = 31
Align = alRight
BorderSpacing.Around = 2
OnClick = btnSendClick
end
end
end
inherited toolbar: TCEToolBar
Width = 550
end
end
inherited contextMenu: TPopupMenu
left = 16

12
src/ce_procinput.pas
View File

@ -7,17 +7,17 @@ interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
Menus, StdCtrls, Buttons, ce_widget, process, ce_common, ce_interfaces,
ce_observer, ce_mru, ce_sharedres;
ce_observer, ce_mru, ce_sharedres, ce_dsgncontrols;
type
{ TCEProcInputWidget }
TCEProcInputWidget = class(TCEWidget, ICEProcInputHandler)
btnClose: TBitBtn;
btnKill: TBitBtn;
btnSend: TBitBtn;
Panel1: TPanel;
btnClose: TSpeedButton;
btnKill: TSpeedButton;
btnSend: TSpeedButton;
txtInp: TEdit;
txtExeName: TStaticText;
procedure btnCloseClick(Sender: TObject);
@ -83,7 +83,9 @@ end;
procedure TCEProcInputWidget.setToolBarFlat(value: boolean);
begin
inherited;
//btnClose.flat = fToolbarFlat;
btnClose.flat := fToolbarFlat;
btnKill.flat := fToolbarFlat;
btnSend.flat := fToolbarFlat;
end;
{$ENDREGION --------------------------------------------------------------------}