PC Toledo

Código: Selecionar todos

function main()
private ct, linha:= 02, coluna:=01

set cursor off

// sete o mapa de códigos que estiver usando aqui
	REQUEST HB_LANG_PT
	REQUEST HB_CODEPAGE_UTF8EX
	HB_LANGSELECT( 'PT' )
	HB_CDPSELECT( "UTF8EX" )	

cls
@ 00,01 say "MAPA DE CARACTERES - TECLE [ESC] PARA SAIR"

for ct:= 32 to 256
    @ linha,coluna say strzero(ct,3) + "=" + chr(ct)
    coluna = coluna + 8
    if coluna > 75
        coluna := 1
        ++linha
    endif
next

do while lastkey() <> 27
    inkey(0)
enddo
return NIL

Código: Selecionar todos

**************************************
Function Chart(hDll,oMainWindow,sTemp)
**************************************
*
*
Local nRetVal:=0
nRetVal := DllCall(hDll,DLL_OSAPI,"RMC_CREATECHARTFROMFILE",oMainWindow:Handle,1001,10,10,0,sTemp)
nRetVal := DllCall(hDll,DLL_OSAPI,"RMC_DRAW",1001)
return ""

*************************************
Function PrintChart(hDll,oMainWindow)
*************************************
*
*
local nRetVal:=0
nRetVal := DllCall(hDll,DLL_OSAPI,"RMC_DRAW2PRINTER",1001,,5,5,196,140,RMC_EMF)
Return .t.

******************************
Function Grafico(sTemp,lPrint)
******************************
*
*
Local oMainWindow, oFont, hDll

   hDll:=DllLoad("rmchart.dll")

   PREPARE FONT oFont NAME "Times New Roman" WIDTH 0 HEIGHT -17 CHARSET 4

   INIT DIALOG oMainWindow  TITLE "GRÁFICO"  Font oFont AT 0,0 SIZE 910,620 STYLE DS_CENTER+WS_OVERLAPPEDWINDOW+WS_VISIBLE ;
   On Init {|| Chart(hDll,oMainWindow,sTemp) }

   @ 820,020 ButtonEx oBtPrint Caption ''  TRANSPARENT of oMainWindow Style WS_TABSTOP Size 70,70 BITMAP (HBitmap():AddFile(cImageDir+'impressora.bmp')):handle BSTYLE 1 ON CLICK {||PrintChart(hDll,oMainWindow)}

   oMainWindow:Activate()

Return Nil