Jw_cad 情報交換室−その3New

 JWW についての情報交換の場としてお使いください
初心者の方などのご相談は Jw_cad 相談 室−その2をご利用ください
なお、情報交換室と相談室の両方に同じ内容を投稿するのはご遠慮ください

2009年9月以前の発言過去ログのページからご覧ください。

それ以降の過去ログは消失しています。
申し訳ありませんが、復活の予定はありません。


  新規投稿 ┃ツリー表示 ┃スレッド表示 ┃一覧表示 ┃トピック表示 ┃番号順表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
28 / 1497     ←次へ | 前へ→

Re:JWK JWSファイルの使い方
 LA  - 19/8/28(水) 23:16 -
//============続き===================

//左側フォルダTREEをクリック
DbgPRINT("フォルダ:"+folder);DbgPRINT("カレント1:"+GETSLCTLST(id,1));DbgPRINT("カレント2:"+GETSLCTLST(id,2))
//folderがTREE内に存在しないとJWWを強制終了するしかなくなるのでチェックは厳重に
IF GETSLCTLST(id,1)<>"\"+folder AND GETSLCTLST(id,2)<>"\"+folder THEN CLKITEM(id, folder, CLK_TREEVEW)
ExitEx(cm,file="") //フォルダのみの場合はここで終了

//右側リストをダブルクリック
DbgPRINT(LET(s,"ファイル:"+file, cm, cm=""),1)
SELECT xt
CASE ".jws",".jwk"
CLKITEM(id, "リスト表示", CLK_BTN, TRUE) //リスト表示にする サムネイルだと要スクロールの為
IF GETITEM(id,ITM_LIST,-1) AND GETSLCTLST(id,1)<>xt THEN CLKITEM(id, xt, CLK_LIST)
CLKITEM(id, file, CLK_LSTVEW or CLK_LEFTCLK or CLK_DBLCLK) //図形を選択
CASE ".bat"
CLKITEM(id, file, CLK_LSTVEW or CLK_LEFTCLK or CLK_DBLCLK) //外変を選択
CASE ".op4",".op1",".op2",".op3"
CLKITEM(ID,"ファイル選択", CLK_ACC or CLK_MUSMOVE,TRUE,VAL(file));BTN(LEFT);SLEEP(0.01);BTN(LEFT)
//CLK_LEFTCLK CLK_DBLCLK は反応せず。ラベル指定はカーソルがどこかに飛ぶのでNG
SELEND
SLEEP(0.1)
ACW(id0)

//新規JWWの場合図形配置 とりあえず、クライアント領域の中央に配置
IF mode=0 THEN BTN(LEFT,CLICK,STATUS(id0,ST_CLX)+STATUS(id0,ST_CLWIDTH)/2,STATUS(id0,ST_CLY)+STATUS(id0,ST_CLHEIGHT)/2)
SLEEP(2) //FUKISASI , PRINT 用
EXITEXIT
//メインルーチン終了


//WM_COMMAND を送ってダイアログを開く
FUNCTION OpenDlgJww(id,cmd,s)
PostMessageA(IDTOHND(id), WM_COMMAND, cmd, 0)
RESULT=WaitActiveDlg(s)
FEND

//ダイアログがアクティブになるまで待つ
FUNCTION WaitActiveDlg(s)
DbgPRINT(s)
id= GETID(s, "#32770", -1)
DbgPRINT(s+"発見")
//ACW(id)
REPEAT; SLEEP(wt);UNTIL STATUS(GETID(GET_ACTIVE_WIN),ST_TITLE)=s
DbgPRINT(s+"アクティブ完了")
RESULT=GETID(GET_ACTIVE_WIN)
FEND

//ウインドウがBUSYの間待つ
PROCEDURE BusyWait(id)
DbgPRINT("BusyWAit:"+STATUS(id,ST_TITLE))
WHILE STATUS(id,ST_BUSY); SLEEP(wt);WEND
DbgPRINT("BusyWAit完了")
FEND

//ウインドウがActiveになるまで待つ
PROCEDURE WinWaitActive(id)
BusyWait(id)
ACW(id)
REPEAT ;SLEEP(wt);UNTIL STATUS(id,ST_ACTIVE)
FEND


//強制終了
PROCEDURE ExitEx(s="",f=TRUE,w=1.5)
IF !f THEN EXIT
IFB s<>"" THEN
;DbgPRINT(s,1)
ENDIF
SLEEP(w)
EXITEXIT
FEND

//デバッグ用 コメントの代わりに使ってもよい
PROCEDURE DbgPRINT(s,dbg1=dbg,w=wt)
SELECT dbg1
CASE 1
;FUKIDASI(s,G_MOUSE_X+50,G_MOUSE_Y+50);SLEEP(w)
CASE 2
;PRINT s;SLEEP(w)
;SELEND
FEND

//変数代入用 3項演算子の代わりも可
FUNCTION LET(var a,b,c=EMPTY,flg=TRUE)
IF c=EMPTY THEN c=a
IF flg THEN a=b ELSE a=c
RESULT=a
FEND


以下、コメント

使用法ヒント

jwk,jws の場合:
関連付けして使う
(例) c:\tool\uwsc\uwsc.exe c:\jww\gaihen\OpenJwks2.uws "%1" %*
推奨関連付ソフト NirSoftさん作 FileTypesMan http://www.nirsoft.net/utils/file_types_manager.html

又は、このスクリプトと同じフォルダに以下の内容のbatファイルを作成し、それに関連付けをする
START "" "OpenJwks2.uws" "%1"


線記号変形・建具(4->1〜3に読替)の場合:
JW_OPT4ファイル内での番号を指定し、拡張子.op4 を付けて指定する
関連付しない場合は、個別にbatファイルを作成する
START "" "OpenJwks2.uws" "C:\jww\JW_OPT4.DAT\5.op4" "コーナー" //標準添付【線記号変形A】コーナー の場合
(スクリプトとbatファイルが同じフォルダにある場合)
関連付けする場合は、JW_OPT4.DAT@1.op4 の様に、.DATの後ろの\->@に置き換えた名前のダミーファイルをOPT4ファイルと同じフォルダに作成する
第2引数を指定すると、ファイル名の代わりにFUKIDASI表示される(これは、.op4に限らず有効)
リストをスクロールさせないので、最初のページに入らない物には非対応


フォルダのみ:
最期に\を付けると、フォルダのみ選択し、ダイアログが表示されたまま終了する
START "" "OpenJwks2.uws" "C:\jww\JW_OPT4.DAT\.op4\"


引用なし

パスワード


<Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/75.0.3770.100 Safari/537.36 Sleipni...@ntngno148233.ngno.nt.ngn.ppp.infoweb.ne.jp>
・ツリー全体表示

JWK JWSファイルの使い方 多呂 19/8/28(水) 19:12
Re:JWK JWSファイルの使い方 ふゆ〜な〜 19/8/28(水) 20:02
Re:JWK JWSファイルの使い方 LA 19/8/28(水) 23:14
Re:JWK JWSファイルの使い方 多呂 19/8/29(木) 11:49
Re:JWK JWSファイルの使い方 LA 19/8/31(土) 18:44
Re:JWK JWSファイルの使い方 多呂 19/8/29(木) 11:53
Re:JWK JWSファイルの使い方 LA 19/8/28(水) 23:16
Re:JWK JWSファイルの使い方 R.N 19/8/31(土) 15:20
Re:JWK JWSファイルの使い方 R.N 19/8/31(土) 17:39
Re:JWK JWSファイルの使い方 LA 19/8/31(土) 18:24
Re:JWK JWSファイルの使い方 R.N 19/8/31(土) 19:18
Re:JWK JWSファイルの使い方 R.N 19/8/31(土) 20:24
Re:JWK JWSファイルの使い方 R.N 19/9/5(木) 21:44
Re:JWK JWSファイルの使い方 LA 19/9/5(木) 23:46
Re:JWK JWSファイルの使い方 R.N 19/9/6(金) 14:00
Re:JWK JWSファイルの使い方 Since Dos 19/8/29(木) 18:06
Re:JWK JWSファイルの使い方 多呂 19/8/30(金) 8:13
Re:JWK JWSファイルの使い方 多呂 19/8/30(金) 8:30
Re:JWK JWSファイルの使い方 Since Dos 19/8/30(金) 13:32
Re:JWK JWSファイルの使い方 多呂 19/8/30(金) 13:59
Re:JWK JWSファイルの使い方 Since Dos 19/8/30(金) 14:16
Re:JWK JWSファイルの使い方 AKIRA 19/8/31(土) 15:24
Re:JWK JWSファイルの使い方 LA 19/8/31(土) 18:33
Re:JWK JWSファイルの使い方 AKIRA 19/9/1(日) 8:43

28 / 1497     ←次へ | 前へ→
  新規投稿 ┃ツリー表示 ┃スレッド表示 ┃一覧表示 ┃トピック表示 ┃番号順表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
 986345
ページ:  ┃  記事番号:  

C-BOARD Moyuku v1.03b3
Jw_cad Copyright (C)1997-2016 Jiro Shimizu & Yoshifumi Tanaka