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

Implement SQL pretty formatter, fixes issue #428.

Browse Source
This commit is contained in:
Ansgar Becker
2009-12-30 01:23:44 +00:00
parent 51cdaa9995
commit c61b2ead2e
4 changed files with 193 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

42
source/main.pas
View File

@ -448,6 +448,9 @@ type
Inverseselection1: TMenuItem;
actDataResetSorting: TAction;
Resetsorting1: TMenuItem;
actReformatSQL: TAction;
ReformatSQL1: TMenuItem;
btnReformatSQL: TToolButton;
procedure refreshMonitorConfig;
procedure loadWindowConfig;
procedure saveWindowConfig;
@ -708,6 +711,7 @@ type
procedure FormMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint;
var Handled: Boolean);
procedure actDataResetSortingExecute(Sender: TObject);
procedure actReformatSQLExecute(Sender: TObject);
private
ReachedEOT : Boolean;
FDelimiter: String;
@ -8747,6 +8751,44 @@ begin
end;
procedure TMainForm.actReformatSQLExecute(Sender: TObject);
var
m: TSynMemo;
CursorPosStart, CursorPosEnd: Integer;
NewSQL: WideString;
Comp: TComponent;
begin
// Reformat SQL query
Comp := (Sender as TAction).ActionComponent;
if Comp is TMenuItem then
m := TPopupMenu((Comp as TMenuItem).GetParentMenu).PopupComponent as TSynMemo
else if QueryTabActive then
m := ActiveQueryMemo
else begin
MessageDlg('Please select a query editor tab first.', mtError, [mbOK], 0);
Exit;
end;
CursorPosStart := m.SelStart;
CursorPosEnd := m.SelEnd;
if not m.SelAvail then
m.SelectAll;
NewSQL := m.SelText;
if Length(NewSQL) = 0 then
MessageDlg('Cannot reformat anything - your editor is empty.', mtError, [mbOK], 0)
else begin
Screen.Cursor := crHourglass;
m.UndoList.AddGroupBreak;
NewSQL := ReformatSQL(NewSQL);
m.SelText := NewSQL;
m.SelStart := CursorPosStart;
if CursorPosEnd > CursorPosStart then
m.SelEnd := CursorPosStart + Length(NewSQL);
m.UndoList.AddGroupBreak;
Screen.Cursor := crDefault;
end;
end;
procedure TMainForm.PageControlMainContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean);
var
ClickPoint: TPoint;