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

wince: fix visibility warnings

Browse Source 
git-svn-id: trunk@18654 -
This commit is contained in:
paul 2009-02-13 06:28:09 +00:00
parent d631c7a964
commit 554ea6800f
12 changed files with 53 additions and 112 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
lcl/interfaces/wince/wincelistslh.inc
View File

@ -10,7 +10,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
@ -26,9 +26,9 @@
{$H+}
{$ENDIF}
Type
TWinCEListStringList = Class(TStrings)
Private
type
TWinCEListStringList = class(TStrings)
private
FWinCEList: HWND;
FSorted: Boolean;
FSender: TWinControl;
@ -49,25 +49,25 @@ Type
FFlagSetItemIndex: cardinal;
FFlagGetSelected: cardinal;
FFlagsetSelected: cardinal;
Protected
function Add(const S: string): Integer; override;
function Get(Index: Integer): String; Override;
function GetCount: Integer; Override;
function GetObject(Index: Integer): TObject; Override;
protected
function Get(Index: Integer): String; override;
function GetCount: Integer; override;
function GetObject(Index: Integer): TObject; override;
procedure Put(Index: integer; const S: string); override;
procedure PutObject(Index: Integer; AObject: TObject); Override;
procedure PutObject(Index: Integer; AObject: TObject); override;
procedure InitFlags; virtual;
procedure SetSorted(Val: Boolean); Virtual;
Public
public
Constructor Create(List : HWND; TheOwner: TWinControl);
procedure Assign(Source: TPersistent); Override;
function Add(const S: string): Integer; override;
procedure Clear; Override;
procedure Delete(Index: Integer); Override;
procedure Insert(Index: Integer; Const S: String); Override;
procedure Sort; Virtual;
Property Sorted: Boolean Read FSorted Write SetSorted;
End;
property Sorted: Boolean Read FSorted Write SetSorted;
end;
TWinCEComboBoxStringList = class(TWinCEListStringList)
private

6
lcl/interfaces/wince/wincewsarrow.pp
View File

@ -10,7 +10,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
@ -41,9 +41,7 @@ type
{ TWinCEWSArrow }
TWinCEWSArrow = class(TWSArrow)
private
protected
public
published
class procedure SetType(const AArrow: TArrow; const AArrowType: TArrowType;
const AShadowType: TShadowType); override;
end;

6
lcl/interfaces/wince/wincewsbuttons.pp
View File

@ -11,7 +11,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
@ -40,9 +40,7 @@ type
{ TWinCEWSBitBtn }
TWinCEWSBitBtn = class(TWSBitBtn)
private
protected
public
published
class function CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): HWND; override;
class procedure GetPreferredSize(const AWinControl: TWinControl;

6
lcl/interfaces/wince/wincewschecklst.pp
View File

@ -10,7 +10,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
@ -43,9 +43,7 @@ type
{ TWinCEWSCustomCheckListBox }
TWinCEWSCustomCheckListBox = class(TWSCustomCheckListBox)
private
protected
public
published
class function GetStrings(const ACustomListBox: TCustomListBox): TStrings; override;
class function GetState(const ACheckListBox: TCustomCheckListBox;
const AIndex: integer): TCheckBoxState; override;

15
lcl/interfaces/wince/wincewscomctrls.pp
View File

@ -42,9 +42,7 @@ type
{ TWinCEWSStatusBar }
TWinCEWSStatusBar = class(TWSStatusBar)
private
protected
public
published
class function CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): HWND; override;
class procedure Update(const AStatusBar: TStatusBar); override;
@ -82,8 +80,7 @@ type
class procedure PositionHeader(const AHandle: THandle);
class procedure UpdateStyle(const AHandle: THandle; const AMask, AStyle: Integer);
class procedure UpdateExStyle(const AHandle: THandle; const AMask, AStyle: Integer);
protected
public
published
// columns
class procedure ColumnDelete(const ALV: TCustomListView; const AIndex: Integer); override;
class function ColumnGetWidth(const ALV: TCustomListView; const AIndex: Integer; const AColumn: TListColumn): Integer; override;
@ -148,9 +145,7 @@ type
{ TWinCEWSProgressBar }
TWinCEWSProgressBar = class(TWSProgressBar)
private
protected
public
published
class function CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): HWND; override;
class procedure ApplyChanges(const AProgressBar: TCustomProgressBar); override;
@ -192,9 +187,7 @@ type
{ TWinCEWSTrackBar }
TWinCEWSTrackBar = class(TWSTrackBar)
private
protected
public
published
class function CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): HWND; override;
class procedure ApplyChanges(const ATrackBar: TCustomTrackBar); override;

10
lcl/interfaces/wince/wincewscontrols.pp
View File

@ -11,7 +11,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
@ -41,9 +41,7 @@ type
{ TWinCEWSDragImageList }
TWinCEWSDragImageList = class(TWSDragImageList)
private
protected
public
published
class function BeginDrag(const ADragImageList: TDragImageList; Window: HWND;
AIndex, X, Y: Integer): Boolean; override;
class function DragMove(const ADragImageList: TDragImageList; X, Y: Integer): Boolean; override;
@ -75,9 +73,7 @@ type
{ TWinCEWSWinControl }
TWinCEWSWinControl = class(TWSWinControl)
private
protected
public
published
class procedure AddControl(const AControl: TControl); override;
class function GetText(const AWinControl: TWinControl; var AText: String): Boolean; override;

8
lcl/interfaces/wince/wincewsextctrls.pp
View File

@ -41,9 +41,7 @@ type
{ TWinCEWSCustomPage }
TWinCEWSCustomPage = class(TWSCustomPage)
private
protected
public
published
class function CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): HWND; override;
class procedure DestroyHandle(const AWinControl: TWinControl); override;
@ -54,9 +52,7 @@ type
{ TWinCEWSCustomNotebook }
TWinCEWSCustomNotebook = class(TWSCustomNotebook)
private
protected
public
published
class function CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): HWND; override;
class procedure AddAllNBPages(const ANotebook: TCustomNotebook);

14
lcl/interfaces/wince/wincewsforms.pp
View File

@ -11,7 +11,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
@ -39,9 +39,7 @@ type
{ TWinCEWSScrollingWinControl }
TWinCEWSScrollingWinControl = class(TWSScrollingWinControl)
private
protected
public
published
class procedure ScrollBy(const AWinControl: TScrollingWinControl;
const DeltaX, DeltaY: integer); override;
end;
@ -49,9 +47,7 @@ type
{ TWinCEWSScrollBox }
TWinCEWSScrollBox = class(TWSScrollBox)
private
protected
public
published
class function CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): HWND; override;
end;
@ -75,9 +71,7 @@ type
{ TWinCEWSCustomForm }
TWinCEWSCustomForm = class(TWSCustomForm)
private
protected
public
published
class function CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): HWND; override;
class procedure CloseModal(const ACustomForm: TCustomForm); override;

4
lcl/interfaces/wince/wincewsimglist.pp
View File

@ -11,7 +11,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
@ -43,7 +43,7 @@ type
private
protected
class procedure AddData(AListHandle: TLCLIntfHandle; ACount, AReplaceIndex, AWidth, AHeight: Integer; AData: PRGBAQuad);
public
published
class procedure Clear(AList: TCustomImageList); override;
class function CreateReference(AList: TCustomImageList; ACount, AGrow, AWidth,
AHeight: Integer; AData: PRGBAQuad): TWSCustomImageListReference; override;

14
lcl/interfaces/wince/wincewsmenus.pp
View File

@ -10,7 +10,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
@ -41,9 +41,7 @@ type
{ TWinCEWSMenuItem }
TWinCEWSMenuItem = class(TWSMenuItem)
private
protected
public
published
class procedure AttachMenu(const AMenuItem: TMenuItem); override;
class function CreateHandle(const AMenuItem: TMenuItem): HMENU; override;
class procedure DestroyHandle(const AMenuItem: TMenuItem); override;
@ -58,9 +56,7 @@ type
{ TWinCEWSMenu }
TWinCEWSMenu = class(TWSMenu)
private
protected
public
published
class function CreateHandle(const AMenu: TMenu): HMENU; override;
end;
@ -75,9 +71,7 @@ type
{ TWinCEWSPopupMenu }
TWinCEWSPopupMenu = class(TWSPopupMenu)
private
protected
public
published
class function CreateHandle(const AMenu: TMenu): HMENU; override;
class procedure Popup(const APopupMenu: TPopupMenu; const X, Y: integer); override;
end;

6
lcl/interfaces/wince/wincewsspin.pp
View File

@ -10,7 +10,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
@ -42,9 +42,7 @@ type
{ TWinCEWSCustomFloatSpinEdit }
TWinCEWSCustomFloatSpinEdit = class(TWSCustomFloatSpinEdit)
private
protected
public
published
class procedure AdaptBounds(const AWinControl: TWinControl;
var Left, Top, Width, Height: integer; var SuppressMove: boolean); override;
class function CreateHandle(const AWinControl: TWinControl;

50
lcl/interfaces/wince/wincewsstdctrls.pp
View File

@ -11,7 +11,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
@ -43,9 +43,7 @@ type
{ TWinCEWSScrollBar }
TWinCEWSScrollBar = class(TWSScrollBar)
private
protected
public
published
class function CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): HWND; override;
class procedure SetParams(const AScrollBar: TCustomScrollBar); override;
@ -54,9 +52,7 @@ type
{ TWinCEWSCustomGroupBox }
TWinCEWSCustomGroupBox = class(TWSCustomGroupBox)
private
protected
public
published
class function CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): HWND; override;
class procedure AdaptBounds(const AWinControl: TWinControl;
@ -74,9 +70,7 @@ type
{ TWinCEWSCustomComboBox }
TWinCEWSCustomComboBox = class(TWSCustomComboBox)
private
protected
public
published
class function CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): HWND; override;
class procedure AdaptBounds(const AWinControl: TWinControl;
@ -112,9 +106,7 @@ type
{ TWinCEWSCustomListBox }
TWinCEWSCustomListBox = class(TWSCustomListBox)
private
protected
public
published
class function CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): HWND; override;
class function GetIndexAtXY(const ACustomListBox: TCustomListBox; X, Y: integer): integer; override;
@ -147,9 +139,7 @@ type
{ TWinCEWSCustomEdit }
TWinCEWSCustomEdit = class(TWSCustomEdit)
private
protected
public
published
class function CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): HWND; override;
class function GetSelStart(const ACustomEdit: TCustomEdit): integer; override;
@ -169,9 +159,7 @@ type
{ TWinCEWSCustomMemo }
TWinCEWSCustomMemo = class(TWSCustomMemo)
private
protected
public
published
class function CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): HWND; override;
class function GetStrings(const ACustomMemo: TCustomMemo): TStrings; override;
@ -200,9 +188,7 @@ type
{ TWinCEWSCustomStaticText }
TWinCEWSCustomStaticText = class(TWSCustomStaticText)
private
protected
public
published
class function CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): HWND; override;
class procedure SetAlignment(const ACustomStaticText: TCustomStaticText; const NewAlignment: TAlignment); override;
@ -219,9 +205,7 @@ type
{ TWinCEWSButtonControl }
TWinCEWSButtonControl = class(TWSButtonControl)
private
protected
public
published
class procedure GetPreferredSize(const AWinControl: TWinControl;
var PreferredWidth, PreferredHeight: integer;
WithThemeSpace: Boolean); override;
@ -230,9 +214,7 @@ type
{ TWinCEWSButton }
TWinCEWSButton = class(TWSButton)
private
protected
public
published
class function CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): TLCLIntfHandle; override;
// class procedure SetDefault(const AButton: TCustomButton; ADefault: Boolean); override;
// class procedure SetShortcut(const AButton: TCustomButton; const OldShortcut, NewShortcut: TShortcut); override;
@ -242,9 +224,7 @@ type
{ TWinCEWSCustomCheckBox }
TWinCEWSCustomCheckBox = class(TWSCustomCheckBox)
private
protected
public
published
class function CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): HWND; override;
class procedure GetPreferredSize(const AWinControl: TWinControl;
@ -267,9 +247,7 @@ type
{ TWinCEWSToggleBox }
TWinCEWSToggleBox = class(TWSToggleBox)
private
protected
public
published
class function CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): HWND; override;
end;
@ -277,9 +255,7 @@ type
{ TWinCEWSRadioButton }
TWinCEWSRadioButton = class(TWSRadioButton)
private
protected
public
published
class function CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): HWND; override;
end;