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

LCL: Prevent rotated font from being detected as default font (patch by Michl)

Browse Source 
git-svn-id: trunk@56473 -
This commit is contained in:
wp 2017-11-23 14:06:04 +00:00
parent fbcfb574e4
commit 3dfca3521a
2 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ide/frames/codetools_classcompletion_options.lfm
View File

@ -82,10 +82,10 @@ object CodetoolsClassCompletionOptionsFrame: TCodetoolsClassCompletionOptionsFra
ClientWidth = 559
TabOrder = 1
object PrivateVariablePrefixLabel: TLabel
Left = 34
Left = 35
Height = 15
Top = 4
Width = 135
Width = 134
BorderSpacing.Right = 6
BorderSpacing.CellAlignHorizontal = ccaRightBottom
BorderSpacing.CellAlignVertical = ccaCenter
@ -126,10 +126,10 @@ object CodetoolsClassCompletionOptionsFrame: TCodetoolsClassCompletionOptionsFra
ParentColor = False
end
object SetPropertyVariablenameLabel: TLabel
Left = 8
Left = 9
Height = 15
Top = 96
Width = 161
Width = 160
BorderSpacing.Right = 6
BorderSpacing.CellAlignHorizontal = ccaRightBottom
BorderSpacing.CellAlignVertical = ccaCenter
@ -265,6 +265,7 @@ object CodetoolsClassCompletionOptionsFrame: TCodetoolsClassCompletionOptionsFra
ShowHint = True
end
object ClassPartInsertPolicyComboBox: TComboBox
AnchorSideRight.Control = InsertPoliciesPanel
Left = 159
Height = 23
Top = 6

1
lcl/include/font.inc
View File

@ -766,6 +766,7 @@ begin
and (Color={$ifdef UseCLDefault}clDefault{$else}clWindowText{$endif})
and (Height=0)
and (not IsNameStored)
and (Orientation=0)
and (Pitch=fpDefault)
and (Size=0)
and (Quality=fqDefault)