Amigos del Foro.
Mis conocimientos de "C" son nulos.
Estoy tratando de incluir las funciones creadas aqui por Angel Salomon y Cristobal Navarro, en un proyecto Comandero para ampliar el tamaño de los Scrols Vertical y Horizontal.
- Code: Select all Expand view
#pragma BEGINDUMP
#include "windows.h"
#include "hbapi.h"
#include "hbcomp.h"
#pragma BEGINDUMP
#include "windows.h"
#include "hbapi.h"
#include "hbcomp.h"
HB_FUNC ( NONCLIENTGET )
{
NONCLIENTMETRICS mi;
memset( ( char * ) &mi, 0, sizeof( NONCLIENTMETRICS ) );
mi.cbSize = sizeof( NONCLIENTMETRICS );
SystemParametersInfo( SPI_GETNONCLIENTMETRICS, 0, &mi, 0);
// Devuelvo un array con los valores antes de cambiarlos
hb_reta(4);
hb_storvni(mi.iScrollWidth, -1, 1);
hb_storvni(mi.iScrollHeight,-1, 2);
hb_storvni(mi.iCaptionHeight, -1, 3);
hb_storvni(mi.iMenuHeight, -1, 4);
}
HB_FUNC ( NONCLIENTSET )
{
NONCLIENTMETRICS mi;
memset( ( char * ) &mi, 0, sizeof( NONCLIENTMETRICS ) );
mi.cbSize = sizeof( NONCLIENTMETRICS );
SystemParametersInfo( SPI_GETNONCLIENTMETRICS, 0, &mi, 0);
// Grabar el valor
mi.iScrollWidth = hb_parnl( 1 );
mi.iScrollHeight = hb_parnl( 2 );
mi.iCaptionHeight = hb_parnl ( 3 );
mi.iMenuHeight = hb_parnl ( 4 );
SystemParametersInfo( SPI_SETNONCLIENTMETRICS, sizeof( mi ), &mi, 0 ); //SPIF_SENDCHANGE); // Update Win.ini
}
#pragma ENDDUMP
Al compilar me tira el siguiente warning:
Warning W8065 D:\\RESTTO~1\\RESTOR~1\\comndero.prg 1436: Call to function 'hb_storvni' with no prototype in function HB_FUN_NONCLIENTGET
Aunque crea el ejecutable y funciona bien, al salir no devuelve los Scrols a su tamaño original.
Como dije, desconozco el lenguaje C, y por lo tanto no soy capaz de modificar este codigo.
Quizas Cristobal, Angel o alguien mas quiera "darme una luz".
Gracias.
Posted: Thu Jul 09, 2015 2:53 pm