GLScene GLLines Color

[Maiky]

Hi.

Ich habe da ein paar Fragen und würde mich freuen wenn mir da jemand weiterhelfen kann.

1. Ich füge mehrere Lines ein und möchte jeder Line eine andere Farbe geben. Wie kann man dies machen? GLLines.LineColor färbt alle Linien, ich möchte aber einzelne andersfarbig haben und ich habe hier auch gesehen das man Farbübergänge wohl irgendwie definieren kann: http://glscene.pbworks.com/w/page/6437668/TGLLines
Weiß jemand dazu was?

Code:

    GLLines := TGLLines(GLDummyCube1.AddNewChild(TGLLines));
    GLLines.NodesAspect := lnaInvisible;
    GLLines.LineWidth := 2;
    GLLines.LineColor.AsWinColor := clBlack;
    GLLines.AddNode(0,0,0);
    GLLines.AddNode(1,0,0);
    GLLines.AddNode(1,1,0);
    GLLines.AddNode(-1,2,0);

2. Wieso geht die erste Zeile nicht aber die darunter? Im Objectinspector steht es doch ebenfalls so drin.

Code:

GLLines.LineColor := clrBlack;
GLLines.LineColor.AsWinColor := clBlack;

EDIT: Dieser Punkt hat sich wohl erledigt. Man muss die UNIT "GLColor" einbinden, dann geht es mit:

Code:

GLLines.LineColor.Color := clrBlack;

3. Wie kann ich die Farbe(+Alpha) einer beliegen Linie im Nachhinein ändern? Die Position kann ich so ändern: GLLines.Nodes[1].X := 3;
Aber Color kennt er nicht, obwohl es auch hier im Objectinspector drin steht.

Danke.

[Uwe Raabe]

Du musst die Nodes casten. Da TGLLine.Nodes vom Typ TGLLinesNodes ist, sollte das problemlos gehen:

(GLLines.Nodes[I] as TGLLineNode).Color := ...

oder

TGLLineNode(GLLines.Nodes[I]).Color := ...

[Maiky]

Danke, aber so wirklich zum laufen bekomme ich das nicht. Ich erhalte zwar keinen Fehler, aber auch keine Farbänderung. Folgendes habe ich probiert:

Code:

TGLLinesNode(GLLines.Nodes[1]).Color.Color := clrRed;
(GLLines.Nodes[1] as TGLLinesNode).Color.Color := clrRed;
(GLLines.Nodes[1] as TGLLinesNode).Color.AsWinColor := clRed;

Wenn ich das zweite ".Color" weglassen würde, erhalte ich eine Fehlermeldung:

[DCC Fehler] Unit1.pas(90): E2010 Inkompatible Typen: 'TGLColor' und 'TVector4f'

Auch bewirkt so Alpha keine Änderung:

Code:

TGLLinesNode(GLLines.Nodes[1]).Color.Alpha := 0.1;

Eine Zeile darüber habe ich dies stehen und das ist sofort sichtbar:

Code:

GLLines.Nodes[1].X := 3;

Fehlt hier noch irgendwas? Wie setzt man eigentlich diesen Farbverlauf, den man im obigen Link sieht?

[Uwe Raabe]

Hast du denn auch loUseNodeColorForLines in GLLine.Options eingeschaltet?

[Maiky]

Ah, super. Ja so geht das nun.

Jetzt habe ich auch den Farbverlauf. Gibt es auch die Möglichkeit einzelne Linien mit einer fixen Farbe zu färben, ohne einen Farbverlauf?

[Uwe Raabe]

Zitat von Maiky:

Ah, super. Ja so geht das nun.

Jetzt habe ich auch den Farbverlauf. Gibt es auch die Möglichkeit einzelne Linien mit einer fixen Farbe zu färben, ohne einen Farbverlauf?

Ohne das ich das jetzt ausprobieren kann: Da die Farben nun ja den einzelnen Nodes und nicht den Linien zugeordnet werden, könnte das gehen, wenn du bei einem Farbwechsel einfach zwei Nodes auf die gleiche Position setzt.

[Maiky]

Danke für die Hilfe