jvcllaz: Fix a series of issues with Linux

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6318 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-04-18 22:20:45 +00:00
parent 0e4645f9bf
commit bfdb6c5eaa
66 changed files with 3102 additions and 3573 deletions

View File

@ -632,7 +632,9 @@ end;
procedure TJvFileName.SetName(NewName: string);
begin
FFileName := NewName;
{$IFDEF WINDOWS}
if (NewName <> LongName) and (NewName <> ShortName) then
{$ENDIF}
Init;
end;
@ -646,6 +648,7 @@ begin
begin
FindClose(sr);
{$IFDEF WINDOWS}
FLongName := sr.FindData.cFileName;
FShortName := sr.FindData.cAlternateFileName;
if FLongName = '' then
@ -671,6 +674,7 @@ begin
**************)
FFileSize := (sr.FindData.nFileSizeHigh * MAXDWORD) + sr.FindData.nFileSizeLow;
//FFileName:=NewName;
{$ENDIF}
end;
end;

View File

@ -324,9 +324,11 @@ 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;
@ -2605,6 +2607,7 @@ begin
Inc(Result, 4);
end;
(*
{$IF LCL_FullVersion >= 1090000}
function TJvCustomOutlookBar.DoEraseBackground(ACanvas: TCanvas; Param: LPARAM): Boolean;
begin
@ -2612,6 +2615,7 @@ begin
Result := True;
end;
{$ENDIF}
*)
procedure TJvCustomOutlookBar.RedrawRect(R: TRect; Erase: Boolean = False);
begin