home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Delphi 4 Bible
/
Delphi_4_Bible_Tom_Swan_IDG_Books_1998.iso
/
source
/
TOOLBAR3
/
MAIN.dfm
/
MAIN.txt
Wrap
Text File
|
1998-05-14
|
4KB
|
160 lines
object MainForm: TMainForm
Left = 200
Top = 94
AutoScroll = False
Caption = 'Floating Toolbar Demonstration'
ClientHeight = 203
ClientWidth = 512
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'System'
Font.Style = []
OldCreateOrder = True
OnCreate = FormCreate
OnMouseMove = FormMouseMove
OnMouseUp = FormMouseUp
PixelsPerInch = 120
TextHeight = 20
object Bevel1: TBevel
Left = 120
Top = 30
Width = 191
Height = 141
end
object Label1: TLabel
Left = 140
Top = 60
Width = 151
Height = 61
AutoSize = False
Caption = 'Click and drag the top of the floating toolbar at left. '
WordWrap = True
end
object FloatingToolbar: TPanel
Left = 19
Top = 24
Width = 82
Height = 151
BevelInner = bvRaised
BorderStyle = bsSingle
TabOrder = 0
OnMouseDown = FloatingToolbarMouseDown
object SpeedButton1: TSpeedButton
Tag = 1
Left = 6
Top = 21
Width = 32
Height = 32
Caption = '1'
OnClick = SpeedButton1Click
end
object SpeedButton2: TSpeedButton
Tag = 2
Left = 40
Top = 21
Width = 31
Height = 32
Caption = '2'
OnClick = SpeedButton1Click
end
object SpeedButton3: TSpeedButton
Tag = 3
Left = 6
Top = 51
Width = 32
Height = 32
Caption = '3'
OnClick = SpeedButton1Click
end
object SpeedButton4: TSpeedButton
Tag = 4
Left = 40
Top = 51
Width = 31
Height = 32
Caption = '4'
OnClick = SpeedButton1Click
end
object SpeedButton5: TSpeedButton
Tag = 5
Left = 6
Top = 81
Width = 32
Height = 32
Caption = '5'
OnClick = SpeedButton1Click
end
object SpeedButton6: TSpeedButton
Tag = 6
Left = 40
Top = 81
Width = 31
Height = 32
Caption = '6'
OnClick = SpeedButton1Click
end
object SpeedButton7: TSpeedButton
Tag = 7
Left = 6
Top = 111
Width = 32
Height = 32
Caption = '7'
OnClick = SpeedButton1Click
end
object SpeedButton8: TSpeedButton
Tag = 8
Left = 40
Top = 111
Width = 31
Height = 32
Caption = '8'
OnClick = SpeedButton1Click
end
end
object BitBtn1: TBitBtn
Left = 360
Top = 130
Width = 111
Height = 41
TabOrder = 1
Kind = bkClose
end
object AllowDraggingCB: TCheckBox
Left = 340
Top = 40
Width = 161
Height = 21
Caption = 'Allow dragging'
Checked = True
State = cbChecked
TabOrder = 2
OnClick = AllowDraggingCBClick
end
object ResetBitBtn: TBitBtn
Left = 360
Top = 80
Width = 111
Height = 41
Caption = 'Reset'
TabOrder = 3
OnClick = ResetBitBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000010000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333FF33333333333330003FF3FFFFF3333777003000003333
300077F777773F333777E00BFBFB033333337773333F7F33333FE0BFBF000333
330077F3337773F33377E0FBFBFBF033330077F3333FF7FFF377E0BFBF000000
333377F3337777773F3FE0FBFBFBFBFB039977F33FFFFFFF7377E0BF00000000
339977FF777777773377000BFB03333333337773FF733333333F333000333333
3300333777333333337733333333333333003333333333333377333333333333
333333333333333333FF33333333333330003333333333333777333333333333
3000333333333333377733333333333333333333333333333333}
NumGlyphs = 2
end
end