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

added class keyword to proc bodies for fpc 2.1.1

Browse Source 
git-svn-id: trunk@9372 -
This commit is contained in:
vincents 2006-05-29 09:36:27 +00:00
parent ed3bafe87a
commit 77ba6ead64
2 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lcl/interfaces/qt/qtwsextctrls.pp
View File

@ -226,7 +226,7 @@ implementation
Allocates memory and resources for the control and shows it
------------------------------------------------------------------------------}
function TQtWSCustomPanel.CreateHandle(const AWinControl: TWinControl;
class function TQtWSCustomPanel.CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): HWND;
var
QtFrame: TQtFrame;
@ -248,7 +248,7 @@ end;
Releases allocated memory and resources
------------------------------------------------------------------------------}
procedure TQtWSCustomPanel.DestroyHandle(const AWinControl: TWinControl);
class procedure TQtWSCustomPanel.DestroyHandle(const AWinControl: TWinControl);
begin
TQtFrame(AWinControl.Handle).Free;
@ -264,7 +264,7 @@ end;
Allocates memory and resources for the control and shows it
------------------------------------------------------------------------------}
function TQtWSCustomPage.CreateHandle(const AWinControl: TWinControl;
class function TQtWSCustomPage.CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): HWND;
var
QtWidget: TQtWidget;
@ -283,14 +283,14 @@ end;
Releases allocated memory and resources
------------------------------------------------------------------------------}
procedure TQtWSCustomPage.DestroyHandle(const AWinControl: TWinControl);
class procedure TQtWSCustomPage.DestroyHandle(const AWinControl: TWinControl);
begin
TQtWidget(AWinControl.Handle).Free;
AWinControl.Handle := 0;
end;
procedure TQtWSCustomPage.SetText(const AWinControl: TWinControl;
class procedure TQtWSCustomPage.SetText(const AWinControl: TWinControl;
const AText: string);
begin
inherited SetText(AWinControl, AText);
@ -305,7 +305,7 @@ end;
Allocates memory and resources for the control and shows it
------------------------------------------------------------------------------}
function TQtWSCustomNotebook.CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): HWND;
class function TQtWSCustomNotebook.CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): HWND;
var
QtTabWidget: TQtTabWidget;
begin
@ -335,7 +335,7 @@ begin
end;
procedure TQtWSCustomNotebook.AddPage(const ANotebook: TCustomNotebook;
class procedure TQtWSCustomNotebook.AddPage(const ANotebook: TCustomNotebook;
const AChild: TCustomPage; const AIndex: integer);
var
Str: WideString;

6
lcl/interfaces/qt/qtwsspin.pp
View File

@ -65,7 +65,7 @@ implementation
Params: None
Returns: Nothing
------------------------------------------------------------------------------}
function TQtWSCustomFloatSpinEdit.CreateHandle(const AWinControl: TWinControl;
class function TQtWSCustomFloatSpinEdit.CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): HWND;
var
QtSpinBox: TQtSpinBox;
@ -82,7 +82,7 @@ end;
Params: None
Returns: Nothing
------------------------------------------------------------------------------}
procedure TQtWSCustomFloatSpinEdit.DestroyHandle(const AWinControl: TWinControl);
class procedure TQtWSCustomFloatSpinEdit.DestroyHandle(const AWinControl: TWinControl);
begin
TQtSpinBox(AWinControl.Handle).Free;
@ -100,4 +100,4 @@ initialization
RegisterWSComponent(TCustomFloatSpinEdit, TQtWSCustomFloatSpinEdit);
// RegisterWSComponent(TFloatSpinEdit, TQtWSFloatSpinEdit);
////////////////////////////////////////////////////
end.
end.