opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2026-03-13 09:24:25 +08:00
Code Issues Packages Projects Releases Wiki Activity

Show editor hints for routine tokens, with routine parameters, comment and body

Browse Source
This commit is contained in:
Ansgar Becker
2024-12-28 11:34:24 +01:00
parent 6336d91c19
commit df4edef4f8
1 changed files with 31 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
source/main.pas
View File

@@ -7145,6 +7145,9 @@ var
AllObjects: TDBObjectList;
Obj: TDBObject;
i: Integer;
Parameters: TRoutineParamList;
Params: TStringList;
Param: TRoutineParam;
begin
// Activate hint for SQL function in query editors
Conn := ActiveConnection;
@@ -7165,7 +7168,7 @@ begin
if Conn.DbObjectsCached(Conn.Database) then begin
AllObjects := Conn.GetDBObjects(Conn.Database);
for Obj in AllObjects do begin
if Obj.Name.ToLower = Token.ToLower then begin
if (Obj.NodeType = lntTable) and (Obj.Name.ToLower = Token.ToLower) then begin
HintText := _(Obj.ObjType) + ' ' + Obj.Name + ':' + sLineBreak +
_('Rows') + ': ' + FormatNumber(Obj.Rows) + sLineBreak +
_('Size') + ': ' + FormatByteNumber(Obj.DataLen + Obj.IndexLen);
@@ -7175,6 +7178,33 @@ begin
end;
end;
SynHighlighterSQL.tkProcName: begin
// Show routine parameters, comment and body
if Conn.DbObjectsCached(Conn.Database) then begin
AllObjects := Conn.GetDBObjects(Conn.Database);
for Obj in AllObjects do begin
if (Obj.NodeType in [lntFunction, lntProcedure]) and (Obj.Name.ToLower = Token.ToLower) then begin
Parameters := TRoutineParamList.Create;
Conn.ParseRoutineStructure(Obj, Parameters);
HintText := _(Obj.ObjType) + ' ' + Obj.Name;
Params := TStringList.Create;
for Param in Parameters do begin
Params.Add(Param.Name + ' ['+Param.Datatype+']');
end;
HintText := HintText + '(' + Implode(', ', Params) + ')' + sLineBreak + sLineBreak;
if not Obj.Returns.IsEmpty then
HintText := HintText + 'Returns: ' + Obj.Returns + sLineBreak + sLineBreak;
if not Obj.Comment.IsEmpty then
HintText := HintText + Obj.Comment + sLineBreak + sLineBreak;
if not Obj.Body.IsEmpty then
HintText := HintText + StrEllipsis(Obj.Body, SIZE_KB);
HintText := Trim(HintText);
Break;
end;
end;
end;
end;
SynHighlighterSQL.tkDatatype: begin
for i:=Low(Conn.Datatypes) to High(Conn.Datatypes) do begin
if Conn.Datatypes[i].Name.ToLower = Token.ToLower then begin