with the follow commands, is it function at runtime, but not in exe file ! why?
#DEFINE C_CALCAPTION_LOC "Calendário INÍCIO"
oCalForm = Create('form')
*CREATE FORM oCalForm WINDOW FRMPESQUISA
oCalForm.NewObject("oleCalendar","_olecalendar","C:\SISAPP\_CLASSES\DATETIME.VAR\_datetime")
WITH oCalForm.oleCalendar
.date_column = "primeirodia"
.RefreshDisplay()
.BackColor = THISFORM.BackColor
.Visible = .T.
ENDWITH
WITH oCalForm
.BorderStyle = 2
.MaxButton = .F.
.MinButton = .F.
.Height = oCalForm.oleCalendar.Height
.Width = oCalForm.oleCalendar.Width
.Caption = C_CALCAPTION_LOC
*.WINDOWTYPE = 1
*.SHOWWINDOW = 1 ??? READONLY
*.AUTOCENTER = .T.
ENDWITH
oCalForm.Show(1)
THISFORM.Refresh
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement