Deutsches Lazarusforum

Jetzt hab ich ne Lösung gefunden, nicht ganz wie ich es wollte, aber ok.

var
gWelle,gZahnrad : TGLCylinder; // global
....
....
....

gWelle := TGLCylinder(GLReference.AddNewChild(TGLCylinder));
gZahnRad := TGLCylinder(gWelle.AddNewChild(TGLCylinder));
gWelle.TopRadius:=15.0;
gWelle ...

Erst mal danke für die Antwort
Ich verstehe das Beispiel aber nicht

Hallo zusammen,

ich habe ein GlScene Problem.
wenn ich in meiner Scene

var
gWelle : TGLCylinder; // global
....
....
....
gWelle := TGLCylinder(GLReference.AddNewChild(TGLCylinder));
gWelle.TopRadius:=15.0;
gWelle.BottomRadius:=15.0;
gWelle.Height:= 300.0;
gWelle.Direction.X:=0.0 ...

Hi Theo,

ja so funktioniert es. Und auch die ganzen andren .To- Funktionen von TColor funktionieren so

aString := integer(aPixel).ToHexString(6);
aSingle := integer(aPixel).ToSingle;
aExtended := integer(aPixel).ToExtended;

es ist mir trotzdem ein Rätsel warum ich für eine Funktion von TColor ...

Hallo zusammen,

kann mir vielleicht jemand sagen warum der Programm Schnipsel nicht funktioniert
var
img: TPortableNetworkGraphic;
destRect : TRect;
aPixel : TColor;
aString : string;
aExtended : extended;
begin
....
....
img := TPortableNetworkGraphic.Create;
img.LoadFromFile(sFileName ...

Hey, :-D
danke für die Antwort!
Das mit der doppelt gemoppelten Freigabe war nur ein Verzweiflungs Versuch.
Ohne das
aPoint.Positions.Free;
geht es besser und wenn ich in TForm1.mnuOpenClick
aPoint.DeleteChildren;
eingebe stürzt bei mir auch bei nochmaligem Datei öffnen nix mehr ab.

Danke für ...

Hallo Zusammen,
habe ein Programm zur 3DDarstellung einer Punktewolke geschrieben. Das funktioniert auch ganz gut- aber.
Mit Lazarus 2.2.2 bekomme ich GLScene gar nicht installiert. :-(
Mit Lazarus 2.0.12 ist GLScene installierbar.
Ich habe GLScene in der Version: im onlinePaketManager steht 1.0.0.0 ...