Hi ich hab ein Problem:
Also ein einfaches Beispiel für den Sachverhalt:
Ich habe 100 Shapes die von 1-100 durchnummeriert sind (irgendwie im Namen z.B. shape38) wenn ich nun eine Zufallsvariable erzeuge und abhängig von ihr ein Shape z.b. gelb mache, wie gebe ich dann die variable im Befehl an?
Ich hatte es in der Art versucht aber keinen Erfolg gehabt: Shape[a].brush.....
Kann mir bitte einer helfen und sagen wie es wirklich geht??
Gruß Steffen


Moderiert von Narses: Topic aus Sonstiges (Delphi) verschoben am Sa 11.10.2008 um 23:34

Hi,

FindComponent() dürfte dir weiterhelfen. Aber da gibt es schon zig Threads zu, einfach mal suchen

Menno, 2 Minuten zu langsam

Aber ich hab noch was anderes:
100 Shapes dürfte so ziemlich das unperformanteste sein, was du machen kannst! Zeichne lieber selber auf ein Image, geht deutlich schneller und dein Arbeitsspeicher freut sich auch drüber.

mfg

hi
Danke super! genau das was ich gesucht habe.
Ja mir ist es bewusst das so viele shapes nicht gerade der brüller sind aber ich brauche die einzelnen Elemente, da ich das anders nicht kann. ich muss quasi ne Button Klick auf die Elemente(einzelnen shapes) ausführen.
Besten Dank
Gruß Steffen

Kannste trotzdem anders machen:

- zwei Images
- auf das eine wird gezeichnet, auf das andere dasselbe, bloß mit anderer Farbe pro "Shape"
- Dann kannst du anhand der Farbe, auf die der User klickt, ermitteln, welches Shape das war (das Hilfeshape verstecken!)

Ich hab mal schnell ein kleines Beispiel gebastelt wie es ohne Shapes geht, siehe Anhang .

Das lässt sich noch beliebig optimieren, Hintergrundbitmap, Verhalten bei Klicks, etc.

ok vieles leuchtet mir ein manches verstehe ich gar nicht.
also ich muss die shapes ja nicht bewegen, ich muss nur wissen auf welches ich draufdrücke und die Nachbarn vor allem bestimmen.da denke ist es mit shapes doch einfacher oder wenn die von vornherein da sind braucht der Rechner dann zum compilieren 30 min?

Wenn es beim Kompilieren lange dauert, wäre das ja nicht schlimm, die Oberfläche ist halt nur etwas träge, auf älteren PCs vor allem nervt das dann tierisch.

Vor allem ist es so ja nicht schwieriger, denn du kannst ja die einzelnen Rechtecke direkt als zweidimensionales Array speichern und hättest dann direkt die Nachbarn. Viel einfacher geht es ja kaum, vor allem, wenn die gar nicht bewegt werden.

ja habe es gerade auch bemerkt und wenn ich welche nicht sichtbar haben will kann ich direkt einfach die Hintergrundfarbe nehmen was in dem Spiel dann praktischer weise als Stopper fungiert...
Es geht um das Spiel Iagno(reversi) vielleicht kennt es der ein oder andere.
So vielen dank ich denke das ist mir nun klar.
Die ganze Sache geht aber doch logischerweise auch mit Kreisen (ist dann doch circle oder so)
Gruß mit herzlichem Danke
Steffen

justifyofgod hat folgendes geschrieben :

ja habe es gerade auch bemerkt und wenn ich welche nicht sichtbar haben will kann ich direkt einfach die Hintergrundfarbe nehmen

Du kannst unsichtbare einfach gar nicht zeichnen. Du solltest statt TRect einfach einen eigenen Record mit den Koordinaten und diesen Daten und Einstellungen zu den einzelnen Elementen nehmen .

justifyofgod hat folgendes geschrieben :

Die ganze Sache geht aber doch logischerweise auch mit Kreisen (ist dann doch circle oder so)

Das heißt nicht circle sondern Arc, wenn du einen Kreis willst, dann ist das ja nur ein Spezialfall einer Ellipse .

ja ok in meinem Fall brauche ich die trotzdem weil ich ohnehin alle brauche und daraufhin dann andere wiederum zeichnen möchte,die ich auch alle brauche. Reversi halt. So danke, falls ich das prog hin bekomme poste ich es, wenn es gewünscht ist...
Nochmals danke an die die sich erbarmt haben und mir geholfen haben.
Gruß Steffen

so habe nun bei der Umsetzung doch noch ein Problem...
Auf den Befehl: image1.Canvas.Rectangle(fRectangles[i]);
(habe natürlich frectangles deklariert)antwortet dass es einen Konflikt zwischen Trect und integer geben würde.
ab welcher Delphiversion geht das denn??? Ich habe Delphi 3

Dann musst du vermutlich die einzelnen Teile des Rechtecks manuell eintragen. Delphi 3 kennt noch keine überladenen Methoden, deshalb kann man kein TRect übergeben sondern muss Left, Top, etc. selbst angeben:

so also Problem ist gelöst ich habe es mit einem Record und einem Array gemacht.
und dann die Parameter übergeben-kommt ja dann aufs selbe raus(oder fast)
so noch mal allen danke ich denke ich sollte nun zurechtkommen.
Steffen

Hi ich habe nun bei der Lösung ein weiteres Problem...es scheint an meinem alten delphi zu liegen...
GetCursorPos(p);
p.x:=Mouse.CursorPos.x;
p.y:=Mouse.CursorPos.y;
das waren meine versuche die Mausposition zu erlangen aber sie sind gescheitert.
Das erste bringt nur die Position auf dem Gesamtbildschirm und beim 2. sagt er mouse währe unbekannt..
wie kann ich das in delphi3 realisieren??Ich brauch doch nur die Position auf dem Formular....(auf meinem Image)
bitte helft mir
Steffen

oder:

Die Klasse TMouse findet sich in der Unit Controls.

Hi,

Wahrscheinlich sollte aber das OnMouseDown-Ereignis der paintbox verwendet werden. Und dort werden die mauskoordinaten ja als X und Y mitgeliefert

mfG,

also Marcs Version funktioniert bestens: Danke
@ Hidden: Ist das das selbe wie wenn ich im Objektinspektor bei Ereignis in onclick die Prozedur rein schmeiße???
Ich wusste nicht wie ich das in Quelltext schreiben kann:
beim klicken auf das Image tue
........
das währe natürlich stilistisch besser...
so allen die mir bis jetzt so gut geholfen haben ein herzliches danke.
Steffen