Posts: 396

Joined: Tue Mar 18, 2008 09:41 PM

como poner Bitmap en botón en celda de un XBrowse (solución)
Posted: Tue May 27, 2008 02:39 PM

Hola,

Si quereis darle un aspecto mejor al botón EDIT_GET_BUTTON que sale al final de la celda, de un XBrowse, podeis hacerlo de la siguiente manera:

Code: Select all Collapse

oCol:oBtnElip:LoadBitmaps( ,, cBmpFileName )

METHOD LoadBitmaps( cResName1, cResName2, cBmpFile1, cBmpFile2,
cResName3, cBmpFile3 )

El bitmap lo puedes coger desde un fichero en disco ó desde recursos.

Agradecimientos a Antonio Linares.

Javier,

FWH 8.04 2008

AIDA

Posts: 880

Joined: Fri Jan 12, 2007 08:35 PM

GRACIAS!!!!!!
Posted: Tue May 27, 2008 03:29 PM

Gracias jfafive

Lo provare a ver que tal, seria bonito un botonsito mas elegante

otra pregunta

esto donde se pone :oops:

METHOD LoadBitmaps( cResName1, cResName2, cBmpFile1, cBmpFile2,
cResName3, cBmpFile3 )

Saluditos

Aida :wink:

Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ

jfafive

Posts: 396

Joined: Tue Mar 18, 2008 09:41 PM

como poner Bitmap en botón en celda de un XBrowse (solución)
Posted: Tue May 27, 2008 08:42 PM

En ninguna parte Aida,

eso es solo una muestra para que sepais en que orden van los parametros del bitmap.

Saludos.

Javier,

FWH 8.04 2008

AIDA

Posts: 880

Joined: Fri Jan 12, 2007 08:35 PM

como poner Bitmap en botón en celda de un XBrowse (solución)
Posted: Wed May 28, 2008 01:46 AM

Hola ya lo intente pero me sale un error :cry:

Application

Path and name: C:\FWH\BITACORA\bitacora.Exe (32 bits)
Size: 684,032 bytes
Time from start: 0 hours 0 mins 48 secs
Error occurred at: 27-05-2008, 20:43:52
Error description: Error BASE/1004 Class: 'NIL' has no exported method: LOADBITMAPS
Args:
[ 1] = U
[ 2] = U
[ 3] = U
[ 4] = C ima\16x16\ambulance.bmp

Stack Calls

Called from: => LOADBITMAPS(0)
Called from: TEST2003.PRG => ODBFBROWSE2(1142)
Called from: TEST2003.PRG => SEGURO(3380)
Called from: TEST2003.PRG => (b)MAIN(427)
Called from: BUTTON.PRG => TBUTTON:CLICK(0)
Called from: CONTROL.PRG => TBUTTON:HANDLEEVENT(0)
Called from: WINDOW.PRG => _FWH(0)
Called from: => SENDMESSAGE(0)
Called from: DIALOG.PRG => TDIALOG:COMMAND(0)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: DIALOG.PRG => TDIALOG:HANDLEEVENT(0)
Called from: WINDOW.PRG => _FWH(0)
Called from: TEST2003.PRG => NOGPF(0)
Called from: TEST2003.PRG => WINRUN(5811)
Called from: WINDOW.PRG => TMDIFRAME:ACTIVATE(0)
Called from: TEST2003.PRG => MAIN(819)

a si lo puse estara mal?

oCol:= oBrw:AddCol()
oCol:cHeader := "DATOS SERVICIOS"
oCol:bClrHeader := { || { CLR_RED,RGB(176,196,222 ) } }
oCol:bStrData := { || ALLTRIM(BITACORA->DATOS1)}
oCol:nHeadStrAlign := AL_CENTER
oCol:nDataStrAlign := AL_LEFT
oCol:nWidth := 400
oCol:nEditType := EDIT_GET_BUTTON
oCol:oBtnElip:LoadBitmaps(,,"ima\16x16\ambulance.bmp" )
oCol:bEditBlock := {|| Memo02()}
oCol:bRClickHeader := { |nRow,nCol| Alert( oBrw:nColOffSet - 1 + oBrw:MouseColPos( nCol ) ) }
oCol:bOnPostedit := {|| tone(10,10) }

Saluditos

Aida

Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ

jfafive

Posts: 396

Joined: Tue Mar 18, 2008 09:41 PM

como poner Bitmap en botón en celda de un XBrowse (solución)
Posted: Wed May 28, 2008 07:12 AM

Hola AIda,

Este es tu codigo:

Code: Select all Collapse

oCol:= oBrw:AddCol() 
oCol:cHeader := "DATOS SERVICIOS" 
oCol:bClrHeader := { || { CLR_RED,RGB(176,196,222 ) } } 
oCol:bStrData := { || ALLTRIM(BITACORA->DATOS1)} 
oCol:nHeadStrAlign := AL_CENTER 
oCol:nDataStrAlign := AL_LEFT 
oCol:nWidth := 400 
oCol:nEditType := EDIT_GET_BUTTON 
oCol:oBtnElip:LoadBitmaps(,,"ima\16x16\ambulance.bmp" ) 
oCol:bEditBlock := {|| Memo02()} 
oCol:bRClickHeader := { |nRow,nCol| Alert( oBrw:nColOffSet - 1 + oBrw:MouseColPos( nCol ) ) } 
oCol:bOnPostedit := {|| tone(10,10) }

Fijate en la primera linea, la que dice:

oCol:= oBrw:AddCol()

No funciona así. Pues debes hacer referencia a una columna que ya exista y que este declarada en tu XBrowse.

De modo que sería:

oColDatos1 := oBrw:oCol( nombre_columna )

Te paso un ejemplo integro, pero tendras que adaptarlo a tu necesidad:

Code: Select all Collapse

REDEFINE XBROWSE oBrw ;
   ARRAY aDatos ;
   ID ID_BRW ;
   HEADERS "Palabra",;
                  "Fichero",;
                  "Ruta" ; // <- nombre columna que hago referencia luego para cargar el bitmap
   OF oDlg UPDATE

oBrw:aCols[1]:cHeader  := "Nombre"
oBrw:aCols[2]:cHeader  := "Direccion"
oBrw:aCols[3]:cHeader  := "Ruta"
oColPath                       := oBrw:oCol("Ruta"),;
oColPath:nEditType        := EDIT_GET_BUTTON,;
oColPath:oBtnElip:LoadBitmaps( "lupa" ),;

Espero te haya servido de ayuda.

Un saludo.

Javier,

FWH 8.04 2008

jfafive

Posts: 396

Joined: Tue Mar 18, 2008 09:41 PM

como poner Bitmap en botón en celda de un XBrowse (solución)
Posted: Wed May 28, 2008 07:14 AM

Ups!!

Perdón, en el ejemplo anterior.

Code: Select all Collapse