diff options
author | Graeme Geldenhuys <graemeg@users.sourceforge.net> | 2007-01-23 14:48:31 +0000 |
---|---|---|
committer | Graeme Geldenhuys <graemeg@users.sourceforge.net> | 2007-01-23 14:48:31 +0000 |
commit | c0fe0b96fa12d2ce8b7ff0d2d929c5b2181135f7 (patch) | |
tree | 59e9a7de4871633cafdfaf77e442c0d656d582ce /gui/style.inc | |
parent | 07a6706d95e5a97e610eba483b13217367a193d3 (diff) | |
download | fpGUI-c0fe0b96fa12d2ce8b7ff0d2d929c5b2181135f7.tar.xz |
* MouseLeaveCheck no fires off a MouseEnter and MouseLeave event for widgets.
This makes writing other widgets easier.
* Fixed the button size of the TComboBox widget.
* Fixed the examples/gui/helloworld application.
* Added a extras directory where we can store all kinds of stuff. Currently I
added a Lazarus code template for creating a new fpGUI application.
* Fixed a bug in fpGFX/X11 where the OnEnter event was checked when in actual
fact the OnLeave event occured.
* Fixed up some code to start Xft support for Linux again.
* Internal or composite widgets like the Button in the ComboBox are now named
with a hash and then the name.
Diffstat (limited to 'gui/style.inc')
-rw-r--r-- | gui/style.inc | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/gui/style.inc b/gui/style.inc index c71dce16..ef32d399 100644 --- a/gui/style.inc +++ b/gui/style.inc @@ -70,6 +70,7 @@ // Combo boxes function GetComboBoxArrowSize: TSize; virtual; abstract; procedure DrawComboBoxArrow(Canvas: TFCanvas; const ARect: TRect; IsPressed, IsEnabled: Boolean); virtual; abstract; + function GetComboBoxBtnSize: TSize; virtual; abstract; // Scroll bars function GetScrollBarBorders(Orientation: TOrientation): TRect; virtual; abstract; function GetScrollBarBtnSize(Orientation: TOrientation): TSize; virtual; abstract; @@ -127,6 +128,7 @@ // Combo boxes procedure DrawComboBoxArrow(Canvas: TFCanvas; const ARect: TRect; IsPressed, IsEnabled: Boolean); override; function GetComboBoxArrowSize: TSize; override; + function GetComboBoxBtnSize: TSize; override; // Scroll bars function GetScrollBarBorders(Orientation: TOrientation): TRect; override; function GetScrollBarBtnSize(Orientation: TOrientation): TSize; override; @@ -627,7 +629,14 @@ end; function TDefaultStyle.GetComboBoxArrowSize: TSize; begin - Result := Size(16, 17); + Result.cx := 17; + Result.cy := 17; +end; + +function TDefaultStyle.GetComboBoxBtnSize: TSize; +begin + Result.cx := 18; + Result.cy := 18; end; procedure TDefaultStyle.DrawComboBoxArrow(Canvas: TFCanvas; |