paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 12:09:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Removed all ComponentCreateHandle routines

Browse Source 
git-svn-id: trunk@5330 -
This commit is contained in:
marc 2004-03-19 00:53:34 +00:00
parent 6fa23e9181
commit 1b18ec2ef4
17 changed files with 61 additions and 3782 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

285
lcl/include/intfbaselcl.inc
View File

@ -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

238
lcl/include/lclintf.inc
View File

@ -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

59
lcl/include/lclintfh.inc
View File

@ -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

5
lcl/interfacebase.pp
View File

@ -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

558
lcl/interfaces/gnome/gnomelclintf.inc
View File

@ -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
}

73
lcl/interfaces/gnome/gnomelclintfh.inc
View File

@ -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
}

6
lcl/interfaces/gtk/gtkint.pp
View File

@ -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

603
lcl/interfaces/gtk/gtklclintf.inc
View File

@ -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

65
lcl/interfaces/gtk/gtklclintfh.inc
View File

@ -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

558
lcl/interfaces/gtk2/gtk2lclintf.inc
View File

@ -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
}

74
lcl/interfaces/gtk2/gtk2lclintfh.inc
View File

@ -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
}

558
lcl/interfaces/qt/qtlclintf.inc
View File

@ -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
}

74
lcl/interfaces/qt/qtlclintfh.inc
View File

@ -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
}

6
lcl/interfaces/win32/win32int.pp
View File

@ -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

615
lcl/interfaces/win32/win32lclintf.inc
View File

@ -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

64
lcl/interfaces/win32/win32lclintfh.inc
View File

@ -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

2
lcl/widgetset/wslclclasses.pp
View File

@ -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