TreeView - Cambiar el Tipo de Letra

887 views
Skip to first unread message

wchalito

unread,
Sep 25, 2010, 2:46:46 AM9/25/10
to Comunidad de Visual Foxpro en Español
Saludos,

Alguien sabe (si se puede) cambiar el tipo de letra en un Control
TreeView, el que está actualmente es el tipo que quiero pero mas
pequeño.

Gracias anticipadas.

Atte.

Chalito
LIMA - PERU

Moises Daniel Vilchez Tello

unread,
Sep 25, 2010, 10:13:31 AM9/25/10
to publice...@googlegroups.com
Saludos amigo Roa, no creo que sea lo que buscas pero ahí te ayudo aunque creo q es fácil lo q estas buscando, dale click derecho a tu objeto treeview, luego TreeCtrl Properties , seleccionas la pestaña Font, y ahi tienes para cambiar el tipo de letra y el tamaño...
te adjunto unas imagenes, derrepente eso es lo que necesitas, saludos desde Chiclayo

--
Moises Daniel Vilchez Tello
Chiclayo - Lambayeque - Peru

1.PNG
2.PNG

Douglas Sánchez Guillén

unread,
Sep 25, 2010, 12:28:50 PM9/25/10
to publice...@googlegroups.com
Excelentes imagines alguien tiene esta clase y la pueda subir algun sitio donde se pueda descargar.

saludes...
Douglas
from Nicaragua
--
Douglas Sánchez Guillén
Tel 857-8475

mario oviedo

unread,
Sep 27, 2010, 8:20:00 PM9/27/10
to publice...@googlegroups.com
moises, disculpa, se puede cambiar el tamaño de las imagenes y las imagenes mismas de estos treeview, por ejemplo mi treeview le quiero colocar estas bolitas azules
trreview y ribbon.JPG
azules redondos.JPG

Moises Daniel Vilchez Tello

unread,
Sep 27, 2010, 8:34:50 PM9/27/10
to publice...@googlegroups.com
Saludos, en mi caso asocio un control ImageList y es ahi donde defino el tamaño de las imagenes, te adjunto una imagen, espero te sirva, saludos




El 27 de septiembre de 2010 19:20, mario oviedo <maov...@gmail.com> escribió:
moises, disculpa, se puede cambiar el tamaño de las imagenes y las imagenes mismas de estos treeview, por ejemplo mi treeview le quiero colocar estas bolitas azules



ImageList.PNG

wchalito

unread,
Sep 27, 2010, 10:11:04 PM9/27/10
to Comunidad de Visual Foxpro en Español
Moises, gracias... ya cambié el tipo de letra, la pantalla me caía
chica y necesitaba mostrar muchos datos en el treeview.

Saludos.


Chalito

On 25 sep, 09:13, Moises Daniel Vilchez Tello <mvilch...@gmail.com>
wrote:
> Saludos amigo Roa, no creo que sea lo que buscas pero ahí te
> ayudo aunque creo q es fácil lo q estas buscando, dale click derecho a tu
> objeto treeview, luego TreeCtrl Properties , seleccionas la pestaña Font, y
> ahi tienes para cambiar el tipo de letra y el tamaño...
> te adjunto unas imagenes, derrepente eso es lo que necesitas, saludos desde
> Chiclayo
>
> --
> *Moises Daniel Vilchez Tello
> Chiclayo - Lambayeque - Peru*
>
>  1.PNG
> 118 KVerDescargar
>
>  2.PNG
> 119 KVerDescargar

ibania blanco

unread,
Sep 29, 2010, 6:06:58 PM9/29/10
to Comunidad de Visual Foxpro en Español
moises daniel, yo creia que eso venia incluido en cada treewview, son
imagenes propias de cada treeview, pero como asocias esta
imagelist.png, quede lo mismo, o mas confundida

ibania blanco

unread,
Sep 29, 2010, 6:36:55 PM9/29/10
to Comunidad de Visual Foxpro en Español
como agrego un imagelistctrl

Jose Antonio

unread,
Sep 30, 2010, 4:38:47 AM9/30/10
to publice...@googlegroups.com
Yo lo hago asi:

********************************
* Añadimos ImageList
with Thisform
.AddObject('ImList','Olecontrol','MsComctlLib.ImageListCtrl.2')

* Añadimos imagenes al ImageList
With .ImList
.ListImages.Add(,,LoadPicture('aceptar.jpg'))
.ListImages.Add(,,LoadPicture('ok.bmp'))
Endwith

*
* Añadimos Treeview y le asignamos el ImageList
.AddObject('TrView','Olecontrol','MsComctlLib.TreeCtrl.2') &&Agregamos el control treeview
*
With .TrView
*
.ImageList = .Parent.ImList.Object
*
endwith
endwith

Un saludo.
--
Jose A. Blasco
Zaragoza - España


ibania blanco

unread,
Oct 1, 2010, 7:51:47 PM10/1/10
to Comunidad de Visual Foxpro en Español
bueno busque el control image y lo agregue al form del menu en donde
tengo tres treeview, pero no se como agregar las imagenes, ayuda for
please

Jose Antonio

unread,
Oct 4, 2010, 3:22:19 AM10/4/10
to publice...@googlegroups.com
Si te refieres a añadir las imágenes al objeto "image", en el ejemplo que te puse esta. Son estas lineas:

* Añadimos imagenes al objeto ImageList (ImList)
With .ImList
.ListImages.Add(,,LoadPicture('aceptar.jpg'))
.ListImages.Add(,,LoadPicture('ok.bmp'))
Endwith

ibania blanco

unread,
Oct 4, 2010, 7:20:24 PM10/4/10
to Comunidad de Visual Foxpro en Español
esto tengo el init del treeview

this.oBJECT.ImageList = ThisForm.pool.OBJECT
this.oBJECT.Nodes.Add(,4,"LST","Listados")
this.oBJECT.Nodes.Add("LST",4,"LST1","Listados Ctas X Pagar",9)
this.oBJECT.Nodes.Add("LST",4,"LST2","Listado Acumulado Cts X Pagar",
10)
this.oBJECT.Nodes.Add("LST",4,"LST3","Listado Compras Contado",11)
this.oBJECT.Nodes.Add("LST",4,"LST4","Listado Gastos",12)
THISFORM.olelistados.Font.Name = "Verdana"
THISFORM.olelistados.Font.Size = 7
THISFORM.olelistados.Nodes(1).Expanded = .T.

en donde coloco tu codigo, como adicono actualmente los graficos,
9,10,11,12 ese es el numero de los graficos que tengo, como adiciono
tu codigo
gracias

ibania blanco

unread,
Oct 4, 2010, 7:22:16 PM10/4/10
to Comunidad de Visual Foxpro en Español
pero eso icnonos que te menciono ya viene con el tree view, yo nos veo
por ningun lado, pero como tu los poenes si tengo algunos que los
quiere agregar

Jose Antonio

unread,
Oct 5, 2010, 3:17:16 AM10/5/10
to publice...@googlegroups.com
Hay 2 puntos a tener en cuenta :

- Por un lado esta el objeto "imagelist", que es el que contiene los iconos que posteriormente utilizaras en el "treeview".  Esto quiere decir, que debe contener los iconos que quieras, antes de poderse utilizar.  Las lineas 

* Añadimos imagenes al objeto ImageList (ImList)
With .ImList
.ListImages.Add(,,LoadPicture('aceptar.jpg'))
.ListImages.Add(,,LoadPicture('ok.bmp'))
Endwith

son un ejemplo de como añadir iconos al objeto "imagelist".  

- Para utilizar los iconos del objeto "imagelist", primero has de asignar este objeto al "treeview", con esta linea

MiTreeview.ImageList = thisform.ImList.Object

y una vez asignado, usas los iconos con el comando "Add" al asignar los elementos del "treeview".  Te adjunto la ayuda de dicho comando.  

Por supuesto, debes cambiar en mis ejemplos los nombres de los objetos por los tuyos.

Un saludo.
-- 
Add.pdf

ibania blanco

unread,
Oct 6, 2010, 10:20:17 AM10/6/10
to Comunidad de Visual Foxpro en Español
jose antonio hasta zaragoza - españa desde centroamerica, gracias por
tu ayuda, lo arregle de esta forma

this.oBJECT.ImageList = ThisForm.ImageList.OBJECT
this.oBJECT.Nodes.Add(,4,"ING","Ingresos")
this.oBJECT.Nodes.Add("ING",4,"ING1","Compras Credito",1)
this.oBJECT.Nodes.Add("ING",4,"ING2","Abonos Proveedor",2)

agregue un ole imagelist y le agregue los iconos que deseaba colocar,
la primera linea esta como thisform.pool.object, este pool contenia
los iconos fijos que queria cambiar, todo esto lo tengo en el init del
treeview, y cada uno lo fui agregando a imagelist y tenia un
correlativo, y es el numero al final de cada linea que en este caso
son 1,2 y mas, si te fijas al final de las lineas que agregue, y
ademas este tiene su forma tamaño que esta general height y el width,
altura y ancho.
una cosa que no entendi que usted me menciono ListImages y solo
encontre imagelist que al final no importa se me imagina y ademas no
pude ingresar la imagen directamente, como tu
decias .ListImages.Add(,,LoadPicture('aceptar.jpg'))
y este imagelist solo acepta bmp no acepta otros como jpg
de todas formas gracias

mario oviedo

unread,
Oct 6, 2010, 10:24:11 AM10/6/10
to publice...@googlegroups.com
asi le quedo a mi hermana
Dibujo.JPG

mario oviedo

unread,
Oct 6, 2010, 10:59:28 AM10/6/10
to publice...@googlegroups.com
ya lo cambio mi hermana, http://www.iconfinder.com, aqui hay buenos iconos
Dibujo.JPG

Jose Antonio

unread,
Oct 7, 2010, 3:29:16 AM10/7/10
to publice...@googlegroups.com
Con respecto a "ListImages", no es el nombre del objeto, sino una propiedad del objeto "imagelist", que hace referencia a la "coleccion" de imagenes que contiene.

Me alegro que te haya servido.
Reply all
Reply to author
Forward
0 new messages