feat: show NULL values in system variables listing

Refs #1281
This commit is contained in:
Ansgar Becker
2025-11-29 21:26:56 +01:00
parent afc9d8c24f
commit 06b44eb483

View File

@@ -9476,12 +9476,16 @@ end;
procedure TMainForm.menuEditVariableClick(Sender: TObject);
var
Dialog: TfrmEditVariable;
VarValue: String;
begin
Dialog := TfrmEditVariable.Create(Self);
try
try
Dialog.VarName := ListVariables.Text[ListVariables.FocusedNode, 0];
Dialog.VarValue := ListVariables.Text[ListVariables.FocusedNode, 1];
VarValue := ListVariables.Text[ListVariables.FocusedNode, 1];
if VarValue = TEXT_NULL then
VarValue := '';
Dialog.VarValue := VarValue;
// Refresh list node
if Dialog.ShowModal = mrOK then
InvalidateVT(ListVariables, VTREE_NOTLOADED, False);
@@ -11559,7 +11563,7 @@ begin
Variables := Conn.GetResults(Conn.GetSQLSpecifity(spSessionVariables));
while not Variables.Eof do begin
FVariableNames.Add(Variables.Col(0));
FSessionVars.Values[Variables.Col(0)] := Variables.Col(1);
FSessionVars.Values[Variables.Col(0)] := IfThen(Variables.IsNull(1), TEXT_NULL, Variables.Col(1));
Variables.Next;
end;
Variables.Free;
@@ -11567,6 +11571,7 @@ begin
while not Variables.Eof do begin
FVariableNames.Add(Variables.Col(0));
FGlobalVars.Values[Variables.Col(0)] := Variables.Col(1);
FGlobalVars.Values[Variables.Col(0)] := IfThen(Variables.IsNull(1), TEXT_NULL, Variables.Col(1));
Variables.Next;
end;
Variables.Free;
@@ -11713,7 +11718,7 @@ begin
SessionVal := vt.Text[Node, 1];
GlobalVal := vt.Text[Node, 2];
if SessionVal <> GlobalVal then begin
//TargetCanvas.Brush.Color := clWebBlanchedAlmond;
TargetCanvas.Brush.Color := clYellow;
TargetCanvas.Pen.Color := TargetCanvas.Brush.Color;
TargetCanvas.Rectangle(CellRect);
end;