paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-16 18:10:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

only create toolbar widget for OldToolbar, "new" toolbar is custom drawn

Browse Source 
git-svn-id: trunk@8048 -
This commit is contained in:
micha 2005-11-03 17:20:42 +00:00
parent 998b80dcec
commit 318c4f1d70
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -187,9 +187,9 @@ type
private
protected
public
{$ifdef OldToolbar}
class function CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): HWND; override;
{$ifdef OldToolbar}
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;
@ -425,6 +425,8 @@ end;
{ TWin32WSToolbar}
{$ifdef OldToolbar}
function TWin32WSToolBar.CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): HWND;
var
@ -443,8 +445,6 @@ begin
Result := Params.Window;
end;
{$ifdef OldToolbar}
function TWin32WSToolbar.GetButtonCount(const AToolBar: TToolBar): integer;
begin
Result := SendMessage(AToolbar.Handle, TB_BUTTONCOUNT, 0, 0)
@ -584,7 +584,9 @@ initialization
// RegisterWSComponent(TCustomUpDown, TWin32WSCustomUpDown);
// RegisterWSComponent(TCustomUpDown, TWin32WSUpDown);
// RegisterWSComponent(TCustomToolButton, TWin32WSToolButton);
{$ifdef OldToolbar}
RegisterWSComponent(TToolBar, TWin32WSToolBar);
{$endif}
RegisterWSComponent(TCustomTrackBar, TWin32WSTrackBar);
// RegisterWSComponent(TCustomTreeView, TWin32WSCustomTreeView);
// RegisterWSComponent(TCustomTreeView, TWin32WSTreeView);