Druckposition

[Rolf Ramacher]

Hallo zusammen.

Für unseren Etikettendruck muß ich unseren Usern die Möglichkeit geben,
zu bestimmen, von welcher Position aus die Klebeetiketten gedruckt werden sollen. Das mit Checkboxen zu gestalten scheint mir die sinnsvollste Lösung zu sein.

Da aber nur eine Checkbox ausgewählt werden darf, muß ich nachdem die Box ausgewählt wurde die anderen auf nicht ausgewählt setzen.

Bei 48 Möglichkeiten ist dies eine Menge Programmierung der If-Abfragen.

Hat jemand eine andere Idee vielleicht ??

[AUGE_OHR]

hi,

Für unseren Etikettendruck muß ich unseren Usern die Möglichkeit geben,
zu bestimmen, von welcher Position aus die Klebeetiketten gedruckt werden sollen. Das mit Checkboxen zu gestalten scheint mir die sinnsvollste Lösung zu sein.

Da aber nur eine Checkbox ausgewählt werden darf, muß ich nachdem die Box ausgewählt wurde die anderen auf nicht ausgewählt setzen.

Bei 48 Möglichkeiten ist dies eine Menge Programmierung der If-Abfragen.

Hat jemand eine andere Idee vielleicht ??

ich habe 2 Spinbutton´s wo du VON bzw. BIS einstellst wobei ich davon
ausgehe von links nach rechts und dann die nächste "Zeile". Es wird dabei
nummerisch vorgegangen d.h. man kann nicht ein Etikett überspringen.

Code: Alles auswählen

   bCallback := {|mp1, mp2, oXbp| PB1_PB2( oSpinvon, oSpinbis,1) }

   oSpinvon := XbpSpinButton():new( drawingArea,, {600,452}, {50,24} )
*   oSpinvon:fastSpin := .T.
   oSpinvon:create()
   oSpinvon:setNumLimits( 1, 48 )
   oSpinvon:dataLink := VARBLOCK(@mVON )
   oSpinvon:endSpin  := bCallback
   oSpinvon:keyboard := bCallback

   bCallback := {|mp1, mp2, oXbp| PB1_PB2( oSpinvon, oSpinbis,2) }

   oSpinbis := XbpSpinButton():new( drawingArea,, {600,402}, {50,24} )
*   oSpinbis:fastSpin := .T.
   oSpinbis:create()
   oSpinbis:setNumLimits( 1 , 48 )
   oSpinbis:dataLink := VARBLOCK(@mBIS )
   oSpinbis:endSpin  := bCallback
   oSpinbis:keyboard := bCallback

...

STATIC PROCEDURE PB1_PB2( oSpinvon, oSpinbis ,nNum)
LOCAL nVON,nBIS

   nVON := oSpinvon:getdata()
   nBIS := oSpinbis:getdata()

   IF nNum = 1
      DO CASE
         CASE nVON > nBIS
            nVON := nBIS
            oSpinvon:setdata(nVON)

         CASE nVON = nBIS
            oSpinbis:setNumLimits( nVON, nBIS )
            oSpinbis:setdata(nBIS)

         CASE nVON < nBIS
            oSpinbis:setNumLimits( nVON, nBIS )
            oSpinbis:setdata(nBIS)
      ENDCASE
      SetAppFocus(oSpinvon)
   ELSE
      DO CASE
         CASE nBIS > nVON
            oSpinbis:setNumLimits( nVON, nBIS+1 )
            oSpinbis:setdata(nBIS)

         CASE nBIS = nVON
            oSpinbis:setNumLimits( nVON, nBIS+1 )
            oSpinbis:setdata(nBIS)

         CASE nBIS < nVON
            nBIS := nVON
            oSpinbis:setNumLimits( nVON, nBIS+1 )
            oSpinbis:setdata(nBIS)
      ENDCASE
      SetAppFocus(oSpinbis)
   ENDIF

RETURN

gruss by OHR
Jimmy

[Martin Altmann]

Hallo Rolf,
sorry - aber genau dafür gibt es die RadioButtons! Alles andere ist nicht Windows-konform!!

Viele Grüße,
Martin

[Rolf Ramacher]

Hallo,

danke für eure Beiträge, aber ich bin bei meinen Checkbox geblieben, da ich an anderer Stelle ebenfalls checkboxen definiert habe. Um aber die Definition und abfragen der 48 Checkboxen zu umgehen, habe ich die Checkboxen in einer for next-schleife erzeugt. Allerdings mit dem gleichen
objecktnamen oXbp.

Dann habe ich die objekte in ein Array addiert und in die Abfrage-Funktion übergeben. Die Abfragefunktion wird jedesmal gestartet, wenn ein anderes Feld angeklicht oder mit TAB. angesprungen wird.

In der Abfragefunktion wird dann das Objektarray durchlaufen und das einzelne objekt mit getdata abgefragt. Bei treffer werden dann alle anderen objekte auf .f. gesetzt.

[Martin Altmann]

Hallo Rolf,

Bei treffer werden dann alle anderen objekte auf .f. gesetzt.

und genau darum brauchst Du Dich bei RadioButtons nicht kümmern! Da kann innerhalb einer Gruppe immer nur einer aktiviert werden.

Viele Grüße,
Martin

[Rolf Ramacher]

Hallo zusammen,

hierzu habe ich nochmal eine kleine Rückfrage. Ich habe das jetzt mit den Radiobutton gelöst. Klappt wunderbar. Aber in meinem Dialog gibt es
einen Button "weiter", der dann die Druckroutine auslöst.

Kann ich hierbei mit übergeben, welcher Button angeklickt wurde. Oder geht das direkt nur mit Selected als Codeblock ??

[andreas]

Hallo Rolf,

laut Doku bekommst das Objekt mit:

Code: Alles auswählen

oButton:activate := {| uNIL1, uNIL2, self | ... }