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

Issue #2155: paint session background and icon in session drop-down of SQL export dialog

Browse Source
This commit is contained in:
Ansgar Becker
2025-05-09 13:37:53 +02:00
parent cb293a98b0
commit d2471e663c
2 changed files with 48 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
source/tabletools.lfm
View File

@ -672,9 +672,10 @@ object frmTableTools: TfrmTableTools
BorderSpacing.Around = 6
DropDownCount = 16
ItemHeight = 20
Style = csDropDownList
Style = csOwnerDrawFixed
TabOrder = 6
OnChange = comboExportOutputTypeChange
OnDrawItem = comboExportOutputTypeDrawItem
end
object comboExportOutputTarget: TComboBox
AnchorSideLeft.Control = tabSQLexport

49
source/tabletools.pas
View File

@ -13,10 +13,13 @@ uses
SysUtils, Classes, Controls, Forms, StdCtrls, ComCtrls, Buttons, Dialogs,
laz.VirtualTrees, ExtCtrls, Graphics, RegExpr, Math, Generics.Collections, extra_controls,
dbconnection, apphelpers, Menus, DateUtils, Zipper, StrUtils,
SynEdit, ClipBrd, generic_types, fpjson, Variants, EditBtn, LazFileUtils;
SynEdit, ClipBrd, generic_types, fpjson, Variants, EditBtn, LazFileUtils, Types, LCLType, GraphUtil;
type
TToolMode = (tmMaintenance, tmFind, tmSQLExport, tmBulkTableEdit, tmGenerateData);
{ TfrmTableTools }
TfrmTableTools = class(TExtForm)
btnCloseOrCancel: TButton;
pnlTop: TPanel;
@ -99,6 +102,8 @@ type
editGenerateDataNumRows: TEdit;
lblGenerateDataNullAmount: TLabel;
editGenerateDataNullAmount: TEdit;
procedure comboExportOutputTypeDrawItem(Control: TWinControl;
Index: Integer; ARect: TRect; State: TOwnerDrawState);
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure btnHelpMaintenanceClick(Sender: TObject);
@ -253,6 +258,7 @@ var
MenuItem: TMenuItem;
dt: TListNodeType;
Obj: TDBObject;
Params: TConnectionParameters;
begin
HasSizeGrip := True;
OUTPUT_FILE := _('Single .sql file');
@ -298,8 +304,10 @@ begin
SessionPaths := TStringList.Create;
AppSettings.GetSessionPaths('', SessionPaths);
for i:=0 to SessionPaths.Count-1 do begin
if SessionPaths[i] <> Mainform.ActiveConnection.Parameters.SessionPath then
comboExportOutputType.Items.Add(OUTPUT_SERVER+SessionPaths[i]);
if SessionPaths[i] = Mainform.ActiveConnection.Parameters.SessionPath then
Continue;
Params := TConnectionParameters.Create(SessionPaths[i]);
comboExportOutputType.Items.AddObject(OUTPUT_SERVER+SessionPaths[i], Params);
end;
SessionPaths.Free;
comboExportOutputTarget.Text := '';
@ -336,6 +344,41 @@ begin
end;
procedure TfrmTableTools.comboExportOutputTypeDrawItem(Control: TWinControl;
Index: Integer; ARect: TRect; State: TOwnerDrawState);
var
Params: TConnectionParameters;
Canv: TCanvas;
ItemImageIndex: Integer;
begin
Canv := comboExportOutputType.Canvas;
if odSelected in State then begin
Canv.Brush.Color := clHighlight;
Canv.Pen.Color := clHighlightText;
end
else begin
Canv.Brush.Color := clWindow;
Canv.Pen.Color := clWindowText;
end;
Params := comboExportOutputType.Items.Objects[Index] as TConnectionParameters;
if Assigned(Params) then begin
if (Params.SessionColor <> clNone) and (not (odSelected in State)) then begin
Canv.Brush.Color := Params.SessionColor;
Canv.Pen.Color := clWindowText;
end;
ItemImageIndex := Params.ImageIndex;
end
else begin
ItemImageIndex := MainForm.actExportTables.ImageIndex;
end;
Canv.FillRect(ARect);
Canv.TextRect(ARect, ARect.Left + MainForm.VirtualImageListMain.Width + 4, ARect.Top, comboExportOutputType.Items[Index]);
MainForm.VirtualImageListMain.Draw(Canv, ARect.Left + 2, ARect.Top + 2, ItemImageIndex);
end;
procedure TfrmTableTools.FormShow(Sender: TObject);
var
Node, FirstChecked: PVirtualNode;