GLscene Kreise

[Schuby]

Sorry das ich jetzt erst Antworte, aber ich weiß was es war.

Das musste raus und nur einmal vorher rein

>GLLines4 := TGLLines(GLXYZGrid1.AddNewChild(TGLLines));
>GLLines4.LineWidth := 2;
>GLLines4.LineColor.AsWinColor := clBlack;


//Alt

Delphi-Quellcode:

Procedure TForm1.G2_Quadrant_1;
Begin
    //Quadrant = 1 X+ Y+
    if Quadrant = 1 then
    begin
         if (G2_StepX = true) then
         Begin
              //X
              GLLines4 := TGLLines(GLXYZGrid1.AddNewChild(TGLLines));
              GLLines4.LineWidth := 2;
              GLLines4.LineColor.AsWinColor := clBlack;

              GLLines4.AddNode(X_Steppen,0, Y_Steppen);
              y_Steppen:= y_Steppen + 0.1;
              GLLines4.AddNode(X_Steppen, 0, Y_Steppen);
              G2_StepX:= false;
         end;
         if G2_StepY = true then
         Begin
              //Y
              GLLines4 := TGLLines(GLXYZGrid1.AddNewChild(TGLLines));
              GLLines4.LineWidth := 2;
              GLLines4.LineColor.AsWinColor := clBlack;

              GLLines4.AddNode(X_Steppen,0, Y_Steppen);
              x_Steppen:= x_Steppen + 0.1;
              GLLines4.AddNode(x_Steppen, 0, Y_Steppen);
              G2_StepY:= false;
         end;
    end;
end;

//neu

Delphi-Quellcode:

Procedure TForm1.G2_Quadrant_1;
Begin
    //Quadrant = 1 X+ Y+
    if Quadrant = 1 then
    begin
         if (G2_StepX = true) then
         Begin
              //X
              GLLines4.AddNode(X_Steppen,0, Y_Steppen);
              y_Steppen:= y_Steppen + 0.1;
              GLLines4.AddNode(X_Steppen, 0, Y_Steppen);
              G2_StepX:= false;
         end;
         if G2_StepY = true then
         Begin
              //Y
              GLLines4.AddNode(X_Steppen,0, Y_Steppen);
              x_Steppen:= x_Steppen + 0.1;
              GLLines4.AddNode(x_Steppen, 0, Y_Steppen);
              G2_StepY:= false;
         end;
    end;
end;

mfg schuby