mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

ADD: Initial support of Drag&Drop

Browse source
This commit is contained in:
Alexander Koblov 2008-02-06 21:36:46 +00:00
commit ee2bcea7fc
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
upixmapmanager.pas
View file

@ -148,6 +148,7 @@ var
iIndex : Integer;
sExtFilter,
sGraphicFilter : String;
bFreeAtEnd : Boolean;
bmStandartBitmap : Graphics.TBitMap;
PNG : TPortableNetworkGraphic;
begin
@ -196,6 +197,7 @@ begin
else
{$ENDIF}
begin
bFreeAtEnd := True;
sExtFilter := ExtractFileExt(sFileName) + ';';
sGraphicFilter := GraphicFilter(TGraphic);
// if file is graphic
@ -226,6 +228,7 @@ begin
iIndex := PixMapManager.GetIconByFile(pfri, pmDirectory);
bmStandartBitmap := PixMapManager.GetBitmap(iIndex, clBackColor);
Dispose(pfri);
bFreeAtEnd := False; // do not free Bitmap in StretchBitmap function
end
else // file not found
begin
@ -234,7 +237,7 @@ begin
end;
// if need stretch icon
if (iIconSize <> bmStandartBitmap.Height) or (iIconSize <> bmStandartBitmap.Width) then
Result := StretchBitmap(bmStandartBitmap, iIconSize, clBackColor, True)
Result := StretchBitmap(bmStandartBitmap, iIconSize, clBackColor, bFreeAtEnd)
else
Result := bmStandartBitmap;
end; // IsExecutable else