DOS/V Power Report 1997 March/VPR9703A.ISO/FWINDOWS/Win95/Qxvzm10/QXVZM10.LZH/QVZ2.MAC

Text File | 1996-12-22 | 1KB | 59 lines

'VZカット&ペースト
'*QMVZ.HLP

dllname USER
cdeclare int RegisterWindowMessage(LPCSTR);
cdeclare int SendMessage(HWND, int, int, long);
cdeclare HWND FindWindow(LPCSTR, LPCSTR)

proc Insert1Line
    if @hwnd = 0 then exit proc
    @MoveBeginningLine
    @CharReturn2
    @MoveUpChar
end proc

proc Cut
    if @hwnd = 0 then exit proc
    if @Select = 0 then
        '選択されてなかったらカーソル行を選択する
        @Redraw = 0
        @MoveBeginningLine
        @BlockSelect
        @MoveNextLineCr
        @Redraw = 1
    end if
    @BlockClipboardCut
    stopdestroykey 1
end proc

proc Paste
    dim line
    dim x

    if @hwnd = 0 then exit proc
    'カーソル位置を記録する
    line = @Line
    x = @BytePosCr
    @BlockClipboardPaste
    'カーソル位置を戻す
    @Line = line
    @BytePosCr = x
    stopdestroykey 1
end proc

proc Insert
    dim msg
    dim hwnd as HWND

    if @hwnd = 0 then exit proc
    Paste
    'クリップボード履歴を１つ削除する
    msg = RegisterWindowMessage("QTClipMsg")
    hwnd = FindWindow(0, "QTClip")
    if hwnd<>0 then
        SendMessage(hwnd, msg, 1, 0)
    end if
end proc