Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
Código Fuente De Gambas
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Código Fuente De Gambas 
 
He estado escarbando en el gambas sourceforge buscando el código fuente que usa gambas para abrir un proyecto.
En concreto quisiera ver cómo hace para que aparezca la gamba como icono de las carpetas que contienen un proyecto de gambas, qué controles utiliza y cómo los maneja.
Imagino que lo detectan por presencia de fichero, pero no he encontrado el código de esa ventana.

¿Alguien sabe dónde está?
 



 
shordi - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Código Fuente De Gambas 
 
Shordi:

Citar:
En concreto quisiera ver cómo hace para que aparezca la gamba como icono de las carpetas que contienen un proyecto de gambas, qué controles utiliza y cómo los maneja.


Creo que lo que hace es leer en las carpetas si esta el archivo ".project", si esta lo lee, alli se encuentra información del icono del proyecto.

 lectura_de_un_proyecto

El control, usa un DrawArea ¿?  donde va añadiendo controles..

Para "personalizar" el icono, usa el evento _icon del  control es un DirView:
Public Sub dchProject_Icon(Path As String)

  If Exist(Path &/ ".project") Then
    dchProject.Icon = Project.GetIcon(Path)    
  Endif  

End


De esta manera personaliza el icono de la carpeta.

Nota:
Para "descubrir" esto, lo que hago es abrir el codigo fuente del proyecto de gambas3
 codigo_fuente_de_gambas3

Voy poniendo puntos de interrupción donde me interesa que se pare el programa, lo ejecuto.
Se parará donde he puesto los puntos de interrupción y empiezo a ver la "pila" y el valor de las variables.

 pila_de_ejecucion

Nota 2:
La subrutina GetIcon del módulo "Projetc"
Public Function GetIcon(sPath As String, Optional iSize As Integer) As Picture
  
  Dim hFile As File
  Dim sLig As String
  Dim sIcon As String
  
  hFile = Open sPath &/ ".project"
  
  For Each sLig In hFile.Lines
    If Left$(sLig, 5) = "Icon=" Then
      sIcon = Mid$(sLig, 6)
      Break
    Endif
  Next
  
  Close #hFile
  
  If sIcon Then
    sPath = sPath &/ sIcon
  Else
    sPath = "img/logo/project.png"
  Endif
  
  If iSize Then
    Return StretchIcon(sPath, iSize).Picture
  Else
    Return Picture.Load(sPath)
  Endif
  
Catch
  
  sPath = "img/logo/project.png"
  
  If iSize Then
    Return StretchIcon(sPath, iSize).Picture
  Else
    Return Picture.Load(sPath)
  Endif
  
End

 




===================
Blog personal
Web: SoloGambas seleccion de articulos dedicados a Gambas
Visita el Curso de Gambas3 ¡¡¡Gratuito!!!
 
última edición por jsbsan el Domingo, 06 Abril 2014, 19:32; editado 1 vez 
jsbsan - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Código Fuente De Gambas 
 
Citar:
Nota:
Para "descubrir" esto, lo que hago es abrir el codigo fuente del proyecto de gambas3

Donde se demuestra lo tonto que llego a ser, yo buscaba el código del componente que necesitaba y lo estudiaba en la misma web sin bajármelo...
Lo hago contínuamente en mi código y no se ha ocurrido nunca hacerlo en el proyecto gambas...

Me doy otra ración:
original
 



 
shordi - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes Como Ver Código Fuente De Un Proyecto X E... v3ctor C/C++ 1 Domingo, 06 Agosto 2017, 23:36 Ver último mensaje
jguardon
No hay nuevos mensajes Bajar El Código Fuente De Gambas Shell General 5 Martes, 14 Noviembre 2017, 19:45 Ver último mensaje
jsbsan
No hay nuevos mensajes Código Fuente De Gambas. Dudas Sencillas Shell General 4 Viernes, 18 May 2018, 12:49 Ver último mensaje
Shell
No hay nuevos mensajes Código Fuente De Gambas. Test De Controles Shell General 2 Jueves, 10 Enero 2019, 20:30 Ver último mensaje
Shell
 

Publicar nuevo tema  Responder al tema  Página 1 de 1
 

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno


 
Lista de permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario



  

 

cron