Hi Carles...,
Congratulations.
Your work is simply superb. Specially the designer.
Regards,
- Ramesh Babu
Hi Carles...,
Congratulations.
Your work is simply superb. Specially the designer.
Regards,
Carles un bon treball...
Como todo lo tuyo muy bueno voy a terminar de mirarlo y te comento cosas.
hay un error al compilar
Error: Unresolved external '_HB_FUNCLSUNLOCKDEF'
Error: Unresolved external 'HB_FUN_FW_GT'
Error: Unresolved external '_HB_FUN_CLSLOCKDEF'
Que tengas un buen dĂa,
Domenico
Cosas que echo en falta:
1) La posibilidad de incorporar lineas, solo hay la posibilidad de poner un box.
2) La posibilidad de incorporar reglas tanto vertical como horizontal, si no tienes la clase la busco y te la mando pero está publicada en el foro.
Bueno Carles voy a ver lo que has incorporado en la nueva versiĂłn y te comento.
1) La posibilidad de incorporar lineas, solo hay la posibilidad de poner un box.
2) La posibilidad de incorporar reglas tanto vertical como horizontal, si no tienes la clase la busco y te la mando pero está publicada en el foro
Operacion: TMENU:L2010.
Description: Message not found.
Enhorabuena por el trabajo !!!!!!!!!
Andres,
Son las datas nuevas q estan en la nueva version 11.05. Son usadas en el RPreview. Se me ocurre q quizas podrias enlazar tu preview.prg antes de la libreria...
Ok, luego lo miro que estoy un poco liado. Una cosa más, la idea es ponerlo incorporado junto a mis programas como diseñador de reportes. La cosa es que el diseñador está en inglés, hay posibilidad de cambiarlo a castellano, catalan o cualquier otro idioma. Creo que esa parte del código no lo vas a liberar, pero hay posibilidad que elijamos el idioma.
Otra cosa, es compatible con xharbour, te lo digo porque de momento solo lo he enlazado con harbour?
Creo que esa parte del cĂłdigo no lo vas a liberar
pero hay posibilidad que elijamos el idioma.
es compatible con xharbour
Moltes gracies Carles, ets un geni. Con aportes como este mejoramos mucho el desarrollo.


//----------------------------------------------------------------------------//
#pragma BEGINDUMP
#include <Windows.h>
#include <HbApi.h>
//----------------------------------------------------------------------------//
HB_FUNC( DRAWGRID ) // hWnd, hDC, @cPS, wGridX, wGridY
{
WORD wRow, wCol;
HDC hDC = ( HDC ) hb_parnl( 2 );
PAINTSTRUCT * ps = ( PAINTSTRUCT * ) hb_parc( 3 );
WORD wGridX = hb_parni( 4 );
WORD wGridY = hb_parni( 5 );
RECT rc;
WORD wWidth, wHeight;
HPEN hOldPen;
HPEN hGray = CreatePen( PS_SOLID, 0, RGB( 210, 210, 210 ) );
HPEN hGray2 = CreatePen( PS_SOLID, 0, RGB( 230, 230, 230 ) );
hOldPen = ( HPEN ) SelectObject( hDC, hGray );
GetWindowRect( ( HWND ) hb_parnl( 1 ), &rc );
wWidth = rc.right - rc.left + 1;
wHeight = rc.bottom - rc.top + 1;
for( wRow = 0; wRow <= wHeight; wRow += wGridX )
{
MoveTo( hDC, 0, wRow );
LineTo( hDC, wWidth, wRow ) ;
}
for( wCol = 0; wCol <= wWidth; wCol += wGridY )
{
MoveTo( hDC, wCol, 0 );
LineTo( hDC, wCol, wHeight ) ;
}
SelectObject( hDC, hGray2 );
for( wRow = wGridX/2; wRow <= wHeight; wRow += wGridX )
{
MoveTo( hDC, 0, wRow );
LineTo( hDC, wWidth, wRow ) ;
}
for( wCol = wGridY/2; wCol <= wWidth; wCol += wGridY )
{
MoveTo( hDC, wCol, 0 );
LineTo( hDC, wCol, wHeight ) ;
}
SelectObject( hDC, hOldPen );
DeleteObject( hGray );
DeleteObject( hGray2);
//SetPixel( hDC, wCol, wRow, 0 );
}
//----------------------------------------------------------------------------//
#pragma ENDDUMP */