home *** CD-ROM | disk | FTP | other *** search
- object Form3: TForm3
- Left = 232
- Top = 204
- BorderStyle = bsDialog
- Caption = 'Font Color'
- ClientHeight = 85
- ClientWidth = 388
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- FormStyle = fsStayOnTop
- Position = poScreenCenter
- ShowHint = True
- OnActivate = FormActivate
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object Shape1: TShape
- Left = 224
- Top = 0
- Width = 163
- Height = 89
- end
- object Label1: TLabel
- Left = 240
- Top = 40
- Width = 126
- Height = 13
- Cursor = crIBeam
- Hint = 'What the font color will be'
- Caption = 'This is what it will look like.'
- Color = clWhite
- ParentColor = False
- OnClick = Label1Click
- end
- object Label2: TLabel
- Left = 8
- Top = 16
- Width = 51
- Height = 13
- Caption = 'Font Color:'
- end
- object Bevel1: TBevel
- Left = 8
- Top = 48
- Width = 201
- Height = 9
- Shape = bsTopLine
- end
- object SpeedButton1: TSpeedButton
- Left = 128
- Top = 56
- Width = 81
- Height = 25
- Hint = 'Generate the HTML code'
- Caption = 'Get Code'
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 04000000000000010000130B0000130B00001000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
- 333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
- 0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
- 07333337F33333337F333330FFFFFFFF07333337F33333337F333330FFFFFFFF
- 07333FF7F33333337FFFBBB0FFFFFFFF0BB37777F3333333777F3BB0FFFFFFFF
- 0BBB3777F3333FFF77773330FFFF000003333337F333777773333330FFFF0FF0
- 33333337F3337F37F3333330FFFF0F0B33333337F3337F77FF333330FFFF003B
- B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
- 3BB33773333773333773B333333B3333333B7333333733333337}
- NumGlyphs = 2
- OnClick = SpeedButton1Click
- end
- object SpeedButton2: TSpeedButton
- Left = 48
- Top = 56
- Width = 73
- Height = 25
- Hint = 'Close this window'
- Caption = 'Cancel'
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 04000000000000010000130B0000130B00001000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 333333333333333333333333333333333333333FFF33FF333FFF339993370733
- 999333777FF37FF377733339993000399933333777F777F77733333399970799
- 93333333777F7377733333333999399933333333377737773333333333990993
- 3333333333737F73333333333331013333333333333777FF3333333333910193
- 333333333337773FF3333333399000993333333337377737FF33333399900099
- 93333333773777377FF333399930003999333337773777F777FF339993370733
- 9993337773337333777333333333333333333333333333333333333333333333
- 3333333333333333333333333333333333333333333333333333}
- NumGlyphs = 2
- OnClick = SpeedButton2Click
- end
- object Edit1: TEdit
- Left = 64
- Top = 8
- Width = 73
- Height = 33
- Cursor = crArrow
- TabStop = False
- AutoSize = False
- Color = clBlack
- Enabled = False
- ReadOnly = True
- TabOrder = 0
- end
- object Edit2: TEdit
- Left = 72
- Top = 16
- Width = 57
- Height = 17
- TabStop = False
- AutoSelect = False
- AutoSize = False
- ReadOnly = True
- TabOrder = 1
- Text = '#000000'
- OnDblClick = Edit2DblClick
- end
- object Button2: TButton
- Left = 144
- Top = 8
- Width = 65
- Height = 33
- Hint = 'Pick Font Color'
- Caption = 'Pick Color'
- TabOrder = 2
- OnClick = Button2Click
- end
- object Color1: TColorDialog
- Ctl3D = True
- Options = [cdFullOpen]
- Top = 56
- end
- end
-