Como cargar SVG por código en los controles
tincho 24-09-2021, 00:26
Hola amigos.
Les presento un método que uso bastante seguido en mis programas ya que ademas de la excelente calidad gráfica que se logra, evita el molesto problema de las imágenes "negativas"
Como cargar los archivos
Como cambiar el color antes de aplicarlos
Saludos.
Les presento un método que uso bastante seguido en mis programas ya que ademas de la excelente calidad gráfica que se logra, evita el molesto problema de las imágenes "negativas"
Como cargar los archivos
Código:
For Each oCont In [pTools]
For Each o In oCont.Children
If Object.Type(o) = "ToolButton" Then
z = (o.h - 8)
sPic = "./svg" &/ o.Tag & ".svg"
If Exist(sPic) Then
svg = dsk.Contrary(sPic, "#0066b3")
pic = Image.FromString(svg).Stretch(z, z).Picture
o.Picture = pic
Endif
Endif
Next
NextComo cambiar el color antes de aplicarlos
Código:
'' Replace a color in an svg file with one that contrasts with the background of the desktop theme
Public Function Contrary(sFile As String, sColor As String) As String
Dim svg As String
If Application.DarkTheme Then
svg = Replace(File.Load(sFile), sColor & ";", "#eeeeee;")
Else
svg = Replace(File.Load(sFile), sColor & ";", "#000000;")
Endif
Return svg
EndSaludos.
Shell 23-09-2021, 14:41
Buenas!.
Linux MInt 19.3.
La que fallaba creaba efectos raros visuales, parpadeaba el editor, las aplicaciones que salen en la lista, parpadeaba el recuadro,
el fondo dentro del editor donde van los accesos rápidos, como guardar e imprimir, pasaba el ratón por encima de los botones y
se iban activando.....que show.
Desde un principio tuve la idea por que fallaba.
Así que compilé de fuente gambas 3.15.2 y funcionó..la eliminé y volvía a instalar la 3.16.3, el mismo error.
Entonces usé la opción de usar información del sistema y quise ver las diferencia entre las dos distros.
Me estaba dando problemas el método de entrada. En la que fallaba estaba usando en el sistema como método de entrada: XIM
y se debe usar "ninguno". "Al menos en la aplicación que lo permite" en Linux MInt. En su día me llamaría la atención que no mostrase ninguno
y le puse XIM.
Comprender y configurar diferentes métodos de entrada
A ver si luego os pongo las diferencia de los dos archivos. Gracias a Meld.
La cosa es que solo lo hacía el editor de Gambas. Tenía otros IDE pero eran de texto. Ninguno con formularios.
P.d. Este poste debería estar en instalación.
Saludos
Linux MInt 19.3.
La que fallaba creaba efectos raros visuales, parpadeaba el editor, las aplicaciones que salen en la lista, parpadeaba el recuadro,
el fondo dentro del editor donde van los accesos rápidos, como guardar e imprimir, pasaba el ratón por encima de los botones y
se iban activando.....que show.
Desde un principio tuve la idea por que fallaba.
Así que compilé de fuente gambas 3.15.2 y funcionó..la eliminé y volvía a instalar la 3.16.3, el mismo error.
Entonces usé la opción de usar información del sistema y quise ver las diferencia entre las dos distros.
Me estaba dando problemas el método de entrada. En la que fallaba estaba usando en el sistema como método de entrada: XIM
y se debe usar "ninguno". "Al menos en la aplicación que lo permite" en Linux MInt. En su día me llamaría la atención que no mostrase ninguno
y le puse XIM.
Comprender y configurar diferentes métodos de entrada
A ver si luego os pongo las diferencia de los dos archivos. Gracias a Meld.
La cosa es que solo lo hacía el editor de Gambas. Tenía otros IDE pero eran de texto. Ninguno con formularios.
P.d. Este poste debería estar en instalación.
Saludos
tincho 23-09-2021, 12:35
Hola amigos.
Hay algunas funciones que utilizo, a través de shell, que seguramente se pueden hacer mejor usando Extern ya que se trata de ImageMagick y hay algo de eso en el wiki del foro italiano.
Esta es una de las funciones que uso:
¿Alguien tiene algo hecho que se pueda adaptar?
La finalidad de esta función en particular es preparar una imagen para poder armar un cuadernillo (Booklet) en A5
Saludos.
Hay algunas funciones que utilizo, a través de shell, que seguramente se pueden hacer mejor usando Extern ya que se trata de ImageMagick y hay algo de eso en el wiki del foro italiano.
Esta es una de las funciones que uso:
Código:
'' Corta los bordes blancos de la imagen JPEG.
Static Public Function JPEGTRIM(sPath As String, iPage As Integer) As String
Dim prs2 As Process
Dim strComm1 As String
Dim sTrim As String
Dim imgOrig As Image
Dim imgTrim As Image
sTrim = File.Dir(sPath) &/ "t" & Format(iPage, "000") & ".jpeg"
strComm1 = "convert "
strComm1 &= "-density 300 "
strComm1 &= "-resample 300x300 "
strComm1 &= "-trim "
strComm1 &= "'" & sPath & "' "
strComm1 &= "'" & sTrim & "'"
If Exist(sTrim) Then
Try Kill sTrim
Endif
Shell strComm1 Wait
prs2 = Shell strComm1
While
prs2.State = prs2.Running
Wait 0.05
Wend
Return sTrim
End¿Alguien tiene algo hecho que se pueda adaptar?
La finalidad de esta función en particular es preparar una imagen para poder armar un cuadernillo (Booklet) en A5
Saludos.
Bienvenido, Invitado
Últimos temas
Mostrar una imagen con Dr...
Foro: Aplicaciones/Fragmentos de CódigoÚltimo mensaje por: vuott, Hace 3 horas
Respuestas: 0 - Vistas: 9
Convertir formatos de aud...
Foro: Aplicaciones/Fragmentos de CódigoÚltimo mensaje por: tincho, Hace 5 horas
Respuestas: 3 - Vistas: 142
Paren...WAIT !!!
Foro: Aplicaciones/Fragmentos de CódigoÚltimo mensaje por: tincho, Hace 5 horas
Respuestas: 4 - Vistas: 480
Gambas y Wayland
Foro: GeneralÚltimo mensaje por: guizans, 20-08-2025, 13:56
Respuestas: 6 - Vistas: 615