Zitat:
danke,
aber das Problem bei deinem Code, und auch dem von KLS ist, dass ich ein Image brauche. Ich habe aber kein Image zur Verfügung und wenn ich jedes Mal ein Screenshot von der Fläche machen müsste, wäre das zu speicheraufwendig.
1. Es ist nicht SO speicheraufwendig.
2. Du brauchst kein TImage um mein Beispiel zu benutzen. Du brauchst lediglich eine TColor variable, die du je nach Bedarf aus irgend eine Quelle liest. In meinem B. war es nun mal ein TImage als Quelle, muss aber nicht sein, das solltest du selbst ändern können oder ?!
function AddNode( p : Pbinnode; _color_ : TCOLOR; parent_ : Pbinnode = nil):PbinNode;