テキストエディタＱＸ　5

《 過去スレ 》
テキストエディタＱＸ　4
http://hibari.2ch.net/software/kako/1128/11280/1128011742.html
テキストエディタＱＸ　3
http://pc7.2ch.net/test/read.cgi/software/1080860598/
テキストエディタＱＸ　2
http://pc5.2ch.net/test/read.cgi/software/1042148570/
テキストエディタＱＸ
http://pc3.2ch.net/software/kako/1003/10038/1003879529.html

《 公式サイト 》
http://www2k.biglobe.ne.jp/~araken/
http://0ban.com/araken/

関連
>>2-3

>>53
あんまり推奨できないけど、サンプルを提示するね
トグルスイッチとしては、ステータスバーボタンとポップアップメニューに追加するものとした

--- qxwkey.ini ---
[StatusBar]

//*** 先頭から、この部分は省略 ***

" " 12
""
"$G$gg_toggle$3" $AutoXXX.mac,toggle_width

[Macro]
AutoMacro=AutoXXX.mac
----------------

--- AutoXXX.qma ---
[1]
"自動幅合わせ on/off" AutoXXX.mac,toggle_width
AutoXXX.mac,toggle_width 1S "随時、自動的に文書の横幅を調整する on/off"
----------------

--- autoXXX.mac ---
proc AutoTimer()
dim width
if @hwnd = 0 then exit proc
if @Global$("g_toggle_width")<>"on" then exit proc
width = @ScreenWidth - 4
if @PrintNumber then width = width - 6
if width<40 then width = 40
if width>254 then width = 254
if val(@Global$("g_prev_width")) <> width then @width = width : @Global$("g_prev_width") = str$(width)
end proc

proc AutoOpened()
@Global$("g_toggle_width") = "off"
@Global$("g_prev_width") = str$(@width)
@@Global$("gg_toggle") = @Global$("g_toggle_width")
end proc

proc toggle_width()
if @Global$("g_toggle_width")<>"on" then
@Global$("g_toggle_width")="on"
else
@Global$("g_toggle_width")="off"
end if
@@Global$("gg_toggle") = @Global$("g_toggle_width")
end proc

proc AutoActivate()
@@Global$("gg_toggle") = @Global$("g_toggle_width")
end proc
------------------