diff options
Diffstat (limited to 'src/gui')
| -rw-r--r-- | src/gui/gui_edit.pas | 32 | ||||
| -rw-r--r-- | src/gui/messagedialog.inc | 2 |
2 files changed, 26 insertions, 8 deletions
diff --git a/src/gui/gui_edit.pas b/src/gui/gui_edit.pas index ce9a9f64..7582d494 100644 --- a/src/gui/gui_edit.pas +++ b/src/gui/gui_edit.pas @@ -193,9 +193,18 @@ type procedure Format; override; procedure HandleKeyChar(var AText: TfpgChar; var shiftstate: TShiftState; var consumed: Boolean); override; published - property Alignment; - property NegativeColor; - property Value: integer read GetValue write SetValue; + property Alignment; + property NegativeColor; + property Value: integer read GetValue write SetValue; + property TabOrder; + property TextColor; + property OnChange; + property OnEnter; + property OnExit; + property OnKeyPress; + property OnMouseEnter; + property OnMouseExit; + property OnPaint; end; @@ -205,10 +214,19 @@ type procedure SetValue(const AValue: extended); virtual; procedure HandleKeyChar(var AText: TfpgChar; var shiftstate: TShiftState; var consumed: Boolean); override; published - property Alignment; - property NegativeColor; - property DecimalSeparator; - property Value: extended read GetValue write SetValue; + property Alignment; + property NegativeColor; + property DecimalSeparator; + property Value: extended read GetValue write SetValue; + property TabOrder; + property TextColor; + property OnChange; + property OnEnter; + property OnExit; + property OnKeyPress; + property OnMouseEnter; + property OnMouseExit; + property OnPaint; end; diff --git a/src/gui/messagedialog.inc b/src/gui/messagedialog.inc index 8bfaee4f..4e1257e7 100644 --- a/src/gui/messagedialog.inc +++ b/src/gui/messagedialog.inc @@ -450,7 +450,7 @@ begin Width := 500; Height := 400; MinWidth := 300; - MinHeight := 300; + MinHeight := 160; WindowPosition := wpScreenCenter; lblName1 := TfpgLabel.Create(self); |