IDENTIFICATION DIVISION.
PROGRAM-ID. VISTA-EXTENDIDA.
**************************************************
* RUTINA PARA OPCIONES EXTENDIDAS EN EL LISTVIEW *
**************************************************
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES.
DECIMAL-POINT IS COMMA.
INPUT-OUTPUT SECTION.
DATA DIVISION.
WORKING-STORAGE SECTION.
*MOVE "HWND" OF NOMBRE-CONTROL TO WS-HANDLE
01 WS-LINEA-ENTERA PIC S9(9) COMP-5 VALUE 32.
01 WS-LINK PIC S9(9) COMP-5.
01 WS-GRID PIC S9(9) COMP-5 value 01.
01 WS-DRAG PIC S9(9) COMP-5 VALUE 16.
01 LVM-SETEXTENDEDLISTVIEWSTYLE PIC S9(9) COMP-5 VALUE 4150.
01 LVS-EX-FULLROWSELECT PIC S9(9) COMP-5 VALUE 32.
01 LVS-EX-HEADERDRAGDROP PIC S9(9) COMP-5 VALUE 16.
01 LVS-EX-GRIDLINES PIC S9(9) COMP-5 VALUE 01.
01 LVS-EX-FLATSB PIC S9(9) COMP-5 VALUE 256.
01 LVS-NOSORTHEADER PIC S9(9) COMP-5 VALUE H"8000".
01 LV-STYLE PIC S9(9) COMP-5.
01 LVM_GETHEADER PIC S9(9) COMP-5 VALUE H"101F".
01 RESP PIC S9(9) COMP-5.
LINKAGE SECTION.
01 WS-HANDLE PIC S9(9) COMP-5.
PROCEDURE DIVISION USING WS-HANDLE.
**********************************************
**** HABILITA LINEA ENTERA EN EL LISTVIEW ****
**********************************************
CALL "SendMessageA" WITH STDCALL USING BY VALUE WS-HANDLE
BY VALUE LVM-SETEXTENDEDLISTVIEWSTYLE
BY VALUE LVS-EX-FULLROWSELECT
BY VALUE WS-LINEA-ENTERA
****************************************************
**** HABILITA CAMBIO DE COLUMNAS EN EL LISTVIEW ****
****************************************************
CALL "SendMessageA" WITH STDCALL USING BY VALUE WS-HANDLE
BY VALUE LVM-SETEXTENDEDLISTVIEWSTYLE
BY VALUE LVS-EX-HEADERDRAGDROP
BY VALUE WS-DRAG
*****************************************************
**** HABILITA APARIENCIA DE TABLA EN EL LISTVIEW ****
*****************************************************
CALL "SendMessageA" WITH STDCALL USING BY VALUE WS-HANDLE
BY VALUE LVM-SETEXTENDEDLISTVIEWSTYLE
BY VALUE LVS-EX-GRIDLINES
BY VALUE WS-GRID
*****************************************************
**** HABILITA FLAT SCROLLBARS ****
*****************************************************
CALL "SendMessageA" WITH STDCALL USING BY VALUE WS-HANDLE
BY VALUE LVM-SETEXTENDEDLISTVIEWSTYLE
BY VALUE LVS-EX-FLATSB
BY VALUE -1
*****************************************************
**** DESHABILITA CABECERA ****
*****************************************************
CALL "SendMessageA" WITH STDCALL USING BY VALUE WS-HANDLE
BY VALUE LVM_GETHEADER
BY VALUE 0
BY VALUE 0
RETURNING RESP
CALL "EnableWindow" WITH STDCALL USING BY VALUE RESP
BY VALUE 0
*****************************************************
**** DESHABILITA BOTONES ****
*****************************************************
CALL "GetWindowLongA" WITH STDCALL USING BY VALUE WS-HANDLE
BY VALUE -16
RETURNING LV-STYLE .
ADD LVS-NOSORTHEADER TO LV-STYLE
CALL "SetWindowLongA" WITH STDCALL USING BY VALUE WS-HANDLE
BY VALUE -16
BY VALUE LV-STYLE
.
Marcadores