opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-26 20:00:16 +08:00
Code Issues Packages Projects Releases Wiki Activity

* Move code from FillPopupQueryLoad into automatically triggered FillPopupQuery.OnPopup event.

Browse Source 
* Make getting system imagelist and imageindex shared code in Helpers.GetSystemImageList and Helpers.GetSystemImageIndex
* Remove call to TranslateComponent, accidentally committed in r4490
* Draw system icons with transparency
This commit is contained in:
Ansgar Becker
2013-08-24 05:28:39 +00:00
parent 90c708fc74
commit 5e83eaab1b
4 changed files with 75 additions and 76 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
source/insertfiles.pas
View File

@ -3,7 +3,7 @@ unit insertfiles;
interface
uses
Windows, Messages, SysUtils, Classes, Controls, Forms, Dialogs, StdCtrls, ImgList,
Windows, Messages, SysUtils, Classes, Controls, Forms, Dialogs, StdCtrls,
ShellApi, Math, Graphics, ComCtrls, ToolWin,
dbconnection, mysql_structures, VirtualTrees, grideditlinks, SynRegExpr, gnugettext, helpers;
@ -91,7 +91,6 @@ type
procedure FormDestroy(Sender: TObject);
private
FConnection: TDBConnection;
FSmallImages: TImageList;
FMaxFileSize: Int64;
public
{ Public declarations }
@ -116,23 +115,14 @@ const
procedure TfrmInsertFiles.FormCreate(Sender: TObject);
var
SysIL : uint;
SFI : TSHFileInfo;
begin
TranslateComponent(Self);
FSmallImages := TImageList.Create(Self);
SysIL := SHGetFileInfo('', 0, SFI, SizeOf(SFI), SHGFI_SYSICONINDEX or SHGFI_SMALLICON);
if SysIL <> 0 then begin
FSmallImages.Handle := SysIL;
FSmallImages.ShareImages := TRUE;
end;
ListFiles.Images := FSmallImages;
DragAcceptFiles(Handle , True);
ListFiles.Images := GetSystemImageList;
DragAcceptFiles(Handle, True);
SetWindowSizeGrip(Self.Handle, True);
InheritFont(Font);
MainForm.RestoreListSetup(ListColumns);
MainForm.RestoreListSetup(listFiles);
MainForm.RestoreListSetup(ListFiles);
FixVT(ListFiles);
FixVT(ListColumns);
end;
@ -389,7 +379,6 @@ end;
procedure TfrmInsertFiles.AddFile(Filename: String);
var
Info: TSHFileInfo;
FileInfo: TFileInfo;
NewNode: PVirtualNode;
rx: TRegExpr;
@ -398,8 +387,7 @@ begin
Exit;
FileInfo := TFileInfo.Create;
FileInfo.Filename := Filename;
SHGetFileInfo(PChar(Filename), 0, Info, SizeOf(TSHFileInfo), SHGFI_SYSIconIndex or SHGFI_TYPENAME);
FileInfo.ImageIndex := Info.IIcon;
FileInfo.ImageIndex := GetSystemImageIndex(Filename);
FileInfo.Size := _GetFileSize(Filename);
rx := TRegExpr.Create;
// Decide if file is binary by excluding common text format file extensions