TreeView Select Problem

[pluto]

Hab den Fehler gefunden: Ich hatte im OnCreate MultiSelect

[TBug]

Hab den Fehler gefunden: Ich hatte im OnCreate MultiSelect

Ich dachte eigentlich Du hättest dies überprüft?

An sowas habe ich auch schon gedacht. Werde ich mal ausprobieren.

Es ist aber irritierend, wenn sich das Select so verhält.

Property MultiSelect = true ???

Property MultiSelect = true ???

Nein, ist auf False. Komischerweise ist die Prüfung bei allen Items auf Select ja auch False bis auf den, der True ist.

[pluto]

Ich dachte eigentlich Du hättest dies überprüft?

Dachte ich auch, aber manchmal sieht man den Wald voller Bäume nicht. Was mich nur wundert ist, dass die Überprüfung von allen Items auf die Select Eigenschaft negativ war.

Das Problem ist, dass sich der OI bei diesem Projekt sehr eigenartig verhält. Z.B. wenn ich ein Event zuweisen möchte, lädt mir die IDE ein FPC Beispiel und meint ein Fehler gefunden zu haben, aber der FPC findet kein Fehler.
Dazu mache ich aber ein Extra Thread auf.

Jedenfalls war das der Grund, warum ich die Eigenschaft wohl Manuell gesetzt hatte, per Code.
Ich werde weitere Tests machen.

[pluto]

Ich habe MultiSelected wieder aktiviert und demarkiere den Markierten Eintrag.

Code: Alles auswählen

 
procedure TForm1.TreeView1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  TV:TTreeView;
  TreeNode:TTreeNode;
begin
  TV:=(Sender as TTreeView);
  if not Assigned(TV.Selected) then
    TreeNode:=TV.Items.GetFirstNode
  else
    TreeNode:=TV.Selected;
 
  tv.Selected.Selected:=false;
  repeat
    if UpperCase(TreeNode.Text[1]) = char(Key) then begin
      if tv.Selected <> TreeNode then begin
        TreeNode.Selected:=true;
        //Select(TreeNode);
      // tv.Items.SelectOnlyThis(TreeNode);
        break;
      end
      else
        TreeNode:=TreeNode.GetNextSibling;
    end
    else
      TreeNode:=TreeNode.GetNextSibling;
  until not Assigned(TreeNode);
 
//  Zum Debuggen
  {
  repeat
    if Assigned(TreeNode) then begin
      if TreeNode.Selected then
        writeln(TreeNode.text);
      TreeNode:=TreeNode.GetNextSibling;
    end;
  until not Assigned(TreeNode);
  }
end;
 

[wp_xyz]

Das Problem ist, dass sich der OI bei diesem Projekt sehr eigenartig verhält. Z.B. wenn ich ein Event zuweisen möchte, lädt mir die IDE ein FPC Beispiel und meint ein Fehler gefunden zu haben, aber der FPC findet kein Fehler.

Das hatte ich auch eine Zeitlang, jetzt nicht mehr (trunk). Ich meine, darüber in der Mailinglist gelesen zu haben, dass das jetzt behoben ist - bin aber nicht 100% sicher.

[pluto]

OK, dann werde ich mal mein Lazarus Updaten, ich nutzte sowieso eine SVN Version.

Jedenfalls Danke für eure Hilfe. So ein Fehler ist ja schon "Peinlich"....