FiveTech Software tech support forums

If I made IF oDlgBacheca:nresult == IDOK aDim = GetLabelDim( oPanel2:hWnd, cMessage , oFont:hFont ) oPanel:setsize(aDim[ 1 ] + 60, aDim[ 2 ] + 50) oPanel:SetColor( "N/W*" ) oPanel:bPainted = { | hDC | DrawTextTransparent( hDC, cMessage ...

... ) to not use the lsave variable and not to change all the dialogs that I have already done for many years it is possible to use ( oDlg:end( IDOK ) ) and ( oDlg:end( IDCANCEL ) ) ? and use IF oDlg:nresult == IDOK orec:save() ENDIF if I have to change all the insertion dialogs to check the ...

... problema era realmente una estupidez, igualmente no entiendo porque, pero es así. En .rc tenia definido el botón de Aceptar como "IDOK", cosa que utilizo en todos mis programas, cambiando el mismo por un numero al azar, en mi caso "4101" todo funciona perfectamente. ...

hi Antonio,
it doesn't work in any way.
Return key go on to the next GET field but not active BTNBMP

in others PGM I use REDEFINE DIALOG from resource and it works because obtnbmp has ID = IDOK (I use Pelles C) but in this case I don't want to use REDEFINE.

... VAR lLandscape PROMPT "Stampa in Orizzontale"; SIZE 120,26 of oDlgStampa ACTIVATE DIALOG oDlgStampa CENTER IF oDlgStampa:nresult == IDOK ?llandscape // here is .t. bSetUp := {|oRep, oBrw, n, llandscape| MyRepSetup( oRep, oBrw, n,llandscape )} oBrw:Report("Elenco Categorie",.T.,,bSetUp ...

... acolumns ACTION ( aCols := {}, ; AEval( oBrw:aArrayData, { |a| If( a[ 3 ], AAdd( aCols, oBrowse:aCols[ a[ 2 ] ] ), nil ) } ), ; oDlgOptions:end( IDOK ) ) ... IF oDlgOptions:nresult == IDOK return aCols ENDIF return NIL everything works fine but my concern is that if the user does not click on ...

... Gracias Antonio, finalmente he tocado un poco la función a ver que tal. Sobre todo en cuanto a la llamada al método End() del DIALOG ( :End( IDOK ) ), al cual si no se le pasa valor aplica por defecto :nResult = 2. También le he añadido que pueda recibir un oFont definido por el usuario. ...

... RIGHT FONT oFont UPDATE ... ACTIVATE DIALOG oDlgMod ; ON INIT (DlgCenter( oDlgMod, oGrid ), aGet[5]:aItems[2]:disable()) If oDlgMod:nresult == IDOK if msgYesNo( i18n("¿ save ?") ) oTariffa:costo := nCosto oTariffa:sconto := nSconto oTariffa:totale := nTotale oTariffa:save() endif ...

... oBtnSave ; PROMPT "Save" SIZE 130,60 PIXEL OF oDlg; RESOURCE "INVOICE_SAVE" FLAT RIGHT; FONT oFontBold ; ACTION ( oDlg:end( IDOK ) ) @ 520,780 BTNBMP oBtnClose ; PROMPT "Chiudi" SIZE 130,60 PIXEL OF oDlg; RESOURCE "INVOICE_EXIT" FLAT RIGHT; FONT oFontBold ...

... CAPTION "Nuevo Clientes" FONT 10, "Arial" { CONTROL "&Aceptar [F5]", IDOK, "Button", WS_TABSTOP, 396, 306, 50, 14 CONTROL "&Cancelar", IDCANCEL, "Button", WS_TABSTOP, 452, 306, 50, 14 }

... 36 GET aGet[1] VAR cCli OF oDlg SIZE 25, 10 PIXEL READONLY then when I must save I check if cCli is the same of the last code IF oDlg:nresult == IDOK IF nMode == 1 cCodeCliente:=CreaCodiceClienti(oClienti) If cCodeCliente==cCli Else Msginfo("The customer was saved with the account number ...

... "&Salva" ; SIZE 60,18 PIXEL ; OF oDlgMod ; RESOURCE ".\bitmaps\SAVE.png" ; TEXTRIGHT FONT oBold ; ACTION ( oDlgMod:end( IDOK ) ) I must addd many space on Prompt to move the text but On Windows Seven it run ok and it is good to see https://i.postimg.cc/23p7MwL3/jjjjjjjjjjjjjj.png ...

... FLAT SIZE 45,15 LEFT PIXEL OF oDlg ;      COLOR CLR_BLACK,CLR_WHITE   GRADIENT bGrad2015  NOROUND;      ACTION ( oDlg:end( IDOK ) )       @ 233, 182 BTNBMP  oBtnCan  RESOURCE "DLG_NO" ;      PROMPT "&Annulla" FLAT SIZE 45,15 LEFT PIXEL OF ...

... |o| o:nID == nID } ) > 0                         SendMessage( hWndCtl, FM_CLICK, 0, 0 )                      elseif nID == IDOK                         ::End( IDOK )                      endif                   else                      if nID == IDOK            ...

... 0, 0, 1 { CONTROL "", 101, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 12, 8, 84, 12 CONTROL "OK", IDOK, "Button", WS_TABSTOP, 160, 5, 45, 15 CONTROL "Cancel", IDCANCEL, "Button", WS_TABSTOP, 160, 23, 45, 15 } Y el .prg ...