Mac OSX Build and Run!

OSX上でのプログラミングの初歩について、情報共有ができればと思います。

ppatリソースでウインドウ背景を描く。

/*
ppatリソースでウインドウ背景を描く。

Carbon環境でリソースが扱えるソフトがあればパターンリソースにより背景パターンを描くことができます。以下の例ではリソースタイプはppatで128,129が利用されます。
*/

RESOURCES "ppat.rsrc"

WINDOW 1,"ppat"
ppatH& = FN GETPIXPAT(128)
//toolbox fn GetPixPat(short patID) =long
IF ppatH& THEN CALL BACKPIXPAT(ppatH&) ELSE BEEP
//toolbox BackPixPat(long)
CLS
delay 1000

ppatH& = FN GETPIXPAT(129)
IF ppatH& THEN CALL BACKPIXPAT(ppatH&) ELSE BEEP
CLS 'This "Refreshes" the background

DO
HANDLEEVENTS
UNTIL 0
スポンサーサイト