1 unit Gtk2WSFactory;
2
3 {$mode objfpc}{$H+}
4
5 interface
6
7 uses
8 // RTL
9 Classes,
10 // LCL
11 Controls, ComCtrls, Calendar, StdCtrls, Spin,
12 Dialogs, ExtCtrls, ExtDlgs, Buttons, CheckLst, Forms, Grids, Menus,
13 PairSplitter, WSLCLClasses;
14
15
16 // imglist
RegisterCustomImageListResolutionnull17 function RegisterCustomImageListResolution: Boolean;
18 // controls
RegisterDragImageListResolutionnull19 function RegisterDragImageListResolution: Boolean;
RegisterLazAccessibleObjectnull20 function RegisterLazAccessibleObject: Boolean;
RegisterControlnull21 function RegisterControl: Boolean;
RegisterWinControlnull22 function RegisterWinControl: Boolean;
RegisterGraphicControlnull23 function RegisterGraphicControl: Boolean;
RegisterCustomControlnull24 function RegisterCustomControl: Boolean;
25 // comctrls
RegisterStatusBarnull26 function RegisterStatusBar: Boolean;
RegisterTabSheetnull27 function RegisterTabSheet: Boolean;
RegisterPageControlnull28 function RegisterPageControl: Boolean;
RegisterCustomListViewnull29 function RegisterCustomListView: Boolean;
RegisterCustomProgressBarnull30 function RegisterCustomProgressBar: Boolean;
RegisterCustomUpDownnull31 function RegisterCustomUpDown: Boolean;
RegisterCustomToolButtonnull32 function RegisterCustomToolButton: Boolean;
RegisterToolBarnull33 function RegisterToolBar: Boolean;
RegisterCustomTrackBarnull34 function RegisterCustomTrackBar: Boolean;
RegisterCustomTreeViewnull35 function RegisterCustomTreeView: Boolean;
36 // calendar
RegisterCustomCalendarnull37 function RegisterCustomCalendar: Boolean;
38 // dialogs
RegisterCommonDialognull39 function RegisterCommonDialog: Boolean;
RegisterFileDialognull40 function RegisterFileDialog: Boolean;
RegisterOpenDialognull41 function RegisterOpenDialog: Boolean;
RegisterSaveDialognull42 function RegisterSaveDialog: Boolean;
RegisterSelectDirectoryDialognull43 function RegisterSelectDirectoryDialog: Boolean;
RegisterColorDialognull44 function RegisterColorDialog: Boolean;
RegisterColorButtonnull45 function RegisterColorButton: Boolean;
RegisterFontDialognull46 function RegisterFontDialog: Boolean;
47 // StdCtrls
RegisterCustomScrollBarnull48 function RegisterCustomScrollBar: Boolean;
RegisterCustomGroupBoxnull49 function RegisterCustomGroupBox: Boolean;
RegisterCustomComboBoxnull50 function RegisterCustomComboBox: Boolean;
RegisterCustomListBoxnull51 function RegisterCustomListBox: Boolean;
RegisterCustomEditnull52 function RegisterCustomEdit: Boolean;
RegisterCustomMemonull53 function RegisterCustomMemo: Boolean;
RegisterButtonControlnull54 function RegisterButtonControl: Boolean;
RegisterCustomButtonnull55 function RegisterCustomButton: Boolean;
RegisterCustomCheckBoxnull56 function RegisterCustomCheckBox: Boolean;
RegisterToggleBoxnull57 function RegisterToggleBox: Boolean;
RegisterRadioButtonnull58 function RegisterRadioButton: Boolean;
RegisterCustomStaticTextnull59 function RegisterCustomStaticText: Boolean;
RegisterCustomLabelnull60 function RegisterCustomLabel: Boolean;
61 // extctrls
RegisterCustomPagenull62 function RegisterCustomPage: Boolean;
RegisterCustomNotebooknull63 function RegisterCustomNotebook: Boolean;
RegisterShapenull64 function RegisterShape: Boolean;
RegisterCustomSplitternull65 function RegisterCustomSplitter: Boolean;
RegisterPaintBoxnull66 function RegisterPaintBox: Boolean;
RegisterCustomImagenull67 function RegisterCustomImage: Boolean;
RegisterBevelnull68 function RegisterBevel: Boolean;
RegisterCustomRadioGroupnull69 function RegisterCustomRadioGroup: Boolean;
RegisterCustomCheckGroupnull70 function RegisterCustomCheckGroup: Boolean;
RegisterCustomLabeledEditnull71 function RegisterCustomLabeledEdit: Boolean;
RegisterCustomPanelnull72 function RegisterCustomPanel: Boolean;
RegisterCustomTrayIconnull73 function RegisterCustomTrayIcon: Boolean;
74 //ExtDlgs
RegisterPreviewFileControlnull75 function RegisterPreviewFileControl: Boolean;
RegisterPreviewFileDialognull76 function RegisterPreviewFileDialog: Boolean;
RegisterOpenPictureDialognull77 function RegisterOpenPictureDialog: Boolean;
RegisterSavePictureDialognull78 function RegisterSavePictureDialog: Boolean;
RegisterCalculatorDialognull79 function RegisterCalculatorDialog: Boolean;
RegisterCalculatorFormnull80 function RegisterCalculatorForm: Boolean;
RegisterCalendarDialognull81 function RegisterCalendarDialog: Boolean;
82 // Buttons
RegisterCustomBitBtnnull83 function RegisterCustomBitBtn: Boolean;
RegisterCustomSpeedButtonnull84 function RegisterCustomSpeedButton: Boolean;
85 // CheckLst
RegisterCustomCheckListBoxnull86 function RegisterCustomCheckListBox: Boolean;
87 // Forms
RegisterScrollingWinControlnull88 function RegisterScrollingWinControl: Boolean;
RegisterScrollBoxnull89 function RegisterScrollBox: Boolean;
RegisterCustomFramenull90 function RegisterCustomFrame: Boolean;
RegisterCustomFormnull91 function RegisterCustomForm: Boolean;
RegisterHintWindownull92 function RegisterHintWindow: Boolean;
RegisterCustomGridnull93 function RegisterCustomGrid: Boolean;
RegisterMenuItemnull94 function RegisterMenuItem: Boolean;
RegisterMenunull95 function RegisterMenu: Boolean;
RegisterMainMenunull96 function RegisterMainMenu: Boolean;
RegisterPopupMenunull97 function RegisterPopupMenu: Boolean;
RegisterPairSplitterSidenull98 function RegisterPairSplitterSide: Boolean;
RegisterCustomPairSplitternull99 function RegisterCustomPairSplitter: Boolean;
RegisterCustomFloatSpinEditnull100 function RegisterCustomFloatSpinEdit: Boolean;
RegisterCustomRubberBandnull101 function RegisterCustomRubberBand: Boolean;
102 // ShellCtrls
RegisterCustomShellTreeViewnull103 function RegisterCustomShellTreeView: Boolean;
RegisterCustomShellListViewnull104 function RegisterCustomShellListView: Boolean;
105 // LazDeviceAPIs
RegisterLazDeviceAPIsnull106 function RegisterLazDeviceAPIs: Boolean;
107
108 implementation
109
110 uses
111 Gtk2WSButtons,
112 Gtk2WSCalendar,
113 Gtk2WSCheckLst,
114 Gtk2WSComCtrls,
115 Gtk2WSControls,
116 Gtk2WSDialogs,
117 Gtk2WSExtCtrls,
118 Gtk2WSExtDlgs,
119 Gtk2WSForms,
120 Gtk2WSGrids,
121 {%H-}Gtk2WSImgList,
122 Gtk2WSMenus,
123 Gtk2WSSpin,
124 Gtk2WSStdCtrls,
125 Gtk2WSPairSplitter,
126 Gtk2WSPrivate,
127 UnityWSCtrls;
128
129 // imglist
RegisterCustomImageListResolutionnull130 function RegisterCustomImageListResolution: Boolean; alias : 'WSRegisterCustomImageListResolution';
131 begin
132 // RegisterWSComponent(TCustomImageListResolution, TGtk2WSCustomImageListResolution);
133 Result := False;
134 end;
135
136 // controls
RegisterDragImageListResolutionnull137 function RegisterDragImageListResolution: Boolean; alias : 'WSRegisterDragImageListResolution';
138 begin
139 RegisterWSComponent(TDragImageListResolution, TGtk2WSDragImageListResolution);
140 Result := True;
141 end;
142
RegisterLazAccessibleObjectnull143 function RegisterLazAccessibleObject: Boolean; alias : 'WSRegisterLazAccessibleObject';
144 begin
145 // RegisterWSLazAccessibleObject(TGtk2WSLazAccessibleObject);
146 // Result := True;
147 Result := False;
148 end;
149
RegisterControlnull150 function RegisterControl: Boolean; alias : 'WSRegisterControl';
151 begin
152 // RegisterWSComponent(TControl, TGtk2WSControl);
153 Result := False;
154 end;
155
RegisterWinControlnull156 function RegisterWinControl: Boolean; alias : 'WSRegisterWinControl';
157 begin
158 RegisterWSComponent(TWinControl, TGtk2WSWinControl, TGtkPrivateWidget);
159 //RegisterWSComponent(TWinControl, TGtk2WSWinControl);
160 Result := True;
161 end;
162
RegisterGraphicControlnull163 function RegisterGraphicControl: Boolean; alias : 'WSRegisterGraphicControl';
164 begin
165 // RegisterWSComponent(TGraphicControl, TGtk2WSGraphicControl);
166 Result := False;
167 end;
168
RegisterCustomControlnull169 function RegisterCustomControl: Boolean; alias : 'WSRegisterCustomControl';
170 begin
171 // RegisterWSComponent(TCustomControl, TGtk2WSCustomControl);
172 Result := False;
173 end;
174
175 // comctrls
RegisterStatusBarnull176 function RegisterStatusBar: Boolean; alias : 'WSRegisterStatusBar';
177 begin
178 RegisterWSComponent(TStatusBar, TGtk2WSStatusBar);
179 Result := True;
180 end;
181
RegisterTabSheetnull182 function RegisterTabSheet: Boolean; alias : 'WSRegisterTabSheet';
183 begin
184 // RegisterWSComponent(TCustomTabSheet, TGtk2WSTabSheet);
185 Result := False;
186 end;
187
RegisterPageControlnull188 function RegisterPageControl: Boolean; alias : 'WSRegisterPageControl';
189 begin
190 // RegisterWSComponent(TCustomPageControl, TGtk2WSPageControl);
191 Result := False;
192 end;
193
RegisterCustomListViewnull194 function RegisterCustomListView: Boolean; alias : 'WSRegisterCustomListView';
195 begin
196 RegisterWSComponent(TCustomListView, TGtk2WSCustomListView);
197 // RegisterWSComponent(TCustomListView, TGtk2WSListView);
198 Result := True;
199 end;
200
RegisterCustomProgressBarnull201 function RegisterCustomProgressBar: Boolean; alias : 'WSRegisterCustomProgressBar';
202 begin
203 RegisterWSComponent(TCustomProgressBar, TGtk2WSProgressBar);
204 Result := True;
205 end;
206
RegisterCustomUpDownnull207 function RegisterCustomUpDown: Boolean; alias : 'WSRegisterCustomUpDown';
208 begin
209 // RegisterWSComponent(TCustomUpDown, TGtk2WSCustomUpDown);
210 // RegisterWSComponent(TCustomUpDown, TGtk2WSUpDown);
211 Result := False;
212 end;
213
RegisterCustomToolButtonnull214 function RegisterCustomToolButton: Boolean; alias : 'WSRegisterCustomToolButton';
215 begin
216 // RegisterWSComponent(TCustomToolButton, TGtk2WSToolButton);
217 Result := False;
218 end;
219
RegisterToolBarnull220 function RegisterToolBar: Boolean; alias : 'WSRegisterToolBar';
221 begin
222 RegisterWSComponent(TToolBar, TGtk2WSToolBar);
223 Result := True;
224 end;
225
RegisterCustomTrackBarnull226 function RegisterCustomTrackBar: Boolean; alias : 'WSRegisterCustomTrackBar';
227 begin
228 RegisterWSComponent(TCustomTrackBar, TGtk2WSTrackBar);
229 Result := True;
230 end;
231
RegisterCustomTreeViewnull232 function RegisterCustomTreeView: Boolean; alias : 'WSRegisterCustomTreeView';
233 begin
234 // RegisterWSComponent(TCustomTreeView, TGtk2WSCustomTreeView);
235 // RegisterWSComponent(TCustomTreeView, TGtk2WSTreeView);
236 Result := False;
237 end;
238
239 // calendar
RegisterCustomCalendarnull240 function RegisterCustomCalendar: Boolean; alias : 'WSRegisterCustomCalendar';
241 begin
242 RegisterWSComponent(TCustomCalendar, TGtk2WSCustomCalendar);
243 Result := True;
244 end;
245
246 // dialogs
RegisterCommonDialognull247 function RegisterCommonDialog: Boolean; alias : 'WSRegisterCommonDialog';
248 begin
249 RegisterWSComponent(TCommonDialog, TGtk2WSCommonDialog);
250 Result := True;
251 end;
252
RegisterFileDialognull253 function RegisterFileDialog: Boolean; alias : 'WSRegisterFileDialog';
254 begin
255 RegisterWSComponent(TFileDialog, TGtk2WSFileDialog);
256 Result := True;
257 end;
258
RegisterOpenDialognull259 function RegisterOpenDialog: Boolean; alias : 'WSRegisterOpenDialog';
260 begin
261 RegisterWSComponent(TOpenDialog, TGtk2WSOpenDialog);
262 Result := True;
263 end;
264
RegisterSaveDialognull265 function RegisterSaveDialog: Boolean; alias : 'WSRegisterSaveDialog';
266 begin
267 // RegisterWSComponent(TSaveDialog, TGtk2WSSaveDialog);
268 Result := False;
269 end;
270
RegisterSelectDirectoryDialognull271 function RegisterSelectDirectoryDialog: Boolean; alias : 'WSRegisterSelectDirectoryDialog';
272 begin
273 // RegisterWSComponent(TSelectDirectoryDialog, TGtk2WSSelectDirectoryDialog);
274 Result := False;
275 end;
276
RegisterColorDialognull277 function RegisterColorDialog: Boolean; alias : 'WSRegisterColorDialog';
278 begin
279 RegisterWSComponent(TColorDialog, TGtk2WSColorDialog);
280 Result := True;
281 end;
282
RegisterColorButtonnull283 function RegisterColorButton: Boolean; alias : 'WSRegisterColorButton';
284 begin
285 // RegisterWSComponent(TColorButton, TGtk2WSColorButton);
286 Result := False;
287 end;
288
RegisterFontDialognull289 function RegisterFontDialog: Boolean; alias : 'WSRegisterFontDialog';
290 begin
291 RegisterWSComponent(TFontDialog, TGtk2WSFontDialog);
292 Result := True;
293 end;
294
295 // StdCtrls
RegisterCustomScrollBarnull296 function RegisterCustomScrollBar: Boolean; alias : 'WSRegisterCustomScrollBar';
297 begin
298 RegisterWSComponent(TCustomScrollBar, TGtk2WSScrollBar);
299 Result := True;
300 end;
301
RegisterCustomGroupBoxnull302 function RegisterCustomGroupBox: Boolean; alias : 'WSRegisterCustomGroupBox';
303 begin
304 RegisterWSComponent(TCustomGroupBox, TGtk2WSCustomGroupBox);
305 // RegisterWSComponent(TGroupBox, TGtk2WSGroupBox);
306 Result := True;
307 end;
308
RegisterCustomComboBoxnull309 function RegisterCustomComboBox: Boolean; alias : 'WSRegisterCustomComboBox';
310 begin
311 RegisterWSComponent(TCustomComboBox, TGtk2WSCustomComboBox);
312 // RegisterWSComponent(TComboBox, TGtk2WSComboBox);
313 Result := True;
314 end;
315
RegisterCustomListBoxnull316 function RegisterCustomListBox: Boolean; alias : 'WSRegisterCustomListBox';
317 begin
318 RegisterWSComponent(TCustomListBox, TGtk2WSCustomListBox, TGtk2PrivateList);
319 // RegisterWSComponent(TListBox, TGtk2WSListBox);
320 Result := True;
321 end;
322
RegisterCustomEditnull323 function RegisterCustomEdit: Boolean; alias : 'WSRegisterCustomEdit';
324 begin
325 // RegisterWSComponent(TEdit, TGtk2WSEdit);
326 RegisterWSComponent(TCustomEdit, TGtk2WSCustomEdit);
327 Result := True;
328 end;
329
RegisterCustomMemonull330 function RegisterCustomMemo: Boolean; alias : 'WSRegisterCustomMemo';
331 begin
332 // RegisterWSComponent(TMemo, TGtk2WSMemo);
333 RegisterWSComponent(TCustomMemo, TGtk2WSCustomMemo, TGtk2PrivateMemo);
334 RegisterWSComponent(TCustomMemo, TGtk2WSCustomMemo);
335 Result := True;
336 end;
337
RegisterButtonControlnull338 function RegisterButtonControl: Boolean; alias : 'WSRegisterButtonControl';
339 begin
340 // RegisterWSComponent(TButtonControl, TGtk2WSButtonControl);
341 Result := False;
342 end;
343
RegisterCustomButtonnull344 function RegisterCustomButton: Boolean; alias : 'WSRegisterCustomButton';
345 begin
346 RegisterWSComponent(TCustomButton, TGtk2WSButton, TGtk2PrivateButton); { enabled(ifdef) in GTK1 }
347 RegisterWSComponent(TCustomButton, TGtk2WSButton);
348 Result := True;
349 end;
350
RegisterCustomCheckBoxnull351 function RegisterCustomCheckBox: Boolean; alias : 'WSRegisterCustomCheckBox';
352 begin
353 // RegisterWSComponent(TCustomCheckBox, TGtk2WSCustomCheckBox);
354 RegisterWSComponent(TCustomCheckBox, TGtk2WSCustomCheckBox);
355 Result := True;
356 end;
357
RegisterToggleBoxnull358 function RegisterToggleBox: Boolean; alias : 'WSRegisterToggleBox';
359 begin
360 RegisterWSComponent(TToggleBox, TGtk2WSToggleBox);
361 Result := True;
362 end;
363
RegisterRadioButtonnull364 function RegisterRadioButton: Boolean; alias : 'WSRegisterRadioButton';
365 begin
366 RegisterWSComponent(TRadioButton, TGtk2WSRadioButton);
367 Result := True;
368 end;
369
RegisterCustomStaticTextnull370 function RegisterCustomStaticText: Boolean; alias : 'WSRegisterCustomStaticText';
371 begin
372 // RegisterWSComponent(TStaticText, TGtk2WSStaticText);
373 RegisterWSComponent(TCustomStaticText, TGtk2WSCustomStaticText);
374 Result := True;
375 end;
376
RegisterCustomLabelnull377 function RegisterCustomLabel: Boolean; alias : 'WSRegisterCustomLabel';
378 begin
379 // RegisterWSComponent(TCustomLabel, TGtk2WSCustomLabel);
380 // RegisterWSComponent(TLabel, TGtk2WSLabel);
381 Result := False;
382 end;
383
384 // extctrls
RegisterCustomPagenull385 function RegisterCustomPage: Boolean; alias : 'WSRegisterCustomPage';
386 begin
387 // RegisterWSComponent(TCustomPage, TGtk2WSCustomPage);
388 RegisterWSComponent(TCustomPage, TGtk2WSCustomPage);
389 Result := True;
390 end;
391
RegisterCustomNotebooknull392 function RegisterCustomNotebook: Boolean; alias : 'WSRegisterCustomNotebook';
393 begin
394 RegisterWSComponent(TCustomTabControl, TGtk2WSCustomTabControl, TGtk2PrivateNotebook);
395 // RegisterWSComponent(TNotebook, TGtk2WSNotebook);
396 Result := True;
397 end;
398
RegisterShapenull399 function RegisterShape: Boolean; alias : 'WSRegisterShape';
400 begin
401 // RegisterWSComponent(TShape, TGtk2WSShape);
402 Result := False;
403 end;
404
RegisterCustomSplitternull405 function RegisterCustomSplitter: Boolean; alias : 'WSRegisterCustomSplitter';
406 begin
407 // RegisterWSComponent(TCustomSplitter, TGtk2WSCustomSplitter);
408 // RegisterWSComponent(TSplitter, TGtk2WSSplitter);
409 Result := False;
410 end;
411
RegisterPaintBoxnull412 function RegisterPaintBox: Boolean; alias : 'WSRegisterPaintBox';
413 begin
414 // RegisterWSComponent(TPaintBox, TGtk2WSPaintBox);
415 Result := False;
416 end;
417
RegisterCustomImagenull418 function RegisterCustomImage: Boolean; alias : 'WSRegisterCustomImage';
419 begin
420 // RegisterWSComponent(TCustomImage, TGtk2WSCustomImage);
421 // RegisterWSComponent(TImage, TGtk2WSImage);
422 Result := False;
423 end;
424
RegisterBevelnull425 function RegisterBevel: Boolean; alias : 'WSRegisterBevel';
426 begin
427 // RegisterWSComponent(TBevel, TGtk2WSBevel);
428 Result := False;
429 end;
430
RegisterCustomRadioGroupnull431 function RegisterCustomRadioGroup: Boolean; alias : 'WSRegisterCustomRadioGroup';
432 begin
433 // RegisterWSComponent(TCustomRadioGroup, TGtk2WSCustomRadioGroup);
434 // RegisterWSComponent(TRadioGroup, TGtk2WSRadioGroup);
435 Result := False;
436 end;
437
RegisterCustomCheckGroupnull438 function RegisterCustomCheckGroup: Boolean; alias : 'WSRegisterCustomCheckGroup';
439 begin
440 // RegisterWSComponent(TCustomCheckGroup, TGtk2WSCustomCheckGroup);
441 // RegisterWSComponent(TCheckGroup, TGtk2WSCheckGroup);
442 Result := False;
443 end;
444
RegisterCustomLabeledEditnull445 function RegisterCustomLabeledEdit: Boolean; alias : 'WSRegisterCustomLabeledEdit';
446 begin
447 // RegisterWSComponent(TBoundLabel, TGtk2WSBoundLabel);
448 // RegisterWSComponent(TCustomLabeledEdit, TGtk2WSCustomLabeledEdit);
449 // RegisterWSComponent(TLabeledEdit, TGtk2WSLabeledEdit);
450 Result := False;
451 end;
452
RegisterCustomPanelnull453 function RegisterCustomPanel: Boolean; alias : 'WSRegisterCustomPanel';
454 begin
455 RegisterWSComponent(TCustomPanel, TGtk2WSCustomPanel);
456 Result := False;
457 end;
458
RegisterCustomTrayIconnull459 function RegisterCustomTrayIcon: Boolean; alias : 'WSRegisterCustomTrayIcon';
460 begin
461 if UnityAppIndicatorInit then
462 RegisterWSComponent(TCustomTrayIcon, TUnityWSCustomTrayIcon)
463 else
464 RegisterWSComponent(TCustomTrayIcon, TGtk2WSCustomTrayIcon);
465 Result := True;
466 end;
467
468 //ExtDlgs
RegisterPreviewFileControlnull469 function RegisterPreviewFileControl: Boolean; alias : 'WSRegisterPreviewFileControl';
470 begin
471 RegisterWSComponent(TPreviewFileControl, TGtk2WSPreviewFileControl);
472 Result := True;
473 end;
474
RegisterPreviewFileDialognull475 function RegisterPreviewFileDialog: Boolean; alias : 'WSRegisterPreviewFileDialog';
476 begin
477 // RegisterWSComponent(TPreviewFileDialog, TGtk2WSPreviewFileDialog);
478 Result := False;
479 end;
480
RegisterOpenPictureDialognull481 function RegisterOpenPictureDialog: Boolean; alias : 'WSRegisterOpenPictureDialog';
482 begin
483 // RegisterWSComponent(TOpenPictureDialog, TGtk2WSOpenPictureDialog);
484 Result := False;
485 end;
486
RegisterSavePictureDialognull487 function RegisterSavePictureDialog: Boolean; alias : 'WSRegisterSavePictureDialog';
488 begin
489 // RegisterWSComponent(TSavePictureDialog, TGtk2WSSavePictureDialog);
490 Result := False;
491 end;
492
RegisterCalculatorDialognull493 function RegisterCalculatorDialog: Boolean; alias : 'WSRegisterCalculatorDialog';
494 begin
495 // RegisterWSComponent(TCalculatorDialog, TGtk2WSCalculatorDialog);
496 Result := False;
497 end;
498
RegisterCalculatorFormnull499 function RegisterCalculatorForm: Boolean; alias : 'WSRegisterCalculatorForm';
500 begin
501 // RegisterWSComponent(TCalculatorForm, TGtk2WSCalculatorForm);
502 Result := False;
503 end;
504
505 (*function RegisterCalendarDialogForm: Boolean; alias : 'WSRegisterCalendarDialogForm';
506 begin
507 // RegisterWSComponent(TCalendarDialogForm, TGtk2WSCalendarDialogForm);
508 Result := False;
509 end;*)
510
RegisterCalendarDialognull511 function RegisterCalendarDialog: Boolean; alias : 'WSRegisterCalendarDialog';
512 begin
513 // RegisterWSComponent(TCalendarDialog, TGtk2WSCalendarDialog);
514 Result := False;
515 end;
516
517 // Buttons
RegisterCustomBitBtnnull518 function RegisterCustomBitBtn: Boolean; alias : 'WSRegisterCustomBitBtn';
519 begin
520 RegisterWSComponent(TCustomBitBtn, TGtk2WSBitBtn, TGtk2PrivateButton);
521 Result := True;
522 end;
523
RegisterCustomSpeedButtonnull524 function RegisterCustomSpeedButton: Boolean; alias : 'WSRegisterCustomSpeedButton';
525 begin
526 // RegisterWSComponent(TCustomSpeedButton, TGtk2WSSpeedButton);
527 Result := False;
528 end;
529
530 // CheckLst
RegisterCustomCheckListBoxnull531 function RegisterCustomCheckListBox: Boolean; alias : 'WSRegisterCustomCheckListBox';
532 begin
533 RegisterWSComponent(TCustomCheckListBox, TGtk2WSCustomCheckListBox);
534 Result := True;
535 end;
536
537 // Forms
RegisterScrollingWinControlnull538 function RegisterScrollingWinControl: Boolean; alias : 'WSRegisterScrollingWinControl';
539 begin
540 RegisterWSComponent(TScrollingWinControl, TGtk2WSScrollingWinControl, TGtkPrivateScrollingWinControl);
541 Result := True;
542 end;
543
RegisterScrollBoxnull544 function RegisterScrollBox: Boolean; alias : 'WSRegisterScrollBox';
545 begin
546 // RegisterWSComponent(TScrollBox, TGtk2WSScrollBox);
547 Result := False;
548 end;
549
RegisterCustomFramenull550 function RegisterCustomFrame: Boolean; alias : 'WSRegisterCustomFrame';
551 begin
552 // RegisterWSComponent(TCustomFrame, TGtk2WSCustomFrame);
553 // RegisterWSComponent(TFrame, TGtk2WSFrame);
554 Result := False;
555 end;
556
RegisterCustomFormnull557 function RegisterCustomForm: Boolean; alias : 'WSRegisterCustomForm';
558 begin
559 RegisterWSComponent(TCustomForm, TGtk2WSCustomForm);
560 // RegisterWSComponent(TForm, TGtk2WSForm);
561 Result := True;
562 end;
563
RegisterHintWindownull564 function RegisterHintWindow: Boolean; alias : 'WSRegisterHintWindow';
565 begin
566 RegisterWSComponent(THintWindow, TGtk2WSHintWindow);
567 Result := True;
568 end;
569
RegisterCustomGridnull570 function RegisterCustomGrid: Boolean; alias : 'WSRegisterCustomGrid';
571 begin
572 RegisterWSComponent(TCustomGrid, TGtk2WSCustomGrid);
573 Result := True;
574 end;
575
RegisterMenuItemnull576 function RegisterMenuItem: Boolean; alias : 'WSRegisterMenuItem';
577 begin
578 RegisterWSComponent(TMenuItem, TGtk2WSMenuItem);
579 Result := True;
580 end;
581
RegisterMenunull582 function RegisterMenu: Boolean; alias : 'WSRegisterMenu';
583 begin
584 RegisterWSComponent(TMenu, TGtk2WSMenu);
585 Result := True;
586 end;
587
RegisterMainMenunull588 function RegisterMainMenu: Boolean; alias : 'WSRegisterMainMenu';
589 begin
590 // RegisterWSComponent(TMainMenu, TGtk2WSMainMenu);
591 Result := False;
592 end;
593
RegisterPopupMenunull594 function RegisterPopupMenu: Boolean; alias : 'WSRegisterPopupMenu';
595 begin
596 RegisterWSComponent(TPopupMenu, TGtk2WSPopupMenu);
597 Result := True;
598 end;
599
RegisterPairSplitterSidenull600 function RegisterPairSplitterSide: Boolean; alias : 'WSRegisterPairSplitterSide';
601 begin
602 RegisterWSComponent(TPairSplitterSide, TGtk2WSPairSplitterSide);
603 Result := True;
604 end;
605
RegisterCustomPairSplitternull606 function RegisterCustomPairSplitter: Boolean; alias : 'WSRegisterCustomPairSplitter';
607 begin
608 RegisterWSComponent(TCustomPairSplitter, TGtk2WSCustomPairSplitter);
609 Result := True;
610 end;
611
RegisterCustomFloatSpinEditnull612 function RegisterCustomFloatSpinEdit: Boolean; alias : 'WSRegisterCustomFloatSpinEdit';
613 begin
614 RegisterWSComponent(TCustomFloatSpinEdit, TGtk2WSCustomFloatSpinEdit);
615 Result := True;
616 end;
617
RegisterCustomRubberBandnull618 function RegisterCustomRubberBand: Boolean; alias : 'WSRegisterCustomRubberBand';
619 begin
620 // RegisterWSComponent(TFloatSpinEdit, TGtk2WSFloatSpinEdit);
621 Result := False;
622 end;
623
624 // ShellCtrls
RegisterCustomShellTreeViewnull625 function RegisterCustomShellTreeView: Boolean; alias : 'WSRegisterCustomShellTreeView';
626 begin
627 Result := False;
628 end;
629
RegisterCustomShellListViewnull630 function RegisterCustomShellListView: Boolean; alias : 'WSRegisterCustomShellListView';
631 begin
632 Result := False;
633 end;
634
RegisterLazDeviceAPIsnull635 function RegisterLazDeviceAPIs: Boolean; alias : 'WSRegisterLazDeviceAPIs';
636 begin
637 //RegisterWSLazDeviceAPIs(TCDWSLazDeviceAPIs);
638 Result := False;
639 end;
640
641 end.
642