Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by knaeuel,
16. Aug 2010
ah danke, ja, ich hab das jetzt genau so umgesetzt.
Ohne inherited-Aufruf wird tatsächlich nichts von der Grafik angezeigt.
Was mir bisher gar nicht aufgefallen war: sobald die Paint-Methode Daten zum Anzeigen findet, braucht das Programm eine CPU komplett für sich. Daher dann wohl auch die fehlenden Aktualisierungen. Die Frage ist also jetzt, warum hört das Programm nicht auf, die...
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by knaeuel,
16. Aug 2010
wenn ich den inherited-Aufruf entferne, wird die Grafik gar nicht mehr gezeichnet. Die restliche Oberfläche wird allerdings aktualisiert.
Den Befehl BitBlp gibt es bei Delphi 2006 scheinbar nicht. Ich suche gerade nach Alternativen. Es sieht wohl nach CopyRect oder so ähnlich aus.
Ergebnis kommt in Kürze
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by knaeuel,
16. Aug 2010
hier die Paint-Methode. Leider ist sie etwas länger. Kurz zusammengefasst malt sie die Akteure auf einem großem gedachten Kreis und zeichnet anschließend Verbindungslinien, wenn welche definiert wurden.
procedure TSozioImage.Paint();
var ai:integer;
a,b,c:real;
act_color:TColor;
bi,wert:integer;
ckurz,akurz,bkurz,steigung,xziel,yziel:real;
begin
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by knaeuel,
16. Aug 2010
Hallo liebes Forum,
folgendes Problem:
ich habe eine eigene Komponente TMyImage erstellt, abgeleitet von TImage. Wenn ich nun meine neue Komponente benutze, dann werden nicht mehr alle Objekte der Oberfläche aktualisiert.
TLabeledEdit, TButton, ... die hängen alle fest. Soweit ich das gerade sehe, wird die Oberfläche nur noch vollständig aktualisiert, wenn ich das Fenster verschiebe oder die...