FiveTech Software tech support forums

... lRepaint := .F. REDEFINE GET oGet1 VAR nWColorF ID 120 OF oDlg4 PICTURE "999999999" FONT oBigFont REDEFINE BTNBMP oBtn1 OF oDlg4 ; ID 130 PIXEL 2007 ; NOBORDER ; PROMPT "&1. Color" ; FILENAME c_path1 + "Select.Bmp" ; ACTION ( lRepaint := ...

... > http://www.pflegeplus.com/pictures/area.bmp http://www.pflegeplus.com/pictures/area1.bmp @ 150, 150 BTNBMP oBtn1 OF oWnd PIXEL ; SIZE 48, 48 ; FILE c_path1 + "area.bmp" ; ACTION MsgInfo("Hello") oBtn1:lTransparent := .T. oBtn1:cTooltip ...

... a extra dialog-style using global SetDlgGradient http://www.pflegeplus.com/pictures/dlgstyle1.jpg FUNCTION MAIN() local oDlg1, oBtn1, oBtn2 SetDlgGradient( { { 1, RGB( 199, 216, 237 ), RGB( 237, 242, 248 ) } } ) DEFINE DIALOG oDlg1 FROM 50, 50 TO 300, 400 ; TITLE "Dialog ...

Frances I found a solution, using a big button @ 120, 100 BTNBMP oBtn1 OF oWnd ; SIZE 520, 520 PIXEL ; RESOURCE "Logo" ; ACTION MsgAlert( "Logo-Test" ) ; FONT oFont1 ; TOP NOBORDER oBtn1:lTransparent := .t. oBtn1:cToolTip = { "Company" ...

... and You have to click on one button to activate the accelerators. http://www.pflegeplus.com/pictures/Tfoldx11.jpg @ 15, 140 BTNBMP oBtn1 FILENAME "..\bitmaps\bartop.bmp" ; SIZE 60, 30 OF oFld:aDialogs[ 2 ] PIXEL BORDER 2007 ; LEFT PROMPT " &1" ACTION oFld:SetLayOut( ...

... to convert and include hight quality Images in Borlands Resource workshop. I can explain, if anybody needs these informations. @ 5, 10 BTNBMP oBtn1[1] OF oGroup1A ; SIZE 75, 60 PIXEL 2007 ; PROMPT "&Inventario " ; RESOURCE "B_Med" ; ACTION ( DLG_TEST() ) ; FONT oFont1 ...

... nSpace, nPen, 0, nStyle, nShPos ) } oDate:bLostFocus := {|hDC| Draw_Box(oDlg, oDate, nColorL, nSpace, nPen, 0, nStyle, nShPos ) } @ 170, 80 BTNBMP oBtn1 OF oDlg ; SIZE 70, 25 PIXEL 2007 ; NOBORDER ; PROMPT "&Border " ; FILENAME c_path + "\Bitmaps\Select.Bmp" ; ACTION ( oDate:SetFocus(), ...

... Function MiGet4Dec( cTitDlg, cTexto, aTitGet, aGet, cBmp,lDecim) local lOK:=.F., oDlg, oBtn1, oBtn2, oBmp, oBmpF, oBrush,cBrush:=".\wall.bmp" local oTitGet1, oTitGet2, oTitGet3, oTitGet4, oTitGet5, oSayText local oGet1, oGet2, ...

... NIL ), ; PAINT_LOGO(oWnd:oWndClient), ; aLogo[1] := ( oWnd:nHeight / 2 ) - 50 - ( 248 / 2 ), ; aLogo[2] := ( oWnd:nWidth / 2 ) - ( 320 / 2 ), ; oBtn1:Move( oWnd:nHeight - 250, oWnd:nWidth - 110, , ,.T. ), ; oBtn2:Move( oWnd:nHeight - 158, oWnd:nWidth - 110, , ,.T. ) ) ON INIT ( painted once ...

... to create / select a extra Disabled-bmp // 1 = Aktiv // 2 = Pressed // 3 = Disabled // 4 = Mouse-Capt. From Disk or Resource : REDEFINE BTNBMP oBtn1 ID 70 OF oDlg 2007 ; FILENAME c_path + "\Images\aktiv.bmp", ; c_path + "\Images\pressed.bmp", ; c_path + "\Images\disabled.bmp", ...

Rick,

In your example you don't have an action for the OK button. It is nil.

Try it with this change:

@ 6,16 BUTTON oBtn1 Prompt "&Ok" ;
SIZE 30,25 of oDLG ;
ACTION MsgBeep()

... 1 ) else oMenu_Horizontal:SelItem( 2 ) endif Return .T. Function fDlg() DEFINE DIALOG oDlg @2,5 say 'PRUEBA PRUEBA' of oDlg @5,2 BUTTON oBtn1 PROMPT 'CANCELAR' ACTION oDlg:End() @5,15 BUTTON oBtn2 PROMPT 'RETORNAR' ACTION oDlg:End() ACTIVATE DIALOG oDlg CENTER Return .T.

... Your Help The wording in the buttons run with skinbuttons() The prg: #include "FiveWin.ch" static oWnd function Main() local oFont local obtn1 skinbuttons() DEFINE FONT oFont NAME "Arial" SIZE 0, -22 BOLD if !file("tax3.dbf") createfilea() endif DEFINE WINDOW oWnd ...

... The prg File: #include "FiveWin.ch" static oWnd function Main() local oFont local obtn1 skinbuttons() DEFINE FONT oFont NAME "Arial" SIZE 0, -22 BOLD if !file("tax3.dbf") createfilea() endif DEFINE WINDOW oWnd ...

por postinelli » Jue Jun 09, 2011 2:51 pm respecto a bitmaps, yo los diseño desde disco y luego cambio el codigo para que los lea desde recurso y funciona perfecto hago asi diseñando @ 3, 3 ADD BUTTON oBtn1_1_1 PROMPT "new" BITMAP "C:\FWH1101\bitmaps\16x16\additem.bmp" GROUP oGr1...