unit1.dfm

scale属性的应用演示

object Form1: TForm1
  Left = 481
  Top = 308
  AutoScroll = False
  Caption = 'Form1'
  ClientHeight = 173
  ClientWidth = 392
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  ScreenSnap = True
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 14
  object Smaller: TButton
    Left = 40
    Top = 8
    Width = 75
    Height = 25
    Caption = 'smaller'
    TabOrder = 0
    OnClick = SmallerClick
  end
  object bigger: TButton
    Left = 40
    Top = 40
    Width = 75
    Height = 25
    Caption = 'bigger'
    TabOrder = 1
    OnClick = biggerClick
  end
  object Button2: TButton
    Left = 40
    Top = 96
    Width = 75
    Height = 25
    Caption = 'Scale 0.5'
    TabOrder = 2
    OnClick = Button2Click
  end
  object Memo1: TMemo
    Left = 136
    Top = 8
    Width = 241
    Height = 153
    TabOrder = 3
  end
  object Button1: TButton
    Left = 40
    Top = 128
    Width = 75
    Height = 25
    Caption = 'Scale 2'
    TabOrder = 4
    OnClick = Button1Click
  end
end