VST eingebettete Controls erst bei MouseEnter sichtbar

[Hobbycoder]

Hi,

ich habe einen VirtualStringTree in dem ich in einer Column unterschiedliche Controls einbette.

Während der ToggleSwitch sofort wie gewünscht darstellt wird, wird der Button erst gezeichnet, wenn ich mit der Maus drüberfahre. hat irgendjemand eine Idee woran das liegen könnte?

Ich erzeuge die im InitNode

Delphi-Quellcode:

procedure Tfrm_main.vrtlstrngtr1InitNode(Sender: TBaseVirtualTree; ParentNode,
  Node: PVirtualNode; var InitialStates: TVirtualNodeInitStates);
var
  element: TElement;
begin
  if Node.Parent<>vrtlstrngtr1.RootNode then
  begin
    element:=TElement(vrtlstrngtr1.GetNodeData(node)^);
    case element.elementType of
      etSwitch:
        begin
          element.Switch:=TToggleSwitch.Create(vrtlstrngtr1);
          element.Switch.Parent:=vrtlstrngtr1;
          element.Switch.State:=TToggleSwitchState(element.state);
          //element.Switch.ShowStateCaption:=False;
          element.Switch.Tag:=node.Index;
          element.Switch.OnClick:=SwitchClick;
        end;
      etButton:
        begin
          element.Button:=TButton.Create(vrtlstrngtr1);
          element.Button.Parent:=vrtlstrngtr1;
          element.Button.Caption:='Ausführen';
          element.Button.Parent:=vrtlstrngtr1;
          element.Button.Tag:=node.Index;
          element.Button.OnClick:=ButtonClick;
        end;
    end;
    DoResize(Node);
  end;
end;

Und gebe sie im FreeNode wieder frei.

Über DoResize werden sie dann an die Cell angepasst.

Delphi-Quellcode:

procedure Tfrm_main.DoResize(node: PVirtualNode);
var
  CellRect: TRect;
  Element: TElement;
begin
  if node.Parent<>vrtlstrngtr1.RootNode then
  begin
    Element:=TElement(vrtlstrngtr1.GetNodeData(node)^);
    CellRect:=vrtlstrngtr1.GetDisplayRect(node, 4, false);
    if Element.Button<>nil then
    begin
      Element.Button.Left:=CellRect.Left;
      Element.Button.Top:=CellRect.Top;
      Element.Button.Width:=CellRect.Width;
      Element.Button.Height:=CellRect.Height;
    end;
    if Element.Switch<>nil then
    begin
      Element.Switch.Left:=CellRect.Left;
      Element.Switch.Top:=CellRect.Top;
      Element.Switch.Width:=CellRect.Width;
      Element.Switch.Height:=CellRect.Height;
    end;
  end;
end;

[Ghostwalker]

Mir sind zwei sachen spontan mal aufgefallen:

a) evtl. Switch und Button vertauscht ?
b) beim Button wird 2 mal der Parent gesetzt


evtl. solltest du beim button die eigenschaft visible auf true setzten :)

[Hobbycoder]

Das mit dem Parent ist korrekt, das war wirklich doppelt.

etButton und etSwitch ist nur hier im Forum vertauscht (gewesen). Ich hatte den Code beim einfügen noch etwas editiert, weil da noch was drinstand, was nicht veröffentlicht werden sollte.

Ich danke für die Hinweise. Aber leider ist das nicht die Ursache für das Problem.

[a.def]

Zitat:

Ich hatte den Code beim einfügen noch etwas editiert, weil da noch was drinstand, was nicht veröffentlicht werden sollte.

Kenne ich gut :thumb:

Ich hatte mal ein ähnliches Problem. Ich konnte es durch.. ich glaube es war Repaint bzw. Update?.. lösen. Im schlimmsten Fall einfach Invalidate des Formulars aufrufen.
Ist vielleicht etwas unkonventionell aber hat bei mir geholfen.

[Hobbycoder]

Ich habe es mit Repaint, update und Invalidate probiert. Nichts hilft.

Ich habe die jeweils nach dem Hinzufügen der Nodes aufgerufen. Das sollte ja eigentlich okay sein. Denn mit dem Hinzufügen eines Nodes wird ja InitNode aufgerufen, und dem zurFolge wird der Button auch erzeugt. Genauso wie ein ToggleSwitch.
Und im InitNode rufe ich nach dem erzeugen des Button/Switch auch DoResize(node) auf, was ja die Position des Controls festlegt, die ja auch stimmt, sonst würde der Button wenn ich mit der Maus drüberfahre nicht an der Stelle erscheinen, wo er sein soll.

Ich verstehe nur nicht, warum das mit einem ToggleSwitch problemlos klappt, mit dem Button jedoch nicht.

Noch irgendwer eine Idee?

[Hobbycoder]

Ich Push das nochmal nach oben.
Leider habe ich noch keine Erklärung/ Lösung zu meinem Problem gefunden.

[Poelser]

Moin,

ich habe hier gerade die Implementation von Panels in einer Spalte im VST in Arbeit. So wie ich das bisher sehe, ist meine Vorgehensweise dabei anders als deine. Wenn ich damit fertig bin, dann kann ich mal eine auf's wesentliche reduzierte Variante zeigen.

Bis denne, Poelser

[Ghostwalker]

Wo fügst du die Nodes eigentlich hinzu ?

[Hobbycoder]

In einer eigenen Procedure:

Delphi-Quellcode:

var
  i, e: Integer;
  node, enode: PVirtualNode;
begin
  vrtlstrngtr1.BeginUpdate;
  try
    vrtlstrngtr1.Clear;
    for i:=0 to Rooms.Count-1 do
    begin
      node:=vrtlstrngtr1.AddChild(nil, Rooms[i]);
      for e:=0 to Rooms[i].Elements.Count-1 do
      begin
        enode:=vrtlstrngtr1.AddChild(node, Rooms[i].Elements[e]);
      end;
    end;
    vrtlstrngtr1.FullExpand;
//    node:=vrtlstrngtr1.GetFirst;
//    while node<>nil do
//    begin
//      if node<>vrtlstrngtr1.RootNode then
//      begin
//        DoResize(node);
//      end;
//      node:=vrtlstrngtr1.GetNextVisible(node);
//    end;
    tmr1.Enabled:=True;
  finally
    vrtlstrngtr1.EndUpdate;
    //vrtlstrngtr1.Repaint;
    //vrtlstrngtr1.Update;
  end;
end;

Wie man an den auskommentierten Codestellen sieht habe ich hier schon rumprobiert, allerdings erfolglos.

[Poelser]

Moin,

für mich hat sich jetzt dieses Vorgehen bewährt, zuerst ein Objekt, das die Daten und zur Visualisierung ein Panel enthält:

Delphi-Quellcode:

  TFoodform = class(TBaseFoodform)
  private
    FPanel: TPanel;
    function GetPanel: TPanel;
    procedure SetPanel(const Value: TPanel);
  published
    property Panel: TPanel read GetPanel write SetPanel;

Das VST befindet sich auf einem Formular mit diesen Deklarationen:

Delphi-Quellcode:

type
  PTreeData = ^TFoodform;
  TFrmKostformen = class(TFrmStammBasis)
...
  private
    FoodformList: TFoodformlist;
...

In der Prozedur, die das VST mit Inhalt füllt, befindet sich dieser Code:

Delphi-Quellcode:

  for i := 0 to Foodformlist.Count - 1 do
  begin
    VST1.AddChild(nil, Foodformlist[i]);
    Foodformlist[i].Panel := TPanel.Create(nil);
    Foodformlist[i].Panel.Parent := VST1;
    Foodformlist[i].Panel.StyleElements := [];
    Foodformlist[i].Panel.Color := Foodformlist[i].Color;
    Foodformlist[i].Panel.Height := VST1.DefaultNodeHeight;
    Foodformlist[i].Panel.Visible := False;
  end;

Jetzt muss das nur noch zur Anzeige gebracht werden:

Delphi-Quellcode:

procedure TFrmKostformen.VST1AfterCellPaint(Sender: TBaseVirtualTree; TargetCanvas: TCanvas;
  Node: PVirtualNode; Column: TColumnIndex; CellRect: TRect);
var
  data: PTreeData;
begin
...
  if Column=3 then
  begin
    data := Sender.GetNodeData(node);
    if assigned(data.Panel) then
    begin
      data.Panel.Visible := vsVisible in Node.States;
      Data.Panel.BoundsRect := Sender.GetDisplayRect(Node, Column, False);
    end;
  end;
end;

Ich habe das testweise auch mal mit einem TButton statt einem TPanel ausprobiert und kann da keine Probleme mit dem Zeichnen feststellen.

[Hobbycoder]

Danke. Leider hat das bei mir keine Besserung gebracht. Es ist nach wie vor so, dass die Buttons erst dargestellt werden, wenn ich mit der Mouse drüberfahre oder die Formgrößer verändere. Und wie gesagt, NUR bei TButton. TToggleSwitch verhält sich normal.
Weiterhin ist mir folgendes aufgefallen: Wenn ein TButton außerhalb des Sichtbaren Bereichs innerhalb des VST liegt, und ich dann etwas rungerscrolle, erscheint der Button wie erwartet.

Was mir an deinem Code aufgefallen ist:
In AfterCellPaint der Parameter CellRect. Sollte der nicht eigentlich das Rect der Zelle beinhalten, welche eben gerade gezeichnet wurde? Stattdessen scheint das immer das Rect der ColumnHeader zu sein, und man muss ich das CellRect erst über

Delphi-Quellcode:

Sender.GetDisplayRect(Node, Column, False);

"besorgen".

Hat jetzt mit dem Problem nichts zu tun, aber ist mir aufgefallen.

Denn als ich das mal in AfterCellPaint ausprobiert habe, hatte ich erst BoundsRect:=CellRect verwendet. Und da hat er mir alle Controls in den ColumnHeader gezeichnet. Interessanterweise da die TButtons auch sofort Dargestellt?

[Poelser]

Moin,

ich kann das hier nicht nachvollziehen, der TButton ist hier sofort da, wie jedes andere Control auch. Vielleicht hat das etwas mit verschiedenen Delphi und/oder VST-Versionen zu tun? Ich benutze hier die Version, die aus dem GetIt für Delphi 10.1.2 herunterzuladen ist. Da das für mich komplett funktioniert, kann ich das somit auch nicht nachstellen und auch kaum Hilfe bieten.

Was das CellRect angeht: Nein, es wird tatsächlich das CellRect des ColumnHeaders zurückgegeben. Daher muss man sich das Rect der Zelle im Node extra holen.

Bis denne, Poelser

[Hobbycoder]

Zitat:

Zitat von Poelser (Beitrag 1370475)

Was das CellRect angeht: Nein, es wird tatsächlich das CellRect des ColumnHeaders zurückgegeben. Daher muss man sich das Rect der Zelle im Node extra holen.

Bis denne, Poelser

Ja. Aber das Warum ist mir nicht klar. Wenn du Function doch AfterCellPaint heißt, dann sollten sich in den Parametern doch auch Werte wiederfinden, die sich auf die gezeichnete Zelle beziehen. Wäre für mich logisch gewesen.


ich habe die Version 5.3 von VST drauf. Im GetIt find ich das gar nicht. Nach was hast du gesucht? Ich finde nur Virtual Tree. (Ich habe aber auch noch nie was mit GetIT installiert).

[Poelser]

Zitat:

Zitat von Hobbycoder (Beitrag 1370481)

ich habe die Version 5.3 von VST drauf. Im GetIt find ich das gar nicht. Nach was hast du gesucht? Ich finde nur Virtual Tree. (Ich habe aber auch noch nie was mit GetIT installiert).

Es ist wohl tatsächlich nicht (mehr) im GetIt, ich hab's aber von dort. Deshalb ist es hier installiert:
C:\Users\Besitzer\Documents\Embarcadero\Studio\18. 0\CatalogRepository\VirtualTreeView-6.2\source\VirtualTrees.pas

Version 6.2 ist also die, mit der dein Problem also durchaus gelöst sein könnte. Warum das wieder weg ist aus dem GetIt weiß nur Emba.

Bis denne, Poelser

[Ghostwalker]

So...konnte das Problem jetzt mal erzeugen. :)

So wie es aussieht, ist der Schuldige ".fullexpand". Mach ich das nach dem hinzufügen der nodes,
werden die Buttons nicht gezeichnet. Laß ich das weg und expandiere manuell, werden sie wunderbar gezeichnet.

[haentschman]

Moin...:P

Zitat:

Version 6.2 ist also die, mit der dein Problem also durchaus gelöst sein könnte. Warum das wieder weg ist aus dem GetIt weiß nur Emba.

...:gruebel:

[Hobbycoder]

Stimmt. Ich habe immer nach Virtual String Tree gesucht, was natürlich nicht gefunden wurde.

Ich habe mir jetzt die von hier installiert. Laut Changelog wäre da die 6.6 und somit sogar noch aktueller als die aus dem GetIt. Wobei ich natürlich nicht weiß, aus welcher Quelle sich GetIt bedient und wer die Pflegt.

Aber: gleiche Problem. Ich tausch gleich mal den TButton gegen einen TSpeedButton. Vielleicht hilft das ja was, denn dem TToggleSwitch ist das ganze ja total egal. ;-)

[Hobbycoder]

So, damit ist das Problem auch gelöst.
Mit TSpeedButton funktioniert es. Mit TButton tritt der o.g. Fehler auf..

[Poelser]

Oh, Asche auf mein Haupt, ich hatte auch den den falschen Suchbegriff benutzt:(

[Hobbycoder]

Macht nix. Auf diese Weise habe ich wenigstens mal meine Komponente aktualisiert (Was ansonsten leider immer verbleibt, bis man entweder auf ein Problem stößt oder mal wieder alles neu aufsetzt).

Ich danke auch auf jeden Fall mal allen.