約 4,838,393 件
https://w.atwiki.jp/dolfinn-isezaki/pages/19.html
より大きな地図で 神奈川県横浜市中区弥生町3丁目34カトービル1階 を表示
https://w.atwiki.jp/mannmaruba/pages/89.html
これ→MAP 主催地の地図のこと。 <関連> 水 食料
https://w.atwiki.jp/ntaka206/pages/14.html
UNIXのプロセスについて Unix Programming Frequently Asked Questions 日本語訳 バッファリング マニュアル Perl/Tk テキストウィジット 改行するには お約束 単純文 型グロブ 変数未定義の判定など ソケット通信ネットワークプログラミングの基礎知識 Perlの漢字コード扱い処理手順 UTF-8フラグとは Perl内部の文字コード use utf8; と use encoding;参考 Perlでクリップボードを使うCAPN Clipboardモジュールを使う Tk clipboardを使う Tkのクリップボード機能を使う Net SSHモジュールについて Perl参考書プログラミングPerl 第2版 Perlベストプラクティス UNIXのプロセスについて Unix Programming Frequently Asked Questions 日本語訳 - 1 プロセス制御 http //www.adl.nii.ac.jp/~moro/unix-programmer/faq-j_2.html Unix Programming Frequently Asked Questions 日本語訳 Unix Programming Frequently Asked Questions 日本語訳 - Table of Contents http //www.adl.nii.ac.jp/~moro/unix-programmer/faq-j_toc.html バッファリング Perlで出力のバッファリングを無効にするには - Sakura scope http //www.nishishi.com/blog/2006/05/perl_buffer_flu.html コアテクの路地 標準出力のバッファリング http //blog.miraclelinux.com/ctd/2006/09/post_1b11.html マニュアル コマンドラインで perldoc Net Telnet Perl/Tk テキストウィジット 改行するには 文字列に改行コード入れる"\n" 3種類の改行コードに対応しているよう。 CR LF CR LF お約束 use strict; use warnings; 単純文 func() if EXPR; 例 func() if $a == 1; func() if ($a == 1); -ダメ 型グロブ 型グロブは、様々な変数型のエントリを持つ一種のハッシュである。 *pkg sym{SCALAR} # \$pkg symと同じ *pkg sym{ARRAY} # \@pkg symと同じ *pkg sym{HASH} # \%pkg symと同じ *pkg sym{CODE} # \ pkg symと同じ *pkg sym{GLOB} # \*pkg symと同じ *pkg sym{FILEHANDLE} # 内部的なファイルハンドル 直接に等価な書き方はない *pkg sym{NAME} # "sym" リファレンスではない *pkg sym{PACKAGE} # "pkg" リファレンスではない 変数未定義の判定など Ippiki - PerlにおけるNULLの扱い http //www.yamareco.com/ippiki/detail.php?mid=26 mver=0 if ($s == NULL) × ソケット通信 ネットワークプログラミングの基礎知識 http //x68000.q-e-d.net/~68user/net/ Perlの漢字コード扱い 文字列をPerlの内部文字列(utf8フラグの付いた文字列)として扱うと、lengthやsubstr等の関数や正規表現などでもバイト単位でなく文字単位で操作することができる。 PerlのスクリプトがUTF-8で書かれていることを示すために、スクリプトの初めに入れる。 use utf8; use utf8 をすることで、perl にソースコード中の文字列がUTF8で書かれていることを教えます。 このことにより、ソースコード中の文字列には、UTF8フラグがつく。 * STDIN, STDOUTにUTF-8を使うなら、binmodeを使って指定する。 binmode STDIN, " utf8"; binmode STDOUT, " utf8"; 読み込むファイルがUTF-8で書かれているなら、次のようにopenで指定する。 open(FH, " utf8", $filename); 読み込むファイルがshift-jisなど、UTF-8以外のコードで書かれているなら、次のようにencodingをopenで用いて指定する。 open(FH, " encoding(shiftjis)", $filename); 処理手順 ソースコードをUTF-8で書き、先頭で宣言する。 use utf8; ファイルを開く場合は文字コードを指定する。 open(FH, " utf8", $filename); open(FH, " encoding(shiftjis)", $filename); ストリーム等から入力した文字列は、内部表現(UTF-8)に変換する。 $s = decode( utf8 , $s); # UTF-8 $s = decode( shiftjis , $s); # SHIFT JIS $s = decode( euc-jp , $s); # EUC STDOUTにUTF-8を出力するなら、binmodeで指定する。 binmode(STDOUT, "utf8"); 内部表現(UTF-8)に変換した文字列は、漢字でもバイト単位ではなく文字単位で扱える。以下のコードで、内部表現になっていない文字列では漢字が正しく表示されない。 $s = decode( utf8 , $s); # UTF-8 foreach $byte (split //, $s) { print $byte; } UTF-8フラグとは スカラー変数の内部表象の状態を示すものとして UTF8 フラグというものがある スカラー変数には文字列として下記のものを格納できる (A) 文字列(内部表象 UTF-8) (B) 文字列(内部表象 ISO-8859-1) 文字列にUTF-8フラグが付いているかどうか確認するには。 Encode is_utf8($tmp); Perl内部の文字コード UTF-8/Shift JIS/EUCの入力コード例 UTF-8/Shift JIS/EUCの文字列をPerlに読み込み、標準出力とパイプに出力する use encoding "utf-8"; use Encode; use utf8; 子プロセス側 { binmode(PARENT_WTR, "utf8"); my $s = $telnet- get(Timeout = 3600); #$s = decode( utf8 , $s); # UTF-8 #$s = decode( shiftjis , $s); # SHIFT JIS $s = decode( euc-jp , $s); # EUC print $s; print PARENT_WTR $s; } 親プロセス側 { sysread(PARENT_WTR, $curline, 1024); # 子プロセスからUTF-8で送られてきた文字列を、内部表現(フラグ付きUTF-8)に変換する $curline = decode( utf8 ,$curline); } use utf8; と use encoding; http //www.rwds.net/kuroita/program/Perl_unicode.html#utf8_and_encoding 参考 UTF8 フラグあれこれ - daily dayflower http //d.hatena.ne.jp/dayflower/20080219/1203493616 Perlの文字コード変換の話 其の参 - It_lives_vainlyの日記 http //d.hatena.ne.jp/It_lives_vainly/20080306/1204629364 Perl 5.8.x Unicode関連 http //www.rwds.net/kuroita/program/Perl_unicode.html Perlでクリップボードを使う CAPN Clipboardモジュールを使う Clipboard - Copy and paste with any OS - search.cpan.org # cpan install Clipboard Perlにコードを書いて実行するとxclipが無いと怒られる freshmeat.net Project details for xclip # aptitude install xclip Tk clipboardを使う Tk clipboard - Manipulate Tk clipboard - search.cpan.org 実行時にエラーが出る Tk Error Failed to AUTOLOAD MainWindow clipboardGet Tkのクリップボード機能を使う $widget- clipboadrClear(); $widget- clipboadrAppend( add to clipboard ); $m_mainWindow- SelectionGet(-selection = CLIPBOARD ); クリップボードの内容を取り出し Net SSHモジュールについて WindowsのActivePerlにもある。 Ver0.08 ただし、中身はopen2またはopen3でsshコマンドを呼び出している。 Perl参考書 プログラミングPerl 第2版 最新版は第3版なので注意! 第3版は、2冊に分かれているのでいまいち使いにくい、最新の機能を使わないならば第2版でも十分だと感じます。 中古だと安いし(^.^) Perlベストプラクティス
https://w.atwiki.jp/isekaiorirowa/pages/123.html
地図 imageプラグインエラー 画像を取得できませんでした。しばらく時間を置いてから再度お試しください。
https://w.atwiki.jp/ssmrowa/pages/15.html
現在位置はこちらから閲覧・編集できます 使い方は総合版の「MAP地図総合スレ」を参照
https://w.atwiki.jp/sfrontier/pages/29.html
Knowledge and Technique 作成日 2007/10/30 H.Naito 更新日 2007/11/01 H.Naito 幅が3.0の新しいシートを右側に追加する クリップボードにある画像を50% に縮小して張り付ける 選択範囲の外側に実線、内側に点線を引く 幅が3.0の新しいシートを右側に追加する Sub シート追加() 一番後ろにシートを追加する Range("A1").Select Sheets.Add After =ActiveSheet 幅を3.0にする Cells.Select Selection.ColumnWidth = 3 Range("A1").Select End Sub クリップボードにある画像を50% に縮小して張り付ける Sub 画像縮小() ActiveSheet.Paste Selection.ShapeRange.ScaleHeight 0.5, True Selection.ShapeRange.ScaleWidth 0.5, True End Sub 選択範囲の外側に実線、内側に点線を引く Sub DwanLine() Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlDown)).Select Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone With Selection.Borders(xlEdgeLeft) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeRight) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With Selection.Borders(xlInsideVertical) .LineStyle = xlContinuous .Weight = xlHairline .ColorIndex = xlAutomatic End With With Selection.Borders(xlInsideHorizontal) .LineStyle = xlContinuous .Weight = xlHairline .ColorIndex = xlAutomatic End With End Sub
https://w.atwiki.jp/line2emyu/pages/165.html
JavaScriptをONにすると地図が表示されます #alpslab_slide
https://w.atwiki.jp/livecommentart/pages/34.html
推奨空白 ここでは空白文字についてまとめています。 全角スペース「U+3000」の幅を基準としています。 基本的にsmall38行 + フォントコマンドありでの計測です。他の高さやdefont(デフォルトフォント)だと異なる場合があります。 ◆ 簡易まとめ 基本的には全角スペース「U+3000」を。高さ固定や幅固定の蓋としてはU+2003の使用をオススメします。 U+2003は全角スペース「U+3000」と同じ幅であり、高さ固定や幅固定の蓋として使いやすいです。 コメントアートの制作中には全角スペース「U+3000」を使用し、仕上げの時にU+2003に置換するというのがわかりやすいかもしれません。 Flashプレーヤーでよく使用されていたU+00A0はフォントコマンドと環境によって幅が変わるため現在は使用非推奨となっています。 ◆ 各空白文字解説 ・U+3000(全角スペース) 『 』 日本語入力時、スペースキーを押すことで入力。 すべての環境で安定。 後ろに文字がない場合削除される。 例)「コメント 」と入力して投稿しても「コメント」と流れる。 ・U+2003 『 』 上からコピペ、またはツールやIMEパッドなどから入力。 全角スペースと同じ幅。 後ろに文字がなくても削除されないため、改行固定や左寄せの蓋として利用できる。 ・U+0009(Tab) Tabキーを押すことで入力。 放送画面上では全角スペース2つ分として表示される。 後ろに文字がない場合削除される。 一部環境(ゲーム機など)だと幅が大きく変わるので注意。 ・U+2001 『 』 上からコピペ、またはツールやIMEパッドなどから入力。 全角スペースと同じ幅。 後ろに文字がなくても削除されないため、改行固定や左寄せの蓋として利用できる。 Androidの一部機種で幅が異なるため注意 ・U+2000、U+2002 『 』『 』 上からコピペ、またはツールやIMEパッドなどから入力。 全角スペースの1/2の幅。 後ろに文字がなくても削除されないため、改行固定や左寄せの蓋として利用できる。 ・U+2004 『 』 上からコピペ、またはツールやIMEパッドなどから入力。 全角スペースの1/3の幅。 後ろに文字がなくても削除されないため、改行固定や左寄せの蓋として利用できる。 環境によってやや不安定。 ・U+2005 『 』 上からコピペ、またはツールやIMEパッドなどから入力。 全角スペースの1/4の幅。 後ろに文字がなくても削除されないため、改行固定や左寄せの蓋として利用できる。 環境によってやや不安定。 ・U+2006 『 』 上からコピペ、またはツールやIMEパッドなどから入力。 全角スペースの1/6の幅。 後ろに文字がなくても削除されないため、改行固定や左寄せの蓋として利用できる。 環境によってやや不安定。 ・U+2009 『 』 上からコピペ、またはツールやIMEパッドなどから入力。 全角スペースの1/5の幅。 後ろに文字がなくても削除されないため、改行固定や左寄せの蓋として利用できる。 環境によってやや不安定。特にiPhone+gothicだと非常に狭くなるので注意 ・U+200B(ゼロ幅文字) クリップボードにコピー (()= {function click(){Text.clipCopy( \u200b )}document.getElementById( c200b ).onclick=click})() 『』 上からコピペ(括弧ごとコピペして括弧を消す)、またはツールやIMEパッドなどから入力。 ゼロ幅空白文字。見た目上の幅がない。 後ろに文字がなくても削除されないため、改行固定や左寄せの蓋として利用できる。 どこに入力されているか見た目で判断できないため注意が必要。 ・U+200C(ゼロ幅文字) クリップボードにコピー (()= {function click(){Text.clipCopy( \u200c )}document.getElementById( c200c ).onclick=click})() 『』 上からコピペ(括弧ごとコピペして括弧を消す)、またはツールやIMEパッドなどから入力。 ゼロ幅空白文字。見た目上の幅がない。 後ろに文字がなくても削除されないため、改行固定や左寄せの蓋として利用できる。 どこに入力されているか見た目で判断できないため注意が必要。 iPhoneではブロックとブロックの間に挟んだ場合、影が表示される。 ・U+0020(半角スペース) 『 』 スペースキーを押すことで入力。日本語入力時はShift+スペースキーで入力できる。 後ろに文字がない場合削除される。 環境によって不安定な幅の空白。利用非推奨。 ・U+00A0 ツールやIMEパッドなどから入力。 後ろに文字がなくても削除されないため、改行固定や左寄せの蓋として利用できる。 現在のHTML5プレーヤーでは環境やフォントコマンドによっては幅が変わるため使用非推奨となった。 ・U+2007 『 』 上からコピペ、またはツールやIMEパッドなどから入力。 後ろに文字がなくても削除されないため、改行固定や左寄せの蓋として利用できる。 環境によって不安定な幅の空白。利用非推奨。 ・U+2008 『 』 上からコピペ、またはツールやIMEパッドなどから入力。 後ろに文字がなくても削除されないため、改行固定や左寄せの蓋として利用できる。 環境によって不安定な幅の空白。利用非推奨。 ・U+200A 『 』 上からコピペ、またはツールやIMEパッドなどから入力。 後ろに文字がなくても削除されないため、改行固定や左寄せの蓋として利用できる。 環境によって不安定な幅の空白。利用非推奨。 非常に狭い空白。 ・U+202F 『 』 上からコピペ、またはツールやIMEパッドなどから入力。 後ろに文字がなくても削除されないため、改行固定や左寄せの蓋として利用できる。 環境によって不安定な幅の空白。 環境によって文字化けや0幅化する。利用非推奨。 ・U+205F 『 』 上からコピペ、またはツールやIMEパッドなどから入力。 後ろに文字がなくても削除されないため、改行固定や左寄せの蓋として利用できる。 環境によって不安定な幅の空白。 環境によって文字化けや0幅化する。利用非推奨。 ・U+2060(ゼロ幅文字) クリップボードにコピー (()= {function click(){Text.clipCopy( \u2060 )}document.getElementById( c2060 ).onclick=click})() 『』 上からコピペ、またはツールやIMEパッドなどから入力。 ゼロ幅空白文字。見た目上の幅がない。 後ろに文字がなくても削除されないため、改行固定や左寄せの蓋として利用できる。 3DSは対応していないため1/1幅となる。 ・U+2028 クリップボードにコピー (()= {function click(){Text.clipCopy( \u2028 )}document.getElementById( c2028 ).onclick=click})() ツールやIMEパッドなどから入力。 ゼロ幅空白文字。見た目上の幅がない。 後ろに文字がなくても削除されないため、改行固定や左寄せの蓋として利用できる。 iPhoneの公式アプリでは改行文字扱い。 環境によって文字化けする。 ・U+2029 クリップボードにコピー (()= {function click(){Text.clipCopy( \u2029 )}document.getElementById( c2029 ).onclick=click})() ツールやIMEパッドなどから入力。 Chrome系では0幅文字。Firefox系では若干幅がある。 後ろに文字がなくても削除されないため、改行固定や左寄せの蓋として利用できる。 iPhoneの公式アプリでは改行文字扱い。 環境によって文字化けする。 ・U+3164 『ㅤ』 上からコピペ、またはツールやIMEパッドなどから入力。 後ろに文字がなくても削除されないため、改行固定や左寄せの蓋として利用できる。 全角スペースと同じ幅。 環境によって文字化けや0幅化する。利用非推奨。 ・U+115F 『ᅟ』 上からコピペ、またはツールやIMEパッドなどから入力。 後ろに文字がなくても削除されないため、改行固定や左寄せの蓋として利用できる。 全角スペースと同じ幅。 環境によって文字化けや0幅化する。利用非推奨。 上へ トップページへ
https://w.atwiki.jp/otya128/pages/103.html
(元ページ) OTYA WINDOW SYSTEM(OTW) 開発中 (OTW5.0-22) ボタンもテキストボックスもみんなウィンドウ Control 関数 説明 GetWindowControl() Windowのコントロールを取得 NewControl NAME$ OUT CTL,ERR 新しいコントロールを作る ExtendControl NAME$,PARENT OUT CTL,ERR 既存のコントロール(Windowなど)を継承 CheckControl(CTL) コントロールが正常かを確認 DeleteControl(CTL) コントロールを削除 FindControl(NAME$) 文字列を使ってコントロールを取得 IsControlExtend(CTL,PARENT) CTLコントロールとPARENTコントロールが継承関係にあるかどうか Handler Handlerの書式 COMMONは付ける COMMON DEF XXX WND,CTL,TYPE,A1,A2 関数 説明 引数1 引数2 SetControlPainter(CTL,HANDLER$) コントロールの描画イベントを処理する関数の登録 無 無 SetControlLMouseUpHandler(CTL,HANDLER$) 左クリック(ボタンから離されたとき)のイベントを処理する関数の登録 X Y SetControlLMouseDownHandler(CTL,HANDLER$) 左クリック(ボタンが押されたとき)のイベントを処理する関数の登録 X Y SetControlMouseMoveHandler(CTL,HANDLER$) マウスが移動したときのイベントを処理する関数の登録 XY マウスの状態 SetControlNotificationHandler(CTL,HANDLER$) 通知(ボタンがクリックされた、Enterが押された)など そのウィンドウのVar0そのウィンドウのWND SetControlNotifHandler(CTL,HANDLER$) =SetControlNotificationHandler SetControlKeyHandler(CTL,HANDLER$) キーが押されたとき BUTTON()から特殊キーを覗いた値 SetControlChFocusHandler(CTL,HANDLER$) フォーカスが変わった時 フォーカスが移ったらTRUE SetControlButtonHandler(CTL,HANDLER$) ボタンが押されたとき SetControlCreateHandler(CTL,HANDLER$) ウィンドウが作られたとき SetControlStrNotifHandler(CTL,HANDLER$) 文字列の通知(FileDialog等) SetControlDeleteHandler(CTL,HANDLER$) ウィンドウが削除されたとき SetControlLDoubleClickHandler(CTL,HANDLER$) 左ダブルクリックをされたとき SetControlMouseLeaveHandler(CTL,HANDLER$) マウスが離れた時 SetControlResizeHandler(CTL,HANDLER$) ウィンドウがリサイズされたとき WH マウスの状態 10 0b00 bit 0CTL_LBTNFLG bit 1CTL_RBTNFLG 1なら左クリック,2なら右クリック,3なら両方 IF BTN AND GetControlStateLBtn()THEN ~左クリック IF BTN AND GetControlStateRBtn()THEN ~右クリック Window 関数 説明 GetRootWND() ルートウィンドウを取得- GetRootWindow()にしたい CheckWindow(WND) ウィンドウが正常化を確認 WindowBackFlag() NewWindowで指定するフラグ, ウィンドウを後ろに配置する WindowFrontFlag() NewWindowで指定するフラグ, ウィンドウを前に配置する WindowHideFlag() NewWindowで指定するフラグ, ウィンドウを非表示にする NewWindow CTL,NAME$,X,Y,WIDTH,HEIGHT,PARENT,FLG OUT WND,ERR コントロールと名前と座標とサイズと親ウィンドウとフラグを使ってウィンドウを作成 NewTopLevelWindow CTL,NAME$,WIDTH,HEIGHT OUT WND,ERR コントロールと名前とサイズを使ってウィンドウを作成 NewStyleWindowArg CTL,NAME$,X,Y,WIDTH,HEIGHT,PARENT,FLG,STYLE,A1,A2 引数を使ってスタイル指定されたウィンドウ作成 NewStyleWindow CTL,NAME$,X,Y,WIDTH,HEIGHT,PARENT,FLG,STYLE スタイル指定されたウィンドウ作成 NewTopLevelStyleWindowArg CTL,NAME$,WIDTH,HEIGHT,FLG,STYLE,A1,A2 引数を使ってスタイル指定されたトップレベルウィンドウ作成 NewTopLevelStyleWindow CTL,NAME$,WIDTH,HEIGHT,FLG,STYLE スタイル指定されたトップレベルウィンドウ作成 WindowMenuStyle() メニュー付きにさせるフラグ WindowResizableStyle() リサイズ可能にさせるフラグ WindowHideStyle() 非表示にさせるフラグ FrontWindow(WND) ウィンドウを手前に持ってくる MoveWindow(WND,X,Y) ウィンドウを指定座標に持っていく ResizeWindow(WND,W,H) ウィンドウをリサイズ MoveResizeWindow(WND,W,H) ウィンドウを移動してリサイズ SendWindowEvent(WND,TYPE,A1,A2) ウィンドウへイベントを送信 RepaintWindow(WND) ウィンドウへ再描画イベントを送信 CallBaseControlHandler(WND,CTL,TYPE,A1,A2) (イベントのハンドラーで)親ハンドラを呼び出し PeekWindowEvent(WND)- OUT CTL,TYPE,A1,A2 ウィンドウのイベントキューの先頭を削除せずに帰す UpdateWindow(WND) ウィンドウのイベントを処理 GetWindowName$(WND) ウィンドウの名前を取得 GetWindowWidth(WND) ウィンドウの幅を取得 GetWindowHeight(WND) ウィンドウの高さを取得 GetWinVer$() バージョンを取得( 5.0 など) GetWindowX(WND) ウィンドウのX座標を取得 GetWindowY(WND) ウィンドウのY座標を取得 GetNextWindow(WND) 次のウィンドウ(前面)を取得,失敗したら0が返る GetPrevWindow(WND) 次のウィンドウ(後面)を取得,失敗したら0が返る GetParentWindow(WND) 親ウィンドウを取得 GetChildWindow(WND) 子ウィンドウを取得(一番後ろ) GetControl(WND) ウィンドウのコントロールを取得 IsFocusWindow(WND) ウィンドウがフォーカスされていればTRUE IsActiveWindow(WND) ウィンドウがアクティブであればTRUE ShowWindow(WND) 非表示ウィンドウを表示させる HideWindow(WND) ウィンドウを非表示にする(bug?) SetWindowBackColor WND,RGB ウィンドウの背景色を設定 SetWindowBackColor(WND) ウィンドウの背景色を取得 GetBackColor() ウィンドウのデフォルト背景色を取得 GetWindowMinSize WND OUT W,H ウィンドウの最小サイズを取得(リサイズ用) SetWindowMinSize WND,W,H ウィンドウの最小サイズを設定(リサイズ用) SetCapture(WND) WNDに対してマウスキャプチャを開始,MouseMoveイベントが全てWNDに対して送られるようになる。但しマウスをクリックすると解除.返り値は前にキャプチャされたウィンドウ GetCapture() 現在マウスキャプチャされているウィンドウを取得 ReleaseCapture(WND) WNDに対してのマウスキャプチャを終了,失敗すると0、成功すると1が返る Graphic 関数 説明 GBeginWindow(WND) 描画開始を明示的に宣言する GEndWindow(WND) 描画終了を明示的に宣言する SetWindowDrawPos WND,X,Y 描画の始点を変更(デフォルトで(0,0) GPSETWindow WND,X,Y,COL ウィンドウに点を書く GFILLWindow WND,X,Y,X2,Y2,COL GBOXWindow WND,X,Y,X2,Y2,COL GLINEWindow WND,X,Y,X2,Y2,COL GetConsolePalette(PAL) コンソールの色を取得 GPRINTWindowCC WND,X,Y,STR$,PAL コンソール色で文字を表示 GPRINTWindow WND,X,Y,STR$,COL GPRINTBWindow WND,X,Y,STR$,COL,BC 背景色を指定してGPRINT GPUTCHRWindow WND,X,Y,A,COL GPUTCHRSizeWindow WND,X,Y,A,SX,SY,COL サイズ(SX SY)を指定してGPUTCHR GPUTCHRSize1Window WND,X,Y,A,SX,COL サイズ(S S)を指定してGPUTCHR GPUTCHRBWindow WND,X,Y,A,COL,BC 背景色を指定してGPUTCHR GLOADWindow WND,X,Y,W,H,IMG[],FLG,MODE GCOPYWindow WND... 廃止予定 GTRIWindow WND,X,Y,X2,Y2,X3,Y3,COL GCIRCLEWindow WND,X,Y,R,COL GCIRCLE2Window WND,X,Y,R,S,E,F,COL 標準GUI部品 関数 説明 GetWindowControl() ウィンドウを表示するコントロール GetButtonControl() ボタンを表示するコントロール GetToggleButtonControl() トグルボタンを表示するコントロール GetTextBoxControl() テキストボックスを表示するコントロール GetLabelControl() 文字を表示するコントロール SetLabelAlignCenter LABEL 文字を中央 SetLabelAlignLeft LABEL 文字を左寄せ(デフォルト) SetLabelAlignRight LABEL 文字を右寄せ Sample VAR TESTOTWCTL,TESTOTWWND DEF I_TEST IF!CHKCALL( IsWinRunning )||!IsWinRunning()THEN OTWが存在するか、存在した場合動いているか ExitProcess 1 RETURN ENDIF VAR E ExtendControl TEST ,GetWindowControl() OUT TESTOTWCTL,E Windowコントロールを継承する IF E THEN ExitProcess 1RETURN E=SetControlPainter(TESTOTWCTL, TESTOTWPainter ) NewTopLevelWindow TESTOTWCTL, TEST ,64,64 OUT TESTOTWWND,E IF E THEN ExitProcess 1 END DEF TESTOTWPainter WND,CTL,T,A1,A2 VAR E=CallBaseControlHandler(WND,CTL,T,A1,A2) 親のハンドラを呼び出す(これを呼ばないと枠が描画されない) IF E THEN RETURN E=GBeginWindow(WND) IF E THEN RETURN GFILLWindow WND,0,0,64,64,RGB(0,0,0) GPRINTWindow WND,0,0, HELLO ,RGB(255,255,255) E=GEndWindow(WND) END DEF L_TEST IF UpdateWindow(TESTOTWWND)THEN ExitProcess 1 ウィンドウが閉じられたりした END flag memo CTL_FRMBTNHANDLER CTL_LBTNFLG CTL_RBTNFLG CTL_BTNDWNFLG CTL_BTNUPFLG 文字列は 123 [0]みたいな使い方が可能 これから実装したいもの 関数 GetScreenWidth() GetScreenHeight() GetWinVer$() message MouseLeave MouseDoubleClick 標準コントロール これらのコントロールを継承する際は親コントロールのHandlerを呼び出す必要がある Window event 説明 Paint 枠を描画 ChFocus 前面に移動 Button event 説明 Paint ボタンを描画 LMouseUp 親ウィンドウにNotifを送信 操作 関数 説明 SetButtonAlignLeft WND ボタンの文字を左寄りにする SetButtonAlignRight WND ボタンの文字を右寄りにする SetButtonAlignCenter WND ボタンの文字を中央に配置する IsCheckedButton(WND) トグルボタンをチェックされているか UnCheckButton WND トグルボタンをチェックさせない CheckButton WND トグルボタンがチェックさせる Label Scroll 関数 説明 GetVScrollBarControl() 縦スクロールバーコントロールを取得 NewVScrollBar PARENT,SIZ OUT WND,E 縦スクロールバーをPARENTに長さSIZで作成 SetScrollBarSize WND,SIZ 縦スクロールバーのサイズを設定 GetScrollBarSize(WND) 縦スクロールバーのサイズを取得 SetScrollBarPosition WND,POS 縦スクロールバーの位置を設定 GetScrollBarPosition(WND) 縦スクロールバーの位置を取得 ListBox 関数 説明 GetListBoxControl() リストボックスのコントロールを取得 AddListBoxItem WND,ITEM$ リストボックスにITEM$を追加 AddArrayListBoxItem WND,ITEM$ リストボックスに配列ITEM$を追加 ListBoxChItem() 選択アイテムが変化すると親ウィンドウにNotif(A1=WND,A2=ListBoxChItem)を送る GetListBoxSelectedText$(WND) リストボックスで選択されているアイテム名を取得 SetChItemListBoxNotif WND,F 選択アイテムが変化すると親ウィンドウにNotif(A1=WND,A2=ListBoxChItem)を送るかどうか NumUpDown GetNumUpDowCnontrol() GetNumUpDownValue(WND) SetNumUpDownRange WND,MIN,MAX DropDownList (DROPDOWNLIST) 未実装 Menu 関数 説明 NewMenu OUT MENU,E MENUを作成 SetMenuBar WND,MENU 未実装 ShowMenu MENU,WND 未実装,引数の順番が定まっていない GetWindowMenu(WND) WNDのMENUを取得 AddMenuItem MENU,STR$,IVAR MENUにSTR$を追加,IVARはWindowNotifEventの時にARG2に指定される AddMenuItemSeparator MENU MENUにSeparatorを追加 CheckMenu(MENU) MENUが存在すればTRUE NewTopLevelMenuWindow CTL,NAME$,WIDTH,HEIGHT OUT WND,ERR ShowContextMenu MENU,WND コンテキストメニューを表示 Window Group 関数 説明 JoinWindowGroup(WND,WND2) LeaveWindowGroup WND 未実装 GetWindowGroupOwner(WND) Dialog 関数 説明 NewDialogBox(CTL,NAME$,WIDTH,HEIGHT,OWNER,FLAG) NewModalDialogBox(CTL,NAME$,WIDTH,HEIGHT,OWNER) モーダルダイアログボックスを作成 NewModelessDialogBox(CTL,NAME$,WIDTH,HEIGHT,OWNER) モーダレスダイアログボックスを作成 WindowOP ウィンドウに対しての操作を効率化する 子ウィンドウを一々削除していたら再描画リクエストが一々確認されたりして非常に遅い それをEndWindowOPでまとめてやる 関数 説明 BeginWindowOP(WND) EndWindowOP(WND) MoveWindow2(WND,X,Y) - MoveWindowOP(WND,X,Y) 拡張コントロール群 標準コントロールの機能拡張版 TextBoxEx 複数行編集、シンタックスハイライトに対応した拡張版 関数 説明 GetTextBoxExControl() TextBoxExControlを取得 TextBoxExSetText WND,TXT$ WNDにTXT$を設定 TextBoxGetText WND OUT TXT$ WNDのTextを取得 SetTextBoxExPRGMode WND,FLG FLGがTRUEならばシンタックスハイライトを有効化 TextBoxExSetSelectedText WND,TXT$ 現在選択されているTextにTXT$を設定 TextBoxExGetSelectedText WND OUT TXT$ 現在選択されているTextを取得 TextBoxExCopy WND クリップボードにコピー TextBoxExCut WND クリップボードに切り取り TextBoxExPaste WND クリップボードから貼り付け RICHTEXTEDITOR OTW5.0-20現在実装途中 関数 説明 RichTextBold() フラグ RichTextItalic() フラグ RichTextStrike() フラグ RichTextUnderline() フラグ RICHTEXTWindow WND,X,Y,C,STYLE,SIZE,COL RICHTEXTを表示 関数 説明 RTESetBold WND,F RTESetItalic WND,F RTESetStrike WND,F RTESetUnderline WND,F RTESetTextColor WND,COL RTESetAlignLeft WND RTESetAlignCenter WND RTESetAlignRight WND RTESetFontSize WND ダイアログ 関数 説明 SaveFileDialog(OWNER,TYPE$,ID) 今の所TYPEはTXTまたはDATのみ OpenFileDialog(OWNER,TYPE$,ID) 今の所TYPEはTXTまたはDATのみ Clipboard 不完全実装 関数 説明 ClearClipboard クリップボードを初期化 ClipboardContainsText() クリップボードに文字列が格納されているか ClipboardGetText$() クリップボードに格納された文字列を取得(無ければ空文字) ClipboardSetText V$ クリップボードに文字列を格納 ClipboardContaisFile() クリップボードにファイルが格納されているか ClipboardGetFile OUT ISCUT,PATH$) クリップボードに格納されたファイルを取得(無ければ空文字)ISCUTがTRUEならば切り取り ClipboardSetFile ISCUT,PATH$ クリップボードにファイルを格納、ISCUTがTRUEならば切り取り Image 不完全実装 関数 説明 NewImage WIDTH,HEIGHT OUT IMG,E 画像を作成 CheckImage(IMG) 画像が正常か確認 DeleteImage(IMG) 画像を削除 関連付け 関数 説明 GetAssociatedProgram$(TYP$,EXT$) TYP$とEXT$に関連付けられたものを取得 AssociateFile(TYP$,EXT$,NAME$) 拡張子をNAME$に関連付けるTYP$にDAT/TXT,EXT$に拡張子(e.g.TXT)成功するとFALSE 直接描画 多分つくる 関数 説明 GBeginDirect(WND) 直接描画を可能にする(GPSETなどが使える) GEndDirect(WND,X,Y,W,H) 直接描画を終了し、GBeginWindow(WND)をしてX,Y,W,Hに対し転送
https://w.atwiki.jp/yaruosurerowa/pages/15.html
現在地の編集 (外部ツールへのリンク) ※動作には「Microsoft Silverlight」をインストールする必要があります ネタバレ地図