Ich habe in meinem vorhandenen Code ein kleines Rectangle, dass ich nutze, um den Farb-Picker aufzurufen. Im MouseUp-Event findet sich dazu:
Dim c as Color
Dim b as Boolean
c=me.FillColor
UserDialog.Visible=false
b=Color.SelectedFromDialog(c,"Select a Color")
if b=true then me.FillColor=c
UserDialog.Visible=True
UserDialog.show
Das hat früher (keine Ahnung bis wann) prima funktioniert. Gestern viel mir auf, dass der Farb-Picker immer nur schwarz zurück gibt. Egal welche Farbe ich einstelle.
Also neues Projekt mit neuem Rechteck (warum hat das runde Ecken) Code eingefügt - funktioniert.
OK, Rechteck in altes Projekt kopiert. Aha, ist jetzt DesktopRectangle. Darum die runden Ecken.
Also diversen Code angepasst auf DesktopRectangle.
Ich bekomme nun noch in dieser Zeile:
UserFarbe.Append new FarbPicker
diesen Fehler:
“Expect a type name but found method UserDialog.UserDialog.FarbPicker insted”
Eigentlich will ich lediglich dem Array “UserFarbe” (Typ: DesktopRectangle) ein weiteres Element hinzufügen. Ziel ist, mehrere Rechtecke in dem Fenster zu erzeugen, die ich über das Array ansprechen kann.
Komisch finde ich, dass “UserDialog” in der Meldung doppelt auftaucht. Das Fenster heißt “UserDialog”. Darin gibt es aber kein weiteres “UserDialog”.
Irgendwie stehe ich auf dem Schlauch.
Kann mir mal jemand die Augen öffnen, was ich gerade übersehe?
Danke.