Strange problem - solved

[driessen]

Hello,

I use this code to select a date from a calendar :

Code: Select all

STATIC FUNCTION MsgDatum(kDate)

   LOCAL kDlg,kCursor,kSelect,kWork
   LOCAL kRow,kCol   ,kMonth ,kYear

   LOCAL lMonths := {"January","February","March","April","May","June","July","August","September","October","November","December"}
   LOCAL kPrompt := "Select a date"

   DEFAULT(kDate,Date())

   kLongDate     := kDateToString(kDate)
   kYear         := VAL(STR(Year(kDate),4))
   kMonth        := Month(kDate)
   kSelect       := kDate
   kWork         := FT_FDAY(kDate)

   DO WHILE DoW(kWork) > 1
      kWork --
   ENDDO

   oFontSFB := GetStandardFont(1)

   DEFINE DIALOG kDlg SIZE 250, 260 TITLE kPrompt FONT oFontSFB

   @ 0.3, .75   COMBOBOX  kMonth  ITEMS  lMonths  SIZE 50,150  OF  kDlg ;
                ON CHANGE MoveKalender(kDlg, 1, kMonth)
   @ 3.8, 62    BTNBMP PROMPT "-" SIZE 12,12 ACTION (MoveKalender(kDlg,3))
   @ 3.8, 108   BTNBMP PROMPT "+" SIZE 12,12 ACTION (MoveKalender(kDlg,4))

   @ 0.3, 9.5   GET kYear  SIZE 31, 12 OF kDlg CENTERED WHEN .F.
   ATail(kDlg:aControls):Cargo := "YEAR"

   @ 1.5, 2     SAY  PADC(kLongDate,28) OF kDlg COLOR CLR_BLUE
   ATail(kDlg:aControls):Cargo := "DATE"

   @ 2.4, 1.2   SAY "Sun Mon  Tue Wed Thu  Fri  Sat"  COLOR CLR_HRED

   FOR kRow = 2 TO 7
       FOR kCol = 1 TO 7

           @ (kRow*13)+22,(kCol*16)-6 BTNBMP PROMPT STR(DAY(kWork),2) SIZE 11.8,11.8 NOBORDER ACTION(kDlg:Cargo := ::Cargo,kDlg:End(IDOK))

           ATail(kDlg:aControls):Cargo    := kWork
           ATail(kDlg:aControls):nClrText := IF(kWork=Date(),CLR_HRED,IF(kWork=kDate,CLR_BLUE,IF(MONTH(kWork)=kMonth,IF(kCol=1 .OR. kCol=7,CLR_HBLUE,CLR_BLACK),CLR_GRAY)))

           IF ATail(kDlg:aControls):Cargo = kDate
              ATail(kDlg:aControls):lPressed := .T.
              ATail(kDlg:aControls):cToolTip := "Selected"
           ELSEIF ATail(kDlg:aControls):Cargo = Date()
              ATail(kDlg:aControls):cToolTip := "Today"
           ELSE
              ATail(kDlg:aControls):cToolTip := DToC(ATail(kDlg:aControls):Cargo)
           ENDIF

           kWork++
       NEXT
   NEXT

   kDlg:Cargo := kDate

   kDlg:lHelpIcon := PAR->HELPICON
   IF !US->U3DLOOK ; kDlg:nStyle := nOr(kDlg:nStyle,4) ; ENDIF
   IF PAR->RESIZE16
      ACTIVATE DIALOG kDlg CENTERED
   ELSE
      ACTIVATE DIALOG kDlg RESIZE16 CENTERED
   ENDIF

   oFontSFB := GetStandardFont(1)

   kSelect  := kDlg:Cargo

RETURN(IF(kDlg:nResult=IDOK,kSelect,kDate))

******************************************************************************

STATIC FUNCTION MoveKalender(kDlg,nMode,nVar)

   LOCAL kSelect      := kDlg:Cargo
   LOCAL n
   LOCAL nFirstButton := 0
   LOCAL nLastButton  := 0
   LOCAL nDate        := 0
   LOCAL nSkip        := 0
   LOCAL nPDate       := 0
   LOCAL nPYear       := 0
   LOCAL nDay, kMonth, kYear
   LOCAL kWork
   LOCAL nDays := 0

   LOCAL MaxDay  := {31,28,31,30,31,30,31,31,30,31,30,30}

   FOR n = 1 TO LEN(kDlg:aControls)

       IF kDlg:aControls[n]:ClassName() = "TBTNBMP"
          nFirstButton := IF(nFirstButton=0,IF(nSkip<2,0,n),nFirstButton)
          nLastButton  := n
          nSkip++
          kDlg:aControls[n]:lPressed := .F.
       ENDIF

       IF VALTYPE(kDlg:aControls[n]:Cargo) = "C"
          IF kDlg:aControls[n]:Cargo = "DATE"
             nPDate    := n
          ENDIF
          IF kDlg:aControls[n]:Cargo = "YEAR"
             nPYear    := n
          ENDIF
       ENDIF
   NEXT

   nDay   := Day(kSelect)
   kMonth := Month(kSelect)
   kYear  := Year(kSelect)

   DO CASE
      CASE nMode = 1
           kMonth := nVar
      CASE nMode = 3
           kYear--
      CASE nMode = 4
           kYear++
   ENDCASE

   IF (kYear/4) - (INT(kYear/4)) = 0 ; MaxDay[2] := 29        ; ENDIF
   IF nDay > MaxDay[kMonth]          ; nDay := MaxDay[kMonth] ; ENDIF

   kSelect   := CTOD(PADL(nDay,2) + "/" + PADL(kMonth,2) + "/" + PADL(kYear,4))
   kLongDate := kDateToString(kSelect)

   kDlg:aControls[nPDate]:cMsg := kLongDate
   kDlg:aControls[nPYear]:VarPut(VAL(STR(kYear,4)))

   kWork     := FT_FDAY(kSelect)

   DO WHILE DOW(kWork) > 1
      kWork --
   ENDDO

   FOR n = nFirstButton TO nLastButton
       kDlg:aControls[n]:SetText(STR(DAY(kWork),2))

       kDlg:aControls[n]:Cargo    := kWork
       kDlg:aControls[n]:nClrText := IF(kWork=Date(),CLR_HRED,IF(kWork=kSelect,CLR_BLUE,IF(MONTH(kWork)=kMonth,IF(DOW(kWork)=1 .OR. DOW(kWork)=7,CLR_HBLUE,CLR_BLACK),CLR_GRAY)))

       kDlg:aControls[n]:cToolTip := DTOC(kWork)
       IF kWork = kSelect
          kDlg:aControls[n]:lPressed := .T.
          kDlg:aControls[n]:cToolTip := "Selected"
       ENDIF
       kWork++
   NEXT

   FOR n = 1 TO Len(kDlg:aControls)
       kDlg:aControls[n]:Refresh()
   NEXT

   kDlg:Cargo := kSelect

RETURN(NIL)

******************************************************************************

STATIC FUNCTION kDateToString(kDate)

   LOCAL dMonths := {"January","February","March","April","May","June","July","August","September","October","November","December"}
   LOCAL dDays   := {"Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday"}

RETURN(dDays[DOW(kDate)]+", "+STR(DAY(kDate),2)+" "+dMonths[MONTH(kDate)]+" "+STR(YEAR(kDate),4))

In FWH 8.10 and previous, this results into this :



But in FWH 8.11, this is the result :



Anyone any idea what is wrong ?

Thanks.

[fraxzi]

Hi!

re-download the FWH8.11 ..it was re-published when BTNBMP caption was not painted properly.


Regards,

[driessen]

Hello,

Thanks a lot for your advice.

Problem is solved.