opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-14 01:56:36 +08:00
Code Issues Packages Projects Releases Wiki Activity

Introduce tree favorites:

Browse Source 
* Add a button right besides db/table filter for hiding non-favorites
* Add an icon on the very left of table nodes, showing whether they are favorites
Fixes issue #3366
This commit is contained in:
Ansgar Becker
2013-10-13 05:48:43 +00:00
parent a5abab6ec8
commit ddcb54a538
6 changed files with 337 additions and 88 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
source/dbconnection.pas
View File

@ -25,6 +25,7 @@ type
function GetObjType: String;
function GetImageIndex: Integer;
function GetOverlayImageIndex: Integer;
function GetPath: String;
function GetCreateCode: String;
procedure SetCreateCode(Value: String);
public
@ -47,6 +48,7 @@ type
property ObjType: String read GetObjType;
property ImageIndex: Integer read GetImageIndex;
property OverlayImageIndex: Integer read GetOverlayImageIndex;
property Path: String read GetPath;
property CreateCode: String read GetCreateCode write SetCreateCode;
property WasSelected: Boolean read FWasSelected write FWasSelected;
property Connection: TDBConnection read FConnection;
@ -5205,6 +5207,12 @@ begin
end;
function TDBObject.GetPath: String;
begin
Result := Database + DELIM + Schema + DELIM + Name;
end;
function TDBObject.GetCreateCode: String;
begin
if not FCreateCodeFetched then try