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

Patches from Graeme bug #20172 and bug #20173

Browse Source 
git-svn-id: trunk@32193 -
This commit is contained in:
sekelsenmat 2011-09-06 15:34:10 +00:00
parent 4b5df285ff
commit dc933c1466
2 changed files with 23 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lcl/interfaces/fpgui/fpguiwsbuttons.pp
View File

@ -42,6 +42,9 @@ type
private private
protected protected
public public
published
class function CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): TLCLIntfHandle; override;
class procedure DestroyHandle(const AWinControl: TWinControl); override;
end; end;
{ TFpGuiWSSpeedButton } { TFpGuiWSSpeedButton }
@ -55,6 +58,22 @@ type
implementation implementation
{ TFpGuiWSBitBtn }
class function TFpGuiWSBitBtn.CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): TLCLIntfHandle;
begin
Result := TLCLIntfHandle(TFPGUIPrivateButton.Create(AWinControl, AParams));
end;
class procedure TFpGuiWSBitBtn.DestroyHandle(const AWinControl: TWinControl);
begin
TFPGUIPrivateButton(AWinControl.Handle).Free;
AWinControl.Handle := 0;
end;
initialization initialization
//////////////////////////////////////////////////// ////////////////////////////////////////////////////

7
lcl/interfaces/fpgui/fpguiwsfactory.pas
View File

@ -6,7 +6,7 @@ interface
uses uses
Classes, Controls, StdCtrls, Forms, Menus, ExtCtrls, Dialogs, ComCtrls, Classes, Controls, StdCtrls, Forms, Menus, ExtCtrls, Dialogs, ComCtrls,
WSLCLClasses; Buttons, WSLCLClasses;
// imglist // imglist
function RegisterCustomImageList: Boolean; function RegisterCustomImageList: Boolean;
@ -374,7 +374,7 @@ end;
function RegisterCustomPanel: Boolean; alias : 'WSRegisterCustomPanel'; function RegisterCustomPanel: Boolean; alias : 'WSRegisterCustomPanel';
begin begin
RegisterWSComponent(TCustomPanel, TFpGuiWSCustomPanel); RegisterWSComponent(TCustomPanel, TFpGuiWSCustomPanel);
Result := False; Result := True;
end; end;
function RegisterCustomTrayIcon: Boolean; alias : 'WSRegisterCustomTrayIcon'; function RegisterCustomTrayIcon: Boolean; alias : 'WSRegisterCustomTrayIcon';
@ -427,7 +427,8 @@ end;
// Buttons // Buttons
function RegisterCustomBitBtn: Boolean; alias : 'WSRegisterCustomBitBtn'; function RegisterCustomBitBtn: Boolean; alias : 'WSRegisterCustomBitBtn';
begin begin
Result := False; RegisterWSComponent(TCustomBitBtn, TFpGuiWSBitBtn);
Result := True;
end; end;
function RegisterCustomSpeedButton: Boolean; alias : 'WSRegisterCustomSpeedButton'; function RegisterCustomSpeedButton: Boolean; alias : 'WSRegisterCustomSpeedButton';