| blob | 2869aff6f71a17381d908a5cbf45c55aac7d1bf5 |
1 { KOL MCK } // Do not remove this line!\r
2 \r
3 procedure NewMainForm( var Result: PMainForm; AParent: PControl );\r
4 begin\r
5 \r
6 {$IFDEF KOLCLASSES}\r
7 Result := PMainForm.Create;\r
8 {$ELSE OBJECTS}\r
9 New( Result, Create );\r
10 {$ENDIF KOL CLASSES/OBJECTS}\r
11 Result.Form := NewForm( AParent, 'XLGrid Demo' ).SetPosition( 296, 89 ).SetClientSize( 775, 548 ).Tabulate;\r
12 Applet := Result.Form;\r
13 Result.Form.Add2AutoFree( Result );\r
14 \r
15 Result.ColorDialog := NewColorDialog( ccoFullOpen );\r
16 Result.Form.Add2AutoFree( Result.ColorDialog );\r
17 \r
18 \r
19 Result.MHFontDialog:=NewMHFontDialog(Result.Form);\r
20 Result.MHFontDialog.MinFontSize:=0;\r
21 Result.MHFontDialog.MaxFontSize:=0;\r
22 Result.MHFontDialog.Device:=fdBoth;\r
23 Result.MHFontDialog.Options:= [];\r
24 Result.Form.Add2AutoFree( Result.MHFontDialog );\r
25 // Result.Panel1.TabOrder = 0\r
26 Result.Panel1 := NewPanel( Result.Form, esRaised ).SetAlign ( caLeft ).SetSize( 203, 0 );\r
27 Result.Panel1.Color := clBtnFace;\r
28 Result.Panel1.Font.FontHeight := 10;\r
29 // Result.Button3.TabOrder = 0\r
30 Result.Button3 := NewButton( Result.Panel1, 'Button3' ).SetPosition( 149, 505 );\r
31 // Result.gbStyle.TabOrder = 1\r
32 Result.gbStyle := NewGroupBox( Result.Panel1, 'GridStyle' ).SetPosition( 5, 5 ).SetSize( 185, 49 );\r
33 Result.gbStyle.TabStop := FALSE;\r
34 Result.gbStyle.EraseBackground := TRUE;\r
35 // Result.rbXL.TabOrder = 0\r
36 Result.rbXL := NewRadioBox( Result.gbStyle, 'gsXL' ).SetPosition( 120, 20 ).SetSize( 53, 0 );\r
37 // Result.rbStandard.TabOrder = 1\r
38 Result.rbStandard := NewRadioBox( Result.gbStyle, 'gsStandard' ).SetPosition( 12, 20 ).SetSize( 101, 0 );\r
39 Result.rbStandard.SetRadioChecked;\r
40 // Result.gbOptions.TabOrder = 2\r
41 Result.gbOptions := NewGroupBox( Result.Panel1, 'Options' ).SetPosition( 5, 57 ).SetSize( 185, 213 );\r
42 Result.gbOptions.TabStop := FALSE;\r
43 Result.gbOptions.EraseBackground := TRUE;\r
44 // Result.Label2.TabOrder = -1\r
45 Result.Label2 := NewLabel( Result.gbOptions, '(+Alt for Moving)' ).SetPosition( 16, 140 ).SetSize( 161, 0 );\r
46 Result.Label2.EraseBackground := TRUE;\r
47 // Result.Label1.TabOrder = -1\r
48 Result.Label1 := NewLabel( Result.gbOptions, '(+Ctrl for Multi Select)' ).SetPosition( 16, 80 ).SetSize( 161, 0 );\r
49 Result.Label1.EraseBackground := TRUE;\r
50 // Result.cbxlgRangeSelect.TabOrder = 1\r
51 Result.cbxlgRangeSelect := NewCheckBox( Result.gbOptions, 'xlgRangeSelect' ).SetPosition( 16, 20 ).SetSize( 153, 0 );\r
52 Result.cbxlgRangeSelect.EraseBackground := TRUE;\r
53 Result.cbxlgRangeSelect.Checked := TRUE;\r
54 // Result.cbxlgColsSelect.TabOrder = 2\r
55 Result.cbxlgColsSelect := NewCheckBox( Result.gbOptions, 'xlgColsSelect' ).SetPosition( 16, 40 ).SetSize( 125, 0 );\r
56 Result.cbxlgColsSelect.EraseBackground := TRUE;\r
57 // Result.cbxlgRowsSelect.TabOrder = 3\r
58 Result.cbxlgRowsSelect := NewCheckBox( Result.gbOptions, 'xlgRowsSelect' ).SetPosition( 16, 60 ).SetSize( 149, 0 );\r
59 Result.cbxlgRowsSelect.EraseBackground := TRUE;\r
60 // Result.cbxlgColSizing.TabOrder = 4\r
61 Result.cbxlgColSizing := NewCheckBox( Result.gbOptions, 'xlgColSizing' ).SetPosition( 16, 164 ).SetSize( 145, 0 );\r
62 Result.cbxlgColSizing.EraseBackground := TRUE;\r
63 // Result.cbxlgRowSizing.TabOrder = 5\r
64 Result.cbxlgRowSizing := NewCheckBox( Result.gbOptions, 'xlgRowSizing' ).SetPosition( 16, 184 ).SetSize( 141, 0 );\r
65 Result.cbxlgRowSizing.EraseBackground := TRUE;\r
66 // Result.cbxlgColMoving.TabOrder = 6\r
67 Result.cbxlgColMoving := NewCheckBox( Result.gbOptions, 'xlgColMoving' ).SetPosition( 16, 100 ).SetSize( 137, 0 );\r
68 Result.cbxlgColMoving.EraseBackground := TRUE;\r
69 // Result.cbxlgRowMoving.TabOrder = 7\r
70 Result.cbxlgRowMoving := NewCheckBox( Result.gbOptions, 'xlgRowMoving' ).SetPosition( 16, 120 ).SetSize( 137, 0 );\r
71 Result.cbxlgRowMoving.EraseBackground := TRUE;\r
72 // Result.gbLines.TabOrder = 3\r
73 Result.gbLines := NewGroupBox( Result.Panel1, 'Lines' ).SetPosition( 5, 273 ).SetSize( 185, 101 );\r
74 Result.gbLines.TabStop := FALSE;\r
75 Result.gbLines.EraseBackground := TRUE;\r
76 // Result.Label4.TabOrder = -1\r
77 Result.Label4 := NewLabel( Result.gbLines, 'Right' ).SetPosition( 52, 20 ).SetSize( 37, 17 );\r
78 Result.Label4.Transparent := True;\r
79 Result.Label4.EraseBackground := TRUE;\r
80 // Result.Label3.TabOrder = -1\r
81 Result.Label3 := NewLabel( Result.gbLines, 'Left' ).SetPosition( 8, 20 ).SetSize( 26, 17 );\r
82 Result.Label3.Transparent := True;\r
83 Result.Label3.EraseBackground := TRUE;\r
84 // Result.Label6.TabOrder = -1\r
85 Result.Label6 := NewLabel( Result.gbLines, 'Bottom' ).SetPosition( 140, 20 ).SetSize( 36, 17 );\r
86 Result.Label6.Transparent := True;\r
87 Result.Label6.EraseBackground := TRUE;\r
88 // Result.Label5.TabOrder = -1\r
89 Result.Label5 := NewLabel( Result.gbLines, 'Top' ).SetPosition( 96, 20 ).SetSize( 29, 17 );\r
90 Result.Label5.Transparent := True;\r
91 Result.Label5.EraseBackground := TRUE;\r
92 // Result.UpDownRight.TabOrder = 0\r
93 Result.UpDownRight := PMHUpDown( NewMHUpDown( Result.gbLines, udVertical, False, False, False, False, False,True,udRight ));\r
94 Result.UpDownRight.EraseBackground := TRUE;\r
95 Result.UpDownRight.Max:=10;\r
96 Result.UpDownRight.Min:=0;\r
97 Result.UpDownRight.Position:=1;\r
98 Result.UpDownRight.Increment:=1;\r
99 // Result.UpDownLeft.TabOrder = 0\r
100 Result.UpDownLeft := PMHUpDown( NewMHUpDown( Result.gbLines, udVertical, False, False, False, False, False,True,udRight ));\r
101 Result.UpDownLeft.EraseBackground := TRUE;\r
102 Result.UpDownLeft.Max:=10;\r
103 Result.UpDownLeft.Min:=0;\r
104 Result.UpDownLeft.Position:=1;\r
105 Result.UpDownLeft.Increment:=1;\r
106 // Result.UpDownTop.TabOrder = 0\r
107 Result.UpDownTop := PMHUpDown( NewMHUpDown( Result.gbLines, udVertical, False, False, False, False, False,True,udRight ));\r
108 Result.UpDownTop.EraseBackground := TRUE;\r
109 Result.UpDownTop.Max:=10;\r
110 Result.UpDownTop.Min:=0;\r
111 Result.UpDownTop.Position:=1;\r
112 Result.UpDownTop.Increment:=1;\r
113 // Result.UpDownBottom.TabOrder = 0\r
114 Result.UpDownBottom := PMHUpDown( NewMHUpDown( Result.gbLines, udVertical, False, False, False, False, False,True,udRight ));\r
115 Result.UpDownBottom.EraseBackground := TRUE;\r
116 Result.UpDownBottom.Max:=10;\r
117 Result.UpDownBottom.Min:=0;\r
118 Result.UpDownBottom.Position:=1;\r
119 Result.UpDownBottom.Increment:=1;\r
120 // Result.EditBox2.TabOrder = 1\r
121 Result.EditBox2 := NewEditBox( Result.gbLines, [ eoReadonly ] ).SetPosition( 52, 36 ).SetSize( 20, 0 );\r
122 Result.EditBox2.Color := clWindow;\r
123 Result.EditBox2.EraseBackground := TRUE;\r
124 Result.EditBox2.Text := '1';\r
125 // Result.EditBox3.TabOrder = 2\r
126 Result.EditBox3 := NewEditBox( Result.gbLines, [ eoReadonly ] ).SetPosition( 96, 36 ).SetSize( 20, 0 );\r
127 Result.EditBox3.Color := clWindow;\r
128 Result.EditBox3.EraseBackground := TRUE;\r
129 Result.EditBox3.Text := '1';\r
130 // Result.EditBox1.TabOrder = 2\r
131 Result.EditBox1 := NewEditBox( Result.gbLines, [ eoReadonly ] ).SetPosition( 8, 36 ).SetSize( 20, 0 );\r
132 Result.EditBox1.Color := clWindow;\r
133 Result.EditBox1.EraseBackground := TRUE;\r
134 Result.EditBox1.Text := '1';\r
135 // Result.EditBox4.TabOrder = 2\r
136 Result.EditBox4 := NewEditBox( Result.gbLines, [ eoReadonly ] ).SetPosition( 140, 36 ).SetSize( 20, 0 );\r
137 Result.EditBox4.Color := clWindow;\r
138 Result.EditBox4.EraseBackground := TRUE;\r
139 Result.EditBox4.Text := '1';\r
140 // Result.Button2.TabOrder = 3\r
141 Result.Button2 := NewButton( Result.gbLines, 'Color' ).SetPosition( 8, 68 );\r
142 Result.Button2.EraseBackground := TRUE;\r
143 // Result.gbTitle.TabOrder = 4\r
144 Result.gbTitle := NewGroupBox( Result.Panel1, 'Title' ).SetPosition( 5, 377 ).SetSize( 185, 85 );\r
145 Result.gbTitle.TabStop := FALSE;\r
146 Result.gbTitle.EraseBackground := TRUE;\r
147 // Result.btnColor.TabOrder = 0\r
148 Result.btnColor := NewButton( Result.gbTitle, 'Color' ).SetPosition( 12, 24 ).SetSize( 65, 0 );\r
149 Result.btnColor.EraseBackground := TRUE;\r
150 // Result.btnFont.TabOrder = 1\r
151 Result.btnFont := NewButton( Result.gbTitle, 'Font' ).SetPosition( 12, 52 );\r
152 Result.btnFont.EraseBackground := TRUE;\r
153 // Result.btnSelectColor.TabOrder = 2\r
154 Result.btnSelectColor := NewButton( Result.gbTitle, 'Select Color' ).SetPosition( 84, 24 ).SetSize( 89, 0 );\r
155 Result.btnSelectColor.EraseBackground := TRUE;\r
156 // Result.btnSelectFont.TabOrder = 2\r
157 Result.btnSelectFont := NewButton( Result.gbTitle, 'Select Font' ).SetPosition( 84, 52 ).SetSize( 89, 0 );\r
158 Result.btnSelectFont.EraseBackground := TRUE;\r
159 // Result.cbTitleRowButton.TabOrder = 5\r
160 Result.cbTitleRowButton := NewCheckBox( Result.Panel1, 'TitleRowButton' ).SetPosition( 5, 473 ).SetSize( 93, 0 );\r
161 Result.cbTitleRowButton.EraseBackground := TRUE;\r
162 // Result.cbTitleColButton.TabOrder = 6\r
163 Result.cbTitleColButton := NewCheckBox( Result.Panel1, 'TitleColButton' ).SetPosition( 109, 473 ).SetSize( 89, 0 );\r
164 Result.cbTitleColButton.EraseBackground := TRUE;\r
165 // Result.btnSplit.TabOrder = 7\r
166 Result.btnSplit := NewButton( Result.Panel1, 'Split' ).SetPosition( 77, 505 );\r
167 Result.btnSplit.TabStop := FALSE;\r
168 Result.btnSplit.Enabled := False;\r
169 Result.btnSplit.EraseBackground := TRUE;\r
170 // Result.btnMerge.TabOrder = 8\r
171 Result.btnMerge := NewButton( Result.Panel1, 'Merge' ).SetPosition( 9, 505 );\r
172 Result.btnMerge.TabStop := FALSE;\r
173 Result.btnMerge.Enabled := False;\r
174 Result.btnMerge.EraseBackground := TRUE;\r
175 // Result.Editor_1.TabOrder = 1\r
176 Result.Editor_1 := NewEditBox( Result.Form, [ ] ).SetPosition( 223, 288 );\r
177 Result.Editor_1.HasBorder := FALSE;\r
178 Result.Editor_1.Color := clWindow;\r
179 Result.Editor_1.Visible := False;\r
180 // Result.Editor_2.TabOrder = 2\r
181 Result.Editor_2 := NewPanel( Result.Form, esNone ).SetPosition( 336, 272 ).SetSize( 153, 24 );\r
182 Result.Editor_2.Color := $C0DCC0;\r
183 Result.Editor_2.Border := 0;\r
184 Result.Editor_2.Visible := False;\r
185 // Result.Button1.TabOrder = 0\r
186 Result.Button1 := NewButton( Result.Editor_2, '...' ).SetAlign ( caRight ).SetSize( 25, 0 );\r
187 Result.Button1.TabStop := FALSE;\r
188 // Result.CheckBox1.TabOrder = 3\r
189 Result.CheckBox1 := NewCheckBox( Result.Form, 'CheckBox1' ).SetPosition( 487, 184 ).SetSize( 0, 23 );\r
190 Result.CheckBox1.TabStop := FALSE;\r
191 Result.CheckBox1.Visible := False;\r
192 // Result.ComboBox1.TabOrder = 4\r
193 Result.ComboBox1 := NewComboBox( Result.Form, [ coNoIntegralHeight ] ).SetPosition( 564, 256 );\r
194 Result.ComboBox1.Color := clWindow;\r
195 Result.ComboBox1.Visible := False;\r
196 Result.ComboBox1.Items[ 0 ] := 'ComboBox1';\r
197 Result.ComboBox1.Items[ 1 ] := 'qwqqqq';\r
198 Result.ComboBox1.Items[ 2 ] := 'wqqqq';\r
199 Result.ComboBox1.Items[ 3 ] := 'qqqqqqqqqqqqqqqq';\r
200 Result.ComboBox1.Items[ 4 ] := 'w';\r
201 Result.ComboBox1.Items[ 5 ] := 'qdsxcsqdq';\r
202 Result.ComboBox1.Items[ 6 ] := 'www';\r
203 Result.ComboBox1.CurIndex := 0;\r
204 // Result.XLGrid.TabOrder = 5\r
205 Result.XLGrid := PmdvXLGrid( NewmdvXLGrid( Result.Form, 10, 10, gsStandard, [ xlgRangeSelect ] ).SetAlign ( caClient )).SetTitleRow([ \r
206 '1', '2', '3', '4', '5', '6', '7', '8', '9', '10' ]).SetTitleCol([ \r
207 'I', 'II', 'III', 'IV', 'V', 'VI', 'VII', 'VIII', 'IX', 'X' ]);\r
208 Result.XLGrid.TitleColor:= -16777201;\r
209 Result.XLGrid.TitleSelectedColor:= -16777195;\r
210 Result.XLGrid.TitleSelectedFontColor:= -16777196;\r
211 Result.XLGrid.SelectedColor:= -16777203;\r
212 Result.XLGrid.SelectedColorLine:= -16777202;\r
213 Result.XLGrid.SelectedFontColor:= -16777202;\r
214 Result.XLGrid.LineColor:= -16777200;\r
215 Result.XLGrid.DefEditorEvents:= False;\r
216 Result.XLGrid.Color := clWindow;\r
217 Result.UpDownLeft.OnChangingEx := Result.UpDownLeftChangingEx;\r
218 Result.UpDownLeft.Buddy:=Result.EditBox1.GetWindowHandle;\r
219 Result.UpDownLeft.SetPosition( 28, 36 );\r
220 Result.UpDownLeft.Height := 22;\r
221 Result.EditBox1.Width := 20;\r
222 Result.UpDownLeft.Width := 15;\r
223 Result.UpDownRight.OnChangingEx := Result.UpDownRightChangingEx;\r
224 Result.UpDownRight.Buddy:=Result.EditBox2.GetWindowHandle;\r
225 Result.UpDownRight.SetPosition( 72, 36 );\r
226 Result.UpDownRight.Height := 22;\r
227 Result.EditBox2.Width := 20;\r
228 Result.UpDownRight.Width := 15;\r
229 Result.UpDownTop.OnChangingEx := Result.UpDownTopChangingEx;\r
230 Result.UpDownTop.Buddy:=Result.EditBox3.GetWindowHandle;\r
231 Result.UpDownTop.SetPosition( 116, 36 );\r
232 Result.UpDownTop.Height := 22;\r
233 Result.EditBox3.Width := 20;\r
234 Result.UpDownTop.Width := 15;\r
235 Result.rbXL.OnClick := Result.rbStyleClick;\r
236 Result.UpDownBottom.OnChangingEx := Result.UpDownBottomChangingEx;\r
237 Result.UpDownBottom.Buddy:=Result.EditBox4.GetWindowHandle;\r
238 Result.UpDownBottom.SetPosition( 160, 36 );\r
239 Result.UpDownBottom.Height := 22;\r
240 Result.EditBox4.Width := 20;\r
241 Result.UpDownBottom.Width := 15;\r
242 Result.btnColor.OnClick := Result.btnColorClick;\r
243 Result.cbxlgRangeSelect.OnClick := Result.cbxlgOptionsClick;\r
244 Result.rbStandard.OnClick := Result.rbStyleClick;\r
245 Result.btnFont.OnClick := Result.btnFontClick;\r
246 Result.cbxlgColsSelect.OnClick := Result.cbxlgOptionsClick;\r
247 Result.btnSelectColor.OnClick := Result.btnSelectColorClick;\r
248 Result.btnSelectFont.OnClick := Result.btnSelectFontClick;\r
249 Result.cbxlgRowsSelect.OnClick := Result.cbxlgOptionsClick;\r
250 Result.Button2.OnClick := Result.Button2Click;\r
251 Result.cbxlgColSizing.OnClick := Result.cbxlgOptionsClick;\r
252 Result.cbTitleRowButton.OnClick := Result.cbTitleRowButtonClick;\r
253 Result.cbxlgRowSizing.OnClick := Result.cbxlgOptionsClick;\r
254 Result.XLGrid.OnFocusChange := Result.XLGridFocusChange;\r
255 Result.XLGrid.OnBeginEdit := Result.XLGridBeginEdit;\r
256 Result.XLGrid.OnEndEdit := Result.XLGridEndEdit;\r
257 Result.XLGrid.OnSelectedChange := Result.XLGridSelectedChange;\r
258 Result.XLGrid.OnDrawCell := Result.XLGridDrawCell;\r
259 Result.XLGrid.OnDrawTitle := Result.XLGridDrawTitle;\r
260 Result.cbxlgColMoving.OnClick := Result.cbxlgOptionsClick;\r
261 Result.cbTitleColButton.OnClick := Result.cbTitleColButtonClick;\r
262 Result.cbxlgRowMoving.OnClick := Result.cbxlgOptionsClick;\r
263 Result.btnSplit.OnClick := Result.btnSplitClick;\r
264 Result.btnMerge.OnClick := Result.btnMergeClick;\r
265 Result.KOLFormFormCreate( Result );\r
266 \r
267 end;\r
268 \r
269 \r