PC World 1999 June/PCWorld_1999-06_cd.bin/software/Vyzkuste/Painter/Painter17.exe/0/RCDATA/TBUTTONF/TBUTTONF.txt

Text File | 1999-04-23 | 12KB | 532 lines

object ButtonF: TButtonF
  Left = 46
  Top = 90
  BorderStyle = bsSingle
  Caption = 'Jans Button '
  ClientHeight = 433
  ClientWidth = 678
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 120
  TextHeight = 16
  object ScrollBox1: TScrollBox
    Left = 65
    Top = 65
    Width = 303
    Height = 334
    Align = alClient
    Color = 14745599
    ParentColor = False
    TabOrder = 0
    object but: TImage
      Left = 16
      Top = 8
      Width = 250
      Height = 250
    end
  end
  object Panel1: TPanel
    Left = 368
    Top = 65
    Width = 310
    Height = 334
    Align = alRight
    TabOrder = 1
    object Bevel1: TBevel
      Left = 88
      Top = 1
      Width = 221
      Height = 332
      Align = alRight
    end
    object fontsizecap: TLabel
      Left = 160
      Top = 64
      Width = 14
      Height = 16
      Caption = '14'
    end
    object Label1: TLabel
      Left = 280
      Top = 152
      Width = 14
      Height = 16
      Caption = 'dx'
    end
    object Label2: TLabel
      Left = 280
      Top = 176
      Width = 15
      Height = 16
      Caption = 'dy'
    end
    object EdgeWidth: TTrackBar
      Left = 40
      Top = 144
      Width = 17
      Height = 121
      Hint = 'Edge Size'
      Max = 30
      Min = 1
      Orientation = trVertical
      ParentShowHint = False
      Frequency = 1
      Position = 5
      SelEnd = 0
      SelStart = 0
      ShowHint = True
      TabOrder = 0
      ThumbLength = 15
      TickMarks = tmBottomRight
      TickStyle = tsAuto
      OnChange = goEdgeClick
    end
    object rightcolor: TColorGrid
      Left = 8
      Top = 8
      Width = 17
      Height = 256
      Hint = 'Righ Edge Color'
      GridOrdering = go1x16
      ForegroundIndex = 8
      BackgroundEnabled = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnClick = goEdgeClick
    end
    object facecolor: TColorGrid
      Left = 40
      Top = 8
      Width = 32
      Height = 128
      Hint = 'Face Color'
      GridOrdering = go2x8
      ForegroundIndex = 14
      BackgroundEnabled = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      OnClick = goEdgeClick
    end
    object buttext: TEdit
      Left = 157
      Top = 8
      Width = 121
      Height = 24
      Hint = 'Button Text'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      Text = 'Jans Button'
    end
    object butfont: TComboBox
      Left = 157
      Top = 40
      Width = 145
      Height = 22
      Hint = 'Font Face'
      Style = csOwnerDrawFixed
      ItemHeight = 16
      ParentShowHint = False
      ShowHint = True
      TabOrder = 4
      OnClick = goEdgeClick
      OnDrawItem = butfontDrawItem
    end
    object fontsize: TTrackBar
      Left = 152
      Top = 80
      Width = 150
      Height = 17
      Hint = 'Font Size'
      Max = 36
      Min = 8
      Orientation = trHorizontal
      ParentShowHint = False
      Frequency = 1
      Position = 14
      SelEnd = 0
      SelStart = 0
      ShowHint = True
      TabOrder = 5
      ThumbLength = 15
      TickMarks = tmBottomRight
      TickStyle = tsNone
      OnChange = goEdgeClick
    end
    object fontcolor: TColorGrid
      Left = 96
      Top = 8
      Width = 32
      Height = 128
      Hint = 'Text Color'
      GridOrdering = go2x8
      BackgroundEnabled = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 6
      OnClick = goEdgeClick
    end
    object fontbold: TCheckBox
      Left = 160
      Top = 104
      Width = 57
      Height = 17
      Caption = 'Bold'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 7
      OnClick = goEdgeClick
    end
    object fontitalic: TCheckBox
      Left = 224
      Top = 104
      Width = 65
      Height = 17
      Caption = 'Italic'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsItalic]
      ParentFont = False
      TabOrder = 8
      OnClick = goEdgeClick
    end
    object fontunderline: TCheckBox
      Left = 160
      Top = 128
      Width = 81
      Height = 17
      Caption = 'Underline'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsUnderline]
      ParentFont = False
      TabOrder = 9
      OnClick = goEdgeClick
    end
    object shadowdx: TTrackBar
      Left = 152
      Top = 152
      Width = 121
      Height = 20
      Hint = 'Shadow dx'
      Max = 20
      Min = -20
      Orientation = trHorizontal
      ParentShowHint = False
      Frequency = 1
      Position = 4
      SelEnd = 0
      SelStart = 0
      ShowHint = True
      TabOrder = 10
      ThumbLength = 15
      TickMarks = tmBottomRight
      TickStyle = tsNone
      OnChange = goEdgeClick
    end
    object shadowdy: TTrackBar
      Left = 152
      Top = 176
      Width = 121
      Height = 20
      Hint = 'Shadow dy'
      Max = 20
      Min = -20
      Orientation = trHorizontal
      ParentShowHint = False
      Frequency = 1
      Position = 4
      SelEnd = 0
      SelStart = 0
      ShowHint = True
      TabOrder = 11
      ThumbLength = 15
      TickMarks = tmBottomRight
      TickStyle = tsNone
      OnChange = goEdgeClick
    end
    object shadowcolor: TColorGrid
      Left = 160
      Top = 200
      Width = 136
      Height = 32
      Hint = 'Shadow Color'
      GridOrdering = go8x2
      ForegroundIndex = 7
      BackgroundEnabled = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 12
      OnClick = goEdgeClick
    end
    object styled: TCheckBox
      Left = 104
      Top = 248
      Width = 57
      Height = 17
      Caption = 'styled'
      TabOrder = 13
      OnClick = goEdgeClick
    end
    object styleoptions: TRadioGroup
      Left = 168
      Top = 240
      Width = 129
      Height = 81
      Caption = 'style options'
      ItemIndex = 0
      Items.Strings = (
        'Shadow'
        'Raised'
        'Inset')
      TabOrder = 14
      OnClick = goEdgeClick
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 678
    Height = 65
    Align = alTop
    TabOrder = 2
    object goSave: TSpeedButton
      Left = 608
      Top = 8
      Width = 65
      Height = 46
      Hint = 'Save Button as'#13#10'bmp, gif or jpg'
      Caption = 'Save'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMaroon
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = goSaveClick
    end
    object gobg: TSpeedButton
      Left = 448
      Top = 32
      Width = 145
      Height = 22
      Hint = 'Load a backdrop image'#13#10'(bmp, gif or jpg)'#13#10'for the button face'
      Caption = 'BackDrop'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMaroon
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = gobgClick
    end
    object goEdge: TSpeedButton
      Left = 376
      Top = 8
      Width = 65
      Height = 46
      Hint = 'Show Button'
      Caption = 'Show'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = goEdgeClick
    end
    object widthcap: TLabel
      Left = 24
      Top = 32
      Width = 21
      Height = 16
      Caption = '250'
    end
    object topcolor: TColorGrid
      Left = 72
      Top = 8
      Width = 256
      Height = 17
      Hint = 'Top Edge Color'
      GridOrdering = go16x1
      ForegroundIndex = 7
      BackgroundEnabled = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = goEdgeClick
    end
    object butwidth: TTrackBar
      Left = 64
      Top = 32
      Width = 305
      Height = 45
      Hint = 'Button Width'
      Max = 400
      Min = 25
      Orientation = trHorizontal
      ParentShowHint = False
      Frequency = 1
      Position = 250
      SelEnd = 0
      SelStart = 0
      ShowHint = True
      TabOrder = 1
      ThumbLength = 20
      TickMarks = tmBottomRight
      TickStyle = tsNone
      OnChange = goEdgeClick
    end
    object hasbackdrop: TCheckBox
      Left = 448
      Top = 8
      Width = 81
      Height = 17
      Caption = 'BackDrop'
      TabOrder = 2
    end
    object BackEdges: TCheckBox
      Left = 536
      Top = 8
      Width = 65
      Height = 17
      Caption = 'Edges'
      TabOrder = 3
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 399
    Width = 678
    Height = 34
    Align = alBottom
    TabOrder = 3
    object goCopy: TSpeedButton
      Left = 600
      Top = 6
      Width = 57
      Height = 22
      Caption = 'Copy'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold, fsItalic]
      ParentFont = False
      OnClick = goCopyClick
    end
    object bottomcolor: TColorGrid
      Left = 72
      Top = 8
      Width = 256
      Height = 17
      Hint = 'Bottom Edge Color'
      GridOrdering = go16x1
      BackgroundEnabled = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = goEdgeClick
    end
  end
  object Panel4: TPanel
    Left = 0
    Top = 65
    Width = 65
    Height = 334
    Align = alLeft
    TabOrder = 4
    object heightcap: TLabel
      Left = 16
      Top = 272
      Width = 21
      Height = 16
      Caption = '250'
    end
    object leftcolor: TColorGrid
      Left = 8
      Top = 8
      Width = 17
      Height = 256
      Hint = 'Left Edge Color'
      GridOrdering = go1x16
      ForegroundIndex = 15
      BackgroundEnabled = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = goEdgeClick
    end
    object butheight: TTrackBar
      Left = 32
      Top = 24
      Width = 45
      Height = 241
      Hint = 'Button Height'
      Max = 250
      Min = 25
      Orientation = trVertical
      ParentShowHint = False
      Frequency = 1
      Position = 250
      SelEnd = 0
      SelStart = 0
      ShowHint = True
      TabOrder = 1
      ThumbLength = 20
      TickMarks = tmBottomRight
      TickStyle = tsNone
      OnChange = goEdgeClick
    end
  end
  object mscap: TMSOfficeCaption
    AppNameText.Caption = 'Button'
    AppNameText.FontKind = fkSystemB
    AppNameText.Visible = True
    CaptionText.FontKind = fkSystem
    CaptionText.Visible = True
    CompanyText.Caption = 'Jans'
    CompanyText.FontKind = fkSystemBI
    CompanyText.Visible = True
    Left = 472
    Top = 233
  end
  object SaveDialog1: TSaveDialog
    Filter = 'Graphic Files|*.bmp;*.gif;*.jpg'
    Left = 536
    Top = 56
  end
  object OpenDialog1: TOpenDialog
    Filter = 'Graphic Files|*.bmp;*.gif;*jpg'
    Left = 472
    Top = 265
  end
end