HSP Tips / HSPモジュール

色指定可能なブラシを作成

説明

　RGBの色を指定し、ブラシを作成するモジュールです。
　ブラシは使い終わったら、開放します。

HSPスクリプト

//Created by As(http://hp.vector.co.jp/authors/VA034028/)
#module
#define BS_SOLID	$00000000
#define ctype crgb(%1,%2,%3)			(%1|(%2<<8)|(%3<<16))


#uselib "gdi32"
#func CreateBrushIndirect "CreateBrushIndirect" sptr
#func DeleteObject "DeleteObject" int

#defcfunc CreateBrush int _r, int _g, int _b
dim logbrush,3
logbrush.0=BS_SOLID
logbrhsh.1=crgb(_r,_g,_b)
CreateBrushIndirect varptr(logbrush)
return stat


#deffunc DeleteBrush int _h
DeleteObject _h
return

#global

#if 0
a=CreateBrush(255,255,255)
mes a
DeleteBrush a
#endif