1 unit FpGuiWSFactory;
2
3 {$mode objfpc}{$H+}
4
5 interface
6
7 uses
8 Classes, Controls, StdCtrls, Forms, Menus, ExtCtrls, Dialogs, ComCtrls, Grids,
9 Buttons, PairSplitter, WSLCLClasses;
10
11 // imglist
RegisterCustomImageListResolutionnull12 function RegisterCustomImageListResolution: Boolean;
13 // controls
RegisterDragImageListResolutionnull14 function RegisterDragImageListResolution: Boolean;
RegisterLazAccessibleObjectnull15 function RegisterLazAccessibleObject: Boolean;
RegisterControlnull16 function RegisterControl: Boolean;
RegisterWinControlnull17 function RegisterWinControl: Boolean;
RegisterGraphicControlnull18 function RegisterGraphicControl: Boolean;
RegisterCustomControlnull19 function RegisterCustomControl: Boolean;
20 // comctrls
RegisterStatusBarnull21 function RegisterStatusBar: Boolean;
RegisterTabSheetnull22 function RegisterTabSheet: Boolean;
RegisterPageControlnull23 function RegisterPageControl: Boolean;
RegisterCustomListViewnull24 function RegisterCustomListView: Boolean;
RegisterCustomProgressBarnull25 function RegisterCustomProgressBar: Boolean;
RegisterCustomUpDownnull26 function RegisterCustomUpDown: Boolean;
RegisterCustomToolButtonnull27 function RegisterCustomToolButton: Boolean;
RegisterToolBarnull28 function RegisterToolBar: Boolean;
RegisterCustomTrackBarnull29 function RegisterCustomTrackBar: Boolean;
RegisterCustomTreeViewnull30 function RegisterCustomTreeView: Boolean;
31 // calendar
RegisterCustomCalendarnull32 function RegisterCustomCalendar: Boolean;
33 // dialogs
RegisterCommonDialognull34 function RegisterCommonDialog: Boolean;
RegisterFileDialognull35 function RegisterFileDialog: Boolean;
RegisterOpenDialognull36 function RegisterOpenDialog: Boolean;
RegisterSaveDialognull37 function RegisterSaveDialog: Boolean;
RegisterSelectDirectoryDialognull38 function RegisterSelectDirectoryDialog: Boolean;
RegisterColorDialognull39 function RegisterColorDialog: Boolean;
RegisterColorButtonnull40 function RegisterColorButton: Boolean;
RegisterFontDialognull41 function RegisterFontDialog: Boolean;
42 // StdCtrls
RegisterCustomScrollBarnull43 function RegisterCustomScrollBar: Boolean;
RegisterCustomGroupBoxnull44 function RegisterCustomGroupBox: Boolean;
RegisterCustomComboBoxnull45 function RegisterCustomComboBox: Boolean;
RegisterCustomListBoxnull46 function RegisterCustomListBox: Boolean;
RegisterCustomEditnull47 function RegisterCustomEdit: Boolean;
RegisterCustomMemonull48 function RegisterCustomMemo: Boolean;
RegisterButtonControlnull49 function RegisterButtonControl: Boolean;
RegisterCustomButtonnull50 function RegisterCustomButton: Boolean;
RegisterCustomCheckBoxnull51 function RegisterCustomCheckBox: Boolean;
RegisterToggleBoxnull52 function RegisterToggleBox: Boolean;
RegisterRadioButtonnull53 function RegisterRadioButton: Boolean;
RegisterCustomStaticTextnull54 function RegisterCustomStaticText: Boolean;
RegisterCustomLabelnull55 function RegisterCustomLabel: Boolean;
56 // extctrls
RegisterCustomPagenull57 function RegisterCustomPage: Boolean;
RegisterCustomNotebooknull58 function RegisterCustomNotebook: Boolean;
RegisterShapenull59 function RegisterShape: Boolean;
RegisterCustomSplitternull60 function RegisterCustomSplitter: Boolean;
RegisterPaintBoxnull61 function RegisterPaintBox: Boolean;
RegisterCustomImagenull62 function RegisterCustomImage: Boolean;
RegisterBevelnull63 function RegisterBevel: Boolean;
RegisterCustomRadioGroupnull64 function RegisterCustomRadioGroup: Boolean;
RegisterCustomCheckGroupnull65 function RegisterCustomCheckGroup: Boolean;
RegisterCustomLabeledEditnull66 function RegisterCustomLabeledEdit: Boolean;
RegisterCustomPanelnull67 function RegisterCustomPanel: Boolean;
RegisterCustomTrayIconnull68 function RegisterCustomTrayIcon: Boolean;
69 //ExtDlgs
RegisterPreviewFileControlnull70 function RegisterPreviewFileControl: Boolean;
RegisterPreviewFileDialognull71 function RegisterPreviewFileDialog: Boolean;
RegisterOpenPictureDialognull72 function RegisterOpenPictureDialog: Boolean;
RegisterSavePictureDialognull73 function RegisterSavePictureDialog: Boolean;
RegisterCalculatorDialognull74 function RegisterCalculatorDialog: Boolean;
RegisterCalculatorFormnull75 function RegisterCalculatorForm: Boolean;
RegisterCalendarDialognull76 function RegisterCalendarDialog: Boolean;
77 // Buttons
RegisterCustomBitBtnnull78 function RegisterCustomBitBtn: Boolean;
RegisterCustomSpeedButtonnull79 function RegisterCustomSpeedButton: Boolean;
80 // CheckLst
RegisterCustomCheckListBoxnull81 function RegisterCustomCheckListBox: Boolean;
82 // Forms
RegisterScrollingWinControlnull83 function RegisterScrollingWinControl: Boolean;
RegisterScrollBoxnull84 function RegisterScrollBox: Boolean;
RegisterCustomFramenull85 function RegisterCustomFrame: Boolean;
RegisterCustomFormnull86 function RegisterCustomForm: Boolean;
RegisterHintWindownull87 function RegisterHintWindow: Boolean;
RegisterCustomGridnull88 function RegisterCustomGrid: Boolean;
RegisterMenuItemnull89 function RegisterMenuItem: Boolean;
RegisterMenunull90 function RegisterMenu: Boolean;
RegisterMainMenunull91 function RegisterMainMenu: Boolean;
RegisterPopupMenunull92 function RegisterPopupMenu: Boolean;
RegisterPairSplitterSidenull93 function RegisterPairSplitterSide: Boolean;
RegisterCustomPairSplitternull94 function RegisterCustomPairSplitter: Boolean;
RegisterCustomFloatSpinEditnull95 function RegisterCustomFloatSpinEdit: Boolean;
RegisterCustomRubberBandnull96 function RegisterCustomRubberBand: Boolean;
97 // LazDeviceAPIs
RegisterLazDeviceAPIsnull98 function RegisterLazDeviceAPIs: Boolean;
99
100 implementation
101
102 uses
103 FpGuiWSButtons,
104 FpGuiWSControls,
105 FpGuiWSExtCtrls,
106 FpGuiWSComCtrls,
107 FpGuiWSForms,
108 FpGuiWSMenus,
109 FpGuiWSGrids,
110 FpGuiWSStdCtrls,
111 FpGuiWSPairSplitter,
112 FpGuiWSDialogs;
113
114 // imglist
RegisterCustomImageListResolutionnull115 function RegisterCustomImageListResolution: Boolean; alias : 'WSRegisterCustomImageListResolution';
116 begin
117 Result := False;
118 end;
119
120 // controls
RegisterDragImageListResolutionnull121 function RegisterDragImageListResolution: Boolean; alias : 'WSRegisterDragImageListResolution';
122 begin
123 Result := False;
124 end;
125
RegisterLazAccessibleObjectnull126 function RegisterLazAccessibleObject: Boolean; alias : 'WSRegisterLazAccessibleObject';
127 begin
128 // RegisterWSLazAccessibleObject(TGtk2WSLazAccessibleObject);
129 // Result := True;
130 Result := False;
131 end;
132
RegisterControlnull133 function RegisterControl: Boolean; alias : 'WSRegisterControl';
134 begin
135 RegisterWSComponent(TControl, TFpGuiWSControl);
136 Result := True;
137 end;
138
RegisterWinControlnull139 function RegisterWinControl: Boolean; alias : 'WSRegisterWinControl';
140 begin
141 RegisterWSComponent(TWinControl, TFpGuiWSWinControl);
142 Result := True;
143 end;
144
RegisterGraphicControlnull145 function RegisterGraphicControl: Boolean; alias : 'WSRegisterGraphicControl';
146 begin
147 RegisterWSComponent(TGraphicControl, TFpGuiWSGraphicControl);
148 Result := true;
149 end;
150
RegisterCustomControlnull151 function RegisterCustomControl: Boolean; alias : 'WSRegisterCustomControl';
152 begin
153 Result := False;
154 end;
155
156 // comctrls
RegisterStatusBarnull157 function RegisterStatusBar: Boolean; alias : 'WSRegisterStatusBar';
158 begin
159 Result := False;
160 end;
161
RegisterTabSheetnull162 function RegisterTabSheet: Boolean; alias : 'WSRegisterTabSheet';
163 begin
164 Result := False;
165 end;
166
RegisterPageControlnull167 function RegisterPageControl: Boolean; alias : 'WSRegisterPageControl';
168 begin
169 Result := False;
170 end;
171
RegisterCustomListViewnull172 function RegisterCustomListView: Boolean; alias : 'WSRegisterCustomListView';
173 begin
174 Result := False;
175 end;
176
RegisterCustomProgressBarnull177 function RegisterCustomProgressBar: Boolean; alias : 'WSRegisterCustomProgressBar';
178 begin
179 RegisterWSComponent(TCustomProgressBar, TFpGuiWSProgressBar);
180 Result := True;
181 end;
182
RegisterCustomUpDownnull183 function RegisterCustomUpDown: Boolean; alias : 'WSRegisterCustomUpDown';
184 begin
185 Result := False;
186 end;
187
RegisterCustomToolButtonnull188 function RegisterCustomToolButton: Boolean; alias : 'WSRegisterCustomToolButton';
189 begin
190 Result := False;
191 end;
192
RegisterToolBarnull193 function RegisterToolBar: Boolean; alias : 'WSRegisterToolBar';
194 begin
195 Result := False;
196 end;
197
RegisterCustomTrackBarnull198 function RegisterCustomTrackBar: Boolean; alias : 'WSRegisterCustomTrackBar';
199 begin
200 Result := False;
201 end;
202
RegisterCustomTreeViewnull203 function RegisterCustomTreeView: Boolean; alias : 'WSRegisterCustomTreeView';
204 begin
205 Result := False;
206 end;
207
208 // calendar
RegisterCustomCalendarnull209 function RegisterCustomCalendar: Boolean; alias : 'WSRegisterCustomCalendar';
210 begin
211 Result := False;
212 end;
213
214 // dialogs
RegisterCommonDialognull215 function RegisterCommonDialog: Boolean; alias : 'WSRegisterCommonDialog';
216 begin
217 RegisterWSComponent(TCommonDialog, TFpGuiWSCommonDialog);
218 Result := True;
219 end;
220
RegisterFileDialognull221 function RegisterFileDialog: Boolean; alias : 'WSRegisterFileDialog';
222 begin
223 RegisterWSComponent(TFileDialog, TFpGuiWSFileDialog);
224 Result := True;
225 end;
226
RegisterOpenDialognull227 function RegisterOpenDialog: Boolean; alias : 'WSRegisterOpenDialog';
228 begin
229 RegisterWSComponent(TOpenDialog, TFpGuiWSOpenDialog);
230 Result := True;
231 end;
232
RegisterSaveDialognull233 function RegisterSaveDialog: Boolean; alias : 'WSRegisterSaveDialog';
234 begin
235 RegisterWSComponent(TSaveDialog, TFpGuiWSSaveDialog);
236 Result := True;
237 end;
238
RegisterSelectDirectoryDialognull239 function RegisterSelectDirectoryDialog: Boolean; alias : 'WSRegisterSelectDirectoryDialog';
240 begin
241 Result := False;
242 end;
243
RegisterColorDialognull244 function RegisterColorDialog: Boolean; alias : 'WSRegisterColorDialog';
245 begin
246 RegisterWSComponent(TColorDialog, TFpGuiWSColorDialog);
247 Result := true;
248 end;
249
RegisterColorButtonnull250 function RegisterColorButton: Boolean; alias : 'WSRegisterColorButton';
251 begin
252 Result := False;
253 end;
254
RegisterFontDialognull255 function RegisterFontDialog: Boolean; alias : 'WSRegisterFontDialog';
256 begin
257 RegisterWSComponent(TFontDialog, TFpGuiWSFontDialog);
258 Result := True;
259 end;
260
261 // StdCtrls
RegisterCustomScrollBarnull262 function RegisterCustomScrollBar: Boolean; alias : 'WSRegisterCustomScrollBar';
263 begin
264 RegisterWSComponent(TCustomScrollBar, TFpGuiWSScrollBar);
265 Result := True;
266 end;
267
RegisterCustomGroupBoxnull268 function RegisterCustomGroupBox: Boolean; alias : 'WSRegisterCustomGroupBox';
269 begin
270 RegisterWSComponent(TCustomGroupBox, TFpGuiWSCustomGroupBox);
271 Result := True;
272 end;
273
RegisterCustomComboBoxnull274 function RegisterCustomComboBox: Boolean; alias : 'WSRegisterCustomComboBox';
275 begin
276 RegisterWSComponent(TCustomComboBox, TFpGuiWSCustomComboBox);
277 Result := True;
278 end;
279
RegisterCustomListBoxnull280 function RegisterCustomListBox: Boolean; alias : 'WSRegisterCustomListBox';
281 begin
282 RegisterWSComponent(TCustomListBox, TFpGuiWSCustomListBox);
283 Result := True;
284 end;
285
RegisterCustomEditnull286 function RegisterCustomEdit: Boolean; alias : 'WSRegisterCustomEdit';
287 begin
288 RegisterWSComponent(TCustomEdit, TFpGuiWSCustomEdit);
289 Result := True;
290 end;
291
RegisterCustomMemonull292 function RegisterCustomMemo: Boolean; alias : 'WSRegisterCustomMemo';
293 begin
294 RegisterWSComponent(TCustomMemo, TFpGuiWSCustomMemo);
295 Result := True;
296 end;
297
RegisterButtonControlnull298 function RegisterButtonControl: Boolean; alias : 'WSRegisterButtonControl';
299 begin
300 Result := False;
301 end;
302
RegisterCustomButtonnull303 function RegisterCustomButton: Boolean; alias : 'WSRegisterCustomButton';
304 begin
305 RegisterWSComponent(TCustomButton, TFpGuiWSButton);
306 Result := True;
307 end;
308
RegisterCustomCheckBoxnull309 function RegisterCustomCheckBox: Boolean; alias : 'WSRegisterCustomCheckBox';
310 begin
311 RegisterWSComponent(TCustomCheckBox, TFpGuiWSCustomCheckBox);
312 Result := True;
313 end;
314
RegisterToggleBoxnull315 function RegisterToggleBox: Boolean; alias : 'WSRegisterToggleBox';
316 begin
317 Result := False;
318 end;
319
RegisterRadioButtonnull320 function RegisterRadioButton: Boolean; alias : 'WSRegisterRadioButton';
321 begin
322 RegisterWSComponent(TRadioButton, TFpGuiWSRadioButton);
323 Result := True;
324 end;
325
RegisterCustomStaticTextnull326 function RegisterCustomStaticText: Boolean; alias : 'WSRegisterCustomStaticText';
327 begin
328 RegisterWSComponent(TCustomStaticText, TFpGuiWSCustomStaticText);
329 Result := false;
330 end;
331
RegisterCustomLabelnull332 function RegisterCustomLabel: Boolean; alias : 'WSRegisterCustomLabel';
333 begin
334 Result := false;
335 end;
336
337 // extctrls
RegisterCustomPagenull338 function RegisterCustomPage: Boolean; alias : 'WSRegisterCustomPage';
339 begin
340 Result := False;
341 end;
342
RegisterCustomNotebooknull343 function RegisterCustomNotebook: Boolean; alias : 'WSRegisterCustomNotebook';
344 begin
345 // RegisterWSComponent(TCustomTabControl, TFpGuiWSCustomNotebook);
346 Result := false;
347 end;
348
RegisterShapenull349 function RegisterShape: Boolean; alias : 'WSRegisterShape';
350 begin
351 Result := False;
352 end;
353
RegisterCustomSplitternull354 function RegisterCustomSplitter: Boolean; alias : 'WSRegisterCustomSplitter';
355 begin
356 //RegisterWSComponent(TCustomSplitter, TFpGuiWSCustomSplitter);
357 Result := false;
358 end;
359
RegisterPaintBoxnull360 function RegisterPaintBox: Boolean; alias : 'WSRegisterPaintBox';
361 begin
362 Result := False;
363 end;
364
RegisterCustomImagenull365 function RegisterCustomImage: Boolean; alias : 'WSRegisterCustomImage';
366 begin
367 Result := False;
368 end;
369
RegisterBevelnull370 function RegisterBevel: Boolean; alias : 'WSRegisterBevel';
371 begin
372 Result := False;
373 end;
374
RegisterCustomRadioGroupnull375 function RegisterCustomRadioGroup: Boolean; alias : 'WSRegisterCustomRadioGroup';
376 begin
377 Result := False;
378 end;
379
RegisterCustomCheckGroupnull380 function RegisterCustomCheckGroup: Boolean; alias : 'WSRegisterCustomCheckGroup';
381 begin
382 Result := False;
383 end;
384
RegisterCustomLabeledEditnull385 function RegisterCustomLabeledEdit: Boolean; alias : 'WSRegisterCustomLabeledEdit';
386 begin
387 Result := False;
388 end;
389
RegisterCustomPanelnull390 function RegisterCustomPanel: Boolean; alias : 'WSRegisterCustomPanel';
391 begin
392 RegisterWSComponent(TCustomPanel, TFpGuiWSCustomPanel);
393 Result := True;
394 end;
395
RegisterCustomTrayIconnull396 function RegisterCustomTrayIcon: Boolean; alias : 'WSRegisterCustomTrayIcon';
397 begin
398 Result := False;
399 end;
400
401 //ExtDlgs
RegisterPreviewFileControlnull402 function RegisterPreviewFileControl: Boolean; alias : 'WSRegisterPreviewFileControl';
403 begin
404 Result := False;
405 end;
406
RegisterPreviewFileDialognull407 function RegisterPreviewFileDialog: Boolean; alias : 'WSRegisterPreviewFileDialog';
408 begin
409 Result := False;
410 end;
411
RegisterOpenPictureDialognull412 function RegisterOpenPictureDialog: Boolean; alias : 'WSRegisterOpenPictureDialog';
413 begin
414 Result := False;
415 end;
416
RegisterSavePictureDialognull417 function RegisterSavePictureDialog: Boolean; alias : 'WSRegisterSavePictureDialog';
418 begin
419 Result := False;
420 end;
421
RegisterCalculatorDialognull422 function RegisterCalculatorDialog: Boolean; alias : 'WSRegisterCalculatorDialog';
423 begin
424 Result := False;
425 end;
426
RegisterCalculatorFormnull427 function RegisterCalculatorForm: Boolean; alias : 'WSRegisterCalculatorForm';
428 begin
429 Result := False;
430 end;
431
432 (*function RegisterCalendarDialogForm: Boolean; alias : 'WSRegisterCalendarDialogForm';
433 begin
434 // RegisterWSComponent(TCalendarDialogForm, TFpGuiWSCalendarDialogForm);
435 Result := False;
436 end;*)
437
RegisterCalendarDialognull438 function RegisterCalendarDialog: Boolean; alias : 'WSRegisterCalendarDialog';
439 begin
440 Result := False;
441 end;
442
443 // Buttons
RegisterCustomBitBtnnull444 function RegisterCustomBitBtn: Boolean; alias : 'WSRegisterCustomBitBtn';
445 begin
446 RegisterWSComponent(TCustomBitBtn, TFpGuiWSBitBtn);
447 Result := True;
448 end;
449
RegisterCustomSpeedButtonnull450 function RegisterCustomSpeedButton: Boolean; alias : 'WSRegisterCustomSpeedButton';
451 begin
452 Result := False;
453 end;
454
455 // CheckLst
RegisterCustomCheckListBoxnull456 function RegisterCustomCheckListBox: Boolean; alias : 'WSRegisterCustomCheckListBox';
457 begin
458 Result := False;
459 end;
460
461 // Forms
RegisterScrollingWinControlnull462 function RegisterScrollingWinControl: Boolean; alias : 'WSRegisterScrollingWinControl';
463 begin
464 RegisterWSComponent(TScrollingWinControl, TFpGuiWSScrollingWinControl);
465 Result := true;
466 end;
467
RegisterScrollBoxnull468 function RegisterScrollBox: Boolean; alias : 'WSRegisterScrollBox';
469 begin
470 Result := False;
471 end;
472
RegisterCustomFramenull473 function RegisterCustomFrame: Boolean; alias : 'WSRegisterCustomFrame';
474 begin
475 Result := False;
476 end;
477
RegisterCustomFormnull478 function RegisterCustomForm: Boolean; alias : 'WSRegisterCustomForm';
479 begin
480 RegisterWSComponent(TCustomForm, TFpGuiWSCustomForm);
481 Result := True;
482 end;
483
RegisterHintWindownull484 function RegisterHintWindow: Boolean; alias : 'WSRegisterHintWindow';
485 begin
486 Result := false;
487 end;
488
489 // Grids
RegisterCustomGridnull490 function RegisterCustomGrid: Boolean; alias : 'WSRegisterCustomGrid';
491 begin
492 RegisterWSComponent(TCustomGrid, TFpGuiWSCustomGrid);
493 Result := True;
494 end;
495
496 // Menus
RegisterMenuItemnull497 function RegisterMenuItem: Boolean; alias : 'WSRegisterMenuItem';
498 begin
499 RegisterWSComponent(TMenuItem, TFpGuiWSMenuItem);
500 Result := True;
501 end;
502
RegisterMenunull503 function RegisterMenu: Boolean; alias : 'WSRegisterMenu';
504 begin
505 RegisterWSComponent(TMenu, TFpGuiWSMenu);
506 Result := True;
507 end;
508
RegisterMainMenunull509 function RegisterMainMenu: Boolean; alias : 'WSRegisterMainMenu';
510 begin
511 Result := False;
512 end;
513
RegisterPopupMenunull514 function RegisterPopupMenu: Boolean; alias : 'WSRegisterPopupMenu';
515 begin
516 RegisterWSComponent(TPopupMenu, TFpGuiWSPopupMenu);
517 Result := True;
518 end;
519
RegisterPairSplitterSidenull520 function RegisterPairSplitterSide: Boolean; alias : 'WSRegisterPairSplitterSide';
521 begin
522 RegisterWSComponent(TPairSplitterSide, TFpGuiWSPairSplitterSide);
523 Result := true;
524 end;
525
RegisterCustomPairSplitternull526 function RegisterCustomPairSplitter: Boolean; alias : 'WSRegisterCustomPairSplitter';
527 begin
528 RegisterWSComponent(TCustomPairSplitter, TFpGuiWSCustomPairSplitter);
529 Result := true;
530 end;
531
532 // Spin
RegisterCustomFloatSpinEditnull533 function RegisterCustomFloatSpinEdit: Boolean; alias : 'WSRegisterCustomFloatSpinEdit';
534 begin
535 Result := False;
536 end;
537
538 // RubberBand
RegisterCustomRubberBandnull539 function RegisterCustomRubberBand: Boolean; alias : 'WSRegisterCustomRubberBand';
540 begin
541 Result := False;
542 end;
543
RegisterLazDeviceAPIsnull544 function RegisterLazDeviceAPIs: Boolean; alias : 'WSRegisterLazDeviceAPIs';
545 begin
546 //RegisterWSLazDeviceAPIs(TCDWSLazDeviceAPIs);
547 Result := False;
548 end;
549
550 end.
551
552