Saludos,
Existe alguna clase que me permita manejar graficos de este tipo en tiempo de ejecucion?
Gracias de antemano
FWH 25.12
Harbour/Hbmk2
Microsoft Visual C++
MySql 8.0
Antigravity
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Clase para Graficos Vectoriales
Page: 1 2 (21 posts)
Puedes usar HTML5 SVG y visualizarlo desde tu app usando la Clase TWebView:
https://www.w3schools.com/html/html5_svg.asp
Asi el trabajo que hagas te sirve para desktop y para la web directamente
https://www.w3schools.com/html/html5_svg.asp
Asi el trabajo que hagas te sirve para desktop y para la web directamente
Gracias maestro,
En tiempo de ejecucion necesito cambiar los valores e irlos viendo al mismo tiempo, por lo tanto esta solucion no creo que sea viable.
FWH 25.12
Harbour/Hbmk2
Microsoft Visual C++
MySql 8.0
Antigravity
Si explicas con mas detalle lo que necesitas, veremos como poder hacerlo y ayudarte mejor 
Antonio Linares wrote:Si explicas con mas detalle lo que necesitas, veremos como poder hacerlo y ayudarte mejor
Como dicen,
Una imagen vale mas que mil palabras
Con los controles Slider la imagen deberia ajustarse a medida que se vayan graduando cada uno, eso en tiempo de ejecucion
FWH 25.12
Harbour/Hbmk2
Microsoft Visual C++
MySql 8.0
Antigravity
Que aplicaci贸n es esa ? Existe demo ?
Antonio Linares wrote:Que aplicaci贸n es esa ? Existe demo ?
Es una aplicacion de Sasteria, no existe demo
FWH 25.12
Harbour/Hbmk2
Microsoft Visual C++
MySql 8.0
Antigravity
No necesitas graficos vectoriales para hacer eso, solo tienes que dibujar "arcos" usando la funci贸n Arc() disponible en FWH
https://docs.microsoft.com/en-us/windows/win32/api/wingdi/nf-wingdi-arc
https://docs.microsoft.com/en-us/windows/win32/api/wingdi/nf-wingdi-arc
Gracias maestro,
Existe algun ejemplo en los samples de FWH?
FWH 25.12
Harbour/Hbmk2
Microsoft Visual C++
MySql 8.0
Antigravity
Aqui tienes un ejemplo, para las lineas curvas tienes que usar Arc()
#include "FiveWin.ch"
#include "slider.ch"
static nLargoManga := 400
function Main()
聽 聽local oWnd, oSlider, nValue := 400, oPanel
聽 聽DEFINE WINDOW oWnd
聽 聽@ 2, 2 SLIDER oSlider VAR nValue SIZE 300, 20 OF oWnd ;
聽 聽 聽 COLORS nil, nil, CLR_BLUE SLIMSTYLE ;
聽 聽 聽 RANGE 0, 800 ON CHANGE ( nLargoManga := nValue, oPanel:Refresh() )
聽 聽@ 20, 350 PANEL oPanel OF oWnd SIZE 1200, 800
聽 聽oPanel:SetColor( "W/N" )
聽 聽oPanel:bPainted = { | hDC | Paint( hDC ) }
聽 聽ACTIVATE WINDOW oWnd MAXIMIZED
return nil
function Paint( hDC )
聽 聽local hOldPen, hBluePen
聽 聽hBluePen 聽= CreatePen( PS_SOLID, 1, CLR_HBLUE )
聽 聽hOldPen = SelectObject( hDC, hBluePen )
聽 聽MoveTo( hDC, 100, 100 )
聽 聽LineTo( hDC, 100, nLargoManga )
聽 聽MoveTo( hDC, 100, nLargoManga )
聽 聽LineTo( hDC, 200, nLargoManga )
聽 聽MoveTo( hDC, 200, nLargoManga )
聽 聽LineTo( hDC, 200, 200 )
聽 聽SelectObject( hDC, hOldPen ) 聽
return nilWOW!!
Que potencia la de FWH.
Muchas gracuias maestro, probare lo de las curvas.
FWH 25.12
Harbour/Hbmk2
Microsoft Visual C++
MySql 8.0
Antigravity
Antonio, buenas noches.
Por favor un ejemplo con lineas y arcos unidos
Gracias
J. Ernesto Pinto Q.
Fwh_x64 2501, BCC++_x64 7_70 , Harbour 3.20, LopeEdit 5.8
jepsys@hotmail.com, jepsys@gmail.com
Cuesti贸n de matem谩ticas y de ir probando
#include "FiveWin.ch"
#include "slider.ch"
static nLargoManga := 400
function Main()
聽 聽local oWnd, oSlider, nValue := 400, oPanel
聽 聽DEFINE WINDOW oWnd
聽 聽@ 2, 2 SLIDER oSlider VAR nValue SIZE 300, 20 OF oWnd ;
聽 聽 聽 COLORS nil, nil, CLR_BLUE SLIMSTYLE ;
聽 聽 聽 RANGE 0, 800 ON CHANGE ( nLargoManga := nValue, oPanel:Refresh() )
聽 聽@ 20, 350 PANEL oPanel OF oWnd SIZE 1200, 800
聽 聽oPanel:SetColor( "W/N" )
聽 聽oPanel:bPainted = { | hDC | Paint( hDC ) }
聽 聽ACTIVATE WINDOW oWnd MAXIMIZED
return nil
function Paint( hDC )
聽 聽local hOldPen, hBluePen, x, y, n
聽 聽hBluePen 聽= CreatePen( PS_SOLID, 1, CLR_HBLUE )
聽 聽hOldPen = SelectObject( hDC, hBluePen )
聽 聽MoveTo( hDC, 100, 100 )
聽 聽LineTo( hDC, 100, nLargoManga )
聽 聽MoveTo( hDC, 100, nLargoManga )
聽 聽LineTo( hDC, 200, nLargoManga )
聽 聽MoveTo( hDC, 200, nLargoManga )
聽 聽LineTo( hDC, 200, 160 )
聽 聽MoveTo( hDC, 100, 100 )
聽 聽x = 100
聽 聽y = 100
聽
聽 聽for n = 0 to 100
聽 聽 聽 聽x = x + 1
聽 聽 聽 聽y = y + ( 1 * sin( n * 3.14 / 100 ) )
聽 聽 聽 聽SetPixel( hdc, x, y, CLR_HBLUE )
聽 聽next 聽 聽
聽 聽SelectObject( hDC, hOldPen ) 聽
return nilHola maestro, muchas gracias por los ejemplos.
Como puedo expresar o calcular los valores en centimetros o pulgadas, es decir, la altura en centimetros o pulgadas y que estos sean centimetros o pulgadas cuando se imprima? (Me disculpo por la redundancia)
Gracias de antemano
FWH 25.12
Harbour/Hbmk2
Microsoft Visual C++
MySql 8.0
Antigravity
Existen varios factores a tener en cuenta:
-
centimetros = pulgadas x 2,54
-
en la pantalla vemos pixeles, y la cantidad de pixeles depende de los DPI (dots per inch = puntos por pulgada) del dispositivo
-
una aproximaci贸n ser铆a que points = pixels * 72 / 96, lo que quiere decir que hacen falta 72 puntos por pulgadas y 96 pixeles por pulgadas
-
Normalmente usamos 300 DPI para imprimir, esto es: 300 pixeles por pulgada
Page: 1 2 (21 posts)