maudruidas Posted April 13, 2021 Report Share Posted April 13, 2021 Bom dia, tenho um GET que chama meu calendário. Gostaria de saber como faço para posicionar o calendário abaixo do GET. Já vi vários exemplos mas não estou conseguindo fazer. Abaixo tenho uma Dialog com as posições corretas em relação a um GET, porém quando mudo de GET ele não coloca na posição correta, ou seja, não consigo fazer o relacionamento da posição do GET para achar a posição correta da Dialog. Desde já agradeço. Meu GET REDEFINE GET OGMC1 VAR ABE ID 106 OF ODLGMC PICTURE "99/99/9999" BITMAP "CALENDAR" ; ACTION CALEND(@ABE,OGMC1) WHEN (LETRA="I" .OR. LETRA="A") OGMC1:lBtnTransparent := .t. // transparent button Meu Calendário FUNCTION CALEND(oVar,oObj) local ocal, ARECT, LN1,CO1,LN2,CO2 ARECT := GetClientRect( oObj:hWnd ) // ? aRect[ 3 ] // 16 // ? aRect[ 4 ] // 96 LN1 := aRect[3]-6.6 CO1 := aRect[4]-26 LN2 := aRect[3]+2.4 CO2 := aRect[4]+7 // ? ln1 // ? co1 // ? ln2 // ? co2 // DEFINE DIALOG oDlg FROM 9.4, 70 TO 18.4,103 Title "Calendário" COLOR CLR_BLACK,FUNDO // Este coloca na posição correta do get DEFINE DIALOG oDlg FROM LN1, CO1 TO LN2, CO2 Title "Calendário" COLOR CLR_BLACK,FUNDO ODLG : LHELPICON := .F. // Tira a ? da janela @-10,-10 CALENDAR oCal VAR oVar PIXEL of oDlg; DBLCLICK (oVar:= oCal:GetDate(),oObj:refresh(),oDlg:end()); ON CHANGE oVar:= oCal:GetDate() SIZE 150,230 ; ACTION( oVar:= oCal:GetDate(),oObj:refresh(),oDlg:end()); WEEKNUMBER ACTIVATE DIALOG oDlg return nil Quote Link to comment Share on other sites More sharing options...
Rogerio Figueira Posted April 13, 2021 Report Share Posted April 13, 2021 Bom dia. Uso o campo DTPICKER definido no RC CONTROL "", 4002, "SysDateTimePick32", WS_TABSTOP, 40, 56, 60, 14 e no PRG: REDEFINE DTPicker oPmatriz[7] VAR Pmatriz[7] ID 4002 of oT270 UPDATE //emissao []´s Quote Link to comment Share on other sites More sharing options...
maudruidas Posted April 13, 2021 Author Report Share Posted April 13, 2021 Bom dia Rogério, já havia estudado esta opção, porém verifiquei que neste campo não dá para digitar a data por inteiro, tenho de colocar o dia, mudar com a seta para o mês e em seguida para o ano, além de ter de trocar todas as datas do meu sistema, mas te agradeço pela dica. Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.