paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 21:42:51 +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 ClientWidth = 559
TabOrder = 1 TabOrder = 1
object PrivateVariablePrefixLabel: TLabel object PrivateVariablePrefixLabel: TLabel
Left = 34 Left = 35
Height = 15 Height = 15
Top = 4 Top = 4
Width = 135 Width = 134
BorderSpacing.Right = 6 BorderSpacing.Right = 6
BorderSpacing.CellAlignHorizontal = ccaRightBottom BorderSpacing.CellAlignHorizontal = ccaRightBottom
BorderSpacing.CellAlignVertical = ccaCenter BorderSpacing.CellAlignVertical = ccaCenter
@ -126,10 +126,10 @@ object CodetoolsClassCompletionOptionsFrame: TCodetoolsClassCompletionOptionsFra
ParentColor = False ParentColor = False
end end
object SetPropertyVariablenameLabel: TLabel object SetPropertyVariablenameLabel: TLabel
Left = 8 Left = 9
Height = 15 Height = 15
Top = 96 Top = 96
Width = 161 Width = 160
BorderSpacing.Right = 6 BorderSpacing.Right = 6
BorderSpacing.CellAlignHorizontal = ccaRightBottom BorderSpacing.CellAlignHorizontal = ccaRightBottom
BorderSpacing.CellAlignVertical = ccaCenter BorderSpacing.CellAlignVertical = ccaCenter
@ -265,6 +265,7 @@ object CodetoolsClassCompletionOptionsFrame: TCodetoolsClassCompletionOptionsFra
ShowHint = True ShowHint = True
end end
object ClassPartInsertPolicyComboBox: TComboBox object ClassPartInsertPolicyComboBox: TComboBox
AnchorSideRight.Control = InsertPoliciesPanel
Left = 159 Left = 159
Height = 23 Height = 23
Top = 6 Top = 6

1
lcl/include/font.inc
View File

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