paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-04 09:38:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed default font

Browse Source 
git-svn-id: trunk@2508 -
This commit is contained in:
mattias 2002-08-17 23:41:26 +00:00
parent 17d19b2c5a
commit 16b307ddad
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/buttons.pp
View File

@ -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