Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by alzaimar,
7. Jun 2005
Nachtrag: eine ListView kennt auch einen 'Virtual Mode'. Nur heisst der OwnerData := True.
Dann noch die Items.Count Property auf die Anzahl der Dokumente setzen und das OnOwnerData überschreiben.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by alzaimar,
6. Jun 2005
Versuch doch mal die profane, billige, Kassenpatientenlistbox. Die hat eine Property 'Style'. Da gibst Du 'lbVirtual' ein. Alles, was Du jetzt noch brauchst, ist die 'Count' Property auf deine 650000000 zu setzen. Dann schreibst Du das OnData Event: Das gibt Dir einen Index und erwartet im Gegenzug einen String... HA!
procedure TForm1.ListBox1Data(Control: TWinControl; Index: Integer; var...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by alzaimar,
6. Jun 2005
Was die Frage nach den 'woher sollen die nodes wissen, welche ID sie nachladen sollen' anbelangt, hatte ich Dir einen Tip gegeben.
Wenn Du einen Block lädst, weisst Du ja die ID des UNTERSTEN Records (ID_low). Beim Laden des nächten Blocks lädst Du einfach die nachsten X Records, deren ID > ID_low. Danach setzt Du ID_low wieder auf die unterste Record.ID usw.
Damit kann man natürlich nicht...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by alzaimar,
5. Jun 2005
Ich habe das mal gemacht, aber ohne eine Virtual String TreeView. Sonder mit der Normalen.
Ich hatte aber nur ca. 20 Einträge unter der Wurzel. (Level 1)
Jeder Knoten hat ein Dummy-Kind (Ein Child-Knoten mit Node.Tag = 1)
Im OnExpand-Ereignis der TreeView habe ich geschaut, ob die Tag-Eigenschaft des ersten Kind des zu expandierenden Knotens den Wert 1 hat. Wenn ja, wurde der Knoten wohl noch...