paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 08:19:53 +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 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; const AParams: TCreateParams): HWND;
var var
QtFrame: TQtFrame; QtFrame: TQtFrame;
@ -248,7 +248,7 @@ end;
Releases allocated memory and resources Releases allocated memory and resources
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
procedure TQtWSCustomPanel.DestroyHandle(const AWinControl: TWinControl); class procedure TQtWSCustomPanel.DestroyHandle(const AWinControl: TWinControl);
begin begin
TQtFrame(AWinControl.Handle).Free; TQtFrame(AWinControl.Handle).Free;
@ -264,7 +264,7 @@ end;
Allocates memory and resources for the control and shows it 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; const AParams: TCreateParams): HWND;
var var
QtWidget: TQtWidget; QtWidget: TQtWidget;
@ -283,14 +283,14 @@ end;
Releases allocated memory and resources Releases allocated memory and resources
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
procedure TQtWSCustomPage.DestroyHandle(const AWinControl: TWinControl); class procedure TQtWSCustomPage.DestroyHandle(const AWinControl: TWinControl);
begin begin
TQtWidget(AWinControl.Handle).Free; TQtWidget(AWinControl.Handle).Free;
AWinControl.Handle := 0; AWinControl.Handle := 0;
end; end;
procedure TQtWSCustomPage.SetText(const AWinControl: TWinControl; class procedure TQtWSCustomPage.SetText(const AWinControl: TWinControl;
const AText: string); const AText: string);
begin begin
inherited SetText(AWinControl, AText); inherited SetText(AWinControl, AText);
@ -305,7 +305,7 @@ end;
Allocates memory and resources for the control and shows it 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 var
QtTabWidget: TQtTabWidget; QtTabWidget: TQtTabWidget;
begin begin
@ -335,7 +335,7 @@ begin
end; end;
procedure TQtWSCustomNotebook.AddPage(const ANotebook: TCustomNotebook; class procedure TQtWSCustomNotebook.AddPage(const ANotebook: TCustomNotebook;
const AChild: TCustomPage; const AIndex: integer); const AChild: TCustomPage; const AIndex: integer);
var var
Str: WideString; Str: WideString;

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

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