FiveTech Software tech support forums

... fit the dimensions of the button. - Color-remapping is possible if created with GDIP clause. - At present, clauses TEXTTOP, TEXTLEFT, TEXTBOTTOM, TEXTRIGHT are used to specify relative positioning of bitmaps and text. The meaning of these clauses indicate that the text is moved to TOP,LEFT, etc. ...

... fit the dimensions of the button. - Color-remapping is possible if created with GDIP clause. - At present, clauses TEXTTOP, TEXTLEFT, TEXTBOTTOM, TEXTRIGHT are used to specify relative positioning of bitmaps and text. The meaning of these clauses indicate that the text is moved to TOP,LEFT, etc. ...

... and Text . Without calculation, it will be very hard, to adjust the Text to the needed Position. http://www.pflegeplus.com/pictures/Textright.jpg @ 0, any Value SAY oPSay2 PROMPT text OF oApp():oTab COLOR CLR_RED TRANSPARENT Usage : Text := "Test String from right" ...

... BITMAP oBmp RESOURCE cBmp ID 400 OF oDlg endif REDEFINE BUTTONBMP oBtn1 ID 312 OF oDLG ACTION ( lOK:=.t., oDlg:End() ) BITMAP "ACEPTAR" TEXTRIGHT REDEFINE BUTTONBMP oBtn2 ID 313 OF oDLG ACTION ( lOK:=.f., oDlg:End() ) CANCEL BITMAP "CANCELAR" TEXTRIGHT ACTIVATE DIALOG oDlg ...

... oCol:cHeader = "Lin" ..., ..., .... REDEFINE BUTTONBMP obt1 PROMPT "&Ins Linea " ID 101 OF oDlg BITMAP "NUEVO" TEXTRIGHT ACTION InsGopMult(oLbx,oQuery) etc,etc...... //--------------------------// Inserta linea Function InsGopMult(oLbx,oQuery) LOCAL nLin := oQuery:lin ...

... aBtn[1] ID 201 OF oDlg UPDATE ; ACTION ( cCodigo := cQry:FieldGet( aCampos[1] ), oDlg:End() ) ; BITMAP 2006 PROMPT "&Seleccionar" TEXTRIGHT // BOTON CALCELAR REDEFINE BUTTONBMP aBtn[2] ID 202 OF oDlg UPDATE ; ACTION ( oDlg:End() ) ; BITMAP 2004 PROMPT "Cancelar" TEXTRIGHT ...

... asi: tratando de poner el foco directamente en un objeto, no funciona REDEFINE BUTTONBMP aoBtn[3] ID 402 OF oDls BITMAP "MONITOS" TEXTRIGHT ; ACTION ( Ocupantes(@cNom2,@cPat2,@cMat2,; @cNom3,@cPat3,@cMat3,; @cNom4,@cPat4,@cMat4,VAL(nPax)),; aoBtn[3]:oJump := aoObjetos[5] ) y con ...

probando de esta otra manera y tampoco funciona... Local nHandle:=0 REDEFINE BUTTONBMP aoBtn[3] ID 402 OF oDls BITMAP "MONITOS" TEXTRIGHT ; ACTION ( Ocupantes(@cNom2,@cPat2,@cMat2,; @cNom3,@cPat3,@cMat3,; @cNom4,@cPat4,@cMat4,VAL(nPax)),; SetFocus(nHandle),; nHandle:=0 ) ; WHEN VAL(nPax) ...

... me pones, probe de 2 formas diferentes y con ninguna me funciono, hice esto: REDEFINE BUTTONBMP aoBtn[3] ID 402 OF oDls BITMAP "MONITOS" TEXTRIGHT ; ACTION SetFocus(aoBtn[3]:cargo) ; WHEN VAL(nPax) > 1 UPDATE aoBtn[3]:bGotFocus := {|oBtn,oCtlOld| oBtn:cargo:=oCtlOld,; Ocupantes(@cNom2,@cPat2,@cMat2,; ...

... and included in RC-file : REDEFINE BUTTONBMP oBtn50 ID 30 OF oDlg5 ; ACTION ( oDlg5:End() ) ; BITMAP "Alert" PROMPT " Exit" TEXTRIGHT oBtn50:cToolTip = { "Close" + CRLF + ; "the Dialog","Background-Test", 1, CLR_BLACK, 14089979 } http://www.pflegeplus.com/pictures/res10.jpg ...

... Grabar(), ( cValid := .T., oDlg:End() ),; ( cValid := .F., MiFoco( @oCampos, 1 ) )) ; PROMPT "Aceptar"; BITMAP "VMenu_Nuevo" TEXTRIGHT; TOOLTIP "Aceptar000000" Y funciona genial, usa el mismo control del boton que tenia para los BUTTON pero ahora con BUTTONBAR le ...

... oBrw:bKeyChar = { | nKey | TeclasChar( oBrw, nKey, bAbonaDoc,bRecibido ) } REDEFINE BUTTONBMP oBotAcept ID 100 OF oDLG BITMAP "ACEPTAR" TEXTRIGHT ; ACTION IF(RCajaOK(nTotRecib,cCodigo, cDocum,dFecha,cConcepto1,cConcepto2,cCkEfect),(lSave:=.t.,oDlg:End(),SysRefresh()),lSave:=.f.) oBotAcept:cTooltip ...

... * ..... oBrw2:CreateFromResource(181) oBrw2:SetRDD() REDEFINE BUTTONBMP oBt2 ID 236 OF oDlg ACTION ( oDlg:End() ) CANCEL BITMAP "SALIR" TEXTRIGHT //Para mover los objetos deseados aObjetos :={oBrw,oBrw2,oBt2} //los controles a mover ACTIVATE DIALOG oDlg CENTERED ; ON INIT ( nAltoIniDlg:=oDlg:nHeight,nAnchoIniDlg:=oDlg:nWidth,; ...

... "Arrow" ), oBtn1:Refresh() ) ; // from Resource BITMAP "..\bitmaps\16x16\garrow.bmp" PROMPT "&Test" TEXTRIGHT // from Disk ACTIVATE DIALOG oDlg return nil Best Regards Uwe :lol: Thank you!

... "Arrow" ), oBtn1:Refresh() ) ; // from Resource BITMAP "..\bitmaps\16x16\garrow.bmp" PROMPT "&Test" TEXTRIGHT // from Disk ACTIVATE DIALOG oDlg return nil Best Regards Uwe :lol: