paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-18 07:29:30 +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: branches/fixes_1_8@56548 -
This commit is contained in:
mattias 2017-11-30 14:34:59 +00:00
parent d67d85791a
commit d70c7f66f5
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)