1 | object DrawForm: TDrawForm
|
---|
2 | Left = 330
|
---|
3 | Top = 307
|
---|
4 | BorderIcons = [biSystemMenu, biMinimize]
|
---|
5 | BorderStyle = bsSingle
|
---|
6 | Caption = 'CoolTrayIcon Drawing Demo'
|
---|
7 | ClientHeight = 206
|
---|
8 | ClientWidth = 281
|
---|
9 | Color = clBtnFace
|
---|
10 | Font.Charset = DEFAULT_CHARSET
|
---|
11 | Font.Color = clWindowText
|
---|
12 | Font.Height = -11
|
---|
13 | Font.Name = 'MS Sans Serif'
|
---|
14 | Font.Style = []
|
---|
15 | OldCreateOrder = False
|
---|
16 | Position = poScreenCenter
|
---|
17 | OnClose = FormClose
|
---|
18 | OnCreate = FormCreate
|
---|
19 | PixelsPerInch = 96
|
---|
20 | TextHeight = 13
|
---|
21 | object Shape1: TShape
|
---|
22 | Left = 11
|
---|
23 | Top = 11
|
---|
24 | Width = 162
|
---|
25 | Height = 162
|
---|
26 | end
|
---|
27 | object PaintBox1: TPaintBox
|
---|
28 | Left = 12
|
---|
29 | Top = 12
|
---|
30 | Width = 160
|
---|
31 | Height = 160
|
---|
32 | Color = clWhite
|
---|
33 | ParentColor = False
|
---|
34 | OnMouseDown = PaintBox1MouseDown
|
---|
35 | OnMouseMove = PaintBox1MouseMove
|
---|
36 | OnMouseUp = PaintBox1MouseUp
|
---|
37 | OnPaint = PaintBox1Paint
|
---|
38 | end
|
---|
39 | object Button2: TButton
|
---|
40 | Left = 192
|
---|
41 | Top = 12
|
---|
42 | Width = 75
|
---|
43 | Height = 25
|
---|
44 | Caption = '&Clear'
|
---|
45 | TabOrder = 0
|
---|
46 | OnClick = Button2Click
|
---|
47 | end
|
---|
48 | object Button3: TButton
|
---|
49 | Left = 192
|
---|
50 | Top = 44
|
---|
51 | Width = 75
|
---|
52 | Height = 25
|
---|
53 | Caption = '&Load...'
|
---|
54 | TabOrder = 1
|
---|
55 | OnClick = Button3Click
|
---|
56 | end
|
---|
57 | object Button4: TButton
|
---|
58 | Left = 192
|
---|
59 | Top = 146
|
---|
60 | Width = 75
|
---|
61 | Height = 25
|
---|
62 | Caption = 'E&xit'
|
---|
63 | TabOrder = 3
|
---|
64 | OnClick = Button4Click
|
---|
65 | end
|
---|
66 | object CheckBox1: TCheckBox
|
---|
67 | Left = 12
|
---|
68 | Top = 180
|
---|
69 | Width = 109
|
---|
70 | Height = 17
|
---|
71 | Caption = '&Transparent'
|
---|
72 | TabOrder = 4
|
---|
73 | OnClick = CheckBox1Click
|
---|
74 | end
|
---|
75 | object Button1: TButton
|
---|
76 | Left = 192
|
---|
77 | Top = 114
|
---|
78 | Width = 75
|
---|
79 | Height = 25
|
---|
80 | Caption = '&?'
|
---|
81 | TabOrder = 2
|
---|
82 | TabStop = False
|
---|
83 | OnClick = Button1Click
|
---|
84 | end
|
---|
85 | object CoolTrayIcon1: TCoolTrayIcon
|
---|
86 | CycleInterval = 0
|
---|
87 | ShowHint = False
|
---|
88 | Icon.Data = {
|
---|
89 | 0000010001001010100000000000280100001600000028000000100000002000
|
---|
90 | 00000100040000000000C0000000000000000000000000000000000000000000
|
---|
91 | 0000000080000080000000808000800000008000800080800000C0C0C0008080
|
---|
92 | 80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
|
---|
93 | 0000000000000000000000000000000000000000000000000000000000000000
|
---|
94 | 0000000000000000000000000000000000000000000000000000000000000000
|
---|
95 | 0000000000000000000000000000000000000000000000000000000000000000
|
---|
96 | 000000000000000000000000000000000000000000000000000000000000FFFF
|
---|
97 | 0000FFFF0000DFF70000C7C70000EBAF0000EC6F0000F55F0000F39F0000EBAF
|
---|
98 | 00009BB3000000010000FD7F0000FD7F0000FEFF0000FEFF0000FFFF0000}
|
---|
99 | IconVisible = True
|
---|
100 | IconIndex = 0
|
---|
101 | Left = 200
|
---|
102 | Top = 78
|
---|
103 | end
|
---|
104 | object OpenPictureDialog1: TOpenPictureDialog
|
---|
105 | Filter = 'Bitmaps (*.bmp)|*.bmp|All files (*.*)|*.*'
|
---|
106 | Left = 236
|
---|
107 | Top = 78
|
---|
108 | end
|
---|
109 | end
|
---|