home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Bila Vrana
/
BILA_VRANA.iso
/
018A
/
WBIT32.ZIP
/
WEBIT32.EXE
/
0
/
RCDATA
/
TTEXTROLLUP
/
TTEXTROLLUP.txt
Wrap
Text File
|
1996-11-23
|
8KB
|
293 lines
object TextRollUp: TTextRollUp
Left = 260
Top = 277
BorderIcons = []
BorderStyle = bsNone
Caption = 'HTML Text'
ClientHeight = 178
ClientWidth = 225
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
FormStyle = fsStayOnTop
Position = poDefault
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 16
object Panel1: TPanel
Left = 0
Top = 0
Width = 225
Height = 16
Align = alTop
BevelOuter = bvNone
BorderStyle = bsSingle
Color = clActiveCaption
Font.Color = clBlack
Font.Height = -12
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
TabOrder = 0
OnMouseDown = Panel1MouseDown
OnMouseMove = Panel1MouseMove
OnMouseUp = Panel1MouseUp
object CaptionLabel: TLabel
Left = 20
Top = -1
Width = 57
Height = 15
Caption = 'HTML Text'
Font.Color = clWhite
Font.Height = -12
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
Transparent = True
OnMouseDown = Panel1MouseDown
OnMouseMove = Panel1MouseMove
OnMouseUp = Panel1MouseUp
end
object CloseButton: TSpeedButton
Left = 1
Top = 0
Width = 14
Height = 14
Glyph.Data = {
F0000000424DF00000000000000076000000280000000C0000000C0000000100
0400000000006000000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
0000300333333003000030003333000300003300033000330000333000000333
0000333300003333000033330000333300003330000003330000330003300033
0000300033330003000030033333300300003333333333330000000000000000
0000000000000000000000000000000000000000}
OnClick = CloseButtonClick
end
object UpButton: TSpeedButton
Left = 86
Top = 0
Width = 14
Height = 14
Glyph.Data = {
F0000000424DF00000000000000076000000280000000C0000000C0000000100
0400000000006000000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
0000333333333333000033333333333300000000000000000000300000000003
0000330000000033000033300000033300003333000033330000333330033333
0000333333333333000033333333333300003333333333330000000000000000
0000000000000000000000000000000000000000}
Visible = False
end
object DownButton: TSpeedButton
Left = 101
Top = 0
Width = 14
Height = 14
Glyph.Data = {
F0000000424DF00000000000000076000000280000000C0000000C0000000100
0400000000006000000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
0000333333333333000033333003333300003333000033330000333000000333
0000330000000033000030000000000300000000000000000000333333333333
0000333333333333000033333333333300003333333333330000000000000000
0000000000000000000000000000000000000000}
Visible = False
end
object RollButton: TSpeedButton
Left = 137
Top = 0
Width = 14
Height = 14
Glyph.Data = {
F0000000424DF00000000000000076000000280000000C0000000C0000000100
0400000000006000000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
0000333333333333000033333333333300000000000000000000300000000003
0000330000000033000033300000033300003333000033330000333330033333
0000333333333333000033333333333300003333333333330000000000000000
0000000000000000000000000000000000000000}
OnClick = RollButtonClick
end
end
object FormArea: TPanel
Left = 0
Top = 16
Width = 225
Height = 162
Align = alClient
BevelOuter = bvNone
BorderStyle = bsSingle
Color = clNavy
TabOrder = 1
object Label1: TLabel
Left = 120
Top = 76
Width = 60
Height = 16
Caption = 'Font Size:'
Font.Color = clYellow
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 88
Top = 42
Width = 123
Height = 16
Caption = '(NetScape Specific!)'
Font.Color = clYellow
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object RollUpText: TEdit
Left = 4
Top = 10
Width = 213
Height = 24
TabOrder = 0
OnKeyPress = RollUpTextKeyPress
end
object BitBtn1: TBitBtn
Left = 17
Top = 129
Width = 70
Height = 30
Caption = 'Add'
Default = True
TabOrder = 1
OnClick = BitBtn1Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333FF33333333FF333993333333300033377F3333333777333993333333
300033F77FFF3333377739999993333333333777777F3333333F399999933333
33003777777333333377333993333333330033377F3333333377333993333333
3333333773333333333F333333333333330033333333F33333773333333C3333
330033333337FF3333773333333CC333333333FFFFF77FFF3FF33CCCCCCCCCC3
993337777777777F77F33CCCCCCCCCC3993337777777777377333333333CC333
333333333337733333FF3333333C333330003333333733333777333333333333
3000333333333333377733333333333333333333333333333333}
NumGlyphs = 2
end
object BitBtn2: TBitBtn
Left = 111
Top = 129
Width = 70
Height = 30
Caption = 'Close'
TabOrder = 2
Kind = bkClose
end
object Bold: TCheckBox
Left = 3
Top = 37
Width = 56
Height = 17
Caption = 'Bold'
Font.Color = clYellow
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
TabOrder = 3
end
object Italics: TCheckBox
Left = 3
Top = 53
Width = 68
Height = 17
Caption = 'Italics'
Font.Color = clYellow
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
TabOrder = 4
end
object Underline: TCheckBox
Left = 3
Top = 69
Width = 80
Height = 17
Caption = 'Underline'
Font.Color = clYellow
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
TabOrder = 5
end
object Center: TCheckBox
Left = 3
Top = 85
Width = 64
Height = 17
Caption = 'Center'
Font.Color = clYellow
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
TabOrder = 6
end
object Paragraph: TCheckBox
Left = 3
Top = 101
Width = 84
Height = 17
Caption = 'Paragraph'
Font.Color = clYellow
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
TabOrder = 7
end
object Blink: TCheckBox
Left = 119
Top = 59
Width = 60
Height = 17
Caption = 'Blink'
Font.Color = clYellow
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
TabOrder = 8
end
object FontSize: TSpinEdit
Left = 130
Top = 96
Width = 45
Height = 26
MaxValue = 7
MinValue = 1
TabOrder = 9
Value = 3
end
end
object Scaler1: TScaler
Xdevelop = 800
Ydevelop = 600
LimitScale = No
ScaleRuntime = False
Left = 179
Top = 90
PixelsPerInch = 96
ClientHeight = 178
Client