Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by aschne1,
3. Feb 2006
Hi
Was heist hier 'Leider doch'?
Könnte auch mit begin/end arbeiten, doch mit zwei else hintereinander umgehe ich das. Denn so gehört der else-Zweig zu:
if Node.Parent = Sender.RootNode then
mit nur einem else zu:
if Odd(Node.Index) then
Welche Lösung ist sinnvoller, bzw. schneller?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by aschne1,
3. Feb 2006
@generic
Danke für Deine Hilfe. Funzt prima!
Für alle die das gleiche Problem haben noch mein Code:
procedure Tfrm_Pos.vstPositionBeforeItemErase(Sender: TBaseVirtualTree;
TargetCanvas: TCanvas; Node: PVirtualNode; ItemRect: TRect;
var ItemColor: TColor; var EraseAction: TItemEraseAction);
begin
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by aschne1,
3. Feb 2006
Hallo
Ich verwende zur Datenanzeige die Komponente VirtualStringTree. Zur besseren Übersicht hinterlege ich die einzelnen Hauptknoten abwechslungsweise farbig blau-weiss-blau-weiss-usw.... (nicht wegen Herrn Stoiber :wink: ).Die Unterknoten haben die gleiche Farbe wie der Hauptknoten. Soweit kriege ich das auch hin.
Nun möchte ich die Unterknoten aber in einer anderen Schriftgrösse...