;---------- ---------- ---------- ---------- ----------
; 作成者のURL ---> http://www.setsuki.com/
;---------- ---------- ---------- ---------- ----------
#include "gdi32.as"

;選択範囲の枠を描画

#module
;---------- --------- ---------- ---------- ----------
; デバイス依存ビットマップの作成
;---------- --------- ---------- ---------- ----------
#defcfunc CreateBrush str file, int color1, int color2

	exist file : if( strsize < 1 ): return 0
	flen = strsize : sdim buf,flen : bload file,buf

	; パレットの変更
	/*if( lpeek(buf,14) == 40 ){
		lpoke buf, 54, color1
		lpoke buf, 58, color2
	}*/

	CreateDIBPatternBrushPt varptr(buf)+14, 0
	return stat

;---------- --------- ---------- ---------- ----------
#global

	hBrush = CreateBrush("frameRGN.bmp", 0x00FF00, 0xFF00FF)

	; リージョンの作成
	CreateRectRgn  2, 2,100,100 : hrgn = stat
	CreateRectRgn 20,20,120,120 : htmp = stat
	CombineRgn hrgn, hrgn, htmp, 3

	color 255,0,0 : mref bm,67
	FillRgn hdc, hrgn, bm.36

	mode = 13, 4
	repeat 13
		SetROP2 hdc, mode(cnt\2)
		FrameRgn hdc, hrgn, hBrush, 1,1
		redraw 1 : wait 20
	loop

	DeleteObject hrgn
	DeleteObject htmp

	DeleteObject hBrush