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

Fix DividerBevel.Font; save Style property, if none bold. Issue #0019763

Browse Source 
git-svn-id: trunk@31876 -
This commit is contained in:
martin 2011-08-05 13:43:02 +00:00
parent 81fef95622
commit 2f092a33ad
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/lazcontrols/dividerbevel.pas
View File

@ -175,10 +175,11 @@ constructor TDividerBevel.Create(AOwner: TComponent);
begin begin
inherited Create(AOwner); inherited Create(AOwner);
ControlStyle := [csSetCaption]; ControlStyle := [csSetCaption];
Font.Style := Font.Style + [fsBold];
FCaptionSpacing := 10; FCaptionSpacing := 10;
LeftIndent := 60; LeftIndent := 60;
FNeedCalcSize := True; FNeedCalcSize := True;
if (AOwner = nil) or not(csLoading in AOwner.ComponentState) then
Font.Style := Font.Style + [fsBold];
with GetControlClassDefaultSize do with GetControlClassDefaultSize do
SetInitialBounds(0, 0, CX, CY); SetInitialBounds(0, 0, CX, CY);
end; end;