Sobre el uso de TImageList en Browsers
Publicado: Mié Jun 26, 2013 4:03 pm
Estimados amigos
Hasta ahora he usado iconos (definidos en los recursos del proyecto) en
columnas de algunos de mis browsers. Segun la documentacion es posible
indicar en lugar del nombre del recurso, el nombre de un archivo en
disco con lo cual entiendo se expanden las posibilidades.
He intentado sin resultados satisfactorios crear el browser con imagenes
desde disco así:
WITH OBJECT ::oCompanies := TDBBrowse():New( ::oBevel1 )
:SetBounds( 294, 20, 220, 200 )
:nRowDividerStyle := blLIGHTGRAY
:nRowHeight := 50
WITH OBJECT :oImageList
:nWidth := 48
:nHeight := 48
FOR EACH aCompany IN AppData:aMySQLPool
:Add( aCompany[4] )
NEXT
END
WITH OBJECT TDBBrwColumn():New( ::oCompanies )
:cHeader := "Column1"
:nWidth := 57
:oDataField := "logo"
:OnGetData := "CompaniesColumn1GetData"
:Create()
END
WITH OBJECT TDBBrwColumn():New( ::oCompanies )
:cHeader := "Column2"
:nWidth := 140
:oDataField := "name"
:Create()
END
:lRecordSelector := .F.
:oDataSet := ::oDS
:Create()
END
La pregunta que tengo es:
¿Existe alguna limitación en el tamaño o formato de los archivos a
cargar al objeto TImageList?
Todos los ejemplos que he visto hasta ahora con objetos TImageList se
basan en imagenes desde recursos
Gracias por sus comentarios
Saludos cordiales
Williams Pacheco
Hasta ahora he usado iconos (definidos en los recursos del proyecto) en
columnas de algunos de mis browsers. Segun la documentacion es posible
indicar en lugar del nombre del recurso, el nombre de un archivo en
disco con lo cual entiendo se expanden las posibilidades.
He intentado sin resultados satisfactorios crear el browser con imagenes
desde disco así:
WITH OBJECT ::oCompanies := TDBBrowse():New( ::oBevel1 )
:SetBounds( 294, 20, 220, 200 )
:nRowDividerStyle := blLIGHTGRAY
:nRowHeight := 50
WITH OBJECT :oImageList
:nWidth := 48
:nHeight := 48
FOR EACH aCompany IN AppData:aMySQLPool
:Add( aCompany[4] )
NEXT
END
WITH OBJECT TDBBrwColumn():New( ::oCompanies )
:cHeader := "Column1"
:nWidth := 57
:oDataField := "logo"
:OnGetData := "CompaniesColumn1GetData"
:Create()
END
WITH OBJECT TDBBrwColumn():New( ::oCompanies )
:cHeader := "Column2"
:nWidth := 140
:oDataField := "name"
:Create()
END
:lRecordSelector := .F.
:oDataSet := ::oDS
:Create()
END
La pregunta que tengo es:
¿Existe alguna limitación en el tamaño o formato de los archivos a
cargar al objeto TImageList?
Todos los ejemplos que he visto hasta ahora con objetos TImageList se
basan en imagenes desde recursos
Gracias por sus comentarios
Saludos cordiales
Williams Pacheco