From 1b18ec2ef4a7db6d56d8fc7fd89412690434d5da Mon Sep 17 00:00:00 2001 From: marc Date: Fri, 19 Mar 2004 00:53:34 +0000 Subject: [PATCH] * Removed all ComponentCreateHandle routines git-svn-id: trunk@5330 - --- lcl/include/intfbaselcl.inc | 285 +----------- lcl/include/lclintf.inc | 238 +--------- lcl/include/lclintfh.inc | 59 +-- lcl/interfacebase.pp | 5 + lcl/interfaces/gnome/gnomelclintf.inc | 558 +--------------------- lcl/interfaces/gnome/gnomelclintfh.inc | 73 +-- lcl/interfaces/gtk/gtkint.pp | 6 +- lcl/interfaces/gtk/gtklclintf.inc | 603 +----------------------- lcl/interfaces/gtk/gtklclintfh.inc | 65 +-- lcl/interfaces/gtk2/gtk2lclintf.inc | 558 +--------------------- lcl/interfaces/gtk2/gtk2lclintfh.inc | 74 +-- lcl/interfaces/qt/qtlclintf.inc | 558 +--------------------- lcl/interfaces/qt/qtlclintfh.inc | 74 +-- lcl/interfaces/win32/win32int.pp | 6 +- lcl/interfaces/win32/win32lclintf.inc | 615 +------------------------ lcl/interfaces/win32/win32lclintfh.inc | 64 +-- lcl/widgetset/wslclclasses.pp | 2 +- 17 files changed, 61 insertions(+), 3782 deletions(-) diff --git a/lcl/include/intfbaselcl.inc b/lcl/include/intfbaselcl.inc index 17a0b99ff5..eedc061116 100644 --- a/lcl/include/intfbaselcl.inc +++ b/lcl/include/intfbaselcl.inc @@ -25,50 +25,14 @@ } //##apiwiz##sps## // Do not remove -function TWidgetSet.AlignmentCreateHandle(const AAlignment: TObject; const AParams: TCreateParams): THandle; -begin - // Your default here - Result:=0; -end; - -function TWidgetSet.ArrowCreateHandle(const AArrow: TObject; const AParams: TCreateParams): THandle; -begin - // Your default here - Result:=0; -end; - procedure TWidgetSet.AttachMenuToWindow(AMenuObject: TComponent); begin end; -function TWidgetSet.BitBtnCreateHandle(const ABitBtn: TObject; const AParams: TCreateParams): THandle; -begin - // Your default here - Result:=0; -end; - -function TWidgetSet.CalendarCreateHandle(const ACalendar: TObject; const AParams: TCreateParams): THandle; -begin - // Your default here - Result:=0; -end; - procedure TWidgetSet.CallDefaultWndHandler(Sender: TObject; var Message); begin end; -function TWidgetSet.CheckboxCreateHandle(const ACheckBox: TObject; const AParams: TCreateParams): THandle; -begin - // Your default here - Result:=0; -end; - -function TWidgetSet.CheckListBoxCreateHandle(const ACheckListBox: TObject; const AParams: TCreateParams): THandle; -begin - // Your default here - Result:=0; -end; - // the clipboard functions are internally used by TClipboard function TWidgetSet.ClipboardFormatToMimeType(FormatID: TClipboardFormat): string; begin @@ -103,24 +67,6 @@ begin Result := 0; end; -function TWidgetSet.CListBoxCreateHandle(const ACListBox: TObject; const AParams: TCreateParams): THandle; -begin - // Your default here - Result:=0; -end; - -function TWidgetSet.ColorDialogCreateHandle(const AColorDialog: TObject): THandle; -begin - // Your default here - Result:=0; -end; - -function TWidgetSet.ComboBoxCreateHandle(const AComboBox: TObject; const AParams: TCreateParams): THandle; -begin - // Your default here - Result:=0; -end; - function TWidgetSet.ComboBoxDropDown(Handle: HWND; DropDown: boolean): boolean; begin @@ -167,30 +113,6 @@ procedure TWidgetSet.DrawArrow(Arrow: TComponent; Canvas: TPersistent); begin end; -function TWidgetSet.EditCreateHandle(const AEdit: TObject; const AParams: TCreateParams): THandle; -begin - // Your default here - Result:=0; -end; - -function TWidgetSet.FileDialogCreateHandle(const AFileDialog: TObject): THandle; -begin - // Your default here - Result:=0; -end; - -function TWidgetSet.FontDialogCreateHandle(const AFontDialog: TObject): THandle; -begin - // Your default here - Result:=0; -end; - -function TWidgetSet.FormCreateHandle(const AForm: TObject; const AParams: TCreateParams): THandle; -begin - // Your default here - Result:=0; -end; - function TWidgetSet.Frame(DC: HDC; const ARect: TRect) : integer; begin Result:= 0; @@ -426,30 +348,6 @@ begin Result:=false; end; -function TWidgetSet.GroupBoxCreateHandle(const AGroupBox: TObject; const AParams: TCreateParams): THandle; -begin - // Your default here - Result:=0; -end; - -function TWidgetSet.HintWindowCreateHandle(const AHintWindow: TObject; const AParams: TCreateParams): THandle; -begin - // Your default here - Result:=0; -end; - -function TWidgetSet.ImageCreateHandle(const AImage: TObject; const AParams: TCreateParams): THandle; -begin - // Your default here - Result:=0; -end; - -function TWidgetSet.IntfCreateHandle(const AObject: TObject; const AParams: TCreateParams): THandle; -begin - // Your default here - Result:=0; -end; - Function TWidgetSet.InvalidateFrame(aHandle : HWND; ARect : pRect; bErase : Boolean; BorderWidth: integer) : Boolean; @@ -486,42 +384,6 @@ begin Result:=true; end; -function TWidgetSet.LabelCreateHandle(const ALabel: TObject; const AParams: TCreateParams): THandle; -begin - // Your default here - Result:=0; -end; - -function TWidgetSet.ListBoxCreateHandle(const AListBox: TObject; const AParams: TCreateParams): THandle; -begin - // Your default here - Result:=0; -end; - -function TWidgetSet.ListViewCreateHandle(const AListView: TObject; const AParams: TCreateParams): THandle; -begin - // Your default here - Result:=0; -end; - -function TWidgetSet.MainMenuCreateHandle(const AMainMenu: TObject): THandle; -begin - // Your default here - Result:=0; -end; - -function TWidgetSet.MemoCreateHandle(const AMemo: TObject; const AParams: TCreateParams): THandle; -begin - // Your default here - Result:=0; -end; - -function TWidgetSet.MenuItemCreateHandle(const AMenuItem: TObject): THandle; -begin - // Your default here - Result:=0; -end; - function TWidgetSet.MenuItemSetCheck(AMenuItem: TComponent): Boolean; begin Result := False; @@ -582,36 +444,12 @@ Begin Result:=SetWindowOrgEx(dc, P.x-dX, P.y-dY, @P); end; -function TWidgetSet.NotebookCreateHandle(const ANotebook: TObject; const AParams: TCreateParams): THandle; -begin - // Your default here - Result:=0; -end; - -function TWidgetSet.OpenFileDialogCreateHandle(const AOpenFileDialog: TObject): THandle; -begin - // Your default here - Result:=0; -end; - -function TWidgetSet.PageCreateHandle(const APage: TObject; const AParams: TCreateParams): THandle; -begin - // Your default here - Result:=0; -end; - function TWidgetSet.PairSplitterAddSide(SplitterHandle, SideHandle: hWnd; Side: integer): Boolean; begin Result:=false; end; -function TWidgetSet.PairSplitterCreateHandle(const APairSplitter: TObject; const AParams: TCreateParams): THandle; -begin - // Your default here - Result:=0; -end; - function TWidgetSet.PairSplitterGetInterfaceInfo: boolean; begin Result:=false; @@ -629,42 +467,6 @@ begin Result:=false; end; -function TWidgetSet.PairSplitterSideCreateHandle(const APairSplitterSide: TObject; const AParams: TCreateParams): THandle; -begin - // Your default here - Result:=0; -end; - -function TWidgetSet.PanelCreateHandle(const APanel: TObject; const AParams: TCreateParams): THandle; -begin - // Your default here - Result:=0; -end; - -function TWidgetSet.PopupMenuCreateHandle(const APopupMenu: TObject): THandle; -begin - // Your default here - Result:=0; -end; - -function TWidgetSet.PreviewFileControlCreateHandle(const APreviewFileControl: TObject): THandle; -begin - // Your default here - Result:=0; -end; - -function TWidgetSet.PreviewFileDialogCreateHandle(const APreviewFileDialog: TObject): THandle; -begin - // Your default here - Result:=0; -end; - -function TWidgetSet.ProgressBarCreateHandle(const AProgressBar: TObject; const AParams: TCreateParams): THandle; -begin - // Your default here - Result:=0; -end; - Function TWidgetSet.PromptUser(const DialogCaption, DialogMessage : String; DialogType : longint; Buttons : PLongint; ButtonCount, DefaultIndex, EscapeResult : Longint) : Longint; @@ -735,12 +537,6 @@ begin Result := True; end; -function TWidgetSet.RadioButtonCreateHandle(const ARadioButton: TObject; const AParams: TCreateParams): THandle; -begin - // Your default here - Result:=0; -end; - function TWidgetSet.RadioMenuItemGroup(hndMenu: HMENU; bRadio: Boolean): Boolean; begin Result := false; @@ -771,36 +567,6 @@ begin Result := False; end; -function TWidgetSet.SaveFileDialogCreateHandle(const ASaveFileDialog: TObject): THandle; -begin - // Your default here - Result:=0; -end; - -function TWidgetSet.ScrollBarCreateHandle(const AScrollBar: TObject; const AParams: TCreateParams): THandle; -begin - // Your default here - Result:=0; -end; - -function TWidgetSet.ScrollBoxCreateHandle(const AScrollBox: TObject; const AParams: TCreateParams): THandle; -begin - // Your default here - Result:=0; -end; - -function TWidgetSet.ScrolledWindowCreateHandle(const AScrolledWindow: TObject; const AParams: TCreateParams): THandle; -begin - // Your default here - Result:=0; -end; - -function TWidgetSet.SelectDirectoryDialogCreateHandle(const ASelectDirectoryDialog: TObject): THandle; -begin - // Your default here - Result:=0; -end; - procedure TWidgetSet.SendCachedLCLMessages; begin end; @@ -826,24 +592,6 @@ begin Result := false; end; -function TWidgetSet.SpeedButtonCreateHandle(const ASpeedButton: TObject; const AParams: TCreateParams): THandle; -begin - // Your default here - Result:=0; -end; - -function TWidgetSet.SpineditCreateHandle(const ASpinEdit: TObject; const AParams: TCreateParams): THandle; -begin - // Your default here - Result:=0; -end; - -function TWidgetSet.StatusBarCreateHandle(const AStatusBar: TObject; const AParams: TCreateParams): THandle; -begin - // Your default here - Result:=0; -end; - procedure TWidgetSet.StatusBarPanelUpdate(StatusBar: TObject; PanelIndex: integer); begin @@ -866,40 +614,13 @@ begin Result := False; end; -function TWidgetSet.ToggleBoxCreateHandle(const AToggleBox: TObject; const AParams: TCreateParams): THandle; -begin - // Your default here - Result:=0; -end; - -function TWidgetSet.ToolbarCreateHandle(const AToolbar: TObject; const AParams: TCreateParams): THandle; -begin - // Your default here - Result:=0; -end; - -function TWidgetSet.ToolButtonCreateHandle(const AToolButton: TObject; const AParams: TCreateParams): THandle; -begin - // Your default here - Result:=0; -end; - -function TWidgetSet.TrackBarCreateHandle(const ATrackBar: TObject; const AParams: TCreateParams): THandle; -begin - // Your default here - Result:=0; -end; - -function TWidgetSet.WincontrolCreateHandle(const AFixed: TObject; const AParams: TCreateParams): THandle; -begin - // Your default here - Result:=0; -end; - //##apiwiz##eps## // Do not remove { ============================================================================= $Log$ + Revision 1.26 2004/03/19 00:53:34 marc + * Removed all ComponentCreateHandle routines + Revision 1.25 2004/03/19 00:03:15 marc * Moved the implementation of (GTK)ButtonCreateHandle to the new (GTK)WSButton class diff --git a/lcl/include/lclintf.inc b/lcl/include/lclintf.inc index 2193f55a01..956b7f523c 100644 --- a/lcl/include/lclintf.inc +++ b/lcl/include/lclintf.inc @@ -32,46 +32,16 @@ ******************************************************************************} //##apiwiz##sps## // Do not remove -function AlignmentCreateHandle(const AAlignment: TObject; const AParams: TCreateParams): THandle; -begin - Result := InterfaceObject.AlignmentCreateHandle(AAlignment, AParams); -end; - -function ArrowCreateHandle(const AArrow: TObject; const AParams: TCreateParams): THandle; -begin - Result := InterfaceObject.ArrowCreateHandle(AArrow, AParams); -end; - procedure AttachMenuToWindow(AMenuObject: TComponent); begin InterfaceObject.AttachMenuToWindow(AMenuObject); end; -function BitBtnCreateHandle(const ABitBtn: TObject; const AParams: TCreateParams): THandle; -begin - Result := InterfaceObject.BitBtnCreateHandle(ABitBtn, AParams); -end; - -function CalendarCreateHandle(const ACalendar: TObject; const AParams: TCreateParams): THandle; -begin - Result := InterfaceObject.CalendarCreateHandle(ACalendar, AParams); -end; - procedure CallDefaultWndHandler(Sender: TObject; var Message); begin InterfaceObject.CallDefaultWndHandler(Sender,Message); end; -function CheckboxCreateHandle(const ACheckBox: TObject; const AParams: TCreateParams): THandle; -begin - Result := InterfaceObject.CheckboxCreateHandle(ACheckBox, AParams); -end; - -function CheckListBoxCreateHandle(const ACheckListBox: TObject; const AParams: TCreateParams): THandle; -begin - Result := InterfaceObject.CheckListBoxCreateHandle(ACheckListBox, AParams); -end; - // the clipboard functions are internally used by TClipboard function ClipboardFormatToMimeType(FormatID: TClipboardFormat): string; begin @@ -104,21 +74,6 @@ begin Result := InterfaceObject.ClipboardRegisterFormat(AMimeType); end; -function CListBoxCreateHandle(const ACListBox: TObject; const AParams: TCreateParams): THandle; -begin - Result := InterfaceObject.CListBoxCreateHandle(ACListBox, AParams); -end; - -function ColorDialogCreateHandle(const AColorDialog: TObject): THandle; -begin - Result := InterfaceObject.ColorDialogCreateHandle(AColorDialog); -end; - -function ComboBoxCreateHandle(const AComboBox: TObject; const AParams: TCreateParams): THandle; -begin - Result := InterfaceObject.ComboBoxCreateHandle(AComboBox, AParams); -end; - function ComboBoxDropDown(Handle: HWND; DropDown: boolean): boolean; begin Result := InterfaceObject.ComboBoxDropDown(Handle,DropDown); @@ -156,26 +111,6 @@ begin InterfaceObject.DrawArrow(Arrow, Canvas); end; -function EditCreateHandle(const AEdit: TObject; const AParams: TCreateParams): THandle; -begin - Result := InterfaceObject.EditCreateHandle(AEdit, AParams); -end; - -function FileDialogCreateHandle(const AFileDialog: TObject): THandle; -begin - Result := InterfaceObject.FileDialogCreateHandle(AFileDialog); -end; - -function FontDialogCreateHandle(const AFontDialog: TObject): THandle; -begin - Result := InterfaceObject.FontDialogCreateHandle(AFontDialog); -end; - -function FormCreateHandle(const AForm: TObject; const AParams: TCreateParams): THandle; -begin - Result := InterfaceObject.FormCreateHandle(AForm, AParams); -end; - function Frame(DC: HDC; const ARect: TRect): Integer; begin Result:= InterfaceObject.Frame(DC, ARect); @@ -327,26 +262,6 @@ begin Result := InterfaceObject.GetWindowRelativePosition(Handle,Left,Top); end; -function GroupBoxCreateHandle(const AGroupBox: TObject; const AParams: TCreateParams): THandle; -begin - Result := InterfaceObject.GroupBoxCreateHandle(AGroupBox, AParams); -end; - -function HintWindowCreateHandle(const AHintWindow: TObject; const AParams: TCreateParams): THandle; -begin - Result := InterfaceObject.HintWindowCreateHandle(AHintWindow, AParams); -end; - -function ImageCreateHandle(const AImage: TObject; const AParams: TCreateParams): THandle; -begin - Result := InterfaceObject.ImageCreateHandle(AImage, AParams); -end; - -function IntfCreateHandle(const AObject: TObject; const AParams: TCreateParams): THandle; -begin - Result := InterfaceObject.IntfCreateHandle(AObject, AParams); -end; - {------------------------------------------------------------------------------ Function InvalidateFrame(aHandle : HWND; ARect : pRect; bErase : Boolean; BorderWidth: integer) : Boolean; @@ -358,41 +273,11 @@ begin Result := InterfaceObject.InvalidateFrame(aHandle,ARect,bErase,BorderWidth); end; -function LabelCreateHandle(const ALabel: TObject; const AParams: TCreateParams): THandle; -begin - Result := InterfaceObject.LabelCreateHandle(ALabel, AParams); -end; - -function ListBoxCreateHandle(const AListBox: TObject; const AParams: TCreateParams): THandle; -begin - Result := InterfaceObject.ListBoxCreateHandle(AListBox, AParams); -end; - -function ListViewCreateHandle(const AListView: TObject; const AParams: TCreateParams): THandle; -begin - Result := InterfaceObject.ListViewCreateHandle(AListView, AParams); -end; - function LoadStockPixmap(StockID: longint) : HBitmap; begin Result := InterfaceObject.LoadStockPixmap(StockID); end; -function MainMenuCreateHandle(const AMainMenu: TObject): THandle; -begin - Result := InterfaceObject.MainMenuCreateHandle(AMainMenu); -end; - -function MemoCreateHandle(const AMemo: TObject; const AParams: TCreateParams): THandle; -begin - Result := InterfaceObject.MemoCreateHandle(AMemo, AParams); -end; - -function MenuItemCreateHandle(const AMenuItem: TObject): THandle; -begin - Result := InterfaceObject.MenuItemCreateHandle(AMenuItem); -end; - function MenuItemSetCheck(AMenuItem: TComponent): Boolean; begin Result := InterfaceObject.MenuItemSetCheck(AMenuItem); @@ -408,32 +293,12 @@ begin Result := InterfaceObject.MoveWindowOrgEx(DC, dX, dY); end; -function NotebookCreateHandle(const ANotebook: TObject; const AParams: TCreateParams): THandle; -begin - Result := InterfaceObject.NotebookCreateHandle(ANotebook, AParams); -end; - -function OpenFileDialogCreateHandle(const AOpenFileDialog: TObject): THandle; -begin - Result := InterfaceObject.OpenFileDialogCreateHandle(AOpenFileDialog); -end; - -function PageCreateHandle(const APage: TObject; const AParams: TCreateParams): THandle; -begin - Result := InterfaceObject.PageCreateHandle(APage, AParams); -end; - function PairSplitterAddSide(SplitterHandle, SideHandle: hWnd; Side: integer): Boolean; begin Result:=InterfaceObject.PairSplitterAddSide(SplitterHandle,SideHandle,Side); end; -function PairSplitterCreateHandle(const APairSplitter: TObject; const AParams: TCreateParams): THandle; -begin - Result := InterfaceObject.PairSplitterCreateHandle(APairSplitter, AParams); -end; - function PairSplitterGetInterfaceInfo: boolean; begin Result:=InterfaceObject.PairSplitterGetInterfaceInfo; @@ -449,36 +314,6 @@ begin Result:=InterfaceObject.PairSplitterSetPosition(SplitterHandle,NewPosition); end; -function PairSplitterSideCreateHandle(const APairSplitterSide: TObject; const AParams: TCreateParams): THandle; -begin - Result := InterfaceObject.PairSplitterSideCreateHandle(APairSplitterSide, AParams); -end; - -function PanelCreateHandle(const APanel: TObject; const AParams: TCreateParams): THandle; -begin - Result := InterfaceObject.PanelCreateHandle(APanel, AParams); -end; - -function PopupMenuCreateHandle(const APopupMenu: TObject): THandle; -begin - Result := InterfaceObject.PopupMenuCreateHandle(APopupMenu); -end; - -function PreviewFileControlCreateHandle(const APreviewFileControl: TObject): THandle; -begin - Result := InterfaceObject.PreviewFileControlCreateHandle(APreviewFileControl); -end; - -function PreviewFileDialogCreateHandle(const APreviewFileDialog: TObject): THandle; -begin - Result := InterfaceObject.PreviewFileDialogCreateHandle(APreviewFileDialog); -end; - -function ProgressBarCreateHandle(const AProgressBar: TObject; const AParams: TCreateParams): THandle; -begin - Result := InterfaceObject.ProgressBarCreateHandle(AProgressBar, AParams); -end; - function PromptUser(const DialogMessage : String; DialogType : longint; Buttons : PLongint; ButtonCount, DefaultIndex, EscapeResult : Longint) : Longint; begin @@ -524,11 +359,6 @@ begin Result := InterfaceObject.RadialPieWithAngles(DC, X,Y,Width,Height,Angle1,Angle2); end; -function RadioButtonCreateHandle(const ARadioButton: TObject; const AParams: TCreateParams): THandle; -begin - Result := InterfaceObject.RadioButtonCreateHandle(ARadioButton, AParams); -end; - function RadioMenuItemGroup(hndMenu: HMENU; bRadio: Boolean): Boolean; begin Result := InterfaceObject.RadioMenuItemGroup(hndMenu,bRadio); @@ -555,31 +385,6 @@ begin Result := InterfaceObject.RightJustifyMenuItem(hndMenu, bRightJustify); end; -function SaveFileDialogCreateHandle(const ASaveFileDialog: TObject): THandle; -begin - Result := InterfaceObject.SaveFileDialogCreateHandle(ASaveFileDialog); -end; - -function ScrollBarCreateHandle(const AScrollBar: TObject; const AParams: TCreateParams): THandle; -begin - Result := InterfaceObject.ScrollBarCreateHandle(AScrollBar, AParams); -end; - -function ScrollBoxCreateHandle(const AScrollBox: TObject; const AParams: TCreateParams): THandle; -begin - Result := InterfaceObject.ScrollBoxCreateHandle(AScrollBox, AParams); -end; - -function ScrolledWindowCreateHandle(const AScrolledWindow: TObject; const AParams: TCreateParams): THandle; -begin - Result := InterfaceObject.ScrolledWindowCreateHandle(AScrolledWindow, AParams); -end; - -function SelectDirectoryDialogCreateHandle(const ASelectDirectoryDialog: TObject): THandle; -begin - Result := InterfaceObject.SelectDirectoryDialogCreateHandle(ASelectDirectoryDialog); -end; - procedure SendCachedLCLMessages; begin end; @@ -601,21 +406,6 @@ begin MinItemsWidth, MinItemsHeight, MinItemCount); end; -function SpeedButtonCreateHandle(const ASpeedButton: TObject; const AParams: TCreateParams): THandle; -begin - Result := InterfaceObject.SpeedButtonCreateHandle(ASpeedButton, AParams); -end; - -function SpineditCreateHandle(const ASpinEdit: TObject; const AParams: TCreateParams): THandle; -begin - Result := InterfaceObject.SpineditCreateHandle(ASpinEdit, AParams); -end; - -function StatusBarCreateHandle(const AStatusBar: TObject; const AParams: TCreateParams): THandle; -begin - Result := InterfaceObject.StatusBarCreateHandle(AStatusBar, AParams); -end; - procedure StatusBarPanelUpdate(StatusBar: TObject; PanelIndex: integer); begin InterfaceObject.StatusBarPanelUpdate(StatusBar, PanelIndex); @@ -639,31 +429,6 @@ begin SrcDC, XSrc, YSrc, SrcWidth, SrcHeight, Mask, XMask, YMask, Rop); end; -function ToggleBoxCreateHandle(const AToggleBox: TObject; const AParams: TCreateParams): THandle; -begin - Result := InterfaceObject.ToggleBoxCreateHandle(AToggleBox, AParams); -end; - -function ToolbarCreateHandle(const AToolbar: TObject; const AParams: TCreateParams): THandle; -begin - Result := InterfaceObject.ToolbarCreateHandle(AToolbar, AParams); -end; - -function ToolButtonCreateHandle(const AToolButton: TObject; const AParams: TCreateParams): THandle; -begin - Result := InterfaceObject.ToolButtonCreateHandle(AToolButton, AParams); -end; - -function TrackBarCreateHandle(const ATrackBar: TObject; const AParams: TCreateParams): THandle; -begin - Result := InterfaceObject.TrackBarCreateHandle(ATrackBar, AParams); -end; - -function WincontrolCreateHandle(const AFixed: TObject; const AParams: TCreateParams): THandle; -begin - Result := InterfaceObject.WincontrolCreateHandle(AFixed, AParams); -end; - //##apiwiz##eps## // Do not remove {****************************************************************************** @@ -752,6 +517,9 @@ end; { ============================================================================= $Log$ + Revision 1.22 2004/03/19 00:53:34 marc + * Removed all ComponentCreateHandle routines + Revision 1.21 2004/03/19 00:03:15 marc * Moved the implementation of (GTK)ButtonCreateHandle to the new (GTK)WSButton class diff --git a/lcl/include/lclintfh.inc b/lcl/include/lclintfh.inc index a004786fdc..a2828035c4 100644 --- a/lcl/include/lclintfh.inc +++ b/lcl/include/lclintfh.inc @@ -35,16 +35,9 @@ ******************************************************************************} //##apiwiz##sps## // Do not remove -function AlignmentCreateHandle(const AAlignment: TObject; const AParams: TCreateParams): THandle; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} -function ArrowCreateHandle(const AArrow: TObject; const AParams: TCreateParams): THandle; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} procedure AttachMenuToWindow(AMenuObject: TComponent); {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} -function BitBtnCreateHandle(const ABitBtn: TObject; const AParams: TCreateParams): THandle; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} - -function CalendarCreateHandle(const ACalendar: TObject; const AParams: TCreateParams): THandle; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} procedure CallDefaultWndHandler(Sender: TObject; var Message); {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} -function CheckboxCreateHandle(const ACheckBox: TObject; const AParams: TCreateParams): THandle; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} -function CheckListBoxCreateHandle(const ACheckListBox: TObject; const AParams: TCreateParams): THandle; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} function ClipboardFormatToMimeType(FormatID: TClipboardFormat): string; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} function ClipboardGetData(ClipboardType: TClipboardType; FormatID: TClipboardFormat; Stream: TStream): boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} @@ -55,9 +48,6 @@ function ClipboardGetOwnerShip(ClipboardType: TClipboardType; OnRequestProc: TClipboardRequestEvent; FormatCount: integer; Formats: PClipboardFormat): boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} function ClipboardRegisterFormat(const AMimeType: string): TClipboardFormat; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} -function CListBoxCreateHandle(const ACListBox: TObject; const AParams: TCreateParams): THandle; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} -function ColorDialogCreateHandle(const AColorDialog: TObject): THandle; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} -function ComboBoxCreateHandle(const AComboBox: TObject; const AParams: TCreateParams): THandle; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} function ComboBoxDropDown(Handle: HWND; DropDown: boolean): boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} function CreateBitmapFromRawImage(const RawImage: TRawImage; var Bitmap, MaskBitmap: HBitmap; AlwaysCreateMask: boolean): boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} function CreateEmptyRegion: hRGN; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} @@ -67,11 +57,6 @@ function CreateRegionCopy(SrcRGN: hRGN): hRGN; {$IFDEF IF_BASE_MEMBER}virtual;{$ function DCClipRegionValid(DC: HDC): boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} procedure DrawArrow(Arrow: TComponent; Canvas: TPersistent); {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} -function EditCreateHandle(const AEdit: TObject; const AParams: TCreateParams): THandle; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} - -function FileDialogCreateHandle(const AFileDialog: TObject): THandle; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} -function FontDialogCreateHandle(const AFontDialog: TObject): THandle; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} -function FormCreateHandle(const AForm: TObject; const AParams: TCreateParams): THandle; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} function Frame(DC: HDC; const ARect: TRect): Integer; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} function Frame3d(DC: HDC; var ARect: TRect; const FrameWidth : integer; const Style : TGraphicsBevelCut): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} @@ -94,42 +79,19 @@ function GetRawImageFromBitmap(SrcBitmap, SrcMaskBitmap: HBITMAP; const SrcRect: function GetScrollBarSize(Handle: HWND; SBStyle: Integer): integer; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} function GetScrollbarVisible(Handle: HWND; SBStyle: Integer): boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} function GetWindowRelativePosition(Handle : hwnd; var Left, Top: integer): boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} -function GroupBoxCreateHandle(const AGroupBox: TObject; const AParams: TCreateParams): THandle; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} -function HintWindowCreateHandle(const AHintWindow: TObject; const AParams: TCreateParams): THandle; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} - -function ImageCreateHandle(const AImage: TObject; const AParams: TCreateParams): THandle; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} -function IntfCreateHandle(const AObject: TObject; const AParams: TCreateParams): THandle; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} function InvalidateFrame(aHandle : HWND; ARect : pRect; bErase : Boolean; BorderWidth: integer) : Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} -function LabelCreateHandle(const ALabel: TObject; const AParams: TCreateParams): THandle; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} -function ListBoxCreateHandle(const AListBox: TObject; const AParams: TCreateParams): THandle; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} -function ListViewCreateHandle(const AListView: TObject; const AParams: TCreateParams): THandle; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} function LoadStockPixmap(StockID: longint) : HBitmap; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} -function MainMenuCreateHandle(const AMainMenu: TObject): THandle; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} -function MemoCreateHandle(const AMemo: TObject; const AParams: TCreateParams): THandle; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} -function MenuItemCreateHandle(const AMenuItem: TObject): THandle; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} function MenuItemSetCheck(AMenuItem: TComponent): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} function MenuItemSetEnable(AMenuItem: TComponent): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} function MoveWindowOrgEx(dc : hdc; dX,dY : Integer): boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} -function NotebookCreateHandle(const ANotebook: TObject; const AParams: TCreateParams): THandle; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} - -function OpenFileDialogCreateHandle(const AOpenFileDialog: TObject): THandle; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} - -function PageCreateHandle(const APage: TObject; const AParams: TCreateParams): THandle; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} function PairSplitterAddSide(SplitterHandle, SideHandle: hWnd; Side: integer): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} -function PairSplitterCreateHandle(const APairSplitter: TObject; const AParams: TCreateParams): THandle; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} function PairSplitterGetInterfaceInfo: boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} function PairSplitterRemoveSide(SplitterHandle, SideHandle: hWnd; Side: integer): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} function PairSplitterSetPosition(SplitterHandle: hWnd; var NewPosition: integer): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} -function PairSplitterSideCreateHandle(const APairSplitterSide: TObject; const AParams: TCreateParams): THandle; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} -function PanelCreateHandle(const APanel: TObject; const AParams: TCreateParams): THandle; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} -function PopupMenuCreateHandle(const APopupMenu: TObject): THandle; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} -function PreviewFileControlCreateHandle(const APreviewFileControl: TObject): THandle; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} -function PreviewFileDialogCreateHandle(const APreviewFileDialog: TObject): THandle; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} -function ProgressBarCreateHandle(const AProgressBar: TObject; const AParams: TCreateParams): THandle; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} function PromptUser(const DialogCaption, DialogMessage : String; DialogType : longint; Buttons : PLongint; ButtonCount, DefaultIndex, EscapeResult : Longint) : Longint;{$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} function PromptUserAtXY(const DialogCaption, DialogMessage : String; DialogType : longint; Buttons : PLongint; ButtonCount, DefaultIndex, EscapeResult : Longint; X, Y : Longint) : Longint;{$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} @@ -137,39 +99,21 @@ function RadialArc(DC: HDC; x,y,width,height,sx,sy,ex,ey : Integer): Boolean; {$ function RadialChord(DC: HDC; x,y,width,height,sx,sy,ex,ey : Integer): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} function RadialPie(DC: HDC; x,y,width,height,sx,sy,ex,ey : Integer): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} function RadialPieWithAngles(DC: HDC; X,Y,Width,Height,Angle1,Angle2: Integer): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} -function RadioButtonCreateHandle(const ARadioButton: TObject; const AParams: TCreateParams): THandle; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} function RadioMenuItemGroup(hndMenu: HMENU; bRadio: Boolean): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} function RegroupMenuItem(hndMenu: HMENU; GroupIndex: integer): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} function ReleaseDesignerDC(hWnd: HWND; DC: HDC): Integer; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} function RequestInput(const InputCaption, InputPrompt : String; MaskInput : Boolean; var Value : String) : Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} function RightJustifyMenuItem(HndMenu: HMenu; bRightJustify: boolean): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} -function SaveFileDialogCreateHandle(const ASaveFileDialog: TObject): THandle; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} -function ScrollBarCreateHandle(const AScrollBar: TObject; const AParams: TCreateParams): THandle; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} -function ScrollBoxCreateHandle(const AScrollBox: TObject; const AParams: TCreateParams): THandle; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} -function ScrolledWindowCreateHandle(const AScrolledWindow: TObject; const AParams: TCreateParams): THandle; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} -function SelectDirectoryDialogCreateHandle(const ASelectDirectoryDialog: TObject): THandle; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} procedure SendCachedLCLMessages; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} function DrawSplitter(DC: HDC; const ARect: TRect; Horizontal: boolean): boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} function SetCaretRespondToFocus(handle: HWND; ShowHideOnFocus: boolean): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} function SetComboMinDropDownSize(Handle: HWND; MinItemsWidth, MinItemsHeight, MinItemCount: integer): boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} -function SpeedButtonCreateHandle(const ASpeedButton: TObject; const AParams: TCreateParams): THandle; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} -function SpineditCreateHandle(const ASpinEdit: TObject; const AParams: TCreateParams): THandle; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} -function StatusBarCreateHandle(const AStatusBar: TObject; const AParams: TCreateParams): THandle; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} procedure StatusBarPanelUpdate(StatusBar: TObject; PanelIndex: integer); {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} procedure StatusBarSetText(StatusBar: TObject; PanelIndex: integer); {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} procedure StatusBarUpdate(StatusBar: TObject); {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} function StretchMaskBlt(DestDC: HDC; X, Y, Width, Height: Integer; SrcDC: HDC; XSrc, YSrc, SrcWidth, SrcHeight: Integer; Mask: HBITMAP; XMask, YMask: Integer; Rop: DWORD): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} - - -function ToggleBoxCreateHandle(const AToggleBox: TObject; const AParams: TCreateParams): THandle; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} - -function ToolbarCreateHandle(const AToolbar: TObject; const AParams: TCreateParams): THandle; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} -function ToolButtonCreateHandle(const AToolButton: TObject; const AParams: TCreateParams): THandle; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} -function TrackBarCreateHandle(const ATrackBar: TObject; const AParams: TCreateParams): THandle; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} - -function WincontrolCreateHandle(const AFixed: TObject; const AParams: TCreateParams): THandle; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} //##apiwiz##eps## // Do not remove {****************************************************************************** @@ -204,6 +148,9 @@ procedure RaiseLastOSError; { ============================================================================= $Log$ + Revision 1.22 2004/03/19 00:53:34 marc + * Removed all ComponentCreateHandle routines + Revision 1.21 2004/03/19 00:03:15 marc * Moved the implementation of (GTK)ButtonCreateHandle to the new (GTK)WSButton class diff --git a/lcl/interfacebase.pp b/lcl/interfacebase.pp index 4e3d91f688..c5cf804a9b 100644 --- a/lcl/interfacebase.pp +++ b/lcl/interfacebase.pp @@ -53,6 +53,8 @@ type function InitHintFont(HintFont: TObject): Boolean; virtual; function IntSendMessage3(LM_Message: Integer; Sender: TObject; Data: pointer): integer; virtual; abstract; + // create and destroy + function CreateComponent(Sender : TObject): THandle; virtual; abstract; function CreateTimer(Interval: integer; TimerFunc: TFNTimerProc): integer; virtual; abstract; function DestroyTimer(TimerHandle: integer): boolean; virtual; abstract; @@ -111,6 +113,9 @@ end. { $Log$ + Revision 1.46 2004/03/19 00:53:34 marc + * Removed all ComponentCreateHandle routines + Revision 1.45 2004/03/05 00:14:02 marc * Renamed TInterfaceBase to TWidgetSet diff --git a/lcl/interfaces/gnome/gnomelclintf.inc b/lcl/interfaces/gnome/gnomelclintf.inc index ca76e0cfc5..9680ab58f8 100644 --- a/lcl/interfaces/gnome/gnomelclintf.inc +++ b/lcl/interfaces/gnome/gnomelclintf.inc @@ -31,563 +31,13 @@ //##apiwiz##sps## // Do not remove -{------------------------------------------------------------------------------ - Function: AlignmentCreateHandle - Params: AAlignment: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGnomeWidgetSet.AlignmentCreateHandle(const AAlignment: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: ArrowCreateHandle - Params: AArrow: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGnomeWidgetSet.ArrowCreateHandle(const AArrow: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: BitBtnCreateHandle - Params: ABitBtn: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGnomeWidgetSet.BitBtnCreateHandle(const ABitBtn: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: ButtonCreateHandle - Params: AButton: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGnomeWidgetSet.ButtonCreateHandle(const AButton: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: CalendarCreateHandle - Params: ACalendar: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGnomeWidgetSet.CalendarCreateHandle(const ACalendar: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: CheckboxCreateHandle - Params: ACheckBox: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGnomeWidgetSet.CheckboxCreateHandle(const ACheckBox: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: CheckListBoxCreateHandle - Params: ACheckListBox: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGnomeWidgetSet.CheckListBoxCreateHandle(const ACheckListBox: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: CListBoxCreateHandle - Params: ACListBox: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGnomeWidgetSet.CListBoxCreateHandle(const ACListBox: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: ColorDialogCreateHandle - Params: AColorDialog: - Returns: - - ------------------------------------------------------------------------------} -function TGnomeWidgetSet.ColorDialogCreateHandle(const AColorDialog: TObject): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: ComboBoxCreateHandle - Params: AComboBox: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGnomeWidgetSet.ComboBoxCreateHandle(const AComboBox: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: EditCreateHandle - Params: AEdit: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGnomeWidgetSet.EditCreateHandle(const AEdit: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: FileDialogCreateHandle - Params: AFileDialog: - Returns: - - ------------------------------------------------------------------------------} -function TGnomeWidgetSet.FileDialogCreateHandle(const AFileDialog: TObject): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: FontDialogCreateHandle - Params: AFontDialog: - Returns: - - ------------------------------------------------------------------------------} -function TGnomeWidgetSet.FontDialogCreateHandle(const AFontDialog: TObject): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: FormCreateHandle - Params: AForm: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGnomeWidgetSet.FormCreateHandle(const AForm: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: GroupBoxCreateHandle - Params: AGroupBox: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGnomeWidgetSet.GroupBoxCreateHandle(const AGroupBox: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: HintWindowCreateHandle - Params: AHintWindow: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGnomeWidgetSet.HintWindowCreateHandle(const AHintWindow: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: ImageCreateHandle - Params: AImage: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGnomeWidgetSet.ImageCreateHandle(const AImage: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: LabelCreateHandle - Params: ALabel: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGnomeWidgetSet.LabelCreateHandle(const ALabel: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: ListBoxCreateHandle - Params: AListBox: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGnomeWidgetSet.ListBoxCreateHandle(const AListBox: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: ListViewCreateHandle - Params: AListView: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGnomeWidgetSet.ListViewCreateHandle(const AListView: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: MainMenuCreateHandle - Params: AMainMenu: - Returns: - - ------------------------------------------------------------------------------} -function TGnomeWidgetSet.MainMenuCreateHandle(const AMainMenu: TObject): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: MemoCreateHandle - Params: AMemo: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGnomeWidgetSet.MemoCreateHandle(const AMemo: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: MenuItemCreateHandle - Params: AMenuItem: - Returns: - - ------------------------------------------------------------------------------} -function TGnomeWidgetSet.MenuItemCreateHandle(const AMenuItem: TObject): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: NotebookCreateHandle - Params: ANotebook: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGnomeWidgetSet.NotebookCreateHandle(const ANotebook: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: OpenFileDialogCreateHandle - Params: AOpenFileDialog: - Returns: - - ------------------------------------------------------------------------------} -function TGnomeWidgetSet.OpenFileDialogCreateHandle(const AOpenFileDialog: TObject): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: PageCreateHandle - Params: APage: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGnomeWidgetSet.PageCreateHandle(const APage: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: PairSplitterCreateHandle - Params: APairSplitter: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGnomeWidgetSet.PairSplitterCreateHandle(const APairSplitter: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: PairSplitterSideCreateHandle - Params: APairSplitterSide: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGnomeWidgetSet.PairSplitterSideCreateHandle(const APairSplitterSide: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: PanelCreateHandle - Params: APanel: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGnomeWidgetSet.PanelCreateHandle(const APanel: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: PopupMenuCreateHandle - Params: APopupMenu: - Returns: - - ------------------------------------------------------------------------------} -function TGnomeWidgetSet.PopupMenuCreateHandle(const APopupMenu: TObject): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: PreviewFileControlCreateHandle - Params: APreviewFileControl: - Returns: - - ------------------------------------------------------------------------------} -function TGnomeWidgetSet.PreviewFileControlCreateHandle(const APreviewFileControl: TObject): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: PreviewFileDialogCreateHandle - Params: APreviewFileDialog: - Returns: - - ------------------------------------------------------------------------------} -function TGnomeWidgetSet.PreviewFileDialogCreateHandle(const APreviewFileDialog: TObject): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: ProgressBarCreateHandle - Params: AProgressBar: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGnomeWidgetSet.ProgressBarCreateHandle(const AProgressBar: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: RadioButtonCreateHandle - Params: ARadioButton: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGnomeWidgetSet.RadioButtonCreateHandle(const ARadioButton: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: SaveFileDialogCreateHandle - Params: ASaveFileDialog: - Returns: - - ------------------------------------------------------------------------------} -function TGnomeWidgetSet.SaveFileDialogCreateHandle(const ASaveFileDialog: TObject): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: ScrollBarCreateHandle - Params: AScrollBar: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGnomeWidgetSet.ScrollBarCreateHandle(const AScrollBar: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: ScrollBoxCreateHandle - Params: AScrollBox: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGnomeWidgetSet.ScrollBoxCreateHandle(const AScrollBox: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: ScrolledWindowCreateHandle - Params: AScrolledWindow: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGnomeWidgetSet.ScrolledWindowCreateHandle(const AScrolledWindow: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: SelectDirectoryDialogCreateHandle - Params: ASelectDirectoryDialog: - Returns: - - ------------------------------------------------------------------------------} -function TGnomeWidgetSet.SelectDirectoryDialogCreateHandle(const ASelectDirectoryDialog: TObject): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: SpeedButtonCreateHandle - Params: ASpeedButton: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGnomeWidgetSet.SpeedButtonCreateHandle(const ASpeedButton: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: SpineditCreateHandle - Params: ASpinEdit: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGnomeWidgetSet.SpineditCreateHandle(const ASpinEdit: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: StatusBarCreateHandle - Params: AStatusBar: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGnomeWidgetSet.StatusBarCreateHandle(const AStatusBar: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: ToggleBoxCreateHandle - Params: AToggleBox: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGnomeWidgetSet.ToggleBoxCreateHandle(const AToggleBox: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: ToolbarCreateHandle - Params: AToolbar: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGnomeWidgetSet.ToolbarCreateHandle(const AToolbar: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: ToolButtonCreateHandle - Params: AToolButton: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGnomeWidgetSet.ToolButtonCreateHandle(const AToolButton: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: TrackBarCreateHandle - Params: ATrackBar: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGnomeWidgetSet.TrackBarCreateHandle(const ATrackBar: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: WincontrolCreateHandle - Params: AFixed: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGnomeWidgetSet.WincontrolCreateHandle(const AFixed: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - //##apiwiz##eps## // Do not remove, no wizard declaration after this line { ============================================================================= - $Log $ + $Log$ + Revision 1.3 2004/03/19 00:53:34 marc + * Removed all ComponentCreateHandle routines + } diff --git a/lcl/interfaces/gnome/gnomelclintfh.inc b/lcl/interfaces/gnome/gnomelclintfh.inc index 4873bebcfc..f843322688 100644 --- a/lcl/interfaces/gnome/gnomelclintfh.inc +++ b/lcl/interfaces/gnome/gnomelclintfh.inc @@ -32,77 +32,12 @@ //##apiwiz##sps## // Do not remove - -function AlignmentCreateHandle(const AAlignment: TObject; const AParams: TCreateParams): THandle; override; -function ArrowCreateHandle(const AArrow: TObject; const AParams: TCreateParams): THandle; override; - -function BitBtnCreateHandle(const ABitBtn: TObject; const AParams: TCreateParams): THandle; override; -function ButtonCreateHandle(const AButton: TObject; const AParams: TCreateParams): THandle; override; - -function CalendarCreateHandle(const ACalendar: TObject; const AParams: TCreateParams): THandle; override; -function CheckboxCreateHandle(const ACheckBox: TObject; const AParams: TCreateParams): THandle; override; -function CheckListBoxCreateHandle(const ACheckListBox: TObject; const AParams: TCreateParams): THandle; override; -function CListBoxCreateHandle(const ACListBox: TObject; const AParams: TCreateParams): THandle; override; -function ColorDialogCreateHandle(const AColorDialog: TObject): THandle; override; -function ComboBoxCreateHandle(const AComboBox: TObject; const AParams: TCreateParams): THandle; override; - -function EditCreateHandle(const AEdit: TObject; const AParams: TCreateParams): THandle; override; - -function FileDialogCreateHandle(const AFileDialog: TObject): THandle; override; -function FontDialogCreateHandle(const AFontDialog: TObject): THandle; override; -function FormCreateHandle(const AForm: TObject; const AParams: TCreateParams): THandle; override; - -function GroupBoxCreateHandle(const AGroupBox: TObject; const AParams: TCreateParams): THandle; override; - -function HintWindowCreateHandle(const AHintWindow: TObject; const AParams: TCreateParams): THandle; override; - -function ImageCreateHandle(const AImage: TObject; const AParams: TCreateParams): THandle; override; - -function LabelCreateHandle(const ALabel: TObject; const AParams: TCreateParams): THandle; override; -function ListBoxCreateHandle(const AListBox: TObject; const AParams: TCreateParams): THandle; override; -function ListViewCreateHandle(const AListView: TObject; const AParams: TCreateParams): THandle; override; - -function MainMenuCreateHandle(const AMainMenu: TObject): THandle; override; -function MemoCreateHandle(const AMemo: TObject; const AParams: TCreateParams): THandle; override; -function MenuItemCreateHandle(const AMenuItem: TObject): THandle; override; - -function NotebookCreateHandle(const ANotebook: TObject; const AParams: TCreateParams): THandle; override; - -function OpenFileDialogCreateHandle(const AOpenFileDialog: TObject): THandle; override; - -function PageCreateHandle(const APage: TObject; const AParams: TCreateParams): THandle; override; -function PairSplitterCreateHandle(const APairSplitter: TObject; const AParams: TCreateParams): THandle; override; -function PairSplitterSideCreateHandle(const APairSplitterSide: TObject; const AParams: TCreateParams): THandle; override; -function PanelCreateHandle(const APanel: TObject; const AParams: TCreateParams): THandle; override; -function PopupMenuCreateHandle(const APopupMenu: TObject): THandle; override; -function PreviewFileControlCreateHandle(const APreviewFileControl: TObject): THandle; override; -function PreviewFileDialogCreateHandle(const APreviewFileDialog: TObject): THandle; override; -function ProgressBarCreateHandle(const AProgressBar: TObject; const AParams: TCreateParams): THandle; override; - -function RadioButtonCreateHandle(const ARadioButton: TObject; const AParams: TCreateParams): THandle; override; - -function SaveFileDialogCreateHandle(const ASaveFileDialog: TObject): THandle; override; -function ScrollBarCreateHandle(const AScrollBar: TObject; const AParams: TCreateParams): THandle; override; - -function ScrollBoxCreateHandle(const AScrollBox: TObject; const AParams: TCreateParams): THandle; override; -function ScrolledWindowCreateHandle(const AScrolledWindow: TObject; const AParams: TCreateParams): THandle; override; - -function SelectDirectoryDialogCreateHandle(const ASelectDirectoryDialog: TObject): THandle; override; -function SpeedButtonCreateHandle(const ASpeedButton: TObject; const AParams: TCreateParams): THandle; override; -function SpineditCreateHandle(const ASpinEdit: TObject; const AParams: TCreateParams): THandle; override; - -function StatusBarCreateHandle(const AStatusBar: TObject; const AParams: TCreateParams): THandle; override; - -function ToggleBoxCreateHandle(const AToggleBox: TObject; const AParams: TCreateParams): THandle; override; - -function ToolbarCreateHandle(const AToolbar: TObject; const AParams: TCreateParams): THandle; override; -function ToolButtonCreateHandle(const AToolButton: TObject; const AParams: TCreateParams): THandle; override; -function TrackBarCreateHandle(const ATrackBar: TObject; const AParams: TCreateParams): THandle; override; - -function WincontrolCreateHandle(const AFixed: TObject; const AParams: TCreateParams): THandle; override; //##apiwiz##eps## // Do not remove, no wizard declaration after this line { ============================================================================= - $Log $ + $Log$ + Revision 1.2 2004/03/19 00:53:34 marc + * Removed all ComponentCreateHandle routines + } diff --git a/lcl/interfaces/gtk/gtkint.pp b/lcl/interfaces/gtk/gtkint.pp index 51667ce5f1..89191a9c38 100644 --- a/lcl/interfaces/gtk/gtkint.pp +++ b/lcl/interfaces/gtk/gtkint.pp @@ -145,7 +145,6 @@ type function CreateStatusBarPanel(StatusBar: TObject; Index: integer): PGtkWidget; function CreateSimpleClientAreaWidget(Sender: TObject; NotOnParentsClientArea: boolean): PGtkWidget; - function CreateComponent(Sender : TObject): THandle; virtual; function CreateToolBar(ToolBarObject: TObject): PGtkWidget; procedure DestroyEmptySubmenu(Sender: TObject);virtual; procedure DestroyLCLComponent(Sender: TObject);virtual; @@ -310,6 +309,8 @@ type procedure AppTerminate; override; procedure AppInit; override; + // create and destroy + function CreateComponent(Sender : TObject): THandle; override; function CreateTimer(Interval: integer; TimerFunc: TFNTimerProc) : integer; override; function DestroyTimer(TimerHandle: integer) : boolean; override; @@ -460,6 +461,9 @@ end. { ============================================================================= $Log$ + Revision 1.177 2004/03/19 00:53:34 marc + * Removed all ComponentCreateHandle routines + Revision 1.176 2004/03/19 00:03:15 marc * Moved the implementation of (GTK)ButtonCreateHandle to the new (GTK)WSButton class diff --git a/lcl/interfaces/gtk/gtklclintf.inc b/lcl/interfaces/gtk/gtklclintf.inc index 5f6467d394..a17fe42b00 100644 --- a/lcl/interfaces/gtk/gtklclintf.inc +++ b/lcl/interfaces/gtk/gtklclintf.inc @@ -28,122 +28,6 @@ //##apiwiz##sps## // Do not remove -{------------------------------------------------------------------------------ - Function: AlignmentCreateHandle - Params: AAlignment: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGtkWidgetSet.AlignmentCreateHandle(const AAlignment: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here - Result:=0; -end; - -{------------------------------------------------------------------------------ - Function: ArrowCreateHandle - Params: AArrow: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGtkWidgetSet.ArrowCreateHandle(const AArrow: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here - Result:=0; -end; - -{------------------------------------------------------------------------------ - Function: BitBtnCreateHandle - Params: ABitBtn: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGtkWidgetSet.BitBtnCreateHandle(const ABitBtn: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here - Result:=0; -end; - -{------------------------------------------------------------------------------ - Function: CalendarCreateHandle - Params: ACalendar: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGtkWidgetSet.CalendarCreateHandle(const ACalendar: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here - Result:=0; -end; - -{------------------------------------------------------------------------------ - Function: CheckboxCreateHandle - Params: ACheckBox: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGtkWidgetSet.CheckboxCreateHandle(const ACheckBox: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here - Result:=0; -end; - -{------------------------------------------------------------------------------ - Function: CheckListBoxCreateHandle - Params: ACheckListBox: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGtkWidgetSet.CheckListBoxCreateHandle(const ACheckListBox: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here - Result:=0; -end; - -{------------------------------------------------------------------------------ - Function: CListBoxCreateHandle - Params: ACListBox: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGtkWidgetSet.CListBoxCreateHandle(const ACListBox: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here - Result:=0; -end; - -{------------------------------------------------------------------------------ - Function: ColorDialogCreateHandle - Params: AColorDialog: - Returns: - - ------------------------------------------------------------------------------} -function TGtkWidgetSet.ColorDialogCreateHandle(const AColorDialog: TObject): THandle; -begin - // Your code here - Result:=0; -end; - -{------------------------------------------------------------------------------ - Function: ComboBoxCreateHandle - Params: AComboBox: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGtkWidgetSet.ComboBoxCreateHandle(const AComboBox: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here - Result:=0; -end; - {------------------------------------------------------------------------------ function TGtkWidgetSet.DrawSplitter(DC: HDC; const ARect: TRect; Horizontal: boolean): Integer; @@ -191,56 +75,6 @@ begin Result:=true; end; -{------------------------------------------------------------------------------ - Function: EditCreateHandle - Params: AEdit: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGtkWidgetSet.EditCreateHandle(const AEdit: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here - Result:=0; -end; - -{------------------------------------------------------------------------------ - Function: FileDialogCreateHandle - Params: AFileDialog: - Returns: - - ------------------------------------------------------------------------------} -function TGtkWidgetSet.FileDialogCreateHandle(const AFileDialog: TObject): THandle; -begin - // Your code here - Result:=0; -end; - -{------------------------------------------------------------------------------ - Function: FontDialogCreateHandle - Params: AFontDialog: - Returns: - - ------------------------------------------------------------------------------} -function TGtkWidgetSet.FontDialogCreateHandle(const AFontDialog: TObject): THandle; -begin - // Your code here - Result:=0; -end; - -{------------------------------------------------------------------------------ - Function: FormCreateHandle - Params: AForm: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGtkWidgetSet.FormCreateHandle(const AForm: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here - Result:=0; -end; - {------------------------------------------------------------------------------ Function: GetAcceleratorString Params: AVKey: @@ -458,134 +292,6 @@ begin end; end; end; - -{------------------------------------------------------------------------------ - Function: GroupBoxCreateHandle - Params: AGroupBox: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGtkWidgetSet.GroupBoxCreateHandle(const AGroupBox: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here - Result:=0; -end; - -{------------------------------------------------------------------------------ - Function: HintWindowCreateHandle - Params: AHintWindow: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGtkWidgetSet.HintWindowCreateHandle(const AHintWindow: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here - Result:=0; -end; - -{------------------------------------------------------------------------------ - Function: ImageCreateHandle - Params: AImage: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGtkWidgetSet.ImageCreateHandle(const AImage: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here - Result:=0; -end; - -{------------------------------------------------------------------------------ - Function: IntfCreateHandle - Params: AObject: - AParams: - Returns: - - This is a temporary routine until all controls are created directly - ------------------------------------------------------------------------------} -function TGtkWidgetSet.IntfCreateHandle(const AObject: TObject; const AParams: TCreateParams): THandle; -begin - Result := CreateComponent(AObject); -end; - -{------------------------------------------------------------------------------ - Function: LabelCreateHandle - Params: ALabel: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGtkWidgetSet.LabelCreateHandle(const ALabel: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here - Result:=0; -end; - -{------------------------------------------------------------------------------ - Function: ListBoxCreateHandle - Params: AListBox: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGtkWidgetSet.ListBoxCreateHandle(const AListBox: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here - Result:=0; -end; - -{------------------------------------------------------------------------------ - Function: ListViewCreateHandle - Params: AListView: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGtkWidgetSet.ListViewCreateHandle(const AListView: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here - Result:=0; -end; - -{------------------------------------------------------------------------------ - Function: MainMenuCreateHandle - Params: AMainMenu: - Returns: - - ------------------------------------------------------------------------------} -function TGtkWidgetSet.MainMenuCreateHandle(const AMainMenu: TObject): THandle; -begin - // Your code here - Result:=0; -end; - -{------------------------------------------------------------------------------ - Function: MemoCreateHandle - Params: AMemo: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGtkWidgetSet.MemoCreateHandle(const AMemo: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here - Result:=0; -end; - -{------------------------------------------------------------------------------ - Function: MenuItemCreateHandle - Params: AMenuItem: - Returns: - - ------------------------------------------------------------------------------} -function TGtkWidgetSet.MenuItemCreateHandle(const AMenuItem: TObject): THandle; -begin - // Your code here - Result:=0; -end; {$EndIf} {------------------------------------------------------------------------------ @@ -641,247 +347,6 @@ begin Result := True; end; -{------------------------------------------------------------------------------ - Function: NotebookCreateHandle - Params: ANotebook: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGtkWidgetSet.NotebookCreateHandle(const ANotebook: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here - Result:=0; -end; - -{------------------------------------------------------------------------------ - Function: OpenFileDialogCreateHandle - Params: AOpenFileDialog: - Returns: - - ------------------------------------------------------------------------------} -function TGtkWidgetSet.OpenFileDialogCreateHandle(const AOpenFileDialog: TObject): THandle; -begin - // Your code here - Result:=0; -end; - -{------------------------------------------------------------------------------ - Function: PageCreateHandle - Params: APage: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGtkWidgetSet.PageCreateHandle(const APage: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here - Result:=0; -end; - -{------------------------------------------------------------------------------ - Function: PairSplitterCreateHandle - Params: APairSplitter: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGtkWidgetSet.PairSplitterCreateHandle(const APairSplitter: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here - Result:=0; -end; - -{------------------------------------------------------------------------------ - Function: PairSplitterSideCreateHandle - Params: APairSplitterSide: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGtkWidgetSet.PairSplitterSideCreateHandle(const APairSplitterSide: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here - Result:=0; -end; - -{------------------------------------------------------------------------------ - Function: PanelCreateHandle - Params: APanel: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGtkWidgetSet.PanelCreateHandle(const APanel: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here - Result:=0; -end; - -{------------------------------------------------------------------------------ - Function: PopupMenuCreateHandle - Params: APopupMenu: - Returns: - - ------------------------------------------------------------------------------} -function TGtkWidgetSet.PopupMenuCreateHandle(const APopupMenu: TObject): THandle; -begin - // Your code here - Result:=0; -end; - -{------------------------------------------------------------------------------ - Function: PreviewFileControlCreateHandle - Params: APreviewFileControl: - Returns: - - ------------------------------------------------------------------------------} -function TGtkWidgetSet.PreviewFileControlCreateHandle(const APreviewFileControl: TObject): THandle; -begin - // Your code here - Result:=0; -end; - -{------------------------------------------------------------------------------ - Function: PreviewFileDialogCreateHandle - Params: APreviewFileDialog: - Returns: - - ------------------------------------------------------------------------------} -function TGtkWidgetSet.PreviewFileDialogCreateHandle(const APreviewFileDialog: TObject): THandle; -begin - // Your code here - Result:=0; -end; - -{------------------------------------------------------------------------------ - Function: ProgressBarCreateHandle - Params: AProgressBar: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGtkWidgetSet.ProgressBarCreateHandle(const AProgressBar: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here - Result:=0; -end; - -{------------------------------------------------------------------------------ - Function: RadioButtonCreateHandle - Params: ARadioButton: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGtkWidgetSet.RadioButtonCreateHandle(const ARadioButton: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here - Result:=0; -end; - -{------------------------------------------------------------------------------ - Function: SaveFileDialogCreateHandle - Params: ASaveFileDialog: - Returns: - - ------------------------------------------------------------------------------} -function TGtkWidgetSet.SaveFileDialogCreateHandle(const ASaveFileDialog: TObject): THandle; -begin - // Your code here - Result:=0; -end; - -{------------------------------------------------------------------------------ - Function: ScrollBarCreateHandle - Params: AScrollBar: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGtkWidgetSet.ScrollBarCreateHandle(const AScrollBar: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here - Result:=0; -end; - -{------------------------------------------------------------------------------ - Function: ScrollBoxCreateHandle - Params: AScrollBox: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGtkWidgetSet.ScrollBoxCreateHandle(const AScrollBox: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here - Result:=0; -end; - -{------------------------------------------------------------------------------ - Function: ScrolledWindowCreateHandle - Params: AScrolledWindow: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGtkWidgetSet.ScrolledWindowCreateHandle(const AScrolledWindow: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here - Result:=0; -end; - -{------------------------------------------------------------------------------ - Function: SelectDirectoryDialogCreateHandle - Params: ASelectDirectoryDialog: - Returns: - - ------------------------------------------------------------------------------} -function TGtkWidgetSet.SelectDirectoryDialogCreateHandle(const ASelectDirectoryDialog: TObject): THandle; -begin - // Your code here - Result:=0; -end; - -{------------------------------------------------------------------------------ - Function: SpeedButtonCreateHandle - Params: ASpeedButton: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGtkWidgetSet.SpeedButtonCreateHandle(const ASpeedButton: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here - Result:=0; -end; - -{------------------------------------------------------------------------------ - Function: SpineditCreateHandle - Params: ASpinEdit: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGtkWidgetSet.SpineditCreateHandle(const ASpinEdit: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here - Result:=0; -end; - -{------------------------------------------------------------------------------ - Function: StatusBarCreateHandle - Params: AStatusBar: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGtkWidgetSet.StatusBarCreateHandle(const AStatusBar: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here - Result:=0; -end; - {------------------------------------------------------------------------------ Procedure: StatusBarPanelUpdate Params: StatusBar: @@ -937,76 +402,14 @@ begin UpdateStatusBarPanels(StatusBar,PGtkWidget((StatusBar as TStatusBar).Handle)); end; -{------------------------------------------------------------------------------ - Function: ToggleBoxCreateHandle - Params: AToggleBox: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGtkWidgetSet.ToggleBoxCreateHandle(const AToggleBox: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here - Result:=0; -end; - -{------------------------------------------------------------------------------ - Function: ToolbarCreateHandle - Params: AToolbar: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGtkWidgetSet.ToolbarCreateHandle(const AToolbar: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here - Result:=0; -end; - -{------------------------------------------------------------------------------ - Function: ToolButtonCreateHandle - Params: AToolButton: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGtkWidgetSet.ToolButtonCreateHandle(const AToolButton: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here - Result:=0; -end; - -{------------------------------------------------------------------------------ - Function: TrackBarCreateHandle - Params: ATrackBar: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGtkWidgetSet.TrackBarCreateHandle(const ATrackBar: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here - Result:=0; -end; - -{------------------------------------------------------------------------------ - Function: WincontrolCreateHandle - Params: AFixed: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGtkWidgetSet.WincontrolCreateHandle(const AFixed: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here - Result:=0; -end; - //##apiwiz##eps## // Do not remove, no wizard declaration after this line { ============================================================================= $Log$ + Revision 1.21 2004/03/19 00:53:34 marc + * Removed all ComponentCreateHandle routines + Revision 1.20 2004/03/19 00:03:15 marc * Moved the implementation of (GTK)ButtonCreateHandle to the new (GTK)WSButton class diff --git a/lcl/interfaces/gtk/gtklclintfh.inc b/lcl/interfaces/gtk/gtklclintfh.inc index b5dba5df3c..99486f3039 100644 --- a/lcl/interfaces/gtk/gtklclintfh.inc +++ b/lcl/interfaces/gtk/gtklclintfh.inc @@ -30,88 +30,29 @@ } //##apiwiz##sps## // Do not remove -function AlignmentCreateHandle(const AAlignment: TObject; const AParams: TCreateParams): THandle; override; -function ArrowCreateHandle(const AArrow: TObject; const AParams: TCreateParams): THandle; override; - -function BitBtnCreateHandle(const ABitBtn: TObject; const AParams: TCreateParams): THandle; override; - -function CalendarCreateHandle(const ACalendar: TObject; const AParams: TCreateParams): THandle; override; -function CheckboxCreateHandle(const ACheckBox: TObject; const AParams: TCreateParams): THandle; override; -function CheckListBoxCreateHandle(const ACheckListBox: TObject; const AParams: TCreateParams): THandle; override; -function CListBoxCreateHandle(const ACListBox: TObject; const AParams: TCreateParams): THandle; override; -function ColorDialogCreateHandle(const AColorDialog: TObject): THandle; override; -function ComboBoxCreateHandle(const AComboBox: TObject; const AParams: TCreateParams): THandle; override; - function DrawSplitter(DC: HDC; const ARect: TRect; Horizontal: boolean): boolean; override; -function EditCreateHandle(const AEdit: TObject; const AParams: TCreateParams): THandle; override; - -function FileDialogCreateHandle(const AFileDialog: TObject): THandle; override; -function FontDialogCreateHandle(const AFontDialog: TObject): THandle; override; -function FormCreateHandle(const AForm: TObject; const AParams: TCreateParams): THandle; override; function GetAcceleratorString(const AVKey: Byte; const AShiftState: TShiftState): String; override; function GetControlConstraints(Constraints: TObject): boolean; override; function GetLCLOwnerObject(Handle: HWnd): TObject; override; function GetListBoxIndexAtY(ListBox: TComponent; y: integer): integer; override; function GetListBoxItemRect(ListBox: TComponent; Index: integer; var ARect: TRect): boolean; override; -{$ifdef gtk1} -function GroupBoxCreateHandle(const AGroupBox: TObject; const AParams: TCreateParams): THandle; override; -function HintWindowCreateHandle(const AHintWindow: TObject; const AParams: TCreateParams): THandle; override; - -function ImageCreateHandle(const AImage: TObject; const AParams: TCreateParams): THandle; override; -function IntfCreateHandle(const AObject: TObject; const AParams: TCreateParams): THandle; override; - -function LabelCreateHandle(const ALabel: TObject; const AParams: TCreateParams): THandle; override; -function ListBoxCreateHandle(const AListBox: TObject; const AParams: TCreateParams): THandle; override; -function ListViewCreateHandle(const AListView: TObject; const AParams: TCreateParams): THandle; override; - -function MainMenuCreateHandle(const AMainMenu: TObject): THandle; override; -function MemoCreateHandle(const AMemo: TObject; const AParams: TCreateParams): THandle; override; -function MenuItemCreateHandle(const AMenuItem: TObject): THandle; override; -{$endif gtk1} function MenuItemSetCheck(BaseMenuItem: TComponent): Boolean; override; function MenuItemSetEnable(BaseMenuItem: TComponent): Boolean; override; -function NotebookCreateHandle(const ANotebook: TObject; const AParams: TCreateParams): THandle; override; - -function OpenFileDialogCreateHandle(const AOpenFileDialog: TObject): THandle; override; - -function PageCreateHandle(const APage: TObject; const AParams: TCreateParams): THandle; override; -function PairSplitterCreateHandle(const APairSplitter: TObject; const AParams: TCreateParams): THandle; override; -function PairSplitterSideCreateHandle(const APairSplitterSide: TObject; const AParams: TCreateParams): THandle; override; -function PanelCreateHandle(const APanel: TObject; const AParams: TCreateParams): THandle; override; -function PopupMenuCreateHandle(const APopupMenu: TObject): THandle; override; -function PreviewFileControlCreateHandle(const APreviewFileControl: TObject): THandle; override; -function PreviewFileDialogCreateHandle(const APreviewFileDialog: TObject): THandle; override; -function ProgressBarCreateHandle(const AProgressBar: TObject; const AParams: TCreateParams): THandle; override; - -function RadioButtonCreateHandle(const ARadioButton: TObject; const AParams: TCreateParams): THandle; override; - -function SaveFileDialogCreateHandle(const ASaveFileDialog: TObject): THandle; override; -function ScrollBarCreateHandle(const AScrollBar: TObject; const AParams: TCreateParams): THandle; override; -function ScrollBoxCreateHandle(const AScrollBox: TObject; const AParams: TCreateParams): THandle; override; -function ScrolledWindowCreateHandle(const AScrolledWindow: TObject; const AParams: TCreateParams): THandle; override; -function SelectDirectoryDialogCreateHandle(const ASelectDirectoryDialog: TObject): THandle; override; -function SpeedButtonCreateHandle(const ASpeedButton: TObject; const AParams: TCreateParams): THandle; override; -function SpineditCreateHandle(const ASpinEdit: TObject; const AParams: TCreateParams): THandle; override; -function StatusBarCreateHandle(const AStatusBar: TObject; const AParams: TCreateParams): THandle; override; procedure StatusBarPanelUpdate(StatusBar: TObject; Index: integer); override; procedure StatusBarSetText(StatusBar: TObject; PanelIndex: integer); override; procedure StatusBarUpdate(StatusBar: TObject); override; -function ToggleBoxCreateHandle(const AToggleBox: TObject; const AParams: TCreateParams): THandle; override; - -function ToolbarCreateHandle(const AToolbar: TObject; const AParams: TCreateParams): THandle; override; -function ToolButtonCreateHandle(const AToolButton: TObject; const AParams: TCreateParams): THandle; override; -function TrackBarCreateHandle(const ATrackBar: TObject; const AParams: TCreateParams): THandle; override; - -function WincontrolCreateHandle(const AFixed: TObject; const AParams: TCreateParams): THandle; override; //##apiwiz##eps## // Do not remove, no wizard declaration after this line { ============================================================================= $Log$ + Revision 1.16 2004/03/19 00:53:34 marc + * Removed all ComponentCreateHandle routines + Revision 1.15 2004/03/19 00:03:15 marc * Moved the implementation of (GTK)ButtonCreateHandle to the new (GTK)WSButton class diff --git a/lcl/interfaces/gtk2/gtk2lclintf.inc b/lcl/interfaces/gtk2/gtk2lclintf.inc index c124dc75eb..7fd42d6d54 100644 --- a/lcl/interfaces/gtk2/gtk2lclintf.inc +++ b/lcl/interfaces/gtk2/gtk2lclintf.inc @@ -31,563 +31,13 @@ //##apiwiz##sps## // Do not remove -{------------------------------------------------------------------------------ - Function: AlignmentCreateHandle - Params: AAlignment: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGtk2WidgetSet.AlignmentCreateHandle(const AAlignment: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: ArrowCreateHandle - Params: AArrow: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGtk2WidgetSet.ArrowCreateHandle(const AArrow: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: BitBtnCreateHandle - Params: ABitBtn: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGtk2WidgetSet.BitBtnCreateHandle(const ABitBtn: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: ButtonCreateHandle - Params: AButton: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGtk2WidgetSet.ButtonCreateHandle(const AButton: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: CalendarCreateHandle - Params: ACalendar: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGtk2WidgetSet.CalendarCreateHandle(const ACalendar: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: CheckboxCreateHandle - Params: ACheckBox: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGtk2WidgetSet.CheckboxCreateHandle(const ACheckBox: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: CheckListBoxCreateHandle - Params: ACheckListBox: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGtk2WidgetSet.CheckListBoxCreateHandle(const ACheckListBox: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: CListBoxCreateHandle - Params: ACListBox: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGtk2WidgetSet.CListBoxCreateHandle(const ACListBox: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: ColorDialogCreateHandle - Params: AColorDialog: - Returns: - - ------------------------------------------------------------------------------} -function TGtk2WidgetSet.ColorDialogCreateHandle(const AColorDialog: TObject): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: ComboBoxCreateHandle - Params: AComboBox: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGtk2WidgetSet.ComboBoxCreateHandle(const AComboBox: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: EditCreateHandle - Params: AEdit: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGtk2WidgetSet.EditCreateHandle(const AEdit: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: FileDialogCreateHandle - Params: AFileDialog: - Returns: - - ------------------------------------------------------------------------------} -function TGtk2WidgetSet.FileDialogCreateHandle(const AFileDialog: TObject): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: FontDialogCreateHandle - Params: AFontDialog: - Returns: - - ------------------------------------------------------------------------------} -function TGtk2WidgetSet.FontDialogCreateHandle(const AFontDialog: TObject): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: FormCreateHandle - Params: AForm: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGtk2WidgetSet.FormCreateHandle(const AForm: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: GroupBoxCreateHandle - Params: AGroupBox: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGtk2WidgetSet.GroupBoxCreateHandle(const AGroupBox: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: HintWindowCreateHandle - Params: AHintWindow: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGtk2WidgetSet.HintWindowCreateHandle(const AHintWindow: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: ImageCreateHandle - Params: AImage: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGtk2WidgetSet.ImageCreateHandle(const AImage: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: LabelCreateHandle - Params: ALabel: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGtk2WidgetSet.LabelCreateHandle(const ALabel: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: ListBoxCreateHandle - Params: AListBox: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGtk2WidgetSet.ListBoxCreateHandle(const AListBox: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: ListViewCreateHandle - Params: AListView: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGtk2WidgetSet.ListViewCreateHandle(const AListView: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: MainMenuCreateHandle - Params: AMainMenu: - Returns: - - ------------------------------------------------------------------------------} -function TGtk2WidgetSet.MainMenuCreateHandle(const AMainMenu: TObject): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: MemoCreateHandle - Params: AMemo: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGtk2WidgetSet.MemoCreateHandle(const AMemo: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: MenuItemCreateHandle - Params: AMenuItem: - Returns: - - ------------------------------------------------------------------------------} -function TGtk2WidgetSet.MenuItemCreateHandle(const AMenuItem: TObject): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: NotebookCreateHandle - Params: ANotebook: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGtk2WidgetSet.NotebookCreateHandle(const ANotebook: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: OpenFileDialogCreateHandle - Params: AOpenFileDialog: - Returns: - - ------------------------------------------------------------------------------} -function TGtk2WidgetSet.OpenFileDialogCreateHandle(const AOpenFileDialog: TObject): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: PageCreateHandle - Params: APage: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGtk2WidgetSet.PageCreateHandle(const APage: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: PairSplitterCreateHandle - Params: APairSplitter: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGtk2WidgetSet.PairSplitterCreateHandle(const APairSplitter: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: PairSplitterSideCreateHandle - Params: APairSplitterSide: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGtk2WidgetSet.PairSplitterSideCreateHandle(const APairSplitterSide: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: PanelCreateHandle - Params: APanel: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGtk2WidgetSet.PanelCreateHandle(const APanel: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: PopupMenuCreateHandle - Params: APopupMenu: - Returns: - - ------------------------------------------------------------------------------} -function TGtk2WidgetSet.PopupMenuCreateHandle(const APopupMenu: TObject): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: PreviewFileControlCreateHandle - Params: APreviewFileControl: - Returns: - - ------------------------------------------------------------------------------} -function TGtk2WidgetSet.PreviewFileControlCreateHandle(const APreviewFileControl: TObject): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: PreviewFileDialogCreateHandle - Params: APreviewFileDialog: - Returns: - - ------------------------------------------------------------------------------} -function TGtk2WidgetSet.PreviewFileDialogCreateHandle(const APreviewFileDialog: TObject): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: ProgressBarCreateHandle - Params: AProgressBar: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGtk2WidgetSet.ProgressBarCreateHandle(const AProgressBar: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: RadioButtonCreateHandle - Params: ARadioButton: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGtk2WidgetSet.RadioButtonCreateHandle(const ARadioButton: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: SaveFileDialogCreateHandle - Params: ASaveFileDialog: - Returns: - - ------------------------------------------------------------------------------} -function TGtk2WidgetSet.SaveFileDialogCreateHandle(const ASaveFileDialog: TObject): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: ScrollBarCreateHandle - Params: AScrollBar: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGtk2WidgetSet.ScrollBarCreateHandle(const AScrollBar: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: ScrollBoxCreateHandle - Params: AScrollBox: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGtk2WidgetSet.ScrollBoxCreateHandle(const AScrollBox: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: ScrolledWindowCreateHandle - Params: AScrolledWindow: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGtk2WidgetSet.ScrolledWindowCreateHandle(const AScrolledWindow: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: SelectDirectoryDialogCreateHandle - Params: ASelectDirectoryDialog: - Returns: - - ------------------------------------------------------------------------------} -function TGtk2WidgetSet.SelectDirectoryDialogCreateHandle(const ASelectDirectoryDialog: TObject): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: SpeedButtonCreateHandle - Params: ASpeedButton: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGtk2WidgetSet.SpeedButtonCreateHandle(const ASpeedButton: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: SpineditCreateHandle - Params: ASpinEdit: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGtk2WidgetSet.SpineditCreateHandle(const ASpinEdit: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: StatusBarCreateHandle - Params: AStatusBar: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGtk2WidgetSet.StatusBarCreateHandle(const AStatusBar: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: ToggleBoxCreateHandle - Params: AToggleBox: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGtk2WidgetSet.ToggleBoxCreateHandle(const AToggleBox: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: ToolbarCreateHandle - Params: AToolbar: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGtk2WidgetSet.ToolbarCreateHandle(const AToolbar: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: ToolButtonCreateHandle - Params: AToolButton: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGtk2WidgetSet.ToolButtonCreateHandle(const AToolButton: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: TrackBarCreateHandle - Params: ATrackBar: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGtk2WidgetSet.TrackBarCreateHandle(const ATrackBar: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: WincontrolCreateHandle - Params: AFixed: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TGtk2WidgetSet.WincontrolCreateHandle(const AFixed: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - //##apiwiz##eps## // Do not remove, no wizard declaration after this line { ============================================================================= - $Log $ + $Log$ + Revision 1.3 2004/03/19 00:53:34 marc + * Removed all ComponentCreateHandle routines + } diff --git a/lcl/interfaces/gtk2/gtk2lclintfh.inc b/lcl/interfaces/gtk2/gtk2lclintfh.inc index 17d4f973b2..681d370b7c 100644 --- a/lcl/interfaces/gtk2/gtk2lclintfh.inc +++ b/lcl/interfaces/gtk2/gtk2lclintfh.inc @@ -31,78 +31,12 @@ //##apiwiz##sps## // Do not remove - - -function AlignmentCreateHandle(const AAlignment: TObject; const AParams: TCreateParams): THandle; override; -function ArrowCreateHandle(const AArrow: TObject; const AParams: TCreateParams): THandle; override; - -function BitBtnCreateHandle(const ABitBtn: TObject; const AParams: TCreateParams): THandle; override; -function ButtonCreateHandle(const AButton: TObject; const AParams: TCreateParams): THandle; override; - -function CalendarCreateHandle(const ACalendar: TObject; const AParams: TCreateParams): THandle; override; -function CheckboxCreateHandle(const ACheckBox: TObject; const AParams: TCreateParams): THandle; override; -function CheckListBoxCreateHandle(const ACheckListBox: TObject; const AParams: TCreateParams): THandle; override; -function CListBoxCreateHandle(const ACListBox: TObject; const AParams: TCreateParams): THandle; override; -function ColorDialogCreateHandle(const AColorDialog: TObject): THandle; override; -function ComboBoxCreateHandle(const AComboBox: TObject; const AParams: TCreateParams): THandle; override; - -function EditCreateHandle(const AEdit: TObject; const AParams: TCreateParams): THandle; override; - -function FileDialogCreateHandle(const AFileDialog: TObject): THandle; override; -function FontDialogCreateHandle(const AFontDialog: TObject): THandle; override; -function FormCreateHandle(const AForm: TObject; const AParams: TCreateParams): THandle; override; - -function GroupBoxCreateHandle(const AGroupBox: TObject; const AParams: TCreateParams): THandle; override; - -function HintWindowCreateHandle(const AHintWindow: TObject; const AParams: TCreateParams): THandle; override; - -function ImageCreateHandle(const AImage: TObject; const AParams: TCreateParams): THandle; override; - -function LabelCreateHandle(const ALabel: TObject; const AParams: TCreateParams): THandle; override; -function ListBoxCreateHandle(const AListBox: TObject; const AParams: TCreateParams): THandle; override; -function ListViewCreateHandle(const AListView: TObject; const AParams: TCreateParams): THandle; override; - -function MainMenuCreateHandle(const AMainMenu: TObject): THandle; override; -function MemoCreateHandle(const AMemo: TObject; const AParams: TCreateParams): THandle; override; -function MenuItemCreateHandle(const AMenuItem: TObject): THandle; override; - -function NotebookCreateHandle(const ANotebook: TObject; const AParams: TCreateParams): THandle; override; - -function OpenFileDialogCreateHandle(const AOpenFileDialog: TObject): THandle; override; - -function PageCreateHandle(const APage: TObject; const AParams: TCreateParams): THandle; override; -function PairSplitterCreateHandle(const APairSplitter: TObject; const AParams: TCreateParams): THandle; override; -function PairSplitterSideCreateHandle(const APairSplitterSide: TObject; const AParams: TCreateParams): THandle; override; -function PanelCreateHandle(const APanel: TObject; const AParams: TCreateParams): THandle; override; -function PopupMenuCreateHandle(const APopupMenu: TObject): THandle; override; -function PreviewFileControlCreateHandle(const APreviewFileControl: TObject): THandle; override; -function PreviewFileDialogCreateHandle(const APreviewFileDialog: TObject): THandle; override; -function ProgressBarCreateHandle(const AProgressBar: TObject; const AParams: TCreateParams): THandle; override; - -function RadioButtonCreateHandle(const ARadioButton: TObject; const AParams: TCreateParams): THandle; override; - -function SaveFileDialogCreateHandle(const ASaveFileDialog: TObject): THandle; override; -function ScrollBarCreateHandle(const AScrollBar: TObject; const AParams: TCreateParams): THandle; override; - -function ScrollBoxCreateHandle(const AScrollBox: TObject; const AParams: TCreateParams): THandle; override; -function ScrolledWindowCreateHandle(const AScrolledWindow: TObject; const AParams: TCreateParams): THandle; override; - -function SelectDirectoryDialogCreateHandle(const ASelectDirectoryDialog: TObject): THandle; override; -function SpeedButtonCreateHandle(const ASpeedButton: TObject; const AParams: TCreateParams): THandle; override; -function SpineditCreateHandle(const ASpinEdit: TObject; const AParams: TCreateParams): THandle; override; - -function StatusBarCreateHandle(const AStatusBar: TObject; const AParams: TCreateParams): THandle; override; - -function ToggleBoxCreateHandle(const AToggleBox: TObject; const AParams: TCreateParams): THandle; override; - -function ToolbarCreateHandle(const AToolbar: TObject; const AParams: TCreateParams): THandle; override; -function ToolButtonCreateHandle(const AToolButton: TObject; const AParams: TCreateParams): THandle; override; -function TrackBarCreateHandle(const ATrackBar: TObject; const AParams: TCreateParams): THandle; override; - -function WincontrolCreateHandle(const AFixed: TObject; const AParams: TCreateParams): THandle; override; //##apiwiz##eps## // Do not remove, no wizard declaration after this line { ============================================================================= - $Log $ + $Log$ + Revision 1.2 2004/03/19 00:53:34 marc + * Removed all ComponentCreateHandle routines + } diff --git a/lcl/interfaces/qt/qtlclintf.inc b/lcl/interfaces/qt/qtlclintf.inc index f7868994b9..ed4ac485da 100644 --- a/lcl/interfaces/qt/qtlclintf.inc +++ b/lcl/interfaces/qt/qtlclintf.inc @@ -31,563 +31,13 @@ //##apiwiz##sps## // Do not remove -{------------------------------------------------------------------------------ - Function: AlignmentCreateHandle - Params: AAlignment: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TQtWidgetSet.AlignmentCreateHandle(const AAlignment: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: ArrowCreateHandle - Params: AArrow: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TQtWidgetSet.ArrowCreateHandle(const AArrow: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: BitBtnCreateHandle - Params: ABitBtn: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TQtWidgetSet.BitBtnCreateHandle(const ABitBtn: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: ButtonCreateHandle - Params: AButton: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TQtWidgetSet.ButtonCreateHandle(const AButton: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: CalendarCreateHandle - Params: ACalendar: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TQtWidgetSet.CalendarCreateHandle(const ACalendar: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: CheckboxCreateHandle - Params: ACheckBox: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TQtWidgetSet.CheckboxCreateHandle(const ACheckBox: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: CheckListBoxCreateHandle - Params: ACheckListBox: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TQtWidgetSet.CheckListBoxCreateHandle(const ACheckListBox: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: CListBoxCreateHandle - Params: ACListBox: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TQtWidgetSet.CListBoxCreateHandle(const ACListBox: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: ColorDialogCreateHandle - Params: AColorDialog: - Returns: - - ------------------------------------------------------------------------------} -function TQtWidgetSet.ColorDialogCreateHandle(const AColorDialog: TObject): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: ComboBoxCreateHandle - Params: AComboBox: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TQtWidgetSet.ComboBoxCreateHandle(const AComboBox: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: EditCreateHandle - Params: AEdit: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TQtWidgetSet.EditCreateHandle(const AEdit: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: FileDialogCreateHandle - Params: AFileDialog: - Returns: - - ------------------------------------------------------------------------------} -function TQtWidgetSet.FileDialogCreateHandle(const AFileDialog: TObject): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: FontDialogCreateHandle - Params: AFontDialog: - Returns: - - ------------------------------------------------------------------------------} -function TQtWidgetSet.FontDialogCreateHandle(const AFontDialog: TObject): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: FormCreateHandle - Params: AForm: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TQtWidgetSet.FormCreateHandle(const AForm: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: GroupBoxCreateHandle - Params: AGroupBox: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TQtWidgetSet.GroupBoxCreateHandle(const AGroupBox: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: HintWindowCreateHandle - Params: AHintWindow: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TQtWidgetSet.HintWindowCreateHandle(const AHintWindow: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: ImageCreateHandle - Params: AImage: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TQtWidgetSet.ImageCreateHandle(const AImage: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: LabelCreateHandle - Params: ALabel: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TQtWidgetSet.LabelCreateHandle(const ALabel: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: ListBoxCreateHandle - Params: AListBox: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TQtWidgetSet.ListBoxCreateHandle(const AListBox: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: ListViewCreateHandle - Params: AListView: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TQtWidgetSet.ListViewCreateHandle(const AListView: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: MainMenuCreateHandle - Params: AMainMenu: - Returns: - - ------------------------------------------------------------------------------} -function TQtWidgetSet.MainMenuCreateHandle(const AMainMenu: TObject): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: MemoCreateHandle - Params: AMemo: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TQtWidgetSet.MemoCreateHandle(const AMemo: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: MenuItemCreateHandle - Params: AMenuItem: - Returns: - - ------------------------------------------------------------------------------} -function TQtWidgetSet.MenuItemCreateHandle(const AMenuItem: TObject): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: NotebookCreateHandle - Params: ANotebook: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TQtWidgetSet.NotebookCreateHandle(const ANotebook: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: OpenFileDialogCreateHandle - Params: AOpenFileDialog: - Returns: - - ------------------------------------------------------------------------------} -function TQtWidgetSet.OpenFileDialogCreateHandle(const AOpenFileDialog: TObject): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: PageCreateHandle - Params: APage: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TQtWidgetSet.PageCreateHandle(const APage: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: PairSplitterCreateHandle - Params: APairSplitter: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TQtWidgetSet.PairSplitterCreateHandle(const APairSplitter: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: PairSplitterSideCreateHandle - Params: APairSplitterSide: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TQtWidgetSet.PairSplitterSideCreateHandle(const APairSplitterSide: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: PanelCreateHandle - Params: APanel: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TQtWidgetSet.PanelCreateHandle(const APanel: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: PopupMenuCreateHandle - Params: APopupMenu: - Returns: - - ------------------------------------------------------------------------------} -function TQtWidgetSet.PopupMenuCreateHandle(const APopupMenu: TObject): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: PreviewFileControlCreateHandle - Params: APreviewFileControl: - Returns: - - ------------------------------------------------------------------------------} -function TQtWidgetSet.PreviewFileControlCreateHandle(const APreviewFileControl: TObject): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: PreviewFileDialogCreateHandle - Params: APreviewFileDialog: - Returns: - - ------------------------------------------------------------------------------} -function TQtWidgetSet.PreviewFileDialogCreateHandle(const APreviewFileDialog: TObject): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: ProgressBarCreateHandle - Params: AProgressBar: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TQtWidgetSet.ProgressBarCreateHandle(const AProgressBar: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: RadioButtonCreateHandle - Params: ARadioButton: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TQtWidgetSet.RadioButtonCreateHandle(const ARadioButton: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: SaveFileDialogCreateHandle - Params: ASaveFileDialog: - Returns: - - ------------------------------------------------------------------------------} -function TQtWidgetSet.SaveFileDialogCreateHandle(const ASaveFileDialog: TObject): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: ScrollBarCreateHandle - Params: AScrollBar: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TQtWidgetSet.ScrollBarCreateHandle(const AScrollBar: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: ScrollBoxCreateHandle - Params: AScrollBox: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TQtWidgetSet.ScrollBoxCreateHandle(const AScrollBox: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: ScrolledWindowCreateHandle - Params: AScrolledWindow: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TQtWidgetSet.ScrolledWindowCreateHandle(const AScrolledWindow: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: SelectDirectoryDialogCreateHandle - Params: ASelectDirectoryDialog: - Returns: - - ------------------------------------------------------------------------------} -function TQtWidgetSet.SelectDirectoryDialogCreateHandle(const ASelectDirectoryDialog: TObject): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: SpeedButtonCreateHandle - Params: ASpeedButton: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TQtWidgetSet.SpeedButtonCreateHandle(const ASpeedButton: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: SpineditCreateHandle - Params: ASpinEdit: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TQtWidgetSet.SpineditCreateHandle(const ASpinEdit: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: StatusBarCreateHandle - Params: AStatusBar: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TQtWidgetSet.StatusBarCreateHandle(const AStatusBar: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: ToggleBoxCreateHandle - Params: AToggleBox: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TQtWidgetSet.ToggleBoxCreateHandle(const AToggleBox: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: ToolbarCreateHandle - Params: AToolbar: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TQtWidgetSet.ToolbarCreateHandle(const AToolbar: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: ToolButtonCreateHandle - Params: AToolButton: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TQtWidgetSet.ToolButtonCreateHandle(const AToolButton: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: TrackBarCreateHandle - Params: ATrackBar: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TQtWidgetSet.TrackBarCreateHandle(const ATrackBar: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - -{------------------------------------------------------------------------------ - Function: WincontrolCreateHandle - Params: AFixed: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TQtWidgetSet.WincontrolCreateHandle(const AFixed: TObject; const AParams: TCreateParams): THandle; -begin - // Your code here -end; - //##apiwiz##eps## // Do not remove, no wizard declaration after this line { ============================================================================= - $Log $ + $Log$ + Revision 1.3 2004/03/19 00:53:34 marc + * Removed all ComponentCreateHandle routines + } diff --git a/lcl/interfaces/qt/qtlclintfh.inc b/lcl/interfaces/qt/qtlclintfh.inc index 672cc4b04c..e93fc1cc10 100644 --- a/lcl/interfaces/qt/qtlclintfh.inc +++ b/lcl/interfaces/qt/qtlclintfh.inc @@ -31,78 +31,12 @@ //##apiwiz##sps## // Do not remove - - -function AlignmentCreateHandle(const AAlignment: TObject; const AParams: TCreateParams): THandle; override; -function ArrowCreateHandle(const AArrow: TObject; const AParams: TCreateParams): THandle; override; - -function BitBtnCreateHandle(const ABitBtn: TObject; const AParams: TCreateParams): THandle; override; -function ButtonCreateHandle(const AButton: TObject; const AParams: TCreateParams): THandle; override; - -function CalendarCreateHandle(const ACalendar: TObject; const AParams: TCreateParams): THandle; override; -function CheckboxCreateHandle(const ACheckBox: TObject; const AParams: TCreateParams): THandle; override; -function CheckListBoxCreateHandle(const ACheckListBox: TObject; const AParams: TCreateParams): THandle; override; -function CListBoxCreateHandle(const ACListBox: TObject; const AParams: TCreateParams): THandle; override; -function ColorDialogCreateHandle(const AColorDialog: TObject): THandle; override; -function ComboBoxCreateHandle(const AComboBox: TObject; const AParams: TCreateParams): THandle; override; - -function EditCreateHandle(const AEdit: TObject; const AParams: TCreateParams): THandle; override; - -function FileDialogCreateHandle(const AFileDialog: TObject): THandle; override; -function FontDialogCreateHandle(const AFontDialog: TObject): THandle; override; -function FormCreateHandle(const AForm: TObject; const AParams: TCreateParams): THandle; override; - -function GroupBoxCreateHandle(const AGroupBox: TObject; const AParams: TCreateParams): THandle; override; - -function HintWindowCreateHandle(const AHintWindow: TObject; const AParams: TCreateParams): THandle; override; - -function ImageCreateHandle(const AImage: TObject; const AParams: TCreateParams): THandle; override; - -function LabelCreateHandle(const ALabel: TObject; const AParams: TCreateParams): THandle; override; -function ListBoxCreateHandle(const AListBox: TObject; const AParams: TCreateParams): THandle; override; -function ListViewCreateHandle(const AListView: TObject; const AParams: TCreateParams): THandle; override; - -function MainMenuCreateHandle(const AMainMenu: TObject): THandle; override; -function MemoCreateHandle(const AMemo: TObject; const AParams: TCreateParams): THandle; override; -function MenuItemCreateHandle(const AMenuItem: TObject): THandle; override; - -function NotebookCreateHandle(const ANotebook: TObject; const AParams: TCreateParams): THandle; override; - -function OpenFileDialogCreateHandle(const AOpenFileDialog: TObject): THandle; override; - -function PageCreateHandle(const APage: TObject; const AParams: TCreateParams): THandle; override; -function PairSplitterCreateHandle(const APairSplitter: TObject; const AParams: TCreateParams): THandle; override; -function PairSplitterSideCreateHandle(const APairSplitterSide: TObject; const AParams: TCreateParams): THandle; override; -function PanelCreateHandle(const APanel: TObject; const AParams: TCreateParams): THandle; override; -function PopupMenuCreateHandle(const APopupMenu: TObject): THandle; override; -function PreviewFileControlCreateHandle(const APreviewFileControl: TObject): THandle; override; -function PreviewFileDialogCreateHandle(const APreviewFileDialog: TObject): THandle; override; -function ProgressBarCreateHandle(const AProgressBar: TObject; const AParams: TCreateParams): THandle; override; - -function RadioButtonCreateHandle(const ARadioButton: TObject; const AParams: TCreateParams): THandle; override; - -function SaveFileDialogCreateHandle(const ASaveFileDialog: TObject): THandle; override; -function ScrollBarCreateHandle(const AScrollBar: TObject; const AParams: TCreateParams): THandle; override; - -function ScrollBoxCreateHandle(const AScrollBox: TObject; const AParams: TCreateParams): THandle; override; -function ScrolledWindowCreateHandle(const AScrolledWindow: TObject; const AParams: TCreateParams): THandle; override; - -function SelectDirectoryDialogCreateHandle(const ASelectDirectoryDialog: TObject): THandle; override; -function SpeedButtonCreateHandle(const ASpeedButton: TObject; const AParams: TCreateParams): THandle; override; -function SpineditCreateHandle(const ASpinEdit: TObject; const AParams: TCreateParams): THandle; override; - -function StatusBarCreateHandle(const AStatusBar: TObject; const AParams: TCreateParams): THandle; override; - -function ToggleBoxCreateHandle(const AToggleBox: TObject; const AParams: TCreateParams): THandle; override; - -function ToolbarCreateHandle(const AToolbar: TObject; const AParams: TCreateParams): THandle; override; -function ToolButtonCreateHandle(const AToolButton: TObject; const AParams: TCreateParams): THandle; override; -function TrackBarCreateHandle(const ATrackBar: TObject; const AParams: TCreateParams): THandle; override; - -function WincontrolCreateHandle(const AFixed: TObject; const AParams: TCreateParams): THandle; override; //##apiwiz##eps## // Do not remove, no wizard declaration after this line { ============================================================================= - $Log $ + $Log$ + Revision 1.2 2004/03/19 00:53:34 marc + * Removed all ComponentCreateHandle routines + } diff --git a/lcl/interfaces/win32/win32int.pp b/lcl/interfaces/win32/win32int.pp index eb777de3bc..c6eea3ad96 100644 --- a/lcl/interfaces/win32/win32int.pp +++ b/lcl/interfaces/win32/win32int.pp @@ -70,7 +70,6 @@ Type FStatusFont: HFONT; FMessageFont: HFONT; - Function CreateComponent(Sender: TObject): THandle; Function RecreateWnd(Sender: TWinControl): Integer; virtual; Function GetOwnerHandle(ADialog : TCommonDialog): HWND; Function GetText(Sender: TComponent; Handle: HWND; var Data: String): Boolean; virtual; @@ -130,6 +129,8 @@ Type Function InitHintFont(HintFont: TObject): Boolean; Override; Procedure AttachMenuToWindow(AMenuObject: TComponent); Override; + // create and destroy + function CreateComponent(Sender : TObject): THandle; override; function CreateTimer(Interval: integer; TimerFunc: TFNTimerProc) : integer; override; function DestroyTimer(TimerHandle: Integer) : boolean; override; @@ -223,6 +224,9 @@ End. { ============================================================================= $Log$ + Revision 1.74 2004/03/19 00:53:34 marc + * Removed all ComponentCreateHandle routines + Revision 1.73 2004/03/17 19:59:56 marc * Fixes some typos and changes uses clause cases diff --git a/lcl/interfaces/win32/win32lclintf.inc b/lcl/interfaces/win32/win32lclintf.inc index 3b3a61632b..70857ca1b3 100644 --- a/lcl/interfaces/win32/win32lclintf.inc +++ b/lcl/interfaces/win32/win32lclintf.inc @@ -39,184 +39,6 @@ begin DFC_MENU, DFCS_MENUARROW); end; -{------------------------------------------------------------------------------ - Function: AlignmentCreateHandle - Params: AAlignment: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TWin32WidgetSet.AlignmentCreateHandle(const AAlignment: TObject; const AParams: TCreateParams): THandle; -begin - //TODO: Implement - Result := 0; -end; - -{------------------------------------------------------------------------------ - Function: ArrowCreateHandle - Params: AArrow: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TWin32WidgetSet.ArrowCreateHandle(const AArrow: TObject; const AParams: TCreateParams): THandle; -begin - //TODO: Implement - Result := 0; -end; - -{------------------------------------------------------------------------------ - Function: BitBtnCreateHandle - Params: ABitBtn: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TWin32WidgetSet.BitBtnCreateHandle(const ABitBtn: TObject; const AParams: TCreateParams): THandle; -begin - //TODO: Implement - Result := 0; -end; - -{------------------------------------------------------------------------------ - Function: ButtonCreateHandle - Params: AButton: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TWin32WidgetSet.ButtonCreateHandle(const AButton: TObject; const AParams: TCreateParams): THandle; -begin - Result := CreateComponent(AButton); -end; - -{------------------------------------------------------------------------------ - Function: CalendarCreateHandle - Params: ACalendar: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TWin32WidgetSet.CalendarCreateHandle(const ACalendar: TObject; const AParams: TCreateParams): THandle; -begin - //TODO: Implement - Result := 0; -end; - -{------------------------------------------------------------------------------ - Function: CheckboxCreateHandle - Params: ACheckBox: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TWin32WidgetSet.CheckboxCreateHandle(const ACheckBox: TObject; const AParams: TCreateParams): THandle; -begin - //TODO: Implement - Result := 0; -end; - -{------------------------------------------------------------------------------ - Function: CheckListBoxCreateHandle - Params: ACheckListBox: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TWin32WidgetSet.CheckListBoxCreateHandle(const ACheckListBox: TObject; const AParams: TCreateParams): THandle; -begin - //TODO: Implement - Result := 0; -end; - -{------------------------------------------------------------------------------ - Function: CListBoxCreateHandle - Params: ACListBox: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TWin32WidgetSet.CListBoxCreateHandle(const ACListBox: TObject; const AParams: TCreateParams): THandle; -begin - //TODO: Implement - Result := 0; -end; - -{------------------------------------------------------------------------------ - Function: ColorDialogCreateHandle - Params: AColorDialog: - Returns: - - ------------------------------------------------------------------------------} -function TWin32WidgetSet.ColorDialogCreateHandle(const AColorDialog: TObject): THandle; -begin - //TODO: Implement - Result := 0; -end; - -{------------------------------------------------------------------------------ - Function: ComboBoxCreateHandle - Params: AComboBox: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TWin32WidgetSet.ComboBoxCreateHandle(const AComboBox: TObject; const AParams: TCreateParams): THandle; -begin - //TODO: Implement - Result := 0; -end; - -{------------------------------------------------------------------------------ - Function: EditCreateHandle - Params: AEdit: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TWin32WidgetSet.EditCreateHandle(const AEdit: TObject; const AParams: TCreateParams): THandle; -begin - //TODO: Implement - Result := 0; -end; - -{------------------------------------------------------------------------------ - Function: FileDialogCreateHandle - Params: AFileDialog: - Returns: - - ------------------------------------------------------------------------------} -function TWin32WidgetSet.FileDialogCreateHandle(const AFileDialog: TObject): THandle; -begin - //TODO: Implement - Result := 0; -end; - -{------------------------------------------------------------------------------ - Function: FontDialogCreateHandle - Params: AFontDialog: - Returns: - - ------------------------------------------------------------------------------} -function TWin32WidgetSet.FontDialogCreateHandle(const AFontDialog: TObject): THandle; -begin - //TODO: Implement - Result := 0; -end; - -{------------------------------------------------------------------------------ - Function: FormCreateHandle - Params: AForm: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TWin32WidgetSet.FormCreateHandle(const AForm: TObject; const AParams: TCreateParams): THandle; -begin - //TODO: Implement - Result := 0; -end; - {------------------------------------------------------------------------------ Function: GetAcceleratorString Params: AVKey: @@ -279,375 +101,6 @@ begin end; end; -{------------------------------------------------------------------------------ - Function: GroupBoxCreateHandle - Params: AGroupBox: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TWin32WidgetSet.GroupBoxCreateHandle(const AGroupBox: TObject; const AParams: TCreateParams): THandle; -begin - //TODO: Implement - Result := 0; -end; - -{------------------------------------------------------------------------------ - Function: HintWindowCreateHandle - Params: AHintWindow: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TWin32WidgetSet.HintWindowCreateHandle(const AHintWindow: TObject; const AParams: TCreateParams): THandle; -begin - //TODO: Implement - Result := 0; -end; - -{------------------------------------------------------------------------------ - Function: ImageCreateHandle - Params: AImage: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TWin32WidgetSet.ImageCreateHandle(const AImage: TObject; const AParams: TCreateParams): THandle; -begin - //TODO: Implement - Result := 0; -end; - -{------------------------------------------------------------------------------ - Function: IntfCreateHandle - Params: AObject: - AParams: - Returns: - - This is a temporary routine until all controls are created directly - ------------------------------------------------------------------------------} -function TWin32WidgetSet.IntfCreateHandle(const AObject: TObject; const AParams: TCreateParams): THandle; -begin - Result := CreateComponent(AObject); -end; - -{------------------------------------------------------------------------------ - Function: LabelCreateHandle - Params: ALabel: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TWin32WidgetSet.LabelCreateHandle(const ALabel: TObject; const AParams: TCreateParams): THandle; -begin - //TODO: Implement - Result := 0; -end; - -{------------------------------------------------------------------------------ - Function: ListBoxCreateHandle - Params: AListBox: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TWin32WidgetSet.ListBoxCreateHandle(const AListBox: TObject; const AParams: TCreateParams): THandle; -begin - //TODO: Implement - Result := 0; -end; - -{------------------------------------------------------------------------------ - Function: ListViewCreateHandle - Params: AListView: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TWin32WidgetSet.ListViewCreateHandle(const AListView: TObject; const AParams: TCreateParams): THandle; -begin - //TODO: Implement - Result := 0; -end; - -{------------------------------------------------------------------------------ - Function: MainMenuCreateHandle - Params: AMainMenu: - Returns: - - ------------------------------------------------------------------------------} -function TWin32WidgetSet.MainMenuCreateHandle(const AMainMenu: TObject): THandle; -begin - //TODO: Implement - Result := 0; -end; - -{------------------------------------------------------------------------------ - Function: MemoCreateHandle - Params: AMemo: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TWin32WidgetSet.MemoCreateHandle(const AMemo: TObject; const AParams: TCreateParams): THandle; -begin - //TODO: Implement - Result := 0; -end; - -{------------------------------------------------------------------------------ - Function: MenuItemCreateHandle - Params: AMenuItem: - Returns: - - ------------------------------------------------------------------------------} -function TWin32WidgetSet.MenuItemCreateHandle(const AMenuItem: TObject): THandle; -begin - //TODO: Implement - Result := 0; -end; - -{------------------------------------------------------------------------------ - Function: NotebookCreateHandle - Params: ANotebook: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TWin32WidgetSet.NotebookCreateHandle(const ANotebook: TObject; const AParams: TCreateParams): THandle; -begin - //TODO: Implement - Result := 0; -end; - -{------------------------------------------------------------------------------ - Function: OpenFileDialogCreateHandle - Params: AOpenFileDialog: - Returns: - - ------------------------------------------------------------------------------} -function TWin32WidgetSet.OpenFileDialogCreateHandle(const AOpenFileDialog: TObject): THandle; -begin - //TODO: Implement - Result := 0; -end; - -{------------------------------------------------------------------------------ - Function: PageCreateHandle - Params: APage: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TWin32WidgetSet.PageCreateHandle(const APage: TObject; const AParams: TCreateParams): THandle; -begin - //TODO: Implement - Result := 0; -end; - -{------------------------------------------------------------------------------ - Function: PairSplitterCreateHandle - Params: APairSplitter: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TWin32WidgetSet.PairSplitterCreateHandle(const APairSplitter: TObject; const AParams: TCreateParams): THandle; -begin - //TODO: Implement - Result := 0; -end; - -{------------------------------------------------------------------------------ - Function: PairSplitterSideCreateHandle - Params: APairSplitterSide: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TWin32WidgetSet.PairSplitterSideCreateHandle(const APairSplitterSide: TObject; const AParams: TCreateParams): THandle; -begin - //TODO: Implement - Result := 0; -end; - -{------------------------------------------------------------------------------ - Function: PanelCreateHandle - Params: APanel: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TWin32WidgetSet.PanelCreateHandle(const APanel: TObject; const AParams: TCreateParams): THandle; -begin - //TODO: Implement - Result := 0; -end; - -{------------------------------------------------------------------------------ - Function: PopupMenuCreateHandle - Params: APopupMenu: - Returns: - - ------------------------------------------------------------------------------} -function TWin32WidgetSet.PopupMenuCreateHandle(const APopupMenu: TObject): THandle; -begin - //TODO: Implement - Result := 0; -end; - -{------------------------------------------------------------------------------ - Function: PreviewFileControlCreateHandle - Params: APreviewFileControl: - Returns: - - ------------------------------------------------------------------------------} -function TWin32WidgetSet.PreviewFileControlCreateHandle(const APreviewFileControl: TObject): THandle; -begin - //TODO: Implement - Result := 0; -end; - -{------------------------------------------------------------------------------ - Function: PreviewFileDialogCreateHandle - Params: APreviewFileDialog: - Returns: - - ------------------------------------------------------------------------------} -function TWin32WidgetSet.PreviewFileDialogCreateHandle(const APreviewFileDialog: TObject): THandle; -begin - //TODO: Implement - Result := 0; -end; - -{------------------------------------------------------------------------------ - Function: ProgressBarCreateHandle - Params: AProgressBar: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TWin32WidgetSet.ProgressBarCreateHandle(const AProgressBar: TObject; const AParams: TCreateParams): THandle; -begin - //TODO: Implement - Result := 0; -end; - -{------------------------------------------------------------------------------ - Function: RadioButtonCreateHandle - Params: ARadioButton: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TWin32WidgetSet.RadioButtonCreateHandle(const ARadioButton: TObject; const AParams: TCreateParams): THandle; -begin - //TODO: Implement - Result := 0; -end; - -{------------------------------------------------------------------------------ - Function: SaveFileDialogCreateHandle - Params: ASaveFileDialog: - Returns: - - ------------------------------------------------------------------------------} -function TWin32WidgetSet.SaveFileDialogCreateHandle(const ASaveFileDialog: TObject): THandle; -begin - //TODO: Implement - Result := 0; -end; - -{------------------------------------------------------------------------------ - Function: ScrollBarCreateHandle - Params: AScrollBar: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TWin32WidgetSet.ScrollBarCreateHandle(const AScrollBar: TObject; const AParams: TCreateParams): THandle; -begin - //TODO: Implement - Result := 0; -end; - -{------------------------------------------------------------------------------ - Function: ScrollBoxCreateHandle - Params: AScrollBox: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TWin32WidgetSet.ScrollBoxCreateHandle(const AScrollBox: TObject; const AParams: TCreateParams): THandle; -begin - //TODO: Implement - Result := 0; -end; - -{------------------------------------------------------------------------------ - Function: ScrolledWindowCreateHandle - Params: AScrolledWindow: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TWin32WidgetSet.ScrolledWindowCreateHandle(const AScrolledWindow: TObject; const AParams: TCreateParams): THandle; -begin - //TODO: Implement - Result := 0; -end; - -{------------------------------------------------------------------------------ - Function: SelectDirectoryDialogCreateHandle - Params: ASelectDirectoryDialog: - Returns: - - ------------------------------------------------------------------------------} -function TWin32WidgetSet.SelectDirectoryDialogCreateHandle(const ASelectDirectoryDialog: TObject): THandle; -begin - //TODO: Implement - Result := 0; -end; - -{------------------------------------------------------------------------------ - Function: SpeedButtonCreateHandle - Params: ASpeedButton: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TWin32WidgetSet.SpeedButtonCreateHandle(const ASpeedButton: TObject; const AParams: TCreateParams): THandle; -begin - //TODO: Implement - Result := 0; -end; - -{------------------------------------------------------------------------------ - Function: SpineditCreateHandle - Params: ASpinEdit: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TWin32WidgetSet.SpineditCreateHandle(const ASpinEdit: TObject; const AParams: TCreateParams): THandle; -begin - //TODO: Implement - Result := 0; -end; - -{------------------------------------------------------------------------------ - Function: StatusBarCreateHandle - Params: AStatusBar: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TWin32WidgetSet.StatusBarCreateHandle(const AStatusBar: TObject; const AParams: TCreateParams): THandle; -begin - //TODO: Implement - Result := 0; -end; - {------------------------------------------------------------------------------ Function: MenuItemSetCheck Params: BaseMenuItem @@ -743,76 +196,14 @@ begin end; end; -{------------------------------------------------------------------------------ - Function: ToggleBoxCreateHandle - Params: AToggleBox: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TWin32WidgetSet.ToggleBoxCreateHandle(const AToggleBox: TObject; const AParams: TCreateParams): THandle; -begin - //TODO: Implement - Result := 0; -end; - -{------------------------------------------------------------------------------ - Function: ToolbarCreateHandle - Params: AToolbar: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TWin32WidgetSet.ToolbarCreateHandle(const AToolbar: TObject; const AParams: TCreateParams): THandle; -begin - //TODO: Implement - Result := 0; -end; - -{------------------------------------------------------------------------------ - Function: ToolButtonCreateHandle - Params: AToolButton: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TWin32WidgetSet.ToolButtonCreateHandle(const AToolButton: TObject; const AParams: TCreateParams): THandle; -begin - //TODO: Implement - Result := 0; -end; - -{------------------------------------------------------------------------------ - Function: TrackBarCreateHandle - Params: ATrackBar: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TWin32WidgetSet.TrackBarCreateHandle(const ATrackBar: TObject; const AParams: TCreateParams): THandle; -begin - //TODO: Implement - Result := 0; -end; - -{------------------------------------------------------------------------------ - Function: WincontrolCreateHandle - Params: AFixed: - AParams: - Returns: - - ------------------------------------------------------------------------------} -function TWin32WidgetSet.WincontrolCreateHandle(const AFixed: TObject; const AParams: TCreateParams): THandle; -begin - //TODO: Implement - Result := 0; -end; - //##apiwiz##eps## // Do not remove, no wizard declaration after this line { ============================================================================= $Log$ + Revision 1.17 2004/03/19 00:53:34 marc + * Removed all ComponentCreateHandle routines + Revision 1.16 2004/03/05 01:04:21 marc * Renamed TWin32Object to TWin32WidgetSet diff --git a/lcl/interfaces/win32/win32lclintfh.inc b/lcl/interfaces/win32/win32lclintfh.inc index 8b14271964..e8cdf527ad 100644 --- a/lcl/interfaces/win32/win32lclintfh.inc +++ b/lcl/interfaces/win32/win32lclintfh.inc @@ -27,86 +27,28 @@ } //##apiwiz##sps## // Do not remove -function AlignmentCreateHandle(const AAlignment: TObject; const AParams: TCreateParams): THandle; override; -function ArrowCreateHandle(const AArrow: TObject; const AParams: TCreateParams): THandle; override; - -function BitBtnCreateHandle(const ABitBtn: TObject; const AParams: TCreateParams): THandle; override; -function ButtonCreateHandle(const AButton: TObject; const AParams: TCreateParams): THandle; override; - -function CalendarCreateHandle(const ACalendar: TObject; const AParams: TCreateParams): THandle; override; -function CheckboxCreateHandle(const ACheckBox: TObject; const AParams: TCreateParams): THandle; override; -function CheckListBoxCreateHandle(const ACheckListBox: TObject; const AParams: TCreateParams): THandle; override; -function CListBoxCreateHandle(const ACListBox: TObject; const AParams: TCreateParams): THandle; override; -function ColorDialogCreateHandle(const AColorDialog: TObject): THandle; override; -function ComboBoxCreateHandle(const AComboBox: TObject; const AParams: TCreateParams): THandle; override; procedure DrawArrow(Arrow: TComponent; Canvas: TPersistent); override; -function EditCreateHandle(const AEdit: TObject; const AParams: TCreateParams): THandle; override; - -function FileDialogCreateHandle(const AFileDialog: TObject): THandle; override; -function FontDialogCreateHandle(const AFontDialog: TObject): THandle; override; -function FormCreateHandle(const AForm: TObject; const AParams: TCreateParams): THandle; override; - function GetAcceleratorString(const AVKey: Byte; const AShiftState: TShiftState): String; override; function GetControlConstraints(Constraints: TObject): boolean; override; function GetListBoxIndexAtY(ListBox: TComponent; y: integer): integer; override; -function GroupBoxCreateHandle(const AGroupBox: TObject; const AParams: TCreateParams): THandle; override; -function HintWindowCreateHandle(const AHintWindow: TObject; const AParams: TCreateParams): THandle; override; - -function ImageCreateHandle(const AImage: TObject; const AParams: TCreateParams): THandle; override; -function IntfCreateHandle(const AObject: TObject; const AParams: TCreateParams): THandle; override; - -function LabelCreateHandle(const ALabel: TObject; const AParams: TCreateParams): THandle; override; -function ListBoxCreateHandle(const AListBox: TObject; const AParams: TCreateParams): THandle; override; -function ListViewCreateHandle(const AListView: TObject; const AParams: TCreateParams): THandle; override; - -function MainMenuCreateHandle(const AMainMenu: TObject): THandle; override; -function MemoCreateHandle(const AMemo: TObject; const AParams: TCreateParams): THandle; override; -function MenuItemCreateHandle(const AMenuItem: TObject): THandle; override; function MenuItemSetCheck(BaseMenuItem: TComponent): Boolean; override; function MenuItemSetEnable(BaseMenuItem: TComponent): Boolean; override; -function NotebookCreateHandle(const ANotebook: TObject; const AParams: TCreateParams): THandle; override; - -function OpenFileDialogCreateHandle(const AOpenFileDialog: TObject): THandle; override; - -function PageCreateHandle(const APage: TObject; const AParams: TCreateParams): THandle; override; -function PairSplitterCreateHandle(const APairSplitter: TObject; const AParams: TCreateParams): THandle; override; -function PairSplitterSideCreateHandle(const APairSplitterSide: TObject; const AParams: TCreateParams): THandle; override; -function PanelCreateHandle(const APanel: TObject; const AParams: TCreateParams): THandle; override; -function PopupMenuCreateHandle(const APopupMenu: TObject): THandle; override; -function PreviewFileControlCreateHandle(const APreviewFileControl: TObject): THandle; override; -function PreviewFileDialogCreateHandle(const APreviewFileDialog: TObject): THandle; override; -function ProgressBarCreateHandle(const AProgressBar: TObject; const AParams: TCreateParams): THandle; override; - -function RadioButtonCreateHandle(const ARadioButton: TObject; const AParams: TCreateParams): THandle; override; - -function SaveFileDialogCreateHandle(const ASaveFileDialog: TObject): THandle; override; -function ScrollBarCreateHandle(const AScrollBar: TObject; const AParams: TCreateParams): THandle; override; -function ScrollBoxCreateHandle(const AScrollBox: TObject; const AParams: TCreateParams): THandle; override; -function ScrolledWindowCreateHandle(const AScrolledWindow: TObject; const AParams: TCreateParams): THandle; override; -function SelectDirectoryDialogCreateHandle(const ASelectDirectoryDialog: TObject): THandle; override; -function SpeedButtonCreateHandle(const ASpeedButton: TObject; const AParams: TCreateParams): THandle; override; -function SpineditCreateHandle(const ASpinEdit: TObject; const AParams: TCreateParams): THandle; override; -function StatusBarCreateHandle(const AStatusBar: TObject; const AParams: TCreateParams): THandle; override; procedure StatusBarPanelUpdate(StatusBar: TObject; PanelIndex: integer); override; procedure StatusBarSetText(StatusBar: TObject; PanelIndex: integer); override; procedure StatusBarUpdate(StatusBar: TObject); override; -function ToggleBoxCreateHandle(const AToggleBox: TObject; const AParams: TCreateParams): THandle; override; - -function ToolbarCreateHandle(const AToolbar: TObject; const AParams: TCreateParams): THandle; override; -function ToolButtonCreateHandle(const AToolButton: TObject; const AParams: TCreateParams): THandle; override; -function TrackBarCreateHandle(const ATrackBar: TObject; const AParams: TCreateParams): THandle; override; - -function WincontrolCreateHandle(const AFixed: TObject; const AParams: TCreateParams): THandle; override; //##apiwiz##eps## // Do not remove, no wizard declaration after this line { ============================================================================= $Log$ + Revision 1.14 2004/03/19 00:53:34 marc + * Removed all ComponentCreateHandle routines + Revision 1.13 2004/02/27 00:42:41 marc * Interface CreateComponent splitup * Implemented CreateButtonHandle on GTK interface diff --git a/lcl/widgetset/wslclclasses.pp b/lcl/widgetset/wslclclasses.pp index 84bd1c0be7..edf73d8213 100644 --- a/lcl/widgetset/wslclclasses.pp +++ b/lcl/widgetset/wslclclasses.pp @@ -96,7 +96,7 @@ function TWSLCLComponent.CreateHandle(const AComponent: TComponent; const AParams: TCreateParams): THandle; begin // For now default to the old creation routines - Result := InterfaceObject.IntfCreateHandle(AComponent, AParams); + Result := InterfaceObject.CreateComponent(AComponent); end; initialization