DIALOG ( FENETRE DE LOG RICHEDIT )

;	a inclure dans votre source asm
;	logCreate(HANDLE hwParent) ; cree le dialog
;	logAll(PSTR string) ; envoi la chaine string a la fenetre de log

@ EQU OFFSET
IDC_RICHEDIT1	EQU	2001

logCreate	PROTO	:DWORD
logAll	PROTO	:DWORD

; ne pas utiliser en fenetre principale

;*******************************************************************.data
;*******************************************************************	azREdit	db	"RichEd20.dll",0
	dlg01	db	"LOGVIEW",0

;*******************************************************************.data?
;*******************************************************************	hRLib		dd	?
	hwLog		dd	?

;*******************************************************************.code
;*******************************************************************; PUBLIC

logCreate	PROC	hwParent:DWORD
	invoke	LoadLibrary,@ azREdit
	and		eax,eax
	mov		hRLib,eax
	stc
	je		@F
	invoke	CreateDialogParam,hInstance,@ dlg01,hwParent,@ wpLog,0
	clc
@@:
	ret
logCreate	ENDP

;*******************************************************************
logAll	PROC USES EBX pStr:DWORD

	;
	;	log send to screen
	;

	invoke	GetDlgItem,hwLog,IDC_RICHEDIT1
	mov		ebx,eax
	push	-1
	push	-1
	invoke	SendMessage,ebx,EM_EXSETSEL,0,esp
	invoke	SendMessage,ebx,EM_REPLACESEL,FALSE,pStr
	invoke	SendMessage,ebx,EM_SCROLLCARET,0,0
	invoke	UpdateWindow,ebx
	add		esp,2*4

	ret
logAll	ENDP

;*******************************************************************; PRIVATE

wpLog	PROC	hWin:DWORD,uMsg:DWORD,wParam:DWORD,lParam:DWORD

	mov		ecx,uMsg

	cmp		ecx,WM_INITDIALOG
	je		do_INITDIALOG
	cmp		ecx,WM_CLOSE
	je		do_CLOSE

do_DEFAULT:
	xor		eax,eax
	ret

do_INITDIALOG:
	push	hWin
	pop		hwLog
	push	ebx

	invoke	GetDlgItem,hWin,IDC_RICHEDIT1
	mov		ebx,eax
	push	-1
	push	0
	invoke	SendMessage,ebx,EM_EXSETSEL,0,esp
	invoke	SendMessage,ebx,EM_REPLACESEL,FALSE,esp
	invoke	SendMessage,ebx,EM_SCROLLCARET,0,0
	add		esp,2*4

	xor		eax,eax
	pop		ebx
	ret

do_CLOSE:
	invoke	FreeLibrary,hRLib
	xor		eax,eax
	ret

wpLog	ENDP

;*******************************************************************
;FICHIER RESSOURCE
;*******************************************************************
;	dans le fichier ressource copier/coller

#include "\inc\resource.h"

#define IDC_STATIC	-1

//#define LOGVIEW		2000
#define IDC_RICHEDIT1	2001

LOGVIEW DIALOG DISCARDABLE  200, 0, 500, 250
STYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU | WS_VISIBLE
CAPTION "Log"
FONT 8, "MS Sans Serif"
BEGIN
    CONTROL         "",IDC_RICHEDIT1,"RichEdit20A",ES_MULTILINE | ES_AUTOHSCROLL | ES_AUTOVSCROLL | WS_BORDER | WS_TABSTOP | WS_VSCROLL,1,1,498,248
END