FiveTech Software tech support forums

Hello Rick, ... ... DEFINE DIALOG oDlg RESOURCE "RPTMENU" OF oWndChild REDEFINE BUTTON oBtn1 ID 101 OF oDlg ; ACTION ( _progrpt() ) // @ 0, 0 SAY "Test" OF oDlg COLOR "N/N" // errors here // oDlg:aControls[ 1 ]:lTransparent = .t. // define ...

... like adjustment of the Bar, und changed the 2. oDlg in oDlg1 ( double define ) Static FUNC _utilmenu( oDlg, oBtn_1 ) LOCAL oWndChild, oDlg1 , oBtn1, oBTN2, oBTN3, oBTN4, oBTN5, oBTN6 ... ... DEFINE DIALOG oDlg1 RESOURCE "UTILMENU" ; // OF oWndChild ; TITLE "Utility Menu" ...

... the same Size from Resource : ACTIVATE DIALOG oDlg3 CENTERED NOWAIT ; ON INIT ( oDlg3:Move( 100, 470, 430, 290, .f. ), DisableX(oDlg3, .T.), ; oBtn1:SetSize( W_BUTTONH * 2 , W_BUTTONV * 2 , .T. ), ; oBtn2:SetSize( W_BUTTONH * 2, W_BUTTONV * 2, .T. ), ; oBtn3:SetSize( W_BUTTONH * 2, W_BUTTONV ...

... ; TITLE "Buttons from Resource Transparent" TRANSPARENT // ----- Transparent Button NOBORDER --------- Not Transparent REDEFINE BTNBMP oBtn1 ID 100 OF oDlg3 ; NOBORDER ; FILENAME cBUTTON1 ; ACTION MsgAlert( "Button-Click", "Button 1" ) ; PROMPT "But.1" ...

Enrico, thank You very much. oBtn1:Move does the resizing I need ( same like with Dlg3 ). The Move-method keeps the Top / Left position of the Resource with : oBtn1:nTop, oBtn1:nLeft That is exactly, how I want to do it. ACTIVATE DIALOG ...

... new ButtonTools, I want to make it possible, that the User can create his own Buttons with a Preview from Source and Resources. REDEFINE BTNBMP oBtn1 ID 100 OF oDlg3 ; NOBORDER ; FILENAME "./project/palm.bmp" ; PROMPT "Button 1" ; FONT oFont1 ; RIGHT oBtn1:lTransparent = ...

... CLR_HGRAY ) } ) ; FIELDSIZES 70,70,180,250,180,40 ; SIZE 290,145 ; of oDlgCar oLbxPRESU:nLineStyle = 1 oLbxPRESU:GoTop() oLbxPRESU:Refresh() oBTN1:ENABLE() // Nueva SP If (PRESUPU)->PRE_NRO <> 0 .and. !(PRESUPU)->(eof()) oBTN2:ENABLE() // Mofid.Anular SP Else oBTN2:DISABLE() // ...

... me habia percatado que ahora tenemos que usar CENTER si queremos que la imagen salga centralizada. Asi funciona perfecto [quote] REDEFINE BTNBMP oBtn1 ID 120 OF oDlg CENTER ; RESOURCE "B16_PAGEUP" NOBORDER; TOOLTIP "Page Up" ; ACTION (oBrw:PageUp(), ; oBrw:SetFocus(), oBrw:Refresh()) ...

Hello, The best looking solution, i found in the moment for painting a button on Alpha-channel-BMP's is using : @ 7.7, 13 BUTTONBMP oBtn1 PROMPT "" SIZE 38, 40 BITMAP "gear.bmp" of oWnd oBtn1:cToolTip = "The tooltip text" http://www.pflegeplus.com/pictures/menue2.jpg Regards ...

... // Client section //------------------------------------------------------------------------// Function Client(oBtn, obtn1) // start client Local oDlg, oGet1, oGet2, cVar1, cVar2 Local lNoShow := .t. MemVar oApp, oChatserver, ochatclient cVar1:= space(15) // ip cVar2:=Space(12) ...

... I'm using buttons from resources DEFINE BUTTON oBTN1 ID 101 ..... my problem comes when it gets the focus: How can I change the Tbutton, Tcontrol and / or Twindow classes in order to avoid the black ...

Hola a todos! La cuestión es bien simple, al terminar un GET, en la cláusula VALID, oculto una serie de botones (oBtn1:Disable(), ...) y activo los de las opciones para el sigueinte GET (oBtn2:Enable(), ...). Hasta ahí todo va correcto y sencillo, el problema viene cuando con Shift ...

... .... .... .... RETURN( NIL ) A color-change-test inside the dialog : REDEFINE BUTTONBMP oBtn1 ID 10 OF oDlg ; ACTION ( oBar1:bClrGrad = { | | { { 0.50,16054371, 8388608 }, ; { 0.50,16054371, 8388608 } } }, oBar1:Paint() ) ; BITMAP "New" ...

... local lNocost := .F. local getlist := {} local oDlg, oGet, oDlg1 local mhelp := 1 // := 205 local aRect[4] local oBtn1 local oBtn2 local oBtn3,oBtn4 local oSay1 local oSay2,oSay3 local xMonth local small_font //:= 0 local hDc local aMonth := {} ...

... "W+/W" oDlg1:aControls[ 4 ]:lTransparent = .t. @ 2.5,2 SAY cSAY3 OF oDlg1 COLOR "W+/W" oDlg1:aControls[ 5 ]:lTransparent = .t. @ 50, 10 BTNBMP oBtn1 RESOURCE "YES" ; SIZE 145, 15 OF oDlg1 ; ACTION( oDlg1:End(), nOK := 1 ) oBtn1:lTransparent := .T. @ 70, 10 BTNBMP oBtn2 RESOURCE "PMGR" ; SIZE ...