[Qt] TStatusBar, switching between SimplePanel and panel items

[Juha Manninen]

TStatusBar can define both SimpleText and panel items. SimplePanel boolean 
property switces between them. It works with other widgetsets but not with QT.
The same problem happens at both design and run time.
I planned to fix it and create a patch... yes, that was the plan...

If SimplePanel = False initially, panels are shown, then you can switch it to 
True and you get the SimpleText. After that nothing happens, the same 
SimpleText shows always.
Then I noticed, if SimpleText = '' then the switching works. So I tied to fix 
TQtWSStatusBar.RecreatePanels like this: (see "added line")

class procedure TQtWSStatusBar.RecreatePanels(const AStatusBar: TStatusBar;
  const Widget: TQtStatusBar);
var
  Str: WideString;
  i: Integer;
begin
  ClearPanels(Widget);
  if AStatusBar.SimplePanel then
  begin
    Str := GetUtf8String(AStatusBar.SimpleText);
    Widget.showMessage(@Str);
  end else
  if AStatusBar.Panels.Count > 0 then
  begin
    Str := ''; Widget.showMessage(@Str);  // <-- added line !!!
    Widget.setUpdatesEnabled(False);
    SetLength(Widget.Panels, AStatusBar.Panels.Count);
    for i := 0 to AStatusBar.Panels.Count - 1 do
    begin
      Str := GetUtf8String(AStatusBar.Panels[i].Text);
      Widget.Panels[i] := TQtStatusBarPanel.CreateFrom(AStatusBar,
        QLabel_create(@Str, Widget.Widget));
      Widget.Panels[i].HasPaint := AStatusBar.Panels[i].Style = psOwnerDraw;
      Widget.Panels[i].ID := AStatusBar.Panels[i].ID;
      QLabel_setText(QLabelH(Widget.Panels[i].Widget), @Str);
      QLabel_setAlignment(QLabelH(Widget.Panels[i].Widget),
        AlignmentToQtAlignmentMap[AStatusBar.Panels[i].Alignment]);
      QWidget_setMinimumWidth(Widget.Panels[i].Widget, 
AStatusBar.Panels[i].Width);
      Widget.Panels[i].AttachEvents;
      Widget.addWidget(Widget.Panels[i].Widget, ord(i = 
AStatusBar.Panels.Count - 1));
    end;
    Widget.setUpdatesEnabled(True);
  end;
end;


Didn't help. Then I thought I will create the panel like the other panels are 
created. Like this:

...
  ClearPanels(Widget);
  if AStatusBar.SimplePanel then
  begin
    Str := GetUtf8String(AStatusBar.SimpleText);
    Widget.Panels[0] := TQtStatusBarPanel.CreateFrom(AStatusBar,
      QLabel_create(@Str, Widget.Widget));
    Widget.Panels[0].ID := AStatusBar.Panels[0].ID;
    QLabel_setText(QLabelH(Widget.Panels[0].Widget), @Str);
    Widget.addWidget(Widget.Panels[0].Widget, 1);
  end else
...

Didn't help either. It works as well as the earlier version though.
How can you Zeljan make such binding code work? Uhhh!


Regards,
Juha