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

Use custom tab width and tabs-to-spaces setting uniquely in all places where we generate code. Provides a new CodeIndent() helper. Closes #1330

Browse Source
This commit is contained in:
Ansgar Becker
2024-05-19 12:22:43 +02:00
parent a378e6ec94
commit db014bda03
12 changed files with 107 additions and 99 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
source/event_editor.pas
View File

@ -272,7 +272,7 @@ begin
Result := CreateOrAlter + ' ';
if comboDefiner.Text <> '' then
Result := Result + 'DEFINER='+DBObject.Connection.QuoteIdent(comboDefiner.Text, True, '@')+' ';
Result := Result + 'EVENT ' + DBObject.Connection.QuoteIdent(ObjName) + CRLF + #9 + 'ON SCHEDULE' + CRLF + #9#9;
Result := Result + 'EVENT ' + DBObject.Connection.QuoteIdent(ObjName) + sLineBreak + CodeIndent + 'ON SCHEDULE' + sLineBreak + CodeIndent(2);
if radioOnce.Checked then begin
d := dateOnce.DateTime;
ReplaceTime(d, timeOnce.DateTime);
@ -297,14 +297,14 @@ begin
end;
if chkDropAfterExpiration.Checked then
Result := Result + #9 + 'ON COMPLETION NOT PRESERVE'
Result := Result + CodeIndent + 'ON COMPLETION NOT PRESERVE'
else
Result := Result + #9 + 'ON COMPLETION PRESERVE';
Result := Result + CodeIndent + 'ON COMPLETION PRESERVE';
if ObjectExists and (DBObject.Name <> editName.Text) then
Result := Result + CRLF + #9 + 'RENAME TO ' + DBObject.Connection.QuoteIdent(editName.Text);
Result := Result + CRLF + #9 + UpperCase(grpState.Items[grpState.ItemIndex]);
Result := Result + CRLF + #9 + 'COMMENT ' + DBObject.Connection.EscapeString(editComment.Text);
Result := Result + CRLF + #9 + 'DO ' + SynMemoBody.Text;
Result := Result + sLineBreak + CodeIndent + 'RENAME TO ' + DBObject.Connection.QuoteIdent(editName.Text);
Result := Result + sLineBreak + CodeIndent + UpperCase(grpState.Items[grpState.ItemIndex]);
Result := Result + sLineBreak + CodeIndent + 'COMMENT ' + DBObject.Connection.EscapeString(editComment.Text);
Result := Result + sLineBreak + CodeIndent + 'DO ' + SynMemoBody.Text;
end;