paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-13 05:29:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fixes the compilation of the wince widgetset and cleanup a useless define. Fixes bug #19739

Browse Source 
git-svn-id: trunk@31701 -
This commit is contained in:
sekelsenmat 2011-07-14 13:13:34 +00:00
parent 14fabdf99b
commit 0c7f706dd4
4 changed files with 0 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lcl/interfaces/win32/win32pagecontrol.inc
View File

@ -463,19 +463,6 @@ begin
AdjustSizeNotebookPages(ANotebook);
end;
{$IFDEF old}
class function TWin32WSCustomNotebook.GetPageRealIndex(const ANotebook: TCustomNotebook; AIndex: Integer): Integer;
var
X: Integer;
begin
Result := AIndex;
if csDesigning in ANotebook.ComponentState then exit;
for X := 0 to AIndex - 1 do
if ANotebook.Page[X].TabVisible = False then Dec(Result);
end;
{$ELSE}
{$ENDIF}
procedure SendSelChangeMessage(const ANotebook: TCustomNotebook; const AHandle: HWND;
const APageIndex: integer);
var

5
lcl/interfaces/win32/win32wscomctrls.pp
View File

@ -70,11 +70,6 @@ type
class procedure RemovePage(const ANotebook: TCustomNotebook;
const AIndex: integer); override;
{$IFDEF old}
class function GetPageRealIndex(const ANotebook: TCustomNotebook; AIndex: Integer): Integer; override;
{$ELSE}
//use ANotebook.PageToTabIndex (and .TabToPageIndex)
{$ENDIF}
class function GetTabIndexAtPos(const ANotebook: TCustomNotebook; const AClientPos: TPoint): integer; override;
class function GetTabRect(const ANotebook: TCustomNotebook; const AIndex: Integer): TRect; override;
class function GetCapabilities: TNoteBookCapabilities;override;

10
lcl/interfaces/wince/wincepagecontrol.inc
View File

@ -383,16 +383,6 @@ begin
AdjustSizeNotebookPages(ANotebook);
end;
class function TWinCEWSCustomNotebook.GetPageRealIndex(const ANotebook: TCustomNotebook; AIndex: Integer): Integer;
var
X: Integer;
begin
Result := AIndex;
for X := 0 to AIndex - 1 do
if ANotebook.Page[X].TabVisible = False then Dec(Result);
end;
procedure SendSelChangeMessage(const ANotebook: TCustomNotebook; const AHandle: HWND;
const APageIndex: integer);
var

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

@ -66,7 +66,6 @@ type
class procedure RemovePage(const ANotebook: TCustomNotebook;
const AIndex: integer); override;
class function GetPageRealIndex(const ANotebook: TCustomNotebook; AIndex: Integer): Integer; override;
class function GetTabIndexAtPos(const ANotebook: TCustomNotebook; const AClientPos: TPoint): integer; override;
class function GetTabRect(const ANotebook: TCustomNotebook; const AIndex: Integer): TRect; override;
class function GetCapabilities: TNoteBookCapabilities;override;