Forum: Programmieren allgemein
Delphi
by Uwe Raabe,
19. Nov 2012
Das könnte vielleicht auch noch etwas bringen:
procedure DrawNodes(var nodes: TGLNodes);
var
j: Integer;
begin
DrawPolygon(nodes, clRed);
nodes.BeginUpdate;
try
// Darstellung spiegeln
Forum: Programmieren allgemein
Delphi
by Uwe Raabe,
19. Nov 2012
Versuch mal diesen Code:
procedure DrawPolygon(nodes: TGLNodes);
var
i : Integer;
GLPolygon : TGLPolygon;
begin
GLPolygon := TGLPolygon.Create(nil);
GLPolygon.Material.FrontProperties.Emission.Color := clrRed;
GLPolygon.Material.PolygonMode := pmFill;
Forum: Programmieren allgemein
Delphi
by Uwe Raabe,
15. Nov 2012
Kannst du das Projekt oder zumindest eine abgespeckte Version (ohne daß ich dutzende Komponenten installieren muss) als ZIP anhängen oder sonstwie bereitstellen? Dann will ich mir das mal ansehen. Aber versprechen kann ich nichts.