diff --git a/src/ce_procinput.lfm b/src/ce_procinput.lfm index a064c2bf..51561fad 100644 --- a/src/ce_procinput.lfm +++ b/src/ce_procinput.lfm @@ -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 diff --git a/src/ce_procinput.pas b/src/ce_procinput.pas index 52f11144..f1169d8a 100644 --- a/src/ce_procinput.pas +++ b/src/ce_procinput.pas @@ -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 --------------------------------------------------------------------}