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

LCL/ShellCtrls: Temporarily deactivate changes in ShellCtrls made by r64575 #e32b62e6b4. Issue #38517.

Browse Source 
git-svn-id: trunk@64679 -
This commit is contained in:
wp 2021-02-27 21:07:56 +00:00
parent 7a882b653e
commit dfaea13f4b
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/shellctrls.pas
View File

@ -84,7 +84,7 @@ type
procedure DoSelectionChanged; override;
procedure DoAddItem(const ABasePath: String; const AFileInfo: TSearchRec; var CanAdd: Boolean);
function CanExpand(Node: TTreeNode): Boolean; override;
(*
{$ifdef mswindows}
private
FBuiltinIconSize: TSize;
@ -92,6 +92,7 @@ type
function DrawBuiltInIcon(ANode: TTreeNode; ARect: TRect): TSize; override;
function GetBuiltinIconSize: TSize; override;
{$endif}
*)
public
{ Basic methods }
@ -375,7 +376,8 @@ procedure Register;
implementation
{$ifdef windows}
uses Windows, ShellApi;
//uses Windows, ShellApi;
uses Windows;
{$endif}
const
@ -996,6 +998,7 @@ begin
FOnAddItem(Self, ABasePath, AFileInfo, CanAdd);
end;
(*
{$ifdef mswindows}
{ Extracts the windows shell icon of the specified file. }
function GetShellIcon(const AFileName: WideString): TIcon;
@ -1054,6 +1057,7 @@ begin
Result := Types.Size(0, 0);
end;
{$endif}
*)
function TCustomShellTreeView.GetPathFromNode(ANode: TTreeNode): string;
begin