Just installed FWH 1612 and noticed the transparency's of my button bar is not working as it did with FWH 1504. Any Ideas ?
Rick Lipkin
Here is the code :
- Code: Select all Expand view
DEFINE BUTTONBAR oBar OF oWind SIZE 80,58 2010 // 80,58 80,64
oBar:SetColor(0)
oBar:bClrGrad = { || { { 0.10,15724527,7303023 }, ;
{ 0.10,7303023,15724527 } } }
DEFINE BUTTON oButt1 of oBar ACTION ( _VehBrow( oWind )) ;
RESOURCE "Car",;
"Car",;
"Car";
PROMPT "Veh\Eq\Boat" ;
TOOLTIP "Vehicles and Equipment Information"
oButt1:lTransparent = .T.
DEFINE BUTTON oButt2 of oBar ACTION ( _Tripmenu( oWIND,dExe,oMenu ));
RESOURCE "Trips",;
"Trips",;
"Trips";
PROMPT "Trip\Resrv\Disp" ;
TOOLTIP "Trips, Reservations and Dispatch Information"
oButt2:lTransparent = .T.
DEFINE BUTTON oButt3 of oBar ACTION ( _Gasmenu( oWIND,dExe,oMenu ));
RESOURCE "Gaspump",;
"Gaspump",;
"Gaspump";
PROMPT "Gas\Cvrp" ;
TOOLTIP "Gas - Gas Import and CVRP Information"
oButt3:lTransparent = .T.
DEFINE BUTTON oButt4 of oBar ACTION ( _Mantmenu( oWIND,oMenu,dExe ));
RESOURCE "tools",;
"tools",;
"tools";
PROMPT "WorkOrd\Maint" ;
TOOLTIP "Work Orders and Maintenance Tables"
oButt3:lTransparent = .T.
DEFINE BUTTON oButt5 of oBar ACTION (_RPTmenu( oWIND, dEXE,oMenu )) ;
RESOURCE "report",;
"report",;
"report";
PROMPT "Reports" ;
TOOLTIP "Reports Menu"
DEFINE BUTTON oButt6 of oBar ACTION ( _UTILmenu( oWIND ));
RESOURCE "controlpanel",;
"controlpanel",;
"controlpanel";
PROMPT "Control Panel" ;
TOOLTIP "System Information and User Defined Tables"
DEFINE BUTTON oButt7 of oBar ACTION (_WebHelp( dExe )) ;
RESOURCE "palmetto" PROMPT "Created in SC" TOOLTIP "Help and About"
oButt7:lTransparent = .T.
DEFINE BUTTON oButt8 of oBar ACTION (SHELLEXECUTE(nil,"open", "calc.exe",0,0,1)) ;
RESOURCE "calculator" PROMPT "Calculator" TOOLTIP "Calculator"
oButt8:lTransparent = .T.
DEFINE BUTTON oButt9 of oBar ACTION oWind:End();
RESOURCE "exit" PROMPT "Quit" TOOLTIP "Quit"
oButt8:lTransparent = .T.
Old FWH1504
New FWH1612
