Anfängerfrage GraStringAT(..

[mkersch]

Anfängerfrage

Mit der Funktion GraStringAt(oPS.. möchte ich einen Zählerstand im Dialogfeld anzeigen lassen z.B. bei jeden Buttondruck Zähler+1.

Jedoch wird im Dialogfeld die vorhergehende Zahl nicht gelöscht d.h. der 1 (Einser) wird direkt über den 0 (Nuller) geschrieben usw. Wie kann ich im Dialogfeld die „alte“ Zahl vorher löschen.

oPS := drawingArea:lockPS() // Micro PS anfordern
GraStringAt(oPS,{100,100},alltrim(str(z)))
z++
drawingArea:unlockPS( oPS ) // Micro PS freigeben

Im Voraus vielen Dank für Eure Hilfe

mfg.
Michael

[brandelh]

Hi Michael,

sieh dir mal die Funktion GraSetAttrString() an, dort kann man die Farben für Schrift und Hintergrund, sowie das 'Mischen' der Anzeige mit dem Hintergrund (GRA_AS_BGMIXMODE). Letzteren müsstest du auf GRA_BGMIX_OVERPAINT einstellen wenn ich das richtig lese.

PS: alle GRA_ Funktionstypen haben eine eigene GraSetAttr...() Funktion um verschiedene Dinge einzustellen.

[Martin Altmann]

Hallo Michael,
mehrere Möglichkeiten - unter anderem mit GraBox() an der Stelle ein gefülltes Quadrat in der Hintergrundfarbe zeichnen und danach die Zahl ausgeben.
Viel besser (und einfacher) ist es jedoch, wenn Du Dir an die Stelle, an der die Zahl erscheinen soll, ein XbpStatic() hinpackst und dann die anzuzeigende Zahl mit :SetCaption() entsprechend zuweist.

Viele Grüße,
Martin

[brandelh]

Viel besser (und einfacher) ist es jedoch, wenn Du Dir an die Stelle, an der die Zahl erscheinen soll, ein XbpStatic() hinpackst und dann die anzuzeigende Zahl mit :SetCaption() entsprechend zuweist.

Oh natürlich, daran habe ich jetzt gar nicht gedacht.
Dann hast du auch keine Repaint-Probleme, da die Xbp das alles selbst erledigen.

[Rolf Ramacher]

Hallo Michael,

wenn der Wert immer mit neuen Werten angezeigt werden soll, würde
ich nach der Static-Caption-Zuweisung ein :configure() einbauen,
damit der alte Wert überschrieben wird.


gruß Rolf

[Martin Altmann]

Hallo Rolf,
das ist beim Ändern der Caption mit SetCaption() (zum Glück) nicht notwendig.

Viele Grüße,
Martin

[P. Jossi]

Kannst nicht ein static verwenden?

[Tom]

Das ist mit einem XBPSTATIC_TYPE_TEXT tatsächlich einfacher, nach einem :SetCaption() muß auch kein :Configure() erfolgen, aber es geht auch mit GraStringAt():

Code: Alles auswählen

aAttr := Array(GRA_AS_COUNT)
aAttr[GRA_AS_COLOR] := GRA_CLR_BLACK
aAttr[GRA_AS_BACKCOLOR] := XBPSYSCLR_TRANSPARENT
aAttr[GRA_AS_MIXMODE ] := GRA_FGMIX_OVERPAINT
GraSetAttrString(oPS,aAttr)
GraStringAt(oPS,{x,y},cMyString)