waiei -blog-

その日の出来事を簡単に紹介する日記

どうでもいい話

2008-03-04-Tue-02:00
Web拍手レス
YOSINACと検索していつもここに来ているのですが、
間違えて「YOSINAX」に・・・w

某アニメ会社名みたいになってますねw

DDRSN2買ったぜーうへーい
ダイアリーの日付がすごいことになってる・・・
プリンが最初からずっとBPM800だったらよかった

おめー
日付が新しかったら強制で一番上に記事になるみたい
でも2038年以降は設定できない(2038年問題参照
ずっとBPM800だと目が追いついても足が動かないと思われ




grbox.gif

この間知ったんだがHSPでグループボックスを
置いてもちゃんと表示されない現象は
後ろにスタティックテキストを置いておけば大丈夫なんだな

てなわけでKpanさんのサンプルスクリ見ながらモジュってみたが


/*      グループボックスモジュール      */
;
;       grbox str p1,int p2
;           p1...表示する文字
;           p2...0 以外で objmode 1 相当
;           objsize の大きさで描画
;
/*          By sin@YOSINAC              */

#module
#deffunc grbox str p1,int p2
#uselib "gdi32"
#cfunc GetStockObject "GetStockObject" int
    x=ginfo_cx:y=ginfo_cy
    pos x,y:winobj "static""", , $50000000
    pos x,y:winobj "button"""+p1, , $50000000:s=stat
    sendmsg objinfo(s,2),0x00F4,0x0007,-1
    if p2:sendmsg objinfo (s, 2), $30, GetStockObject (17)
    return
#global

;    ↓実験
    objsize 160,120
    pos 100,100:grbox "グループボックステスト",1



これだとオブジェクトしか置けなくなるんだよねー
文字書きたかったらスタティックテキスト使うしかないみたい
使えねー( ゚∀゚)つ)Д`)
HOME