pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

jvcllaz: Fix compilation for 64-bit

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6251 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-03-17 00:19:46 +00:00
parent 4b403fca15
commit ac5d9f9de4
5 changed files with 18 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/jvcllaz/run/JvCustomControls/jvoutlookbar.pas
View File

@ -45,7 +45,7 @@ unit JvOutlookBar;
interface
uses
LCLType, LCLIntf, LMessages, Types,
LCLType, LCLIntf, LMessages, Types, LCLVersion,
SysUtils, Classes, ActnList,
Buttons, Controls, Graphics, ImgList, Forms, StdCtrls, ExtCtrls, Themes,
{$IFDEF HAS_UNIT_SYSTEM_UITYPES}
@ -327,7 +327,9 @@ type
procedure SetThemed(const Value: Boolean);
procedure SetWordWrap(const Value: Boolean);
protected
{$IF LCL_FullVersion >= 1090000}
function DoEraseBackground(ACanvas: TCanvas; Param: LPARAM): Boolean; override;
{$ENDIF}
procedure FontChanged; override;
function GetButtonHeight(PageIndex, ButtonIndex: Integer): Integer;
function GetButtonTopHeight(PageIndex, ButtonIndex: Integer): Integer;
@ -2606,11 +2608,13 @@ begin
Inc(Result, 4);
end;
{$IF LCL_FullVersion >= 1090000}
function TJvCustomOutlookBar.DoEraseBackground(ACanvas: TCanvas; Param: LPARAM): Boolean;
begin
// don't redraw background: we always fill it anyway
Result := True;
end;
{$ENDIF}
procedure TJvCustomOutlookBar.RedrawRect(R: TRect; Erase: Boolean = False);
begin