From c0fe0b96fa12d2ce8b7ff0d2d929c5b2181135f7 Mon Sep 17 00:00:00 2001 From: Graeme Geldenhuys Date: Tue, 23 Jan 2007 14:48:31 +0000 Subject: * 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. --- gui/style.inc | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) (limited to 'gui/style.inc') 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; -- cgit v1.2.3-70-g09d2