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

Support changing font size via mouse wheel in query editors. Closes #143.

Browse Source
This commit is contained in:
Ansgar Becker
2018-04-12 20:33:54 +02:00
parent bce886d8bf
commit 26e16b13a1
2 changed files with 33 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
source/main.dfm
View File

@ -1310,6 +1310,7 @@ object MainForm: TMainForm
TabOrder = 0
OnDragDrop = SynMemoQueryDragDrop
OnDragOver = SynMemoQueryDragOver
OnMouseWheel = SynMemoQueryMouseWheel
Gutter.AutoSize = True
Gutter.Font.Charset = DEFAULT_CHARSET
Gutter.Font.Color = clGrayText

35
source/main.pas
View File

@ -1008,6 +1008,8 @@ type
procedure actGotoFilterExecute(Sender: TObject);
procedure actGotoTabNumberExecute(Sender: TObject);
procedure StatusBarClick(Sender: TObject);
procedure SynMemoQueryMouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
private
// Executable file details
FAppVerMajor: Integer;
@ -6193,6 +6195,31 @@ begin
end;
procedure TMainForm.SynMemoQueryMouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
var
Editor: TSynEdit;
NewFontSize: Integer;
begin
// Change font size with MouseWheel
if KeyPressed(VK_CONTROL) then begin
Editor := TSynEdit(Sender);
NewFontSize := Editor.Font.Size;
if WheelDelta > 0 then
Inc(NewFontSize)
else
Dec(NewFontSize);
NewFontSize := Max(NewFontSize, 1);
AppSettings.ResetPath;
AppSettings.WriteInt(asFontSize, NewFontSize);
SetupSynEditors;
Handled := True;
end else begin
Handled := False;
end;
end;
procedure TMainForm.SynMemoQueryPaintTransient(Sender: TObject; Canvas: TCanvas; TransientType: TTransientType);
var
Editor : TSynEdit;
@ -8750,9 +8777,9 @@ var
Node: PVirtualNode;
NewFontSize: Integer;
begin
// Advance to next or previous grid node on Shift+MouseWheel
VT := Sender as TVirtualStringTree;
if ssAlt in Shift then begin
// Advance to next or previous grid node on Shift+MouseWheel
if Assigned(VT.FocusedNode) then begin
if WheelDelta > 0 then
Node := VT.FocusedNode.PrevSibling
@ -8764,11 +8791,12 @@ begin
end;
end;
end else if KeyPressed(VK_CONTROL) then begin
// Change font size with MouseWheel
NewFontSize := VT.Font.Size;
if WheelDelta > 0 then
NewFontSize := NewFontSize + 1
Inc(NewFontSize)
else
NewFontSize := NewFontSize - 1;
Dec(NewFontSize);
NewFontSize := Max(NewFontSize, 1);
AppSettings.ResetPath;
AppSettings.WriteInt(asDataFontSize, NewFontSize);
@ -10137,6 +10165,7 @@ begin
QueryTab.Memo.OnDragDrop := SynMemoQuery.OnDragDrop;
QueryTab.Memo.OnDragOver := SynMemoQuery.OnDragOver;
QueryTab.Memo.OnDropFiles := SynMemoQuery.OnDropFiles;
QueryTab.Memo.OnMouseWheel := SynMemoQuery.OnMouseWheel;
QueryTab.Memo.OnReplaceText := SynMemoQuery.OnReplaceText;
QueryTab.Memo.OnStatusChange := SynMemoQuery.OnStatusChange;
QueryTab.Memo.OnPaintTransient := SynMemoQuery.OnPaintTransient;