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 = {} OnMouseDown = Image3MouseDown OnMouseUp = Image3MouseUp end object Image1: TImage Left = 16 Top = 192 Width = 118 Height = 34 Cursor = crHandPoint AutoSize = True Picture.Data = {} 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 = {} OnMouseDown = Image2MouseDown OnMouseUp = Image2MouseUp end object Image4: TImage Left = 176 Top = 256 Width = 118 Height = 34 Cursor = crHandPoint AutoSize = True Picture.Data = {} 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