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

OldToolbar should not be defined in code. It is not used by the LCL.

Browse Source 
git-svn-id: trunk@9285 -
This commit is contained in:
vincents 2006-05-16 07:25:16 +00:00
parent c42c19439c
commit fd6b25b4f0
2 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/wince/winceint.pp
View File

@ -32,8 +32,6 @@ interface
{$ASSERTIONS ON} {$ASSERTIONS ON}
{$ENDIF} {$ENDIF}
{$DEFINE OldToolbar}
// defining the following will print all messages as they are being handled // defining the following will print all messages as they are being handled
// valuable for investigation of message trees / interrelations // valuable for investigation of message trees / interrelations
{ $define MSG_DEBUG} { $define MSG_DEBUG}

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

@ -23,7 +23,6 @@ unit WinCEWSComCtrls;
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
interface interface
{$define OldToolbar}
uses uses
// FCL // FCL
@ -186,12 +185,13 @@ type
private private
protected protected
public public
{$ifdef OldToolbar}
class function CreateHandle(const AWinControl: TWinControl; class function CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): HWND; override; const AParams: TCreateParams): HWND; override;
class function GetButtonCount(const AToolBar: TToolBar): integer; override; class function GetButtonCount(const AToolBar: TToolBar): integer; override;
class procedure InsertToolButton(const AToolBar: TToolbar; const AControl: TControl); override; class procedure InsertToolButton(const AToolBar: TToolbar; const AControl: TControl); override;
class procedure DeleteToolButton(const AToolBar: TToolbar; const AControl: TControl); override; class procedure DeleteToolButton(const AToolBar: TToolbar; const AControl: TControl); override;
{$endif}
end; end;
{ TWinCEWSTrackBar } { TWinCEWSTrackBar }
@ -602,9 +602,9 @@ initialization
// RegisterWSComponent(TCustomUpDown, TWinCEWSCustomUpDown); // RegisterWSComponent(TCustomUpDown, TWinCEWSCustomUpDown);
// RegisterWSComponent(TCustomUpDown, TWinCEWSUpDown); // RegisterWSComponent(TCustomUpDown, TWinCEWSUpDown);
// RegisterWSComponent(TCustomToolButton, TWinCEWSToolButton); // RegisterWSComponent(TCustomToolButton, TWinCEWSToolButton);
//{$ifdef OldToolbar} {$ifdef OldToolbar}
RegisterWSComponent(TToolBar, TWinCEWSToolBar); RegisterWSComponent(TToolBar, TWinCEWSToolBar);
//{$endif} {$endif}
RegisterWSComponent(TCustomTrackBar, TWinCEWSTrackBar); RegisterWSComponent(TCustomTrackBar, TWinCEWSTrackBar);
// RegisterWSComponent(TCustomTreeView, TWinCEWSCustomTreeView); // RegisterWSComponent(TCustomTreeView, TWinCEWSCustomTreeView);
// RegisterWSComponent(TCustomTreeView, TWinCEWSTreeView); // RegisterWSComponent(TCustomTreeView, TWinCEWSTreeView);