Subversion Repositories Kolibri OS

; <--- description --->

; compiler:     FASM

; name:         Clipboard test with GUI.

; version:      0.1

; author:       barsuk

; comments: 	uses edit_box by Maxxxx32, (old static version)

; <--- include all MeOS stuff --->

include "lang.inc"

include "..\..\..\macros.inc"

; <--- start of MenuetOS application --->

MEOS_APP_START

SEND_DELAY = 10

RECV_DELAY = 100

ATTEMPT = 5

define DEBUG TRUE

include "bdebug.inc"

include "editbox.inc"

include "clip.inc"

use_edit_box

; <--- start of code --->

CODE

    call    clipboard_init

    call    draw_window            ; at first create and draw the window

wait_event:                      ; main cycle

	mov	edi, input_box

	call	edit_box.mouse

    mov     eax, 10

    int     0x40

    cmp     eax, 1                 ;   if event == 1

    je      redraw                 ;     jump to redraw handler

    cmp     eax, 2                 ;   else if event == 2

    je      key                    ;     jump to key handler

    cmp     eax, 3                 ;   else if event == 3

    je      button                 ;     jump to button handler

    jmp     wait_event             ;   else return to the start of main cycle

redraw:                          ; redraw event handler

    call    draw_window

    jmp     wait_event

key:                             ; key event handler

	mov     eax, 2                 ;   get key code

	int     0x40

	cmp	ah, '0'

	jb	no_digit

	cmp	ah, '9'

	ja	no_digit

	sub	ah, '0'

	mov	byte [format_id], ah

	call	draw_window

	jmp	wait_event

no_digit:

	mov	edi, input_box

	call	edit_box.key

	jmp     wait_event

  button:                          ; button event handler

    mov     eax, 17                ;   get button identifier

    int     0x40

    cmp     ah, 1

    jz      exit

	cmp	ah, 5

	jz	copy

	cmp	ah, 6

	jz	paste

	jmp	wait_event

copy:

	mov	esi, input_text

	mov	edi, buffer.data

	mov	ecx, [buffer.size]

	rep	movsb			; copy text to buffer

	mov	edi, input_box

	mov	edx, [edi + 38]		; ed_size

	xchg	edx, [buffer.size]

	movzx	eax, byte [format_id]

	mov	esi, buffer

	call	clipboard_write

	xchg	edx, [buffer.size]

	jmp	wait_event

paste:

	mov	esi, buffer

	movzx	eax, byte [format_id]

	mov	edx, 7

	call	clipboard_read

	or	eax, eax

	jz	wait_event

	cmp	eax, -1

	jz	wait_event

	or	edx, edx

	jz	wait_event		; �� �� �訡��

	mov	eax, input_box

;print "input box"

;dph1	[eax]

;dph1	[eax+4]

;dph1	[eax+8]

;dph1	[eax+12]

;dph1	[eax+16]

;dph1	[eax+20]

;dph1	[eax+24]

;;;;jmp	wait_event

	mov	word [input_box + 36], ed_focus	; flags

	mov	ecx, [input_box + 38]	; size

print "paste read ecx=size"

	jecxz	.noloop

	mov	edi, input_box

	mov	ah, 8		; backspace

.loop:

	call	edit_box.key

	dec	ecx

	jnz	.loop

.noloop:

	mov	esi, buffer.data

	mov	ecx, edx

pregs

.loop2:

	mov	ah, [esi]

	cmp	ah, 0

	jz	.done

	call	edit_box.key	; � �� ᥡ� �㪨 ��१�� �� ⠪��

				; �� �� ������, �᫨ ���� �� ����砥���?

	inc	esi

	dec	ecx

	jnz	.loop2

.done:

print "rest of data ecx"

pregs

	call	draw_window

	jmp	wait_event

exit:

    or      eax, -1                ;   exit application

    int     0x40

  draw_window:

    mov     eax, 12                ; start drawing

    mov     ebx, 1

    int     0x40

    mov     eax, 0                 ; create and draw the window

    mov     ebx, 100*65536+400     ;   (window_cx)*65536+(window_sx)

    mov     ecx, 100*65536+250     ;   (window_cy)*65536+(window_sy)

    mov     edx, 0x33ffffff        ;   work area color & window type 3

    mov	    edi, head

    int     0x40

	mov	eax, 4

	mov	ebx, 10 shl 16 + 10

	mov	ecx, 0x80000000

	mov	edx, text1

	int	0x40

	mov	eax, 4

	mov	ebx, 10 shl 16 + 20

	mov	edx, text2

	int	0x40

	mov	eax, 47

	mov	ebx, 0x00020000

	movzx	ecx, byte [format_id]

	mov	edx, 200 shl 16 + 20

	mov	esi, 0

	int	0x40

	mov	eax, 8

	mov	ebx, 10 shl 16 + 60

	mov	ecx, 40 shl 16 + 15

	mov	edx, 5

	mov	esi, 0xd72189

	int	0x40

	mov	eax, 4

	mov	ebx, 12 shl 16 + 42

	mov	ecx, 0x80000000

	mov	edx, button1

	int	0x40

	mov	eax, 8

	mov	ebx, 80 shl 16 + 60

	mov	ecx, 40 shl 16 + 15

	mov	edx, 6

	mov	esi, 0xd72189

	int	0x40

	mov	eax, 4

	mov	ebx, 82 shl 16 + 42

	mov	ecx, 0x80000000

	mov	edx, button2

	int	0x40

	mov	edi, input_box

	call	edit_box.draw

;	mov	eax, 4

;	mov	ebx, 10 shl 16 + 90

;	mov	ecx, 0

;	mov	edx, input_text

;	mov	esi, [input_box + 38]

;	int	0x40

;	mov	eax, esi

;print "eax = edit etxt len"

;pregs

    mov     eax, 12                ; finish drawing

    mov     ebx, 2

    int     0x40

  ret

; <--- initialised data --->

DATA

	format_id	db	1

;	buffer		db	256 dup(0)

	CLIP_BUFFER	buffer, 256

	input_text	db	256 dup(0)

	input_box	edit_box 100,10,70,0xffffff,0,0x00aaaaaa,0,255,input_text

;	input_box	edit_box 100,10,70,0xffffff,0,0xaaaaaa,0,\

;			0xaaaaaa,0,255,input_text,ed_always_focus

	head	db	"�ਬ�� ࠡ��� � ���஬ ������",0

	text1	db	"�������� ���� 0-9 ��� ᬥ�� id �ଠ� ������",0

	text2	db	"����� ��࠭ id �ଠ� ������: ",0

	button1	db	"����஢���",0

	button2	db	"��⠢���",0

; <--- uninitialised data --->

UDATA

MEOS_APP_END

; <--- end of MenuetOS application --->