otya128 @ ウィキ

KANICHAT/20230205

2023-02-06T09:58:14+09:00

"announce":[{"id":"notice_sorry","message":"

サービス終了のお知らせ

\r\n

かにチャットは慢性的な赤字のためサービスの終了を予定しております。具体的な終了日時は未定ですが、決まり次第改めてお知らせします。10年以上長きに渡りご愛顧いただきありがとうございました。ロビーチャット

","title":"1","type":"notice"}] &image(kani20230205.PNG)

OTYAX/VER/5/FILE/LINK

2018-11-10T16:13:04+09:00

*.LNK ファイルフォーマット function=hoge icon16=/PATH/TO.IMG functionにはプロセス名が入る icon16は16x16の物理色画像配列ファイルを指定する

KANICHAT/20180519

2018-05-19T23:40:53+09:00

"announce":[{"id":"notice_ment","message":"

最近「発言が他のIPアドレスから2重に書き込まれる」という報告が相次いでいます。ウイルスバスターを利用していませんか？ウイルスバスターをOFFにして直るかどうか、確認をお願いします(直った報告も大歓迎)。

","title":"1","type":"notice"}] #image(https://img.atwikiimg.com/www52.atwiki.jp/otya128/attach/105/14/20180519.PNG)

OTYAX

2017-08-15T22:18:06+09:00

* OTYAX 5.x プチコン3号向けウィンドウ表示等を担当するOTWとマルチタスクやファイル周りなどを担当するOTYAXに分離した [[主なドキュメントはこちらに移転した>https://otya128.github.io/OTYAX5/]] * API [[OTW API>OTYAX/VER/5/OTW/API2]] * OTYAX 4.x よくサブルーチン名や変数名を忘れるためメモ *API [[API>http://www52.atwiki.jp/otya128/?OTYAX%2FAPI]] *その他 [[RESIZE>http://www52.atwiki.jp/otya128/?OTYAX%2FRESIZE]] [[VER>http://www52.atwiki.jp/otya128/?OTYAX%2FVER]]

OTYAX/VER/5/OTW/API2

2016-11-22T23:52:39+09:00

(元ページ)

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)

未実装

関数	説明
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に対し転送

OTYAX/VER/5/OTW/VER2

2016-11-22T23:51:23+09:00

OTW5.0-26

変更点

IM APIを実装
CheckIM(IM)
SetIMKeyHandler(IM,FUNC$)
SetIMDeleteHandler(IM,FUNC$)
DeleteIM(IM)
NewIM OUT IM,ERR
ProcessIM(IM)
SendIMText(IM,TEXT$)

OTW5.0-25

変更点

OTYMINEを作成
メニューを作りアイテムを何も加えないとおかしくなる問題を修正
MessageBox APIを実装
MessageBoxOK()
CalcTextSize TEXT$ OUT W,H
MessageBoxNotifID()
MessageBoxNotifOK()
MessageBoxNotifCancel()
MessageBox(WND,TITLE$,TEXT$,FLAG)
CREATEOTWのインデント修正
PRUNでプログラムの一時中断機能を試験実装
OTYMINEを追加

OTW5.0-24

変更点

ウィンドウを画面の下に移動させると描画がおかしくなる問題を修正?

OTW5.0-23

変更点

GBeginDirect(WND)
GEndDirect(WND,X1,Y1,X2,Y2,X3,Y3,MODE)
GCopyDirect(WND,X1,Y1,X2,Y2,X3,Y3,MODE)
SetControlFrameHandlerを追加
IM APIの初期化を実装
Image APIをOTYAXの新API AllocSBArrayをベースに変更
LoadGRPImage FIL$ OUT IMG,Eを実装
必要な部分だけ再描画できるように
RepaintFrameWindow(WND)
RepaintWindowWithARect(WND,AX,AY,AX2,AY2)
ファンクションキー1番でキーボードの無効有効を切り替えられるように
TextBoxExでウィンドウが削除されたときにメモリを開放するように
OTYFILでキーを入力したときにその文字が先頭にあるファイルにカーソルが移動するように
PRUNの状態保存の方式を省メモリな実装に
IMGVIEWが実装途中

TODO

TextBoxExの未実装機能実装
RichTextBoxでとりあえずまともなTextEditorとして機能させたい

OTW5.0-22

変更点

OTYFILを作り直した
OTYFILのOpen,Delete,Renameを実装
ファイル関連付けの実装
ファイルをコピー出来るような実装を一応した
EditorSelectorの実装

TODO

OTYFILの作り直し
ファイル関連付けの実装

OTW5.0-21

OTW-R5

変更点


 PAINTで遊んだまま未修正
 MoveWindowで間違えてOTW_DrawMapを二度呼んでいる
 TextBoxExで選択コピー貼り付け実装
 ClipBook Viewer追加
 LauncherでListBoxを使用し、リサイズにも対応
 ListBoxがリサイズに対応

修正

AddMenuItemSeparator MENU実装
メニューで特定条件の時選択されても描画が更新されなかった問題を修正
メニューの外見を立体的にした
影付きウィンドウを実装(OTW_ENABLE_SHADOW)
- SetWindowOption("ENABLE_SHADOW",TRUE)実装したい
- CALL "WinOptSet"+"ENABLE_SHADOW",TRUEのような実装
コンテキストメニューの実装
スクロールバーで稀に0除算エラーが出る問題をとりあえず修正
スクロールバーのサイズを変更するとはみ出た場合は自動で修正されるようになった

関数	説明
ShowContextMenu MENU,WND	コンテキストメニューを表示

マウスイベントの変更点

LMouseUPイベントがアクティブウィンドウではなくマウス下にあるウィンドウに対して送られるようになった前のようにするにはSetCapture(WND)をする必要がある

OTW5.0-20

変更点

タスクバー(TSKBAR)をとりあえず見た目だけ作った NewMenuでメニューを割り当てられない時にエラーMENU_NOALLOCを出すように

追加しかけ

DROPDOWNLIST

追加

関数	説明
ShowWindow(WND)
HideWindow(WND)


 OTW5.0-1E
 TODO:
 SetWindowVisible WND,FLG
 GetWindowVisible(WND)

忘れている

関数	説明
GetBackColor()	色コード
SetButtonAlignLeft WND
SetButtonAlignRight WND
SetButtonAlignCenter WND

バグ

PAINTで遊んだまま未修正 MoveWindowで間違えてOTW_DrawMapを二度呼んでいる

OTW5.0-1F

変更点

OTYDOCのバグ修正斜体描画をさらに高速化,向きを修正描画の始点を変更可能にする準備

追加

GCOPYWindow

OTW5.0-1E

放置してたら結構バージョン進んでた

変更点

OTYDOCのバグ修正

OTYDOCがまともに使えるようになった

GetWindowX(WND)

GetWindowY(WND)

が絶対座標を返していた問題を修正

常に非表示のウィンドウが生成可能に

追加

NumUpDownコントロール(spin box,spinner) WindowHideFlag() WindowHideStyle() TODO: SetWindowVisible WND,FLG GetWindowVisible(WND)

OTW5.0-19

追加

メニュー
ウィンドウグループ
ダイアログ
ControlCreateHandler

関数	説明
NewMenu OUT MENU,E
SetMenuBar WND,MENU	未実装
ShowMenu MENU,WND	未実装,引数の順番が定まっていない
GetWindowMenu(WND)
AddMenuItem MENU,STR$,IVAR
AddMenuItemSeparator MENU
CheckMenu(MENU)
NewTopLevelMenuWindow CTL,NAME$,WIDTH,HEIGHT OUT WND,ERR

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)

Event

関数	説明
SetControlCreateHandler(CTL,HANDLER$)

修正

ウィンドウの座標が-の時にエラーが出るのを不完全に修正(子ウィンドウを所持しているとエラー)

OTW5.0-18

追加

OTYFILにスクロールバーを追加

関数	説明
GetVScrollBarControl()	縦スクロールバーコントロールを取得
NewVScrollBar PARENT,SIZ OUT WND,E
SetScrollBarSize WND,SIZ
SetScrollBarPostion WND,POS	->Position
GetWindowX(WND)
GetWindowY(WND)
GetNextWindow(WND)
GetPrevWindow(WND)
GetParentWindow(WND)
GetChildWindow(WND)

WindowOP

関数	説明
BeginWindowOP(WND)
EndWindowOP(WND)
MoveWindow2(WND,X,Y)	->MoveWindowOP(WND,X,Y)

ToDo

OTYFILでファイルを開けるように
横スクロールバー
スクロールバーの移動をボタン以外で出来るように
MOUSEMOVEでの移動が範囲外でもクリックしている場合は取得出来るように
メニューの実装

OTYAX/VER/5/VER

2015-10-11T21:11:37+09:00

*OTW5.0-21 &bold(){未リリース} **変更点 PAINTで遊んだまま未修正 MoveWindowで間違えてOTW_DrawMapを二度呼んでいる修正 *OTW5.0-20 **変更点タスクバー(TSKBAR)をとりあえず見た目だけ作った NewMenuでメニューを割り当てられない時にエラーMENU_NOALLOCを出すように ***追加しかけ + DROPDOWNLIST **追加 |ShowWindow(WND)|| |HideWindow(WND)|| OTW5.0-1E TODO: SetWindowVisible WND,FLG GetWindowVisible(WND) 忘れている |GetBackColor()|色コード| |SetButtonAlignLeft WND|| |SetButtonAlignRight WND|| |SetButtonAlignCenter WND|| **バグ PAINTで遊んだまま未修正 MoveWindowで間違えてOTW_DrawMapを二度呼んでいる *OTW5.0-1F **変更点 OTYDOCのバグ修正斜体描画をさらに高速化,向きを修正描画の始点を変更可能にする準備 **追加 GCOPYWindow *OTW5.0-1E 放置してたら結構バージョン進んでた **変更点 OTYDOCのバグ修正 OTYDOCがまともに使えるようになった GetWindowX(WND) GetWindowY(WND) が絶対座標を返していた問題を修正常に非表示のウィンドウが生成可能に **追加 NumUpDownコントロール(spin box,spinner) WindowHideFlag() WindowHideStyle() TODO: SetWindowVisible WND,FLG GetWindowVisible(WND) *OTW5.0-19 **追加メニューウィンドウグループダイアログ ControlCreateHandler ***Menu |NewMenu OUT MENU,E|| |SetMenuBar WND,MENU|未実装| |ShowMenu MENU,WND|未実装,引数の順番が定まっていない| |GetWindowMenu(WND)|| |AddMenuItem MENU,STR$,IVAR|| |AddMenuItemSeparator MENU|| |CheckMenu(MENU)|| |NewTopLevelMenuWindow CTL,NAME$,WIDTH,HEIGHT OUT WND,ERR|| ***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)|| ***Event |SetControlCreateHandler(CTL,HANDLER$)|| **修正ウィンドウの座標が-の時にエラーが出るのを不完全に修正(子ウィンドウを所持しているとエラー) *OTW5.0-18 **追加 OTYFILにスクロールバーを追加 |GetVScrollBarControl()|縦スクロールバーコントロールを取得| |NewVScrollBar PARENT,SIZ OUT WND,E|| |SetScrollBarSize WND,SIZ|| |SetScrollBarPostion WND,POS|->Position| |GetWindowX(WND)|| |GetWindowY(WND)|| |GetNextWindow(WND)|| |GetPrevWindow(WND)|| |GetParentWindow(WND)|| |GetChildWindow(WND)|| ***WindowOP ウィンドウに対しての操作を効率化する子ウィンドウを一々削除していたら再描画リクエストが一々確認されたりして非常に遅いそれをEndWindowOPでまとめてやる |BeginWindowOP(WND)|| |EndWindowOP(WND)|| |MoveWindow2(WND,X,Y)|->MoveWindowOP(WND,X,Y)| **ToDo OTYFILでファイルを開けるように横スクロールバースクロールバーの移動をボタン以外で出来るように MOUSEMOVEでの移動が範囲外でもクリックしている場合は取得出来るようにメニューの実装

OTYAX/VER/5/OTW/GRPAPI

2015-09-24T23:35:37+09:00

*GRPAPI GBeginWindow(WND) を使って描画対象を宣言して GLINEWindow(WND,X,Y,X2,Y2,COL) などを使い GEndWindow(WND) で終了させる *この仕組みの活用 NewGraphicsContext() GraphicsContextの作成 DeleteGraphicsContext() SetDrawTargetWindow(GC,WND) SetDrawTargetFile(GC,FILE) Metafileのような物ビットマップ画像 SetDrawTargetImage(GC) 配列に対して描画 SetDrawTargetRemote(GC,REMOTE) GBeginGC(GC) GraphicsContextを元に描く GEndGC(GC) SetWindowGC(GC) 標準ではSetDrawTargetWindowされたやつ *重要な問題 + 速度 ++ 直接描画できるようにするAPIの準備 DIM IMG[32,32] VAR GC=NewGraphicsContext() SetDrawTargetImageArray(GC,IMG,32,32) IF GBeginGC(GC) THEN @ERR VOID DrawLINEGC(GC,0,0,31,31,RGB(255,0,0)) IF GEndGC(GC) THEN @ERR GOTO @EXIT @ERR @EXIT VOID DeleteGraphicContext(GC)

OTYAX/VER/5/OTW

2015-07-26T15:36:11+09:00

*OTYA WINDOW SYSTEM(OTW) 開発中 (OTW5.0-11) ボタンもテキストボックスもみんなウィンドウ **Control |GetWindowControl()|Windowのコントロールを取得| |NewControl NAME$ OUT CTL,ERR|新しいコントロールを作る| |ExtendControl NAME$,PARENT OUT CTL,ERR|既存のコントロール(Windowなど)を継承| |CheckControl(CTL)|コントロールが正常かを確認| |DeleteControl(CTL)|コントロールを削除| ***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が押された)など|&strike(){そのウィンドウのVar0}そのウィンドウのWND|| |SetControlKeyHandler(CTL,HANDLER$)|キーが押されたとき|BUTTON()から特殊キーを覗いた値|| |SetCotrolChFocusHandler(CTL,HANDLER$)|フォーカスが変わった時|フォーカスが移ったらTRUE|| ***マウスの状態 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で指定するフラグ, ウィンドウを前に配置する| |NewWindow CTL,NAME$,X,Y,WIDTH,HEIGHT,PARENT,FLG OUT WND,ERR|コントロールと名前と座標とサイズと親ウィンドウとフラグを使ってウィンドウを作成| |NewTopLevelWindow CTL,NAME$,WIDTH,HEIGHT OUT WND,ERR|コントロールと名前とサイズを使ってウィンドウを作成| |FrontWindow(WND)|ウィンドウを手前に持ってくる| |MoveWindow(WND,X,Y)|ウィンドウを指定座標に持っていく| |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"など)| ***Graphic |GBeginWindow(WND)|描画開始を明示的に宣言する| |GEndWindow(WND)|描画終了を明示的に宣言する| |GPSETWindow WND,X,Y,COL|ウィンドウに点を書く| |GFILLWindow WND,X,Y,X2,Y2,COL|| |GBOXWindow WND,X,Y,X2,Y2,COL|| |GPRINTWindowCC WND,X,Y,STR$,PAL|コンソール色で文字を表示| |GPRINTWindow WND,X,Y,STR$,COL|| |GLOADWindow WND,X,Y,W,H,IMG[],FLG,MODE|| **標準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 |Paint|枠を描画| |ChFocus|前面に移動| ***Button |Paint|ボタンを描画| |LMouseUp|親ウィンドウにNotifを送信|

KANICHAT/20141230

2014-12-31T11:27:54+09:00

12/30?~12/31 "announce":[{"id":"notice_sorry","message":"

年末の最後を幸せに過ごせるよう、フォロワーにほめてもらえるサイト立ち上げました。

","title":"1","type":"notice"}] #image(20141230.png)

otya128 @ ウィキ

KANICHAT/20230205

OTYAX/VER/5/FILE/LINK

KANICHAT/20180519

OTYAX

OTYAX/VER/5/OTW/API2

(元ページ)

OTYA WINDOW SYSTEM(OTW)

Control

Handler

マウスの状態

Window

Graphic

標準GUI部品

Sample

flag memo

これから実装したいもの

message

標準コントロール

Window

Button

操作

Label

Scroll

ListBox

NumUpDown

DropDownList (DROPDOWNLIST)

Menu

Window Group

Dialog

WindowOP

拡張コントロール群

TextBoxEx

RICHTEXTEDITOR

ダイアログ

Clipboard

Image

関連付け

直接描画

OTYAX/VER/5/OTW/VER2

OTW5.0-26

変更点

OTW5.0-25

変更点

OTW5.0-24

変更点

OTW5.0-23

変更点

TODO

OTW5.0-22

変更点

TODO

OTW5.0-21

変更点

マウスイベントの変更点

OTW5.0-20

変更点

追加しかけ

追加

バグ

OTW5.0-1F

変更点

追加

OTW5.0-1E

変更点

追加

OTW5.0-19

追加

Menu

Window Group

Dialog

Event

修正

OTW5.0-18

追加

WindowOP

ToDo

OTYAX/VER/5/VER

OTYAX/VER/5/OTW/GRPAPI

OTYAX/VER/5/OTW