paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 16:36:01 +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

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

@ -32,8 +32,6 @@ interface
{$ASSERTIONS ON}
{$ENDIF}
{$DEFINE OldToolbar}
// defining the following will print all messages as they are being handled
// valuable for investigation of message trees / interrelations
{ $define MSG_DEBUG}
@ -274,4 +272,4 @@ initialization
finalization
Assert(False, 'Trace:WinCEint.pp - Finalization');
end.
end.

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

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