home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1998 June A
/
Pcwk6A98.iso
/
Share95
/
Tvstudio
/
_SETUP.1
/
PStudio.exe
/
0
/
RCDATA
/
TTEXTMAKERFORM
/
TTEXTMAKERFORM.txt
< prev
Wrap
Text File
|
1998-04-01
|
17KB
|
586 lines
object TextMakerForm: TTextMakerForm
Left = 212
Top = 144
Width = 671
Height = 420
Caption = 'Graphical Font Styles'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
FormStyle = fsStayOnTop
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Splitter1: TSplitter
Left = 0
Top = 333
Width = 663
Height = 3
Cursor = crHSplit
Align = alBottom
Color = clActiveCaption
ParentColor = False
end
object Splitter2: TSplitter
Left = 313
Top = 0
Width = 10
Height = 333
Cursor = crHSplit
Color = clActiveCaption
ParentColor = False
end
object Panel1: TPanel
Left = 323
Top = 0
Width = 340
Height = 333
Align = alClient
Color = clWhite
TabOrder = 0
object rlabel1: TMyLabelRotate
Left = 1
Top = 26
Width = 338
Height = 306
LabelStyle.AStyle3D = A3dResit
LabelStyle.AShadeRightBottom = clBlack
LabelStyle.AShadeLTSet = False
LabelStyle.AHShadeOffSet = 10
LabelStyle.AVShadeOffSet = 10
Align = alClient
Caption = 'Some Text'
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clAppWorkSpace
Font.Height = -21
Font.Name = 'Arial Rounded MT Bold'
Font.Style = [fsBold, fsItalic]
ParentColor = False
ParentFont = False
end
object morfimage1: TImage
Left = 8
Top = 8
Width = 65
Height = 57
Center = True
Visible = False
end
object clpmap1: TImage
Left = 88
Top = 8
Width = 73
Height = 57
AutoSize = True
Visible = False
end
object Panel4: TPanel
Left = 1
Top = 1
Width = 338
Height = 25
Align = alTop
Caption = 'Panel4'
Color = clActiveCaption
TabOrder = 0
object Edit1: TEdit
Left = 8
Top = 2
Width = 321
Height = 21
TabOrder = 0
Text = 'Some Text'
OnChange = Edit1Change
end
end
end
object Panel2: TPanel
Left = 0
Top = 336
Width = 663
Height = 38
Align = alBottom
Color = clActiveCaption
TabOrder = 1
object BitBtn2: TBitBtn
Left = 8
Top = 8
Width = 81
Height = 25
TabOrder = 0
OnClick = BitBtn2Click
Kind = bkOK
end
object BitBtn4: TBitBtn
Left = 192
Top = 8
Width = 129
Height = 25
Hint = 'For pasteing into Paint Book'
Caption = 'Copy as Bitmap'
ParentShowHint = False
ShowHint = True
TabOrder = 1
OnClick = BitBtn4Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330B7FFF
FFB0333333777F3333773333330B7FFFFFB0333333777F3333773333330B7FFF
FFB0333333777F3333773333330B7FFFFFB03FFFFF777FFFFF77000000000077
007077777777777777770FFFFFFFF00077B07F33333337FFFF770FFFFFFFF000
7BB07F3FF3FFF77FF7770F00F000F00090077F77377737777F770FFFFFFFF039
99337F3FFFF3F7F777FF0F0000F0F09999937F7777373777777F0FFFFFFFF999
99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
93337FFFF7737777733300000033333333337777773333333333}
NumGlyphs = 2
end
object BitBtn5: TBitBtn
Left = 88
Top = 8
Width = 105
Height = 25
Hint = 'Switch to Notepad'
Caption = 'Compose Text'
ParentShowHint = False
ShowHint = True
TabOrder = 2
OnClick = BitBtn5Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555500000000
0555555F7777777775F55500FFFFFFFFF0555577F5FFFFFFF7F550F0FEEEEEEE
F05557F7F777777757F550F0FFFFFFFFF05557F7F5FFFFFFF7F550F0FEEEEEEE
F05557F7F777777757F550F0FF777FFFF05557F7F5FFFFFFF7F550F0FEEEEEEE
F05557F7F777777757F550F0FF7F777FF05557F7F5FFFFFFF7F550F0FEEEEEEE
F05557F7F777777757F550F0FF77F7FFF05557F7F5FFFFFFF7F550F0FEEEEEEE
F05557F7F777777757F550F0FFFFFFFFF05557F7FF5F5F5F57F550F00F0F0F0F
005557F77F7F7F7F77555055070707070555575F7F7F7F7F7F55550507070707
0555557575757575755555505050505055555557575757575555}
NumGlyphs = 2
end
object BitBtn3: TBitBtn
Left = 576
Top = 8
Width = 75
Height = 25
TabOrder = 3
OnClick = BitBtn3Click
Kind = bkCancel
end
object BitBtn6: TBitBtn
Left = 320
Top = 8
Width = 153
Height = 25
Hint = 'Clipboard is mapped onto text'
Caption = 'Morf-Paste Onto the Text'
ParentShowHint = False
ShowHint = True
TabOrder = 4
OnClick = BitBtn6Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333300000000033333338888888883333333BBBBBBBB0
0333333888888888833333BBBBBBBBBB0333338888888888833333BFFFFFFFFB
0333338FFFFFFFF883339999999999999993300000000000003339AAAAAAAAAA
A933330FFFFFFFF8033339AAAAAAAAAAA933330FFFFFFFF80333339A2A2A2A2A
93333380FFFFFFF0833333B92222222293333380FFFFFFF0833333BF92222229
0333338F0FFFFF08833333BF9EEEEE9B0333338F0FFFFF088333338889EEEE98
033333888088808883333388809EE980333333888088808833333388809EE908
3333338888080888333333333339933333333333330003333333}
NumGlyphs = 2
end
object BitBtn7: TBitBtn
Left = 472
Top = 8
Width = 105
Height = 25
Hint = 'Clipboard is copied onto text'
Caption = 'Paste Onto Text'
ParentShowHint = False
ShowHint = True
TabOrder = 5
OnClick = BitBtn7Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333333333333333333300000000033333338888888883333333BBBBBBBB
00333333888888888833333BBBBBBBBBB0333338888888888833333BFFFFFFFF
B0333338FFFFFFFF8833333BFFFFFFFFB0333338FFFFFFFF8833333BFFFFFFFF
B0333338FFFFFFFF8833333BFFFFFFFFB0333338FFFFFFFF8833333BFFFFFFFF
B0333338FFFFFFFF8833333BFFFFFFFFB0333338FFFFFFFF8833333BFFFFFFFF
B0333338FFFFFFFF8833333BFFFFFFFFB0333338FFFFFFFF8833333888000088
8033333888888888883333388800008803333338888888888333333888000080
8333333888888888833333333333333333333333333333333333}
NumGlyphs = 2
end
end
object StatusBar1: TStatusBar
Left = 0
Top = 374
Width = 663
Height = 19
Panels = <>
SimplePanel = False
end
object Panel3: TPanel
Left = 0
Top = 0
Width = 313
Height = 333
Align = alLeft
Caption = ' '
TabOrder = 3
object Label3d1: TLabel3d
Left = 88
Top = 8
Width = 106
Height = 20
Hint = 'label3d1'
Caption = 'Rotation Angle'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = False
ParentFont = False
Transparent = True
AStyle3D = Raised3d
AShadeLTSet = False
end
object Label3d2: TLabel3d
Left = 208
Top = 32
Width = 95
Height = 20
Hint = 'label3d1'
Caption = 'Shade Offset'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = False
ParentFont = False
Transparent = True
AStyle3D = Raised3d
AShadeLTSet = False
end
object Label3d3: TLabel3d
Left = 24
Top = 168
Width = 110
Height = 20
Hint = 'label3d1'
Caption = 'Left Top Shade'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = False
ParentFont = False
Transparent = True
AStyle3D = Raised3d
AShadeLTSet = False
end
object Label3d5: TLabel3d
Left = 176
Top = 168
Width = 74
Height = 20
Hint = 'label3d1'
Caption = 'Font Color'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = False
ParentFont = False
Transparent = True
AStyle3D = Raised3d
AShadeLTSet = False
end
object Image3: TImage
Left = 176
Top = 192
Width = 118
Height = 34
Cursor = crHandPoint
AutoSize = True
Picture.Data = {<image000.bmp>}
OnMouseDown = Image3MouseDown
OnMouseUp = Image3MouseUp
end
object Image1: TImage
Left = 16
Top = 192
Width = 118
Height = 34
Cursor = crHandPoint
AutoSize = True
Picture.Data = {<image001.bmp>}
OnMouseDown = Image1MouseDown
OnMouseUp = Image1MouseUp
end
object Label3d4: TLabel3d
Left = 8
Top = 232
Width = 145
Height = 20
Hint = 'label3d1'
Caption = 'Right Bottom Shade'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = False
ParentFont = False
Transparent = True
AStyle3D = Raised3d
AShadeLTSet = False
end
object Label3d6: TLabel3d
Left = 176
Top = 232
Width = 86
Height = 20
Hint = 'label3d1'
Caption = 'Background'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = False
ParentFont = False
Transparent = True
AStyle3D = Raised3d
AShadeLTSet = False
end
object Image2: TImage
Left = 16
Top = 256
Width = 118
Height = 34
Cursor = crHandPoint
AutoSize = True
Picture.Data = {<image002.bmp>}
OnMouseDown = Image2MouseDown
OnMouseUp = Image2MouseUp
end
object Image4: TImage
Left = 176
Top = 256
Width = 118
Height = 34
Cursor = crHandPoint
AutoSize = True
Picture.Data = {<image003.bmp>}
OnMouseDown = Image4MouseDown
OnMouseUp = Image4MouseUp
end
object SpeedButton1: TSpeedButton
Left = 272
Top = 296
Width = 25
Height = 25
Hint = 'Roughly Match Target Background Color'
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333333333333333333333333333333333333339993AAA3CCC
3EEE3888388838883FF339993AAA3CCC3EEE3888388838883FF339993AAA3CCC
3EEE3888388838883FF339993AAA3CCC3EEE3888388838883FF339993AAA3CCC
3EEE3888388838883FF339993AAA3CCC3EEE3888388838883FF339993AAA3CCC
3EEE3888388838883FF339993AAA3CCC3EEE3888388838883FF339993AAA3CCC
3EEE3888388838883FF339993AAA3CCC3EEE3888388838883FF339993AAA3CCC
3EEE3888388838883FF339993AAA3CCC3EEE3888388838883FF3333333333333
3333333333333333333333333333333333333333333333333333}
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = SpeedButton1Click
end
object Label1: TLabel
Left = 216
Top = 8
Width = 92
Height = 13
Caption = 'Type Text Here -->'
Font.Charset = DEFAULT_CHARSET
Font.Color = clMaroon
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object BitBtn1: TBitBtn
Left = 112
Top = 300
Width = 113
Height = 25
Caption = 'Font Type'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = BitBtn1Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333FF3FFFFFFF3FFFF003000000030
0000773777777737777703330030033300037FFF77F77FFF7773700007330000
003377777733777777F3303003330030003337F77F3377F77733303073333030
033337F77F3337F77F3337007333300003333777733337777333330033333000
33333377F3333777F33333073333330033333377333333773333333333333333
33333333FF333333FF33333973333337933333377FF333377F33333999333399
93333337773333777F333339933333399333333773FF33377F33333939733793
93333337377FF773733333333399993333333333337777333333}
NumGlyphs = 2
end
object SpinEdit1: TSpinEdit
Left = 16
Top = 8
Width = 57
Height = 22
MaxValue = 360
MinValue = 0
TabOrder = 1
Value = 0
OnChange = SpinEdit1Change
end
object SpinEdit2: TSpinEdit
Left = 144
Top = 32
Width = 57
Height = 22
MaxValue = 0
MinValue = 0
TabOrder = 2
Value = 10
OnChange = SpinEdit2Change
end
object CheckBox2: TCheckBox
Left = 144
Top = 72
Width = 97
Height = 17
Caption = 'Transparent'
State = cbChecked
TabOrder = 3
OnClick = CheckBox2Click
end
object CheckBox1: TCheckBox
Left = 144
Top = 96
Width = 129
Height = 17
Caption = 'Shade Left Top Set '
TabOrder = 4
OnClick = CheckBox1Click
end
object RadioGroup1: TRadioGroup
Left = 24
Top = 40
Width = 105
Height = 121
Caption = '3D Font Style'
ItemIndex = 2
Items.Strings = (
'Normal'
'Raised'
'Ressessed'
'Shadowed')
TabOrder = 5
OnClick = RadioGroup1Click
end
object BitBtn8: TBitBtn
Left = 144
Top = 120
Width = 153
Height = 33
Hint = 'Use As Morf Texture'
Caption = 'Load Clipboard From File'
ParentShowHint = False
ShowHint = True
TabOrder = 6
OnClick = BitBtn8Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00550000000005
555555888888888FF5555500000000805555558888888888FF555550BBBBB008
05555558F5FFF8888FF55550B000B030805555F8F888F8F888F550000000B033
005558888888F8F5885550BBBBB00033055558F5FFF888F58F5550B000B08033
055558F88858F8F58F5550BBBBB08033F55558F55558F8F58F5550BBBBB0003F
1F5558FFFFF888F58F5550000000FFFF11F55888888858F58F555550FFF19999
991F5558FFFFF8FF8F555500000F11199991F5888888888F8F5555088888FF11
991F5585FF5555888F55555003B3BFFF11F5555885FF55588FF55555500B3B3F
1F5555555885FFFF88F555555580000000555555555888888855}
NumGlyphs = 2
end
object BitBtn9: TBitBtn
Left = 16
Top = 300
Width = 75
Height = 25
TabOrder = 7
OnClick = BitBtn9Click
Kind = bkHelp
end
end
object FontDialog1: TFontDialog
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
MinFontSize = 0
MaxFontSize = 0
Left = 144
Top = 192
end
object ImageList1: TImageList
Left = 632
Top = 304
end
object OpenPictureDialog1: TOpenPictureDialog
Filter =
'All (*.bmp;*.ico;*.emf;*.wmf)|*.bmp;*.ico;*.emf;*.wmf|Bitmaps (*' +
'.bmp)|*.bmp|Icons (*.ico)|*.ico|Enhanced Metafiles (*.emf)|*.emf' +
'|Metafiles (*.wmf)|*.wmf'
Left = 232
Top = 56
end
object ColorDialog1: TColorDialog
Ctl3D = True
Left = 256
Top = 304
end
end