DC_push button

[P. Jossi]

Liebe Kollegen

ich habe Probleme mit meinen pushbuttons.

1. und das wichtigste
im prinzip funktionier alles , ausser wenn oft und schnell mit der
maus über die buttons gefahren wird .
Die farben gehen dann nach und nach verloren.

2 im ersten button aktualisiert sich die zeit nur wenn ein maus event
ausgelöst wird. wie erreiche ich dass die zeit automatisch läuft



der Effeckt ist bei verschiedenen rechnern vorhanden

Liebe Grüsse aus der trüben schweiz

Peter


ich habe folgendes tesprogramm erstellt:

//////////////////////////////////////////////////////////////////////
/* Include-Bereich */

#include "Xbp.ch"
#include "Appevent.ch"
#include "Font.ch"
#include "Common.ch"
#include "DCDIALOG.CH"
#include "SET.CH"
#include "dccolor.ch"
proc AppSys
RETURN
proc Main
aSize := AppDesktop():currentSize() //SetAppWindow():currentSize()
xzoom=aSize[1]/1024
yzoom=aSize[2]/768
oDlg := XbpDialog():new()
oDlg:title := "Coradi Digitalisieren"
oDlg:border := XBPDLG_NO_BORDER
oDlg:minButton := .F.
oDlg:maxButton := .F.
oDlg:sysMenu := .F.
oDlg:titlebar := .F.
oDlg:tasklist := .T.
oDlg:drawingarea:setFontCompoundName("8.Courier New")
oDlg:create(,,{0,0},{aSize[1],aSize[2]})
oXbp:= XbpCrt():new( oDlg:drawingarea,, {0, 0},40, 120, "" )
oXbp:Fontname := "Arial"
oXbp:fontwidth := 25
oxbp:fontheight := 30
oxbp:border := XBPDLG_NO_BORDER
oXbp:titlebar := .F.
oXbp:sysmenu := .F.
oxbp:autoMark := .F.
oXbp:create()
oPS := oxbp:presspace()
GraSetColor( oPs, GRA_CLR_CYAN, GRA_CLR_CYAN )
grabox(oPs,{0,0},{aSize[1],aSize[2]},GRA_FILL) //768
aDaten:={;
{"Meier ","Ernst ",3,7},;
{"M

[Tom]

Hallo, Peter.

1. Die Veränderung der Farben kann eigentlich nur etwas damit zu tun haben, daß die Variable IP hochgezählt wird und im Moment der Aktualisierung auf einem anderen Wert steht als bei der Erstellung des Buttons. Tausch doch mal die überflüssige Referenz auf IP gegen eine Konstante aus (in den Color-Klauseln), dann wird's gehen.

2.

Code: Alles auswählen

@ x,y DCPUSHBUTTON CAPTION "Test" SIZE 10,1 OBJECT oMyButton

DCREAD ... EVAL {||SetTimerEvent(100,RefButton(oMyButton))}

STATIC FUNCTION RefButton(oButton)
oButton:SetCaption(Time())
RETURN NIL

[P. Jossi]

Tom ich danke Dir herzlich

ich habe ip nun eliminiert

leider ist alles beim Alten geblieben

ich habe bemerkt , dass wenn die Farbe eines buttons falsch ist dieser nicht mehr auf die maus reagiert

er kann jedoch mit der linken Maustaste reanimert werden und die Farbe ist dann auch wieder ok .
die falsche Farbe scheint immer dir Focus farbe zu sein.
Ich vermute nun dass der button einfach nicht mehr reagiert
ich hoffe dass wir uns gelegentlich wieder mal sehen werden.

[P. Jossi]

ich konnte das Farbproblem lösen indem ich neben fancy auch noch static
beim erstellen des buttons einfüge

leider funktioniert nun set caption nicht mehr

ich bin für jeden hinweis dankbar wie ich die caption neu setzen kann

liebe grüsse aus der schweiz
Peter