テキストエディタＱＸ 5

[55 名無しさん＠お腹いっぱい。 2012/10/16(火) 23:15:13.01 ID:kEAeGR350]

--- 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
------------------