Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Schuby,
5. Jan 2021
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
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Schuby,
4. Jan 2021
Hallo, ich versuche es zu beschreiben.
Kreis berechnen, da habe ich mir eine eigene Routine geschrieben.
GLLine1 bis 3 sind die Achsenanzeige rot gelb grün
GLLines4 ist meine schwarzer Kreis
Button12 drücken => schwarzer Kreis wird gezeichnet.
Button12 drücken => vor Sleep(500) gelb / grün / rot Linien werden gelöscht
aber schwarzer Kreis bleibt
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Schuby,
4. Jan 2021
Hallo Uwe, ne es wird nichts gelöscht. Ich habe extra sleep(500) drin
und Form1.update damit ich sehe ob der halbkreis gelöscht ist, ist er
aber nicht.
procedure TForm1.Button12Click(Sender: TObject);
begin
GLLines3.Nodes.Clear;
Form1.Update;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Schuby,
4. Jan 2021
Die letzte Frage die ich dazu habe.
Wie lösche ich mein Gridxyz wieder.
GLLines3.Nodes.Clear; => Das ist klar, aber ich suche danach sowas wie Repaint ?
mfg schuby
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Schuby,
3. Jan 2021
Danke euch beiden, jetzt habe ich es verstanden.
Es geht super.
Man kann nun ein Objekt um jede Achse drehen. Jedes Objekt hat folgende Eigenschaften:
PitchAngle - Rotation um die X-Achse
TurnAngle - Rotation um die Y-Achse
RollAngle - Rotation um die Z-Achse
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Schuby,
3. Jan 2021
Hallo,
ich habe es doch noch geschafft, es haben paar units gefehlt.
Aber es wird immer nur hochkannt angezeigt, drehen kann man den Kreis nicht ?
uses
GLS.Nodes,
GLS.VectorGeometry,
GLS.VectorTypes;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Schuby,
3. Jan 2021
Hallo Uwe,
könntest du mir bitte helfen was ich genau schreiben müsste ?
Ich bekomme nur error
public
MyVec3f : TVector3f;
...
GLLines3.Nodes.AddXYArc(,,,,,MyVec3f);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Schuby,
3. Jan 2021
Guten morgen,
gibt es eine andere Nöglichkeit mit GLScene halb Kreise zu Zeichnen ?
im mom mache ich es per Pixel.
if Quadrant = 1 then
begin
if (G2_StepX = true) then
Begin