You've already forked lazarus-ccr
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:
@ -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;
|
||||
|
||||
|
@ -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
|
Reference in New Issue
Block a user