From 16b307ddad80a4f8b4071747e3da774286ecd45c Mon Sep 17 00:00:00 2001 From: mattias Date: Sat, 17 Aug 2002 23:41:26 +0000 Subject: [PATCH] fixed default font git-svn-id: trunk@2508 - --- lcl/buttons.pp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lcl/buttons.pp b/lcl/buttons.pp index 5fab96dc6a..cf8c733993 100644 --- a/lcl/buttons.pp +++ b/lcl/buttons.pp @@ -182,9 +182,6 @@ type { TSpeedButton } - TMyCollectionItem = class(TCollectionItem) - end; - TSpeedButton = class(TGraphicControl) private FAllowAllUp : Boolean; @@ -208,7 +205,7 @@ type procedure SetGlyph(value : TBitmap); procedure SetLayout(const Value : TButtonLayout); procedure SetTransparent(const Value : boolean); - procedure CMButtonPressed(var MEssage : TLMessage); message CM_BUTTONPRESSED; + procedure CMButtonPressed(var Message : TLMessage); message CM_BUTTONPRESSED; procedure CMMouseEnter(var Message :TLMessage); message CM_MouseEnter; procedure CMMouseLeave(var Message :TLMessage); message CM_MouseLeave; procedure CMEnabledChanged(var Message: TLMessage); message CM_ENABLEDCHANGED; @@ -291,6 +288,9 @@ end. { ============================================================================= $Log$ + Revision 1.38 2003/04/02 13:23:23 mattias + fixed default font + Revision 1.37 2003/03/08 21:51:57 mattias make resource string dialog nearly complete