AVANCES:
-
MINI ZOOM TOOL -
COMPLETO!
gracias a la estupenda GUI que estoy haciendo, el código de la ventana del zoom se reduce a esta basura jeje
[Codebox=gemix file=Untitled.gemix]PROCESS VENTANA_ZOOM(X,Y,ID_);
BEGIN
WINDOW_ZOOM=TRUE;
GRAPH = GUI_CREATE_FORM(200,63);
GUI_SET_TITLE("MINI ZOOM TOOL",FNT_AMARILLO);
GUI_TILED_BUTTON(22,42,32,32,F_MAIN,58,"OK_"); // X Y ANCHO ALTO FPG GRAFICO MENSAJE
GUI_TILED_BUTTON(60,42,32,32,F_MAIN,60,"-10_ZOOM");
GUI_TILED_BUTTON(95,42,32,32,F_MAIN,63,"-1_ZOOM");
GUI_TILED_BUTTON(135,42,32,32,F_MAIN,61,"+1_ZOOM");
GUI_TILED_BUTTON(170,42,32,32,F_MAIN,62,"+10_ZOOM");
LOOP
IF(MSG_=="-10_ZOOM")ID_GRAFICO_A_EDITAR.MSG_="-10_ZOOM";END // LE PASO EL MENSAJE DE LOS BOTONES AL GRAFICO A EDITAR.. ALLI HAGO EL ZOOM REAL..
IF(MSG_=="-1_ZOOM")ID_GRAFICO_A_EDITAR.MSG_="-1_ZOOM";END
IF(MSG_=="+10_ZOOM")ID_GRAFICO_A_EDITAR.MSG_="+10_ZOOM";END
IF(MSG_=="+1_ZOOM")ID_GRAFICO_A_EDITAR.MSG_="+1_ZOOM";END
IF(MSG_=="OK_")BREAK;END
MSG_=0;
FRAME;
END
WINDOW_ZOOM=FALSE;
CAMBIA_Z(TYPE BARRA_DE_ARRASTRE,ID_); // devuelvo el foco a la ventana que ha hecho la llamada a esta sub_rutina..
GUI_QUIT_FORM();
END[/Codebox]