/*------------------------------------------------------------------------------ ペイントフィールド２ コードネーム：ろぐぺん(id:logpen2_3_0_5_g4 / lot:20070221) ------------------------------------------------------------------------------*/ !変数宣言は必要 !母艦設計=「母艦の可視はオフ」 !タイトル=「ペイントフィールド」 !アプリバージョン=「2.05g4」 !アプリ説明=「素早いスケッチ、簡易的なプレゼン{\n}{\t}そして日々のドロウイングのためのソフトウェアです{\t}」 !アイコンアドレス=「pf2Icons.png」//_w !INIファイル=「{母艦のパス}pf2.ini」 !クリア色=$fdfdff//紙の色 !クリア背景色=$666666//背景の色 !基本色=$111100 #宣言 #フォーマット------------------------------------------------------------------- 基本太さとは配列 基本太さ[0]=4 基本太さ[1]=8 基本太さ[2]=16 基本カラーとは配列 基本カラー[0]=「{基本色}」 基本カラー[1]=「00032768」 基本カラー[2]=「00016512」 基本カラー[3]=「16711808」 基本カラー[4]=「00033023」 線色=「{基本色}」 線太さ=基本太さ[0] //紙 イメージ幅とは整数=3200//px イメージ高さとは整数=2400//px 表示Xとは整数=-10//300//表示するpxの位置 表示Yとは整数=-10//300//表示するpxの位置 スワップファイルとは文字列=「{今日の"/"を""へ置換}{今の":"を""へ置換}.png」 //マウス mxとは配列 myとは配列 mx[0]=0;my[0]=0; mx[1]=0;my[1]=0; //机 現在ツールとは整数=0 現在ペンサイズとは整数=0 座標Xとは整数=0 座標Yとは整数=0 クリックスイッチとは整数=0 サイズ変更スイッチとは整数=0 再描画スイッチとは整数=0 更新スイッチとは整数=1 移動スイッチとは整数=0 色バースイッチとは整数=1 テキストハンドルとは整数=0; m始点とは配列 //ステータス statとは文字列="wait..."; #UI--------------------------------------------------------------------------- 母艦メニューとはメインメニュー 母艦ステータスとはステータスバー アイコンバッファとはイメージリスト ツールパレットとはフォーム ツールセレクタとはツールバー カラー1とはラベル カラー2とはラベル カラー3とはラベル カラー4とはラベル カラー5とはラベル カラーチェッカとはラベル カラーパレットとはフォーム カラーパネルとはパネル カラーウエパネルとはパネル カラースライドパネルとはパネル カラーシタパネルとはパネル カラータブとはタブページ カラーミニボタンとはボタン Rバーとはバー Gバーとはバー Bバーとはバー 母艦ステージとはパネル 描画ステージとはパネル 下部操作パネルとはパネル スペーサーとはパネル バーアシスタンスとはパネル オプションパネルとはパネル ステージ縦バーとはバー ステージ横バーとはバー 表示イメージとはイメージ バッファイメージとはイメージ 処理イメージとはイメージ 読み込みイメージとはイメージ カンバスタイマーとはタイマー #hack 避難所とはバー//エディタ #設定 #Menu--------------------------------------------------------------------------- /* 一括作成バグ対策 */ ep1とは実数 ep2とは実数 ep3とは実数 ew1とは実数 ew2とは実数 ew3とは実数 cp1とは実数 cp2とは実数 cp3とは実数 cp4とは実数 cp5とは実数 wtb1とは実数 wtb2とは実数 wtb3とは実数 wtb4とは実数 wtb5とは実数 wtb6とは実数 /* / 一括作成バグ対策 */ 『 母艦メニュー,mf,ファイル(&F) -,fC,新規(&N),,,メモリクリア -,fh2,- -,fS,保存(&S),,,1でログ格納処理 -,fh1,- -,fe,閉じる(&X),ESC,,終わる 母艦メニュー,me,ツール(&T) -,ep1,ペンを持つ(&D),Z,なし,現在ツール=(0でペン切り替え) -,ep2,消しゴムを持つ(&B),X,なし,現在ツール=(1でペン切り替え) -,ep3,スポイトを持つ(&L),C,なし,現在ツール=(2でペン切り替え) -,eh1,- -,ew1,細(&1),A,なし,現在ペンサイズ=(0でサイズ切り替え) -,ew2,中(&2),S,なし,現在ペンサイズ=(1でサイズ切り替え) -,ew3,太(&3),D,なし,現在ペンサイズ=(2でサイズ切り替え) 母艦メニュー,mc,色(&C) -,cp1,パレット1(&1),1,,現在色のセレクタ=0 -,cp2,パレット2(&2),2,,現在色のセレクタ=1 -,cp3,パレット3(&3),3,,現在色のセレクタ=2 -,cp4,パレット4(&4),4,,現在色のセレクタ=3 -,cp5,パレット5(&5),5,,現在色のセレクタ=4 -,ch1,- -,cc1,色の変更(&Q),Q,,色変更 母艦メニュー,mw,ウィンドウ(&W) -,wt,ツール(&T),Ctrl+ALT+T,,ツール表示切替 -,wp,パレット(&P),Ctrl+ALT+P,,パレット表示切替 -,wpb,カラーコントローラ(&A),Ctrl+ALT+C,,カラー詳細表示切替 』をメニュー一括作成 #-,wh1,- #-,ws,ステータスバー[debug用],Ctrl+ALT+S,,バー表示切替 「母艦メニュー,mh,ヘルプ(&H) -,h1,{タイトル}について(&A),,,アバウト 」をメニュー一括作成 ツールセレクタに「 wtb1,0,ボタン,ペンを持つ... (Z),現在ツール=(0でペン切り替え) wtb2,1,ボタン,消しゴムを持つ... (X),現在ツール=(1でペン切り替え) wtb3,2,ボタン,スポイトを持つ... (C),現在ツール=(2でペン切り替え) wtb4,3,ボタン,ペンを{基本太さ[0]}ptのものに替える... (A),現在ペンサイズ=(0でサイズ切り替え) wtb5,4,ボタン,ペンを{基本太さ[1]}ptのものに替える... (S),現在ペンサイズ=(1でサイズ切り替え) wtb6,5,ボタン,ペンを{基本太さ[2]}ptのものに替える... (D),現在ペンサイズ=(2でサイズ切り替え) 」をツールボタン一括作成 #Style and Setting-------------------------------------------------------------- //main window 母艦について タイトルは「{タイトル}」 背景色はクリア色 母艦を中央移動 終了可能は0 //status 母艦ステータスについて レイアウトは「下」 可視はオフ //image list アイコンバッファについて 画像W=28//40 画像H=28//40 一括追加(アイコンアドレス) //ToolBar ツールセレクタについて 親部品はツールパレット レイアウトは「全体」 画像設定(アイコンバッファ) //Form ツールパレットについて タイトルは「」 スタイルは「ツールウィンドウ」 最前面表示はオン ドラッグ移動はオン オフへ最大化ボタン有効変更 オフへ最小化ボタン有効変更 背景色はウィンドウ背景色 クライアントWは35//47 クライアントHは210//145 カラーパレットについて タイトルは「」 スタイルは「ツールウィンドウ」 最前面表示はオン ドラッグ移動はオン オフへ最大化ボタン有効変更 オフへ最小化ボタン有効変更 背景色はウィンドウ背景色 クライアントWは190 クライアントHは48 カラー1について 親部品はカラーパネル 背景色は「{基本カラー[0]}」 //レイアウトは「左」 テキストは「」 透明はオフ Xは0 Yは0 Wは20 Hは20 カラー2について 親部品はカラーパネル 背景色は「{基本カラー[1]}」 //レイアウトは「左」 テキストは「」 透明はオフ Wはカラー1のW Hはカラー1のW Xはカラー1のX+カラー1のW+10 Yは0 カラー3について 親部品はカラーパネル 背景色は「{基本カラー[2]}」 //レイアウトは「左」 テキストは「」 透明はオフ Wはカラー1のW Hはカラー1のW Xはカラー2のX+カラー2のW+10 Yは0 カラー4について 親部品はカラーパネル 背景色は「{基本カラー[3]}」 //レイアウトは「左」 テキストは「」 透明はオフ Wはカラー1のW Hはカラー1のW Xはカラー3のX+カラー3のW+10 Yは0 カラー5について 親部品はカラーパネル 背景色は「{基本カラー[4]}」 //レイアウトは「左」 テキストは「」 透明はオフ Wはカラー1のW Hはカラー1のW Xはカラー4のX+カラー4のW+10 Yは0 カラーパネルについて 親部品はカラーウエパネル スタイルは「枠なし」 Xは24 Yは((カラーウエパネルのH-カラー1のW)/2) Wは((カラー1のW*5)+40) Hは(カラー1のW) カラーチェッカについて 親部品はカラーウエパネル 背景色はアクティブ色 テキストは「」 透明はオフ Hは4 Wは(カラー1のW) XはカラーパネルのX Yは(カラーパネルのY+カラーパネルのH)+2 カラーウエパネルについて 親部品はカラーパレット スタイルは「枠なし」 レイアウトは「上」 Hは40 カラーミニボタンについて 親部品はカラーパレット レイアウトは「下」 テキストは「...」 文字サイズは8 Hは8 カラーシタパネルについて 親部品はカラーパレット スタイルは「凹」//「枠なし」 レイアウトは「全体」 可視はオフ カラータブについて 親部品はカラーシタパネル レイアウトは「全体」 「RGB」のタブ追加 カラースライドパネルについて 親部品はカラータブ スタイルは「枠なし」 Hは70 Wは(カラーパネルのW) Yは0 Xは(カラーパネルのX-5) Rバーについて 親部品はカラースライドパネル 向きは「横」 最大値は255 最小値は0 Hは12 WはカラースライドパネルのW Xは0 Yは((カラースライドパネルの高さ-(Rバーの高さ*3))/4) Gバーについて 親部品はカラースライドパネル 向きは「横」 最大値は255 最小値は0 Hは12 WはカラースライドパネルのW Xは0 Yは(RバーのY+RバーのH+((カラースライドパネルの高さ-(Rバーの高さ*3))/4)) Bバーについて 親部品はカラースライドパネル 向きは「横」 最大値は255 最小値は0 Hは12 WはカラースライドパネルのW Xは0 Yは(GバーのY+GバーのH+((カラースライドパネルの高さ-(Rバーの高さ*3))/4)) //Bar ステージ縦バーについて 親部品は母艦ステージ レイアウトは「右」 向きは「縦」 最小値は0 最大値は(表示イメージのH*2) 値は表示Y ステージ横バーについて 親部品は下部操作パネル レイアウトは「全体」 向きは「横」 最小値は0 最大値は(表示イメージのW*2) 値は表示X //stage 母艦ステージについて レイアウトは「全体」 スタイルは「凹」//「枠なし」 描画ステージについて 親部品は母艦ステージ レイアウトは「全体」 スタイルは「枠なし」 //可視はオン 下部操作パネルについて 親部品は母艦ステージ レイアウトは「下」 スタイルは「枠なし」 高さは(ステージ横バーの高さ) スペーサーについて 親部品は下部操作パネル レイアウトは「右」 スタイルは「枠なし」 幅は(ステージ縦バーの幅) バーアシスタンスについて 親部品は下部操作パネル レイアウトは「左」 スタイルは「枠なし」 幅は120 オプションパネルについて レイアウトは「下」 スタイルは「枠なし」 可視はオフ //image 表示イメージについて Xは0 Yは0 親部品は描画ステージ 可視はオン 処理イメージについて W=母艦の幅 H=母艦の高さ 可視はオフ バッファイメージについて 可視はオフ 読み込みイメージについて 可視はオフ //timer カンバスタイマーについて 値は60 //hack 避難所について 親部品はオプションパネル Xは-100 Yは-100 Hは1 Wは1 最大値は1 #------------------------------------------------------------------------------- #イベントハンドラ #------------------------------------------------------------------------------- 母艦の閉じた時は〜 「終了しますか？」と二択 もしそれがはいならば 終了処理 母艦の最小化した時は〜 カンバスタイマーの停止 母艦の非アクティブ時は〜 カンバスタイマーの停止 母艦のアクティブ時は〜 カンバスタイマーの開始 母艦ステージのサイズ変更した時は〜 サイズ調整 サイズ変更スイッチ=1 母艦のキー押した時は〜 もし(母艦の押された仮想キー=32)ならば、 移動スイッチ=1 座標初期化 もし(母艦の押された仮想キー=16)ならば、 移動スイッチ=1 座標初期化 母艦のキー離した時は〜 もしクリックスイッチが1でなければ、 移動スイッチ=0 カラー1のマウス押した時は〜 現在色のセレクタ=0 カラー2のマウス押した時は〜 現在色のセレクタ=1 カラー3のマウス押した時は〜 現在色のセレクタ=2 カラー4のマウス押した時は〜 現在色のセレクタ=3 カラー5のマウス押した時は〜 現在色のセレクタ=4 カラーミニボタンのクリックした時は〜 カラー詳細表示切替 Rバーの変更した時は〜色バースイッチ=1 Gバーの変更した時は〜色バースイッチ=1 Bバーの変更した時は〜色バースイッチ=1 //image 表示イメージのマウス移動した時は〜座標取得 表示イメージのマウス押した時は〜 もし((表示イメージの押されたボタン=「左」)&&((現在ツール !=2)||(移動スイッチ=1)))ならば、 クリックスイッチ=1 座標初期化 もし(表示イメージの押されたボタン=「右」)ならば、 クリックスイッチ=1 移動スイッチ=1 座標初期化 始点記憶 座標取得 避難所に注目 表示イメージのマウス離した時は〜 もし((移動スイッチ !=1)&&(現在ツール==2))ならばスポイトワーク クリックスイッチ=0 移動スイッチ=0 //bar ステージ縦バーの変更した時は〜 表示Y=ステージ縦バーの値-INT(処理イメージのH/2) 再描画スイッチ=1 ステージ縦バーのキー押した時は〜 もし(母艦の押された仮想キー=33)ならば、 ステージ縦バーの値=ステージ縦バーの値-表示イメージの高さ もし(母艦の押された仮想キー=34)ならば、 ステージ縦バーの値=ステージ縦バーの値+表示イメージの高さ ステージ横バーの変更した時は〜 表示X=ステージ横バーの値-INT(処理イメージのW/2) 再描画スイッチ=1 ステージ横バーのキー押した時は〜 もし(母艦の押された仮想キー=33)ならば、 ステージ横バーの値=ステージ横バーの値-表示イメージの幅 もし(母艦の押された仮想キー=34)ならば、 ステージ横バーの値=ステージ横バーの値+表示イメージの幅 //timer カンバスタイマーの時満ちた時は〜 もし色バースイッチ=1ならば 色バースイッチ=0 色バー変更 もしサイズ変更スイッチ=1ならば、サイズ調整 もし再描画スイッチ=1ならば、画像再描画 もし更新スイッチ=1ならば、 更新スイッチ=0 処理イメージの表示X,表示Y,表示イメージの幅,表示イメージの高さを表示イメージの座標X,座標Yへ画像部分コピー ステータス更新 //hack 避難所のキー押した時は〜 もし(母艦の押された仮想キー=38)ならば、 ステージ縦バーの値=ステージ縦バーの値-20 もし(母艦の押された仮想キー=40)ならば、 ステージ縦バーの値=ステージ縦バーの値+20 もし(母艦の押された仮想キー=37)ならば、 ステージ横バーの値=ステージ横バーの値-20 もし(母艦の押された仮想キー=39)ならば、 ステージ横バーの値=ステージ横バーの値+20 #開始------------------------------------------------------------------------- メイン ●メイン バッファイメージをクリア色で画面クリア 表示イメージをクリア色で画面クリア 処理イメージをクリア色で画面クリア もしアクティブ色がウィンドウ背景色ならば カラーチェッカの背景色は白色 stat="ready..."; ステータス更新 メモリサイズ変更 開始処理 現在ペンサイズでサイズ切り替え 現在色のセレクタ=0 母艦の可視はオン 避難所に注目 #------------------------------------------------------------------------------- # 関数 #------------------------------------------------------------------------------- ●サイズ調整 サイズ変更スイッチ=0 表示イメージのW=描画ステージの幅 表示イメージのH=描画ステージの高さ 表示イメージをクリア背景色で画面クリア //バーに最大値情報を送信 ステージ縦バーの最大値は((処理イメージのH-表示イメージのH)+(処理イメージのH))の絶対値 ステージ横バーの最大値は((処理イメージのW-表示イメージのW)+(処理イメージのW))の絶対値 更新スイッチ=1 ●画像再描画 再描画スイッチ=0 サイズ調整 ●座標取得 mx[0] = 表示イメージのマウスX+表示X-座標X my[0] = 表示イメージのマウスY+表示Y-座標Y もし((移動スイッチ=1)&&(クリックスイッチ=1))ならば、移動処理 もし((移動スイッチ=0)&&(クリックスイッチ=1))ならば、描画処理 ●座標初期化 mx[1]=mx[0]//-(2-4の乱数) my[1]=my[0]//-(2-4の乱数) ●描画処理 表示イメージの(mx[1]-表示X+座標X),(my[1]-表示Y+座標Y)から(mx[0]-表示X+座標X),(my[0]-表示Y+座標Y)へ線 処理イメージの(mx[1]),(my[1])から(mx[0]),(my[0])へ線 座標初期化 ●始点記憶 m始点[0]=表示イメージのマウスX m始点[1]=表示イメージのマウスY m始点[2]=表示X m始点[3]=表示Y ●移動処理 ステージ横バーの値=(m始点[2]+(m始点[0]-表示イメージのマウスX))+INT(処理イメージのW/2) ステージ縦バーの値=(m始点[3]+(m始点[1]-表示イメージのマウスY))+INT(処理イメージのH/2) ●メモリサイズ変更 サイズ変更スイッチ=0 //処理イメージをバッファへ バッファイメージのW=処理イメージのW バッファイメージのH=処理イメージのH バッファイメージをクリア色で画面クリア 処理イメージをバッファイメージの0,0へ画像コピー //処理イメージをクリア及びリサイズして、バッファを処理イメージへ 処理イメージのW=イメージ幅 処理イメージのH=イメージ高さ 処理イメージをクリア色で画面クリア バッファイメージを処理イメージの0,0へ画像コピー //表示イメージのサイズを調整 サイズ調整 表示イメージをクリア色で画面クリア //バッファイメージをクリア バッファイメージのW=描画ステージの幅 バッファイメージのH=描画ステージの高さ バッファイメージをクリア色で画面クリア 更新スイッチ=1 ●メモリクリア 「現在の変更内容は破棄し、{\n}新しいファイルを用意します。」と二択。 もしそれがはいならば カンバスタイマーの停止 //表示イメージのサイズを調整 サイズ調整 処理イメージをクリア色で画面クリア スワップファイル=「{今日の"/"を""へ置換}{今の":"を""へ置換}.png」 stat="file : {スワップファイル}" サイズ変更スイッチ=1 カンバスタイマーの開始 ●ペン切り替え(Sで) Sで条件分岐 0ならば 線色=「{現在色の値}」 ep1@『チェック』はオン ep2@『チェック』はオフ ep3@『チェック』はオフ wtb1@『有効』はオフ wtb2@『有効』はオン wtb3@『有効』はオン 1ならば 線色=クリア色 ep1@『チェック』はオフ ep2@『チェック』はオン ep3@『チェック』はオフ wtb1@『有効』はオン wtb2@『有効』はオフ wtb3@『有効』はオン 2ならば ep1@『チェック』はオフ ep2@『チェック』はオフ ep3@『チェック』はオン wtb1@『有効』はオン wtb2@『有効』はオン wtb3@『有効』はオフ 違えば stat="error：無効なツールが選択されました" 線色=「{基本色}」 ep1@『チェック』はオン ep2@『チェック』はオフ S=0 stat="tool:{S}" Sを戻す ●サイズ切り替え(Sで) Sで条件分岐 0ならば 線太さ=基本太さ[0] ew1@『チェック』はオン ew2@『チェック』はオフ ew3@『チェック』はオフ wtb4@『有効』はオフ wtb5@『有効』はオン wtb6@『有効』はオン 1ならば 線太さ=基本太さ[1] ew1@『チェック』はオフ ew2@『チェック』はオン ew3@『チェック』はオフ wtb4@『有効』はオン wtb5@『有効』はオフ wtb6@『有効』はオン 2ならば 線太さ=基本太さ[2] ew1@『チェック』はオフ ew2@『チェック』はオフ ew3@『チェック』はオン wtb4@『有効』はオン wtb5@『有効』はオン wtb6@『有効』はオフ 違えば stat="error：無効なペンサイズが選択されました" 線太さ=基本太さ[0] S=0 ew1@『チェック』はオン ew2@『チェック』はオフ ew3@『チェック』はオフ wtb4@『有効』はオフ wtb5@『有効』はオン wtb6@『有効』はオン stat="size:{S}" Sを戻す ●色バー変更 現在色の値はRGB(Rバー,Gバー,Bバー) 基本カラー[現在色のセレクタ]は現在色の値 現在色のセレクタでセレクタ色設定処理 現在ツール=0でペン切り替え ●色変更 色選択 もしそれが空でなければ 現在色の値=それ 基本カラー[現在色のセレクタ]は現在色の値 現在ツール=0でペン切り替え 現在色のセレクタでセレクタ色設定処理 現在色のセレクタでパレット切り替え ●スポイトワーク 現在色の値=表示イメージの表示イメージのマウスX,表示イメージのマウスYを画像色取得 基本カラー[現在色のセレクタ]は現在色の値 現在ツール=0でペン切り替え 現在色のセレクタでセレクタ色設定処理 現在色のセレクタでパレット切り替え ●開始処理 INIファイルが存在 もし、それがはいならば、 エラー監視 「{INIファイル}」のINI開いてテキストハンドルに代入 テキストハンドルで「位置」の「X」をINI読んで表示Xに代入 テキストハンドルで「位置」の「Y」をINI読んで表示Yに代入 テキストハンドルで「ファイル」の「場所」をINI読んでスワップファイルに代入 テキストハンドルで「ウィンドウ」の「X」をINI読んで母艦のXに代入 テキストハンドルで「ウィンドウ」の「Y」をINI読んで母艦のYに代入 テキストハンドルで「ウィンドウ」の「W」をINI読んで母艦のWに代入 テキストハンドルで「ウィンドウ」の「H」をINI読んで母艦のHに代入 テキストハンドルで「ツールウィンドウ」の「X」をINI読んでツールパレットのXに代入 テキストハンドルで「ツールウィンドウ」の「Y」をINI読んでツールパレットのYに代入 テキストハンドルで「カラーウィンドウ」の「X」をINI読んでカラーパレットのXに代入 テキストハンドルで「カラーウィンドウ」の「Y」をINI読んでカラーパレットのYに代入 テキストハンドルで「ウィンドウ」の「ウィンドウ状態」をINI読んで母艦のウィンドウ状態に代入 テキストハンドルで「カラー」の「1」をINI読んで基本カラー[0]に代入 テキストハンドルで「カラー」の「2」をINI読んで基本カラー[1]に代入 テキストハンドルで「カラー」の「3」をINI読んで基本カラー[2]に代入 テキストハンドルで「カラー」の「4」をINI読んで基本カラー[3]に代入 テキストハンドルで「カラー」の「5」をINI読んで基本カラー[4]に代入 テキストハンドルで「ツールウィンドウ」の「表示」をINI読んでツールパレットの可視に代入 テキストハンドルで「カラーウィンドウ」の「表示」をINI読んでカラーパレットの可視に代入 テキストハンドルで「カラーウィンドウ」の「詳細」をINI読んでカラーシタパネルのポケットに代入 テキストハンドルのINI閉じる エラーならば、 ダイアログタイトルは「{タイトル}：INIエラー」 stat="error : 設定ファイルの読み込みに失敗"; 「設定ファイルを正常に読み込めませんでした。」という。 「onePf_{スワップファイル}」が存在 もしそれがいいえならば スワップファイル=「{今日の"/"を""へ置換}{今の":"を""へ置換}.png」 もしそれがはいならば、 エラー監視 処理イメージの画像は「onePf_{スワップファイル}」 再描画スイッチ=1 エラーならば、 母艦の終了可能は1 ダイアログタイトルは「{タイトル}：ファイルエラー」 stat="error : 対象ファイルの読み込みに失敗"; 「ファイルの展開でエラーが発生しました。{\n}以前までのログが読み込めませんでした。」という 終わる。 ステージ縦バーの値=表示Y+INT(処理イメージのH/2) ステージ横バーの値=表示X+INT(処理イメージのW/2) 5回 「{回数-1}」でセレクタ色設定処理 もしカラーシタパネルのポケットが1ならばカラー詳細表示切替 ●終了処理 stat="bye..."; ステータス更新 母艦のポケットは母艦のウィンドウ状態 母艦を元通り 母艦の可視はオフ カンバスタイマーの停止 0.1秒待つ 「{INIファイル}」のINI開いてテキストハンドルに代入。 テキストハンドルで「位置」の「X」に表示XをINI書く テキストハンドルで「位置」の「Y」に表示YをINI書く テキストハンドルで「ファイル」の「場所」にスワップファイルをINI書く テキストハンドルで「ウィンドウ」の「ウィンドウ状態」に母艦のポケットをINI書く テキストハンドルで「ウィンドウ」の「X」に母艦のXをINI書く テキストハンドルで「ウィンドウ」の「Y」に母艦のYをINI書く テキストハンドルで「ウィンドウ」の「W」に母艦のWをINI書く テキストハンドルで「ウィンドウ」の「H」に母艦のHをINI書く テキストハンドルで「ツールウィンドウ」の「表示」にツールパレットの可視をINI書く テキストハンドルで「ツールウィンドウ」の「X」にツールパレットのXをINI書く テキストハンドルで「ツールウィンドウ」の「Y」にツールパレットのYをINI書く テキストハンドルで「カラーウィンドウ」の「表示」にカラーパレットの可視をINI書く テキストハンドルで「カラーウィンドウ」の「X」にカラーパレットのXをINI書く テキストハンドルで「カラーウィンドウ」の「Y」にカラーパレットのYをINI書く テキストハンドルで「カラーウィンドウ」の「詳細」にカラーシタパネルの可視をINI書く テキストハンドルで「カラー」の「1」に基本カラー[0]をINI書く テキストハンドルで「カラー」の「2」に基本カラー[1]をINI書く テキストハンドルで「カラー」の「3」に基本カラー[2]をINI書く テキストハンドルで「カラー」の「4」に基本カラー[3]をINI書く テキストハンドルで「カラー」の「5」に基本カラー[4]をINI書く テキストハンドルのINI閉じる ツールパレットの可視はオフ カラーパレットの可視はオフ エラー監視 処理イメージを「onePf_{スワップファイル}」へ画像保存 stat="save:{スワップファイル}"; エラーならば、 「ログの保存でエラーが発生しました。{\n}ログが書き込めませんでした。」と言う。 stat="error : ログファイルの書き込みに失敗..."; 母艦の終了可能は1 終わる。 ●ログ格納処理(Sで) S=0 母艦の有効はオフ カンバスタイマーの停止 Fとは文字列=作業フォルダ 「{スワップファイル}」で「*.png;*.bmp;*.jpeg;*.gif」の保存ファイル選択 もしそれが空でなければ エラー監視 処理イメージを「{それ}」へ画像保存 S=1 「保存に成功しました。」という stat="save:{スワップファイル}"; エラーならば、 「ログの保存でエラーが発生しました。{\n}ログが書き込めませんでした。」と言う。 stat="error : ログファイルの書き込みに失敗..."; 作業フォルダ=F カンバスタイマーの開始 母艦の有効はオン Sを戻す ●ステータス更新 母艦ステータス =「{stat}」 バーアシスタンスのテキスト=「{表示X} x {表示Y}」 ●パレット表示切替 もし(カラーパレットの可視=オフ)ならば カラーパレットの可視はオン 違えば カラーパレットの可視はオフ ●ツール表示切替 もし(ツールパレットの可視=オフ)ならば ツールパレットの可視はオン 違えば ツールパレットの可視はオフ ●バー表示切替 もし(母艦ステータスの可視=オフ)ならば 母艦ステータスの可視はオン 違えば 母艦ステータスの可視はオフ ●カラー詳細表示切替 もし(カラーシタパネルの可視=オフ)ならば カラーパレットのクライアントHは160//115 カラーシタパネルの可視はオン 違えば カラーシタパネルの可視はオフ カラーパレットのクライアントHは(カラーウエパネルのH+カラーミニボタンのH) ●アバウト 「{タイトル} ver,{アプリバージョン}{\n}なでしこエンジン ver,{ナデシコバージョン} {\n}{\t}{アプリ説明}{\n}{\t}Copyright (c)2007 canot All Rights Reserved. 」という #------------------------------------------------------------------------------- # フィールド #------------------------------------------------------------------------------- ■現在色 ・値{=0} ・セレクタ{=0}←セレクタ設定→ＦＸ取得 ・{非公開}ＦＸ ・{非公開}ＦＸ取得〜それはＦＸ ・{非公開}セレクタ設定(Ｖ)〜 ＦＸ=Ｖ セレクタでセレクタ実行 ＊セレクタ実行(Nで) 5回 EVAL(「cp{回数}@『チェック』はオフ」) EVAL(「カラーチェッカのXは(カラーパネルのX+カラー{N+1}のX)」) EVAL(「cp{N+1}@『チェック』はオン」) 現在色の値は基本カラー[N] 現在ツール=0でペン切り替え Nでパレット切り替え ＊セレクタ色設定処理(Sで) Sで条件分岐 0ならば、 カラー1の背景色は基本カラー[S] 1ならば、 カラー2の背景色は基本カラー[S] 2ならば、 カラー3の背景色は基本カラー[S] 3ならば、 カラー4の背景色は基本カラー[S] 4ならば、 カラー5の背景色は基本カラー[S] ＊パレット切り替え(Sで) RバーはINT(AND(基本カラー[S],$FFFFFF)/$10000) GバーはINT(AND(基本カラー[S],$FFFF)/$100) BバーはAND(基本カラー[S],$FF) //Program is end