PC Toledo

Código: Selecionar todos

// Board and drawn items
#include "hwgui.ch"

#define CLR_WHITE    0xffffff
#define CLR_BLACK    0x000000
#define CLR_DGRAY2   0x555555
#define CLR_DGRAY3   0x888888

FUNCTION Test
   LOCAL oDlg, oBoard, oTrack, oSay, oFont := HFont():Add( "MS Sans Serif", 0, - 13 )
   LOCAL aCorners := { 4,4,4,4 }
   LOCAL aStyles := { HStyle():New( { CLR_DGRAY2 }, 1, aCorners ), ;
      HStyle():New( { CLR_WHITE }, 2, aCorners ), ;
      HStyle():New( { CLR_DGRAY3 }, 1, aCorners ) }
   LOCAL bChange := {|o|
      oSay:SetText( LTrim(Str(o:value)) )
      RETURN .T.
   }

   INIT DIALOG oDlg TITLE "Board and drawn items"  ;
      AT 210, 10  SIZE 440, 220 FONT oFont BACKCOLOR CLR_DGRAY2

   @ 4, 4 BOARD oBoard SIZE 432, 212 BACKCOLOR CLR_BLACK ;
      ON PAINT {|o,h|FPaint(o,h)} ON SIZE {|o,x,y|o:Move(,,x-8,y-8)} KEYBOARD

   @ 12, 12 DRAWN RADIO OF oBoard GROUP "m" SIZE 20, 30 COLOR CLR_WHITE BACKCOLOR CLR_BLACK ;
      HSTYLES aStyles TEXT 'X' FONT oFont INIT .T.
   @ 12, 56 DRAWN RADIO OF oBoard GROUP "m" SIZE 20, 30 COLOR CLR_WHITE BACKCOLOR CLR_BLACK ;
      HSTYLES aStyles TEXT 'X' FONT oFont

   @ 36, 12 DRAWN OF oBoard SIZE 90, 30 COLOR CLR_WHITE BACKCOLOR CLR_BLACK ;
      TEXT 'Radio 1' FONT oFont
   @ 36, 56 DRAWN OF oBoard SIZE 90, 30 COLOR CLR_WHITE BACKCOLOR CLR_BLACK ;
      TEXT 'Radio 2' FONT oFont

   @ 140, 12 DRAWN CHECK OF oBoard SIZE 20, 30 COLOR CLR_WHITE BACKCOLOR CLR_BLACK ;
      HSTYLES aStyles TEXT 'X' FONT oFont
   @ 140, 56 DRAWN CHECK OF oBoard SIZE 20, 30 COLOR CLR_WHITE BACKCOLOR CLR_BLACK ;
      HSTYLES aStyles TEXT 'X' FONT oFont

   @ 164, 12 DRAWN OF oBoard SIZE 90, 30 COLOR CLR_WHITE BACKCOLOR CLR_BLACK ;
      TEXT 'Check 1' FONT oFont
   @ 164, 56 DRAWN OF oBoard SIZE 90, 30 COLOR CLR_WHITE BACKCOLOR CLR_BLACK ;
      TEXT 'Check 2' FONT oFont

   @ 280, 12 DRAWN EDIT Date() OF oBoard SIZE 80, 28 COLOR CLR_BLACK BACKCOLOR CLR_WHITE
   @ 280, 56 DRAWN EDIT "Sample Drawn Edit Control" OF oBoard SIZE 140, 28 COLOR CLR_BLACK BACKCOLOR CLR_WHITE

   @ 80, 140 DRAWN oSay OF oBoard SIZE 100, 30 COLOR CLR_WHITE BACKCOLOR CLR_BLACK ;
      TEXT '0.00' FONT oFont

   @ 40, 168 DRAWN TRACK oTrack OF oBoard SIZE 180, 18 COLOR CLR_WHITE BACKCOLOR CLR_BLACK ;
      SLIDER SIZE 28 SLIDER HSTYLE HStyle():New( { 0x888888, 0xcccccc }, 3 ) AXIS
   oTrack:bChange := bChange

   ACTIVATE DIALOG oDlg
   oFont:Release()

   RETURN Nil

STATIC FUNCTION FPaint( o, hDC )

   hwg_Fillrect( hDC, 0, 0, o:nWidth, o:nHeight, o:brush:handle )

   RETURN Nil