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

12
src/ce_procinput.pas
View File

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