paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 07:39:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: TCustomBitBtn.Spacing default changed to 4 to be delphi compatibile.issue #24541

Browse Source 
git-svn-id: trunk@41509 -
This commit is contained in:
zeljko 2013-06-03 11:37:30 +00:00
parent 641ea1824b
commit b03327f896
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/buttons.pp
View File

@ -179,7 +179,7 @@ type
property Kind: TBitBtnKind read FKind write SetKind default bkCustom; property Kind: TBitBtnKind read FKind write SetKind default bkCustom;
property Layout: TButtonLayout read FLayout write SetLayout default blGlyphLeft; property Layout: TButtonLayout read FLayout write SetLayout default blGlyphLeft;
property Margin: integer read FMargin write SetMargin default -1; property Margin: integer read FMargin write SetMargin default -1;
property Spacing: Integer read FSpacing write SetSpacing default 3; property Spacing: Integer read FSpacing write SetSpacing default 4;
property GlyphShowMode: TGlyphShowMode read GetGlyphShowMode write SetGlyphShowMode default gsmApplication; property GlyphShowMode: TGlyphShowMode read GetGlyphShowMode write SetGlyphShowMode default gsmApplication;
end; end;

2
lcl/include/bitbtn.inc
View File

@ -19,7 +19,7 @@ begin
FDefaultCaption := False; FDefaultCaption := False;
FKind := bkCustom; FKind := bkCustom;
FLayout := blGlyphLeft; FLayout := blGlyphLeft;
FSpacing := 3; FSpacing := 4;
FMargin := -1; FMargin := -1;
FButtonGlyph := TButtonGlyph.Create; FButtonGlyph := TButtonGlyph.Create;
FButtonGlyph.NumGlyphs := 1; FButtonGlyph.NumGlyphs := 1;