Menu
▾
▴
[JVCL-Checkins] CVS: dev/JVCL3/examples/JvBalloonHint BalloonPrj.dof,NONE,1.1 BalloonPrj.dpr,NONE,1.1 BalloonPrj.res,NONE,1.1 JvBalloonHintMainFormU.dfm,NONE,1.1 JvBalloonHintMainFormU.pas,NONE,1.1
|
From: Peter T. <pe...@us...> - 2003-08-23 23:18:44
|
Update of /cvsroot/jvcl/dev/JVCL3/examples/JvBalloonHint
In directory sc8-pr-cvs1:/tmp/cvs-serv4702/JVCL3/examples/JvBalloonHint
Added Files:
BalloonPrj.dof BalloonPrj.dpr BalloonPrj.res
JvBalloonHintMainFormU.dfm JvBalloonHintMainFormU.pas
Log Message:
- Copied jvcl/devtools and jvcl/examples dev/JVCL3
- Copied JVCLConvert *.dat files to dev/JVCL3/converter
--- NEW FILE: BalloonPrj.dof ---
[Directories]
OutputDir=..\..\Bin
UnitOutputDir=..\..\Dcu
SearchPath=..\..\Source;..\..\Common
--- NEW FILE: BalloonPrj.dpr ---
program BalloonPrj;
uses
Forms,
JvBalloonHintMainFormU in 'JvBalloonHintMainFormU.pas' {JvBalloonHintMainForm};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TJvBalloonHintMainForm, JvBalloonHintMainForm);
Application.CreateForm(TJvBalloonHintMainForm, JvBalloonHintMainForm);
Application.Run;
end.
--- NEW FILE: BalloonPrj.res ---
(This appears to be a binary file; contents omitted.)
--- NEW FILE: JvBalloonHintMainFormU.dfm ---
object JvBalloonHintMainForm: TJvBalloonHintMainForm
Left = 39
Top = 93
Width = 672
Height = 529
Caption = 'JvBalloonHintMainForm'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
ShowHint = True
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object pnlDefaultValues: TPanel
Left = 8
Top = 8
Width = 361
Height = 225
TabOrder = 0
object lblDefaultHeader: TLabel
Left = 8
Top = 48
Width = 38
Height = 13
Caption = 'Header:'
end
object edtDefaultHeader: TEdit
Left = 64
Top = 48
Width = 121
Height = 21
ParentShowHint = False
ShowHint = True
TabOrder = 0
Text = 'Information'
OnChange = edtDefaultHeaderChange
end
object rgrDefaultIcon: TRadioGroup
Left = 8
Top = 72
Width = 105
Height = 145
Caption = ' Icon: '
Items.Strings = (
'Custom'
'None'
'Application'
'Error'
'Information'
'Question'
'Warning')
ParentShowHint = False
ShowHint = True
TabOrder = 1
OnClick = rgrDefaultIconClick
end
object grbDefaultImageIndex: TGroupBox
Left = 120
Top = 72
Width = 121
Height = 145
Caption = ' Image: '
TabOrder = 2
object ilbDefaultImageIndex: TJvImageListBox
Left = 8
Top = 16
Width = 105
Height = 113
Hint = 'You must set Icon to Custom to use these images'
Ctl3D = True
Items = <
item
Text = 'Custom 1'
ImageIndex = 0
Indent = 0
end
item
Text = 'Custom 2'
ImageIndex = 1
Indent = 0
end
item
Text = 'Custom 3'
ImageIndex = 2
Indent = 0
end
item
Text = 'Custom 4'
ImageIndex = 3
Indent = 0
end
item
Text = 'Custom 5'
ImageIndex = 4
Indent = 0
end>
ButtonStyle = fsLighter
ImageList = ImageList2
ItemHeight = 20
ParentCtl3D = False
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnClick = ilbDefaultImageIndexClick
end
end
object rgrDefaultBalloonPosition: TRadioGroup
Left = 248
Top = 72
Width = 105
Height = 145
Caption = ' Balloon Position: '
Items.Strings = (
'Auto'
'Left Down'
'Right Down'
'Left Up'
'Right Up')
ParentShowHint = False
ShowHint = True
TabOrder = 3
OnClick = rgrDefaultBalloonPositionClick
end
object JvGradientCaption1: TJvGradientCaption
Left = 1
Top = 1
Width = 359
Height = 40
GradientStartColor = clNavy
GradientEndColor = clAqua
GradientStyle = grHorizontal
LabelCaption = 'Default Values'
LabelFont.Charset = DEFAULT_CHARSET
LabelFont.Color = clWhite
LabelFont.Height = -21
LabelFont.Name = 'Verdana'
LabelFont.Style = [fsBold]
LabelAlignment = taLeftJustify
Align = alTop
Ctl3D = False
DoubleBuffered = False
TabOrder = 4
end
end
object pnlBalloon: TPanel
Left = 8
Top = 240
Width = 649
Height = 257
TabOrder = 1
object lblMessage: TLabel
Left = 400
Top = 48
Width = 46
Height = 13
Caption = 'Message:'
end
object lblHeader: TLabel
Left = 400
Top = 136
Width = 38
Height = 13
Caption = 'Header:'
end
object lblVisibleTime: TLabel
Left = 400
Top = 160
Width = 59
Height = 13
Caption = 'Visible Time:'
end
object lblAnchorCtrl: TLabel
Left = 400
Top = 184
Width = 37
Height = 13
Caption = 'Anchor:'
end
object JvGradientCaption3: TJvGradientCaption
Left = 1
Top = 1
Width = 647
Height = 40
GradientStartColor = clNavy
GradientEndColor = clAqua
GradientStyle = grHorizontal
LabelCaption = 'Balloon'
LabelFont.Charset = DEFAULT_CHARSET
LabelFont.Color = clWhite
LabelFont.Height = -21
LabelFont.Name = 'Verdana'
LabelFont.Style = [fsBold]
LabelAlignment = taLeftJustify
Align = alTop
Ctl3D = False
DoubleBuffered = False
TabOrder = 0
end
object grbOptions: TGroupBox
Left = 232
Top = 48
Width = 153
Height = 201
Caption = ' Options: '
TabOrder = 1
object chbUseDefaultHeader: TCheckBox
Left = 8
Top = 24
Width = 121
Height = 17
Hint = 'Uses the Header as specified by "Default Values"'
Caption = 'Use Default Header'
TabOrder = 0
OnClick = chbUseDefaultHeaderClick
end
object chbUseDefaultIcon: TCheckBox
Left = 8
Top = 48
Width = 105
Height = 17
Hint = 'Uses the icon as specified by "Default Values"'
Caption = 'Use Default Icon'
TabOrder = 1
OnClick = chbUseDefaultIconClick
end
object chbUseDefaultImageIndex: TCheckBox
Left = 8
Top = 72
Width = 139
Height = 17
Hint = 'Uses the imageindex as specified by "Default Values"'
Caption = 'Use Default ImageIndex'
TabOrder = 2
OnClick = chbUseDefaultImageIndexClick
end
object chbShowCloseBtn: TCheckBox
Left = 8
Top = 96
Width = 135
Height = 17
Hint = 'Shows a close button in the balloon.'
Caption = 'Show Close Button'
TabOrder = 3
OnClick = chbShowCloseBtnClick
end
object chbCustomAnimation: TCheckBox
Left = 8
Top = 120
Width = 136
Height = 17
Hint =
'Use the animation as specified by'#13#10'CustomAnimation. Only works o' +
'n '#13#10'Windows XP systems.'
Caption = 'Custom Animation'
TabOrder = 4
OnClick = chbCustomAnimationClick
end
object chbO_PlaySound: TCheckBox
Left = 8
Top = 144
Width = 97
Height = 17
Hint = 'Plays a sound when the balloon shows'
Caption = 'Play Sound'
TabOrder = 5
OnClick = chbO_PlaySoundClick
end
end
object btnLaunch: TButton
Left = 557
Top = 216
Width = 75
Height = 25
Caption = 'Launch'
TabOrder = 2
OnClick = btnLaunchClick
end
object grbCustomAnimation: TGroupBox
Left = 8
Top = 48
Width = 217
Height = 201
Caption = ' CustomAnimation: '
TabOrder = 3
object lblCustomAnimationTime: TLabel
Left = 8
Top = 24
Width = 26
Height = 13
Caption = 'Time:'
end
object edtCustomAnimationTime: TEdit
Left = 48
Top = 24
Width = 121
Height = 21
Hint =
'You must check the "Custom Animation" '#13#10'checkbox to use these va' +
'lues.'#13#10#13#10'Use values > 200 only for testing.'
TabOrder = 0
OnChange = edtCustomAnimationTimeChange
end
object rgrCustomAnimationStyle: TRadioGroup
Left = 8
Top = 48
Width = 201
Height = 145
Hint =
'You must check the "Custom Animation" '#13#10'checkbox to use these va' +
'lues. Only works'#13#10'on windows XP systems.'
Caption = ' Style: '
Columns = 2
Items.Strings = (
'None'
'Slide'
'Roll'
'RollHorNeg'
'RollHorPos'
'RollVerNeg'
'RollVerPos'
'SlideHorNeg'
'SlideHorPos'
'SlideVerNeg'
'SlideVerPos'
'Center'
'Blend')
TabOrder = 1
OnClick = rgrCustomAnimationStyleClick
end
end
object edtHeader: TEdit
Left = 467
Top = 136
Width = 166
Height = 21
ParentShowHint = False
ShowHint = True
TabOrder = 4
OnChange = edtDefaultHeaderChange
end
object edtVisibleTime: TEdit
Left = 467
Top = 160
Width = 166
Height = 21
ParentShowHint = False
ShowHint = True
TabOrder = 5
OnChange = edtDefaultHeaderChange
end
object cmbAnchorCtrl: TComboBox
Left = 467
Top = 184
Width = 166
Height = 21
Style = csDropDownList
ItemHeight = 13
Sorted = True
TabOrder = 6
end
object memMessage: TMemo
Left = 467
Top = 48
Width = 166
Height = 81
TabOrder = 7
end
end
object pnlApplicationHint: TPanel
Left = 376
Top = 8
Width = 281
Height = 225
TabOrder = 2
object chbShowHeaderInHint: TCheckBox
Left = 16
Top = 72
Width = 121
Height = 17
Hint = 'Check this value to display an icon in the'#13#10'hint window'
Caption = 'Show Header in Hint'
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnClick = chbShowHeaderInHintClick
end
object chbShowIconInHint: TCheckBox
Left = 16
Top = 96
Width = 113
Height = 17
Hint =
'Check this value to display an icon in the'#13#10'hint box. Use radiog' +
'roup "Icon" to'#13#10'specify the to be displayed icon'
Caption = 'Show Icon in Hint'
ParentShowHint = False
ShowHint = True
TabOrder = 1
OnClick = chbShowIconInHintClick
end
object chbUseBalloonAsHint: TCheckBox
Left = 16
Top = 120
Width = 121
Height = 17
Hint = 'Use balloon as hint'
Caption = 'Use Balloon as Hint'
ParentShowHint = False
ShowHint = True
TabOrder = 2
OnClick = chbUseBalloonAsHintClick
end
object chbPlaySound: TCheckBox
Left = 16
Top = 144
Width = 81
Height = 17
Hint = 'Plays a sound when the hint shows'
Caption = 'Play Sound'
ParentShowHint = False
ShowHint = True
TabOrder = 3
OnClick = chbPlaySoundClick
end
object JvGradientCaption2: TJvGradientCaption
Left = 1
Top = 1
Width = 279
Height = 40
GradientStartColor = clNavy
GradientEndColor = clAqua
GradientStyle = grHorizontal
LabelCaption = 'Application Hint'
LabelFont.Charset = DEFAULT_CHARSET
LabelFont.Color = clWhite
LabelFont.Height = -21
LabelFont.Name = 'Verdana'
LabelFont.Style = [fsBold]
LabelAlignment = taLeftJustify
Align = alTop
Ctl3D = False
DoubleBuffered = False
TabOrder = 4
end
end
object ImageList2: TImageList
Left = 600
Top = 296
Bitmap = {
494C010105000900040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
0000000000003600000028000000400000003000000001001000000000000018
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000004000400040
0040004000400040004000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000460046004600460
0460046004600460046000400000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000046004600460007C007C
0460007C007C0460046004600040000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000397F004000400460007C0040
0460007C004000400040007C0040004000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000FF7FFF7F00400460FF7F0040
0460FF7FFF7FFF7F0040FF7F0040004000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000040FF7F00400460FF7F0040
0460FF7F0040FF7F0040FF7F0040004000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000FF7FFF7F00400460FF7F0040
0460FF7F0040FF7F0040FF7FFF7FFF7F00000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000FF7F00400460007CFF7F0040
0460FF7F0040FF7F0040FF7F0040FF7F00000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000FF7FFF7F007CFF7FFF7FFF7F
007CFF7FFF7FFF7F007CFF7FFF7FFF7F00000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000397F737E007C007C007C007C
007C007C007C007C007C007C0460004000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000397F737E007C007C007C
007C007C007C007C007C007C0460000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000397F737E737E737E
737E737E737E737E737E737E0000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000397F397F397F
397F397F397F397F397F00000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000009A4600000000
0000000000000000333633363336000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000333633363336333633363336
333633363336333633363336333633363336000000009A4600000000A07F0000
0000000000000000000000003336333600000000333600000000000000000000
0000000000000000000000003336333600000000000000000000000033363336
3336333633363336000000000000000000000000000000000000000000000000
00000000000000000000000000000000333600009A460000FA7FFA7FA07F0000
FF7FFF7FFF7F0000607E607E0000333600000000000058468C318C318C318C31
8C318C318C318C318C318C310000333600000000000000000000333600000000
00000000000033363336333600000000000000003E4711001100110011001100
11001100110011001100110011000000333600000000FA7FA07FA07FA07F0000
FF7FFF7FFF7F0000607EA07F607E0000333600000000FF7F5846584658465846
584658465846584658468C3100003336000000000000000000000000FB6AFF7F
FF7FFF7FFF7F00000000333633360000000000003E471F001F001F00FF7FFF7F
FF7FFF7FFF7F110015001F001100000033369A460000FA7FA07FA07FA07F0000
0000000000000000607EA07F607E0000333600000000FF7F5846584658465846
584658465846584658468C31000033360000000000000000FB6AFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7F000033360000000000003E471F001F001F001F00FF7F
FF7FFF7F110015001F001F001100000033360000FA7FA07FA07FA07FA07F0000
FF7FFF7FFF7F0000607EA07FA07F607E000000000000FF7F5846584658465846
584658465846584658468C31000033360000000000000000FB6AFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7F000033363336000000003E471F001F001F001F00FF7F
FF7FFF7F110015001F001F001100000033360000FA7FA07FA07FA07FA07F0000
FF7FFF7FFF7F0000607EA07FA07F607E000000000000FF7F5846584658465846
584658465846584658468C3100003336000000000000F75EFF7FFF7FFF7FFF7F
FF7FF75EFF7FFF7FFF7FFF7F00003336000000003E471F001F001F001F00FF7F
FF7FFF7F110015001F001F001100000033360000FA7FA07FA07FA07FA07FA07F
0000FF7FFF7FFF7F0000607EA07F607E000000000000FF7F5846584658465846
584658465846584658468C3100003336000000000000F75EFF7FFF7FFF7FFF7F
0000F75EF75EF75EF75EFF7F00003336000000003E471F001F001F001F00FF7F
FF7FFF7F110015001F001F001100000033360000FA7FA07FA07FCA7A0000607E
CA7A0000FF7FFF7FFF7F0000607E607E000000000000FF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7F584600003336000000000000F75EFF7FFF7FFF7F0000
0000000000000000FF7FFF7F00003336000000003E471F001F001F00FF7FFF7F
FF7FFF7F150015001F001F001100000033360000FA7FA07FCA7A0000FF7F0000
607ECA7A0000FF7FFF7F0000607E607E00000000333600000000000000000000
00000000000000000000000033360000000000000000F75EFF7FFF7FFF7FFF7F
0000F75EFF7FFF7FFF7FFF7F00003336000000003E471F001F001F001F001F00
11001100110015001F001F001100000033360000FA7FA07F0000FF7FFF7FFF7F
00000000FF7FFF7FFF7F0000607E607E00000000000000000000FF7F00003336
000000000000FF7F0000333600000000000000000000F75EFF7FFF7FFF7FFF7F
0000F75EFF7FFF7FFF7FFF7F00003336000000003E471F001F001F001F00FF7F
FF7FFF7F110015001F001F001100000033369A460000FA7FA07F0000FF7FFF7F
FF7FFF7FFF7FFF7F0000607E607E000033360000000000000000FF7F00003336
000000000000FF7F00003336000000000000000000000000F75EFF7FFF7FFF7F
0000F75EFF7FFF7FFF7F000033360000000000003E471F001F001F001F00FF7F
FF7FFF7F11001F001F001F0011000000333600000000FA7FA07FA07F0000FF7F
FF7FFF7FFF7F0000607EA07F607E000000000000000000000000FF7F00003336
000000000000FF7F00003336000000000000000000000000F75EF75EFF7FFF7F
0000FF7FFF7FFB6AFB6A000000000000000000003E471F001F001F001F00FF7F
FF7FFF7F1F001F001F001F0011000000333600009A460000FA7FFA7FA07F0000
000000000000607EA07F607E00009A4600000000000000000000FF7FFF7F0000
00000000F75EF75E0000000000000000000000000000000000000000F75EF75E
F75EF75EF75E00000000000000000000000000003E473E473E473E473E473E47
3E473E473E473E473E473E473E4700003336000000009A4600000000FA7FFA7F
FA7FFA7FFA7FFA7F000000009A460000000000000000000000000000FF7FFF7F
FF7FF75EF75E0000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000009A4600000000
00000000000000009A4600000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000424D3E000000000000003E000000
2800000040000000300000000100010000000000800100000000000000000000
000000000000000000000000FFFFFF0000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000FFFF000000000000F00F000000000000
E007000000000000C00300000000000080010000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000008001000000000000C003000000000000
E007000000000000F00F000000000000FFFFF003FFFFFFFF8000C0018001F81F
000080018001F007000080008001E003000000008001C003000000008001C001
0000000080018001000000008001800100000000800180010000000080038001
00000000E187800100000000E187C00300008001E187C00700008001E00FE00F
0000C003F01FF83F0001F00FF83FFFFF00000000000000000000000000000000
000000000000}
end
object JvBalloonHint1: TJvBalloonHint
DefaultBalloonPosition = bpRightDown
Images = ImageList2
Options = [boUseDefaultIcon, boUseDefaultImageIndex, boShowCloseBtn]
ApplicationHintOptions = [ahShowHeaderInHint, ahShowIconInHint, ahUseBalloonAsHint]
Left = 528
Top = 296
end
end
--- NEW FILE: JvBalloonHintMainFormU.pas ---
unit JvBalloonHintMainFormU;
interface
uses
Windows, Messages, Forms,JvButton, JvComponent, ImgList, Controls,
StdCtrls, JvGradientCaption, JvListComb, JvBalloonHint, ExtCtrls, Classes;
type
TJvBalloonHintMainForm = class(TForm)
ImageList2: TImageList;
pnlDefaultValues: TPanel;
lblDefaultHeader: TLabel;
edtDefaultHeader: TEdit;
rgrDefaultIcon: TRadioGroup;
grbDefaultImageIndex: TGroupBox;
ilbDefaultImageIndex: TJvImageListBox;
rgrDefaultBalloonPosition: TRadioGroup;
JvGradientCaption1: TJvGradientCaption;
pnlBalloon: TPanel;
JvGradientCaption3: TJvGradientCaption;
grbOptions: TGroupBox;
chbUseDefaultHeader: TCheckBox;
chbUseDefaultIcon: TCheckBox;
chbUseDefaultImageIndex: TCheckBox;
chbShowCloseBtn: TCheckBox;
chbCustomAnimation: TCheckBox;
chbO_PlaySound: TCheckBox;
btnLaunch: TButton;
grbCustomAnimation: TGroupBox;
lblCustomAnimationTime: TLabel;
edtCustomAnimationTime: TEdit;
rgrCustomAnimationStyle: TRadioGroup;
lblMessage: TLabel;
lblHeader: TLabel;
edtHeader: TEdit;
lblVisibleTime: TLabel;
edtVisibleTime: TEdit;
lblAnchorCtrl: TLabel;
cmbAnchorCtrl: TComboBox;
memMessage: TMemo;
pnlApplicationHint: TPanel;
chbShowHeaderInHint: TCheckBox;
chbShowIconInHint: TCheckBox;
chbUseBalloonAsHint: TCheckBox;
chbPlaySound: TCheckBox;
JvGradientCaption2: TJvGradientCaption;
JvBalloonHint1: TJvBalloonHint;
procedure edtDefaultHeaderChange(Sender: TObject);
procedure chbShowHeaderInHintClick(Sender: TObject);
procedure chbShowIconInHintClick(Sender: TObject);
procedure chbUseBalloonAsHintClick(Sender: TObject);
procedure chbPlaySoundClick(Sender: TObject);
procedure rgrDefaultIconClick(Sender: TObject);
procedure ilbDefaultImageIndexClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure rgrDefaultBalloonPositionClick(Sender: TObject);
procedure btnLaunchClick(Sender: TObject);
procedure rgrCustomAnimationStyleClick(Sender: TObject);
procedure edtCustomAnimationTimeChange(Sender: TObject);
procedure chbUseDefaultHeaderClick(Sender: TObject);
procedure chbUseDefaultIconClick(Sender: TObject);
procedure chbUseDefaultImageIndexClick(Sender: TObject);
procedure chbShowCloseBtnClick(Sender: TObject);
procedure chbCustomAnimationClick(Sender: TObject);
procedure chbO_PlaySoundClick(Sender: TObject);
public
procedure InitValues;
procedure FillAnchors(Strings: TStrings);
end;
var
JvBalloonHintMainForm: TJvBalloonHintMainForm;
implementation
uses
SysUtils;
{$R *.dfm}
procedure TJvBalloonHintMainForm.edtDefaultHeaderChange(Sender: TObject);
begin
JvBalloonHint1.DefaultHeader := edtDefaultHeader.Text;
end;
procedure TJvBalloonHintMainForm.chbShowHeaderInHintClick(Sender: TObject);
begin
if chbShowHeaderInHint.Checked then
JvBalloonHint1.ApplicationHintOptions := JvBalloonHint1.ApplicationHintOptions + [ahShowHeaderInHint]
else
JvBalloonHint1.ApplicationHintOptions := JvBalloonHint1.ApplicationHintOptions - [ahShowHeaderInHint]
end;
procedure TJvBalloonHintMainForm.chbShowIconInHintClick(Sender: TObject);
begin
if chbShowIconInHint.Checked then
JvBalloonHint1.ApplicationHintOptions := JvBalloonHint1.ApplicationHintOptions + [ahShowIconInHint]
else
JvBalloonHint1.ApplicationHintOptions := JvBalloonHint1.ApplicationHintOptions - [ahShowIconInHint];
end;
procedure TJvBalloonHintMainForm.chbUseBalloonAsHintClick(Sender: TObject);
begin
if chbUseBalloonAsHint.Checked then
JvBalloonHint1.ApplicationHintOptions := JvBalloonHint1.ApplicationHintOptions + [ahUseBalloonAsHint]
else
JvBalloonHint1.ApplicationHintOptions := JvBalloonHint1.ApplicationHintOptions - [ahUseBalloonAsHint];
end;
procedure TJvBalloonHintMainForm.chbPlaySoundClick(Sender: TObject);
begin
if chbPlaySound.Checked then
JvBalloonHint1.ApplicationHintOptions := JvBalloonHint1.ApplicationHintOptions + [ahPlaySound]
else
JvBalloonHint1.ApplicationHintOptions := JvBalloonHint1.ApplicationHintOptions - [ahPlaySound];
end;
procedure TJvBalloonHintMainForm.rgrDefaultIconClick(Sender: TObject);
begin
with rgrDefaultIcon do
if ItemIndex >= 0 then
JvBalloonHint1.DefaultIcon := TJvIconKind(ItemIndex);
end;
procedure TJvBalloonHintMainForm.ilbDefaultImageIndexClick(Sender: TObject);
begin
JvBalloonHint1.DefaultImageIndex := ilbDefaultImageIndex.ItemIndex;
end;
procedure TJvBalloonHintMainForm.FormShow(Sender: TObject);
begin
InitValues;
end;
procedure TJvBalloonHintMainForm.InitValues;
begin
with JvBalloonHint1 do
begin
chbShowHeaderInHint.Checked := ahShowHeaderInHint in ApplicationHintOptions;
chbShowIconInHint.Checked := ahShowIconInHint in ApplicationHintOptions;
chbUseBalloonAsHint.Checked := ahUseBalloonAsHint in ApplicationHintOptions;
chbPlaySound.Checked := ahPlaySound in ApplicationHintOptions;
rgrDefaultIcon.ItemIndex := Integer(DefaultIcon);
rgrDefaultBalloonPosition.ItemIndex := Integer(DefaultBalloonPosition);
chbUseDefaultHeader.Checked := boUseDefaultHeader in Options;
chbUseDefaultIcon.Checked := boUseDefaultIcon in Options;
chbUseDefaultImageIndex.Checked := boUseDefaultImageIndex in Options;
chbShowCloseBtn.Checked := boShowCloseBtn in Options;
chbCustomAnimation.Checked := boCustomAnimation in Options;
chbO_PlaySound.Checked := boPlaySound in Options;
rgrCustomAnimationStyle.ItemIndex := Integer(CustomAnimationStyle);
edtCustomAnimationTime.Text := IntToStr(CustomAnimationTime);
edtHeader.Text := 'Header';
edtDefaultHeader.Text := DefaultHeader;
memMessage.Text := 'Message';
edtVisibleTime.Text := '10000';
end;
FillAnchors(cmbAnchorCtrl.Items);
with cmbAnchorCtrl do
ItemIndex := Items.IndexOf(btnLaunch.Name);
end;
procedure TJvBalloonHintMainForm.rgrDefaultBalloonPositionClick(Sender: TObject);
begin
with rgrDefaultBalloonPosition do
if ItemIndex >= 0 then
JvBalloonHint1.DefaultBalloonPosition := TJvBalloonPosition(ItemIndex);
end;
procedure TJvBalloonHintMainForm.btnLaunchClick(Sender: TObject);
var
LIcon: TJvIconKind;
LImageIndex: Integer;
LVisibleTime: Integer;
LCtrl: TControl;
begin
if (rgrDefaultIcon.ItemIndex >= 0) then
LIcon := TJvIconKind(rgrDefaultIcon.ItemIndex)
else
LIcon := ikNone;
LImageIndex := -1;
if LIcon = ikCustom then
begin
LImageIndex := ilbDefaultImageIndex.ItemIndex;
if LImageIndex < 0 then
LIcon := ikNone
end;
with cmbAnchorCtrl do
if ItemIndex >= 0 then
LCtrl := TControl(Items.Objects[ItemIndex])
else
LCtrl := nil;
LVisibleTime := StrToIntDef(edtVisibleTime.Text, 5000);
case LIcon of
ikNone:
JvBalloonHint1.ActivateHint(LCtrl, memMessage.Text, edtHeader.Text, LVisibleTime);
ikCustom:
JvBalloonHint1.ActivateHint(LCtrl, memMessage.Text, LImageIndex, edtHeader.Text,
LVisibleTime);
else
JvBalloonHint1.ActivateHint(LCtrl, memMessage.Text, LIcon, edtHeader.Text, LVisibleTime);
end;
end;
procedure TJvBalloonHintMainForm.rgrCustomAnimationStyleClick(Sender: TObject);
begin
with rgrCustomAnimationStyle do
if ItemIndex >= 0 then
JvBalloonHint1.CustomAnimationStyle := TJvAnimationStyle(ItemIndex);
end;
procedure TJvBalloonHintMainForm.edtCustomAnimationTimeChange(Sender: TObject);
begin
JvBalloonHint1.CustomAnimationTime := StrToIntDef(edtCustomAnimationTime.Text, 0);
end;
procedure TJvBalloonHintMainForm.chbUseDefaultHeaderClick(Sender: TObject);
begin
if chbUseDefaultHeader.Checked then
JvBalloonHint1.Options := JvBalloonHint1.Options + [boUseDefaultHeader]
else
JvBalloonHint1.Options := JvBalloonHint1.Options - [boUseDefaultHeader];
end;
procedure TJvBalloonHintMainForm.chbUseDefaultIconClick(Sender: TObject);
begin
if chbUseDefaultIcon.Checked then
JvBalloonHint1.Options := JvBalloonHint1.Options + [boUseDefaultIcon]
else
JvBalloonHint1.Options := JvBalloonHint1.Options - [boUseDefaultIcon];
end;
procedure TJvBalloonHintMainForm.chbUseDefaultImageIndexClick(Sender: TObject);
begin
if chbUseDefaultImageIndex.Checked then
JvBalloonHint1.Options := JvBalloonHint1.Options + [boUseDefaultImageIndex]
else
JvBalloonHint1.Options := JvBalloonHint1.Options - [boUseDefaultImageIndex];
end;
procedure TJvBalloonHintMainForm.chbShowCloseBtnClick(Sender: TObject);
begin
if chbShowCloseBtn.Checked then
JvBalloonHint1.Options := JvBalloonHint1.Options + [boShowCloseBtn]
else
JvBalloonHint1.Options := JvBalloonHint1.Options - [boShowCloseBtn];
end;
procedure TJvBalloonHintMainForm.chbCustomAnimationClick(Sender: TObject);
begin
if chbCustomAnimation.Checked then
JvBalloonHint1.Options := JvBalloonHint1.Options + [boCustomAnimation]
else
JvBalloonHint1.Options := JvBalloonHint1.Options - [boCustomAnimation];
end;
procedure TJvBalloonHintMainForm.chbO_PlaySoundClick(Sender: TObject);
begin
if chbO_PlaySound.Checked then
JvBalloonHint1.Options := JvBalloonHint1.Options + [boPlaySound]
else
JvBalloonHint1.Options := JvBalloonHint1.Options - [boPlaySound];
end;
procedure TJvBalloonHintMainForm.FillAnchors(Strings: TStrings);
procedure AddCtrl(ACtrl: TControl);
begin
if ACtrl.Name > '' then
Strings.AddObject(ACtrl.Name, ACtrl);
end;
procedure AddControls(AWinCtrl: TWinControl);
var
I: Integer;
begin
with AWinCtrl do
for I := 0 to ControlCount - 1 do
if Controls[I] is TWinControl then
AddControls(TWinControl(Controls[I]))
else
AddCtrl(Controls[I]);
AddCtrl(AWinCtrl);
end;
begin
with Strings do
begin
BeginUpdate;
try
Clear;
AddControls(Self);
finally
EndUpdate;
end;
end;
end;
end.
|
