jvcllaz: Implement lcl scaling for TJvRollOut. Adapt demo project.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7287 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2020-01-14 21:50:21 +00:00
parent d44027354c
commit 001c4a6db2
3 changed files with 59 additions and 9 deletions
--- a/components/jvcllaz/examples/JvRollOut/MainFrm.lfm
+++ b/components/jvcllaz/examples/JvRollOut/MainFrm.lfm
@ -13,7 +13,6 @@ object Form1: TForm1
  OnCreate = FormCreate
  Position = poScreenCenter
  LCLVersion = '2.1.0.0'
-  Scaled = False
  object Splitter1: TSplitter
    Cursor = crSizeWE
    Left = 280
@ -51,7 +50,7 @@ object Form1: TForm1
      Left = 16
      Height = 19
      Top = 40
-      Width = 67
+      Width = 66
      Caption = 'Tab Stop'
      Checked = True
      OnClick = chkTabStopClick
@ -62,7 +61,7 @@ object Form1: TForm1
      Left = 128
      Height = 19
      Top = 16
-      Width = 113
+      Width = 112
      Caption = 'Toggle Anywhere'
      OnClick = chkToggleAnywhereClick
      TabOrder = 2
@ -1066,7 +1065,10 @@ object Form1: TForm1
        Width = 131
        Align = alBottom
        ButtonFont.Color = clWindowText
+        ButtonFont.Height = -27
+        ButtonFont.Name = 'Courier'
        ButtonFont.Style = [fsBold]
+        ButtonHeight = 60
        Caption = '&J'
        Font.Color = clWindowText
        GroupIndex = 1
@ -1080,7 +1082,7 @@ object Form1: TForm1
        FAWidth = 145
        FAHeight = 170
        FCWidth = 22
-        FCHeight = 22
+        FCHeight = 62
      end
      object RO19: TJvRollOut
        Left = 0