ab.com コミュニティ

by **yu0627** » 2006年4月16日(日) 12:41

　結局、あまりうまくいかなかったので、ストリームを使用した無限アンドゥに
切り替えました。そして、アンドゥ・リドゥともにうまく実装できました。
仕組みは、ソフトと同じフォルダに「Undo」というフォルダを作成し、そこに書き込んでいってます。
色分けをしている関係上、やはりストリームを使ったほうがさくさくと行きます。
～URL削除～
ということで、問題解決です。あとは自分で改良してやっていきたいとおもいます。
　最後に、ノッチさんにはアンドゥ機能開発の為に多大な時間を使っていただいたことに、感謝をしています。
一部、その技術を使わせていただきました。ありがとうございました。

by **yu0627** » 2006年4月07日(金) 14:33

　こんにちは。yu0627です。
今のところ、以下のところまで来ました。

○日本語入力への対応
→とりやえず実装。ただし二文字以上でゴミが入る。
○BackSpaceとDeleteへの対応
→とりあえず実装。ただし日本語入力で文字化けしたり、ゴミが入る。
　また、英字でゴミが入る。
○切り取りへの対応
→暫定実装。データが大きいサイズを処理するとバグが出る
○貼り付けへの対応
→実装。まだ改良余地あり
○REDOへの対応
→未実装
○その他
・UNDO後のpNewNextポインタの開放でHEAPが起きる

追記：BackSpace、Deleteキーの英字のごみ問題は解決しました。
　　　しかし、Edit上で日本語と英字のサイズは同じなのに変数上で1バイトと2バイトに分かれるので難しいです。

以下がコードです。
リッチエディット仕様に書き換えてある箇所もあるので、そちらでなんとかしてください（爆）
リッチエディットのハンドル：hEdit
あと、「SetKeywordColor」はコメントアウトで。

[ここをクリックすると内容が表示されます]

コード: 全て選択

Dim pOldEditProc As VoidPtr
Dim pUndo As *Undo
Dim IMEStartCharIndex As CHARRANGE			'変換が始まるときのカーソルの位置
'Dim pRedo As *Redo

Const UNDO_INPUT = 0						'文字を入力した時 現状アルファベット、数字のみ対応
Const UNDO_DELETE = 1						'Deleteキーを押した時
Const UNDO_BACK =2 							'BackSpaceキーを押した時 Deleteとカーソル位置が同じでも削除の方向が異なる
Const UNDO_PASTE = 3						'ペーストした時 UNDO_INPUTと同じでもよさそう
Const UNDO_CUT = 4							'切り取りした時
Const UNDO_COLORCUT = 5						'リッチテキスト形式で切り取りする時
Const UNDO_KANJIINPUT = 6					'日本語変換有効時

Type UNDO
    pNext    As *UNDO
    nType    As Long
    nStart    As Long
    szText    As String
    nLength    As Long
End Type
/*
Type REDO
    pNext    As *REDO
    nType    As Long
    nStart    As Long
    szText    As String
    nLength    As Long
End Type
*/

Function CreateUndoBuffer() As *Undo
    CreateUndoBuffer=malloc(20)
    CreateUndoBuffer->pNext=0
End Function

Sub DestroyUndoBuffer(pBuffer As *Undo)
    Dim p As *Undo
    While pBuffer->pNext
        p=pBuffer->pNext
        free(pBuffer)
        pBuffer=p
    Wend
End Sub
/*
Function CreateRedoBuffer() As *Redo
    CreateRedoBuffer=malloc(20)
    CreateRedoBuffer->pNext=0
End Function

Sub DestroyRedoBuffer(pBuffer As *Redo)
    Dim p As *Redo
    While pBuffer->pNext
        p=pBuffer->pNext
        free(pBuffer)
        pBuffer=p
    Wend
End Sub
*/

'アンドゥバッファに追加する
'現在入力時しかないのでまだまだ改良の余地あり？ 引数とか
Sub AddUndo(nType As Long,nStart As Long,pszText As BytePtr,nLength As Long) As *UNDO
    Dim ptmp As *UNDO
    ptmp=pUndo
    pUndo=malloc(20)'Len(ptmp)とかLen(UNDO)ができないので数値直指定 UNDO構造体変更時はここ注意
    pUndo->pNext=ptmp
    pUndo->nType=nType
    pUndo->nStart=nStart
    pUndo->szText=pszText
    pUndo->nLength=nLength
End Sub

'アンドゥを実行する
Sub CallUndo()
'アンドゥバッファが空の場合関数を抜ける
    If pUndo->pNext=0 Then Exit Sub

    Dim pNowText As BytePtr'現在のテキスト
    Dim pNewText As BytePtr'新しく設定するテキスト
	Dim chrg As CHARRANGE
	Dim dwStartChar As DWord
	Dim dwEndChar As DWord
    Dim Length As Long'テキストの長さなんか
    Dim ptmp As *UNDO'pUndoの一時保管
	Dim strBuffer As String
	SendMessage(hEdit, EM_EXGETSEL, 0, VarPtr(chrg))
	dwStartChar=chrg.cpMin
    '##### 現在のテキスト取得 始まり #####
    Length=GetWindowTextLength(hEdit)+1
    pNowText=malloc(Length)
    GetWindowText(hEdit, pNowText, Length)
    '##### 現在のテキスト取得 終わり #####
    Select Case pUndo->nType
        Case UNDO_INPUT
            '##### アンドゥ後のテキストの長さ #####
            Length=Length-pUndo->nLength+lstrlen(pUndo->szText)
            '##### アンドゥ後のバッファ確保 #####
            'MoveMemory使うからcallocで確保する
            pNewText=calloc(Length+1)
            '##### 先頭からカーソルまでをコピー #####
            MoveMemory(pNewText, pNowText, pUndo->nStart)
            '##### 入力時に消された文字を追加する #####
            '文字選択状態で文字入力した時の為
            lstrcat(pNewText,StrPtr(pUndo->szText))
            '##### カーソルから最後までをコピー #####
            lstrcat(pNewText,pNowText+pUndo->nStart+pUndo->nLength)
            '##### 新しいバッファを設定 #####
			SetWindowText(hEdit,pNewText)
			'##### カーソルを元の位置に戻す #####
			SendMessage(hEdit,EM_SETSEL,pUndo->nStart,pUndo->nStart)
		Case UNDO_BACK
			'##### アンドゥ後のテキストの長さ #####
            Length=Length+Len(pUndo->szText)
            '##### アンドゥ後のバッファ確保 #####
            'MoveMemory使うからcallocで確保する
            pNewText=calloc(Length+1)
            '##### 先頭からカーソルまでをコピー #####
			If IsDBCSLeadByte(pNowText[pUndo->nStart]) Then
				MoveMemory(pNewText, pNowText, pUndo->nStart+1)
			Else
            	MoveMemory(pNewText, pNowText, pUndo->nStart)
			End If
            'BackSpaceで消された文字をコピー
            lstrcat(pNewText, StrPtr(pUndo->szText))
            '##### カーソルから最後までをコピー #####
			If lstrlen(pNewText)<>Length-1 Then
            	lstrcat(pNewText, pNowText+pUndo->nStart+pUndo->nLength)
			End If
            '##### 新しいバッファを設定 #####
            SetWindowText(hEdit, pNewText)
            '##### カーソルを元の位置に戻す #####
			If pUndo->nLength=1 or pUndo->nLength=2 Then
            	SendMessage(hEdit, EM_SETSEL, pUndo->nStart+1, pUndo->nStart+1)
			Else
				SendMessage(hEdit, EM_SETSEL, pUndo->nStart+pUndo->nLength+1, pUndo->nStart->+pUndo->nLength+1)
			End If
        Case UNDO_DELETE
			'##### アンドゥ後のテキストの長さ #####
            Length=Length+pUndo->nLength
            '##### アンドゥ後のバッファ確保 #####
            'MoveMemory使うからcallocで確保する
            pNewText=calloc(Length+1)
            '##### 先頭からカーソルまでをコピー #####
            MoveMemory(pNewText, pNowText, pUndo->nStart)
            '##### 入力時に消された文字を追加する #####
            '文字選択状態で文字入力した時の為
            lstrcat(pNewText, StrPtr(pUndo->szText))
            '##### カーソルから最後までをコピー #####
            If lstrlen(pNewText)<>Length-1 Then
            	lstrcat(pNewText, pNowText+pUndo->nStart+pUndo->nLength)
			End If
            '##### 新しいバッファを設定 #####
            SetWindowText(hEdit, pNewText)
            '##### カーソルを元の位置に戻す #####
            SendMessage(hEdit, EM_SETSEL, pUndo->nStart, pUndo->nStart)        Case UNDO_PASTE
			LockWindowUpdate(hEdit)
			'貼り付けられた範囲を選択する
			chrg.cpMin=pUndo->nStart
			chrg.cpMax=pUndo->nStart+pUndo->nLength
			SendMessage(hEdit, EM_EXSETSEL, 0, VarPtr(chrg))
			'選択した範囲を上書きされた文字列で上書きする
			SendMessage(hEdit, EM_REPLACESEL, 0, pUndo->szText)			
            'カーソルを元の位置に戻す
            SendMessage(hEdit,EM_SETSEL,pUndo->nStart,pUndo->nStart)
			LockWindowUpdate(NULL)
		Case UNDO_CUT
			'nStartで指定された位置に文字を挿入
			chrg.cpMin=pUndo->nStart
			SendMessage(hEdit, EM_REPLACESEL, 0, pUndo->szText)
		Case UNDO_COLORCUT
			'nStartで指定された位置に文字を挿入
			chrg.cpMin=pUndo->nStart
			SendMessage(hEdit, EM_REPLACESEL, 0, pUndo->szText)
		Case UNDO_KANJIINPUT
			'##### アンドゥ後のテキストの長さ #####
            Length=Length-pUndo->nLength+Len(pUndo->szText)
            '##### アンドゥ後のバッファ確保 #####
            'MoveMemory使うからcallocで確保する
            pNewText=calloc(Length+1)
            '##### 先頭からカーソルまでをコピー #####
            MoveMemory(pNewText, pNowText, pUndo->nStart)
            '##### 入力時に消された文字を追加する #####
            '文字選択状態で文字入力した時の為
            lstrcat(pNewText, StrPtr(pUndo->szText))
            '##### カーソルから最後までをコピー #####
            lstrcat(pNewText, pNowText+pUndo->nStart+pUndo->nLength+1)
            '##### 新しいバッファを設定 #####
            SetWindowText(hEdit, pNewText)
            '##### カーソルを元の位置に戻す #####
            SendMessage(hEdit, EM_SETSEL, pUndo->nStart, pUndo->nStart)
    End Select
    '##### 一番新しいアンドゥバッファを削除する 始まり #####
    ptmp=pUndo->pNext
    free(pUndo)'リドゥにも対応する場合はfreeせずにリドゥバッファに渡す(リドゥバッファを新たに作成する必要あり)
    pUndo=ptmp
    '##### 一番新しいアンドゥバッファを削除する 終わり #####
    '##### 後始末 #####
	SendMessage(hEdit, EM_EXGETSEL, 0, VarPtr(chrg))
	MainWnd_IDM_REDRAW_MenuClick()
    If pNowText Then free(pNowText)
    If pNewText Then free(pNewText)
End Sub

'クリップボードからテキストデータを貼り付ける
Sub CallPaste()
	Dim chrg As CHARRANGE
	Dim pszPasteText As BytePtr
	Dim lpszPasteText As BytePtr
	Dim dwlength As DWord
	Dim lpszbuf As BytePtr, lpszbuf2 As BytePtr
	Dim dwEvent As DWord

	If SendMessage(hEdit, EM_CANPASTE, 0, 0) Then
		'クリップボードをオープンする
		If OpenClipboard(NULL)=FALSE Then
			MessageBox(hMainWnd, "クリップボードのオープンに失敗", "Error", MB_OK or MB_ICONSTOP)
			Exit Sub
		End If
		'クリップボードの内容を読み取る
		pszPasteText=GetClipboardData(CF_TEXT)
		If pszPasteText=NULL Then Exit Sub
		'クリップボードの内容を他の変数にコピー
		lpszPasteText=malloc(lstrlen(pszPasteText)+1)
		lstrcpy(lpszPasteText, pszPasteText)
		'クリップボードを閉じる
		CloseClipboard()
		'---ここからアンドゥ関係処理---
		'カーソルの位置を取得し、サイズを計算してバッファを確保
		SendMessage(hEdit, EM_EXGETSEL, 0, VarPtr(chrg))
		dwlength=chrg.cpMax-chrg.cpMin
		lpszbuf=malloc(GetWindowTextLength(hEdit)+1)
		lpszbuf2=calloc(dwlength+1)
		'現在のテキストを取得
		GetWindowText(hEdit, lpszbuf, GetWindowTextLength(hEdit)+1)
		'選択文字を取得
		MoveMemory(lpszbuf2, lpszbuf+chrg.cpMin, dwlength)
		'アンドゥに追加
		AddUndo(UNDO_PASTE, chrg.cpMin, lpszbuf2, lstrlen(lpszPasteText)+1)
		'---ここまで---
		'クリップボードの内容をhEditに挿入
		SendMessage(hEdit, EM_REPLACESEL, 0, lpszPasteText)

		'イベントマスクからENM_CHANGEをはずす
		dwEvent=SendMessage(hEdit, EM_GETEVENTMASK, 0, 0)
		SendMessage(hEdit, EM_SETEVENTMASK, 0, dwEvent xor ENM_CHANGE)

		'文字色を変更する
		SetKeywordColor(0, -1)

		'イベントマスクにENM_CHANGEを追加する
		dwEvent=SendMessage(hEdit, EM_GETEVENTMASK, 0, 0)
		SendMessage(hEdit, EM_SETEVENTMASK, 0, dwEvent or ENM_CHANGE)
		'後処理
		free(lpszPasteText)
		free(lpszbuf)
		free(lpszbuf2)
	End If
End Sub

Sub CallCut()
	Dim chrg As CHARRANGE
	Dim pszCutText As BytePtr
	Dim hGlobalMem As DWord
	Dim dwCutTextLength As DWord
	Dim length As DWord
	Dim buf As BytePtr
	Dim buf2 As BytePtr
	SendMessage(hEdit, EM_EXGETSEL, 0, VarPtr(chrg))
	If chrg.cpMin<>chrg.cpMax Then
		'クリップボードをオープンする
		If OpenClipboard(NULL)=FALSE Then
			MessageBox(hMainWnd, "クリップボードのオープンに失敗", "Error", MB_OK or MB_ICONSTOP)
			Exit Sub
		End If
		'クリップボードを空にする
		EmptyClipboard()
		'クリップボードに選択された文字列をコピーする
		dwCutTextLength=GetWindowTextLength(hEdit)
		hGlobalMem=GlobalAlloc(GHND or GMEM_SHARE, dwCutTextLength+1)
		pszCutText=GlobalLock(hGlobalMem)
		If pszCutText=NULL Then
			MessageBox(hMainWnd, "クリックボードにコピーするテキスト用のバッファ確保取得に失敗", "Error ", MB_OK or MB_ICONSTOP)
			Exit Sub
		End If
		SendMessage(hEdit, EM_GETSELTEXT, 0, pszCutText)
		GlobalUnlock(hGlobalMem)
		SetClipboardData(CF_TEXT, hGlobalMem)
		CloseClipboard()
		'---ここからアンドゥ関係処理---
		'バッファを確保
		length=chrg.cpMax-chrg.cpMin
		buf=malloc(GetWindowTextLength(hEdit)+1)
		buf2=calloc(length+1)
		'現在のテキストを取得
		GetWindowText(hEdit, buf, GetWindowTextLength(hEdit)+1)
		'切り取られる部分の文字を取得
		SendMessage(hEdit, EM_GETSELTEXT, 0, buf2)
		'アンドゥ追加
		AddUndo(UNDO_CUT, chrg.cpMin, buf2, Len(buf2))
		'---ここまで---
		'選択された範囲を無文字に置換する
		SendMessage(hEdit, EM_REPLACESEL, 0, "")
		'後処理
		free(buf)
		free(buf2)
	End If
End Sub

Sub CallColorCut()
	Dim chrg As CHARRANGE
	Dim pszCutText As BytePtr
	Dim hGlobalMem As DWord
	Dim dwCutTextLength As DWord
	Dim length As DWord
	Dim buf As BytePtr
	Dim buf2 As BytePtr
	SendMessage(hEdit, EM_EXGETSEL, 0, VarPtr(chrg))
	If chrg.cpMin<>chrg.cpMax Then
		'---ここからアンドゥ関係処理---
		'バッファを確保
		length=chrg.cpMax-chrg.cpMin
		buf=malloc(GetWindowTextLength(hEdit)+1)
		buf2=calloc(length+1)
		'現在のテキストを取得
		GetWindowText(hEdit, buf, GetWindowTextLength(hEdit)+1)
		'切り取られる部分文字を取得
		SendMessage(hEdit, EM_GETSELTEXT, 0, buf2)
		'アンドゥ追加
		AddUndo(UNDO_COLORCUT, chrg.cpMin, buf2, Len(buf2))
		'---ここまで---
		SendMessage(hEdit, WM_CUT, 0, 0)
		'後処理
		free(buf)
		free(buf2)
	End If
End Sub

Sub CallAllSelect()
	Dim chrg As CHARRANGE
	chrg.cpMax=-1
	SendMessage(hEdit, EM_EXSETSEL, 0, VarPtr(chrg))
End Sub

Function EditProc(hWnd As HWND,message As DWord,wParam As WPARAM,lParam As LPARAM) As LRESULT
    Dim nStart As Long, nEnd As Long, length As Long
    Dim buf As BytePtr, buf2 As BytePtr, buf3 As BytePtr
	Dim chrg As CHARRANGE
	If Not (GetAsyncKeyState(VK_CONTROL) and &H8000) Then
    Select Case message
		Case WM_IME_STARTCOMPOSITION
			'カーソル位置を取得
			SendMessage(hEdit, EM_EXGETSEL, 0, VarPtr(chrg))
			IMEStartCharIndex.cpMin=chrg.cpMin
			IMEStartCharIndex.cpMax=chrg.cpMax
		Case WM_IME_ENDCOMPOSITION
			'カーソル位置を取得
			SendMessage(hEdit, EM_EXGETSEL, 0, VarPtr(chrg))
			If IMEStartCharIndex.cpMin<>chrg.cpMin Then
				If IMEStartCharIndex.cpMin<>IMEStartCharIndex.cpMax Then
					length=chrg.cpMax-IMEStartCharIndex.cpMin
					buf2=malloc(GetWindowTextLength(hEdit)+1)
					SendMessage(hEdit, EM_GETSELTEXT, 0, buf2)
					AddUndo(UNDO_KANJIINPUT, IMEStartCharIndex.cpMin, buf2, length)
				Else
					length=chrg.cpMax-IMEStartCharIndex.cpMin
					buf2=malloc(length+1)
					lstrcpy(buf2, "")
					AddUndo(UNDO_KANJIINPUT, IMEStartCharIndex.cpMin, buf2, length)
				End If
			End If
        Case WM_UNDO
            'EDITの本来のアンドゥ処理をさせない
            Exit Function
		Case WM_PASTE
			Exit Function
        Case WM_KEYDOWN
            If wParam=Asc("Z") and (GetAsyncKeyState(VK_CONTROL) and &H8000) Then
                'Control+Zが押された
                '自前のアンドゥを行う
                CallUndo()
                Exit Function
			ElseIf wParam=Asc("V") and (GetAsyncKeyState(VK_CONTROL) and &H8000) Then
				CallPaste()
				Exit Function
			ElseIf wParam=Asc("A") and (GetAsyncKeyState(VK_CONTROL) and &H8000) Then
				CallAllSelect()
				Exit Function
            ElseIf wParam>=Asc("A") and wParam<=Asc("Z") or wParam>=Asc("0") and wParam<=Asc("9") or _
					(wParam>=VK_NUMPAD0 and wParam<=VK_DIVIDE xor wParam=VK_SEPARATOR) Then
				'入力が数字の0～9、アルファベットのA～Zの場合
                'IME ONや、上書きモードは考慮されていません
                'カーソル位置を取得
				SendMessage(hEdit, EM_EXGETSEL, 0, VarPtr(chrg))
                '##### 選択バイト数 #####
                length=chrg.cpMax-chrg.cpMin
                '##### 現在のテキストバッファを確保 #####
                buf=malloc(GetWindowTextLength(hEdit)+1)
                '##### 選択文字のバッファを確保 #####
                buf2=calloc(length+1)
                '##### 現在のテキスト取得 #####
                GetWindowText(hEdit, buf, GetWindowTextLength(hEdit)+1)
                '##### 選択文字取得 #####
                MoveMemory(buf2, buf+chrg.cpMin, length)
                '##### アンドゥ追加 #####
                AddUndo(UNDO_INPUT, chrg.cpMin, buf2, 1)
			ElseIf wParam=VK_BACK Then
				'ユーザーがBackSpaceキーを押したとき
				'カーソル位置を取得
				SendMessage(hEdit, EM_EXGETSEL, 0, VarPtr(chrg))
				'バッファを確保
				length=chrg.cpMax-chrg.cpMin
				buf=malloc(GetWindowTextLength(hEdit)+1)
				buf2=calloc(length+1)
				If chrg.cpMax=0 Then goto *EditProcEnd
				If chrg.cpMin<>chrg.cpMax Then
					'除去される部分文字を取得
					SendMessage(hEdit, EM_GETSELTEXT, 0, buf2)
					'アンドゥ追加
					AddUndo(UNDO_BACK, chrg.cpMax, buf2, Len(buf2))
				Else
					length=1
					buf2=calloc(length+1)
					buf3=calloc(3)
					'現在のテキストを取得
					GetWindowText(hEdit, buf, GetWindowTextLength(hEdit)+1)
					'除去される文字を取得
					MoveMemory(buf2, buf+chrg.cpMin-1, length)
					MoveMemory(buf3, buf+chrg.cpMin-1, 2)
					If IsDBCSLeadByte(buf3[0]) Then
						'日本語用アンドゥ追加
						AddUndo(UNDO_BACK, chrg.cpMin, buf3, 2)
						free(buf3)
					Else
						'アンドゥ追加
						AddUndo(UNDO_BACK, chrg.cpMin, buf2, length)
					End If
				End If
			ElseIf wParam=VK_DELETE Then
				'ユーザーがDeleteキーを押したとき
				'カーソル位置を取得
				SendMessage(hEdit, EM_EXGETSEL, 0, VarPtr(chrg))
				'バッファを確保
				length=chrg.cpMax-chrg.cpMin
				buf=malloc(GetWindowTextLength(hEdit)+1)
				buf2=calloc(length+1)
				If chrg.cpMin<>chrg.cpMax Then
					'除去される部分文字を取得
					SendMessage(hEdit, EM_GETSELTEXT, 0, buf2)
					'アンドゥ追加
					AddUndo(UNDO_DELETE, chrg.cpMax, buf2, Len(buf2))
				Else
					If GetWindowTextLength(hEdit)=chrg.cpMin Then goto *EditProcEnd
					length=1
					buf2=calloc(length+1)
					buf3=calloc(3)
					'現在のテキストを取得
					GetWindowText(hEdit, buf, GetWindowTextLength(hEdit)+1)
					'除去される文字を取得
					MoveMemory(buf2, buf+chrg.cpMin, length)
					MoveMemory(buf3, buf+chrg.cpMin, 2)
					Debug
					If IsDBCSLeadByte(buf3[0]) Then
						'日本語用アンドゥ追加
						AddUndo(UNDO_BACK, chrg.cpMin, buf3, 2)
						free(buf3)
					Else
						'アンドゥ追加
						AddUndo(UNDO_BACK, chrg.cpMin, buf2, length)
					End If
				End If
            End If
    End Select
	End If
*EditProcEnd
    EditProc=CallWindowProc(pOldEditProc,hWnd,message,wParam,lParam)
	free(buf)
	free(buf2)
End Function

大変...。

by **yu0627** » 2006年4月04日(火) 21:49

　確認してみました。しっかりと動いています。
　日本語入力については、IMEの変換状態を取得することでなんとかなりそうです。
あと、リドゥについて考えてみました。

①
1,通常入力時いつもの入力時はアンドゥを記録する
②アンドゥ時
1,現在の状態をリドゥバッファに記録する
2,アンドゥ時、記録したバッファを適用する。
③リドゥ時
1)リドゥ→アンドゥ
　1,最新のリドゥをリッチエディットに適用
　2,最新のリドゥを破棄
2)リドゥ→リドゥ
　1,最新のリドゥを適用
　2,最新のリドゥを破棄
3)リドゥ→通常入力
　1,リドゥバッファを全て破棄

こんな感じです。

[ここをクリックすると内容が表示されます]

コード: 全て選択

Dim pRedo As *Redo

Type REDO
    pNext    As *REDO
    nType    As Long
    nStart    As Long
    szText    As String
    nLength    As Long
End Type

Function CreateRedoBuffer() As *Redo
    CreateRedoBuffer=malloc(20)
    CreateRedoBuffer->pNext=0
End Function

Sub DestroyRedoBuffer(pBuffer As *Redo)
    Dim p As *Redo
    While pBuffer->pNext
        p=pBuffer->pNext
        free(pBuffer)
        pBuffer=p
    Wend
End Sub

これらはREDO用のコードです。
現在アンドゥの改良をしています。
　では。

by **ノッチ** » 2006年4月04日(火) 15:14

会社からどうどうと(!?)投稿です。

[ここをクリックすると内容が表示されます]

コード: 全て選択

'-----------------------------------------------------------------------------
'  イベント プロシージャ
'-----------------------------------------------------------------------------
' このファイルには、ウィンドウ [MainWnd] に関するイベントをコーディングします。
' ウィンドウ ハンドル: hMainWnd

' TODO: この位置にグローバルな変数、構造体、定数、関数を定義します。

Declare Function MoveMemory Lib "kernel32" Alias "RtlMoveMemory" (pDest As VoidPtr,pSrc As VoidPtr,length As Long) As Long'?

Type UNDO
	pNext	As *UNDO
	nType	As Long
	nStart	As Long
	szText	As String
	nLength	As Long
End Type

Const UNDO_INPUT	=0'文字を入力した時 現状アルファベット、数字のみ対応
Const UNDO_DELETE	=1'Deleteキーを押した時
Const UNDO_BACK		=2'BackSpaceキーを押した時 Deleteとカーソル位置が同じでも削除の方向が異なる
Const UNDO_PASTE	=3'ペーストした時 UNDO_INPUTと同じでもよさそう

Dim hEdit As HWND
Dim pOldEditProc As VoidPtr
Dim pUndo As *UNDO

'アンドゥバッファを作成
'戻り値をグローバル変数に保存しておく
Function CreateUndoBuffer() As *UNDO
	CreateUndoBuffer=malloc(20)
	CreateUndoBuffer->pNext=0
End Function

'アンドゥバッファを削除
'CreateUndoBufferの戻り値を指定する
Sub DestroyUndoBuffer(pBuffer As *UNDO)
	Dim p As *UNDO
'##### pUndoのpNextが0(終わり)になるまで続ける
	While pBuffer->pNext
		p=pBuffer->pNext
		free(pBuffer)
		pBuffer=p
	Wend
End Sub

'アンドゥバッファに追加する
'現在入力時しかないのでまだまだ改良の余地あり？ 引数とか
Sub AddUndo(nType As Long,nStart As Long,pszText As BytePtr,nLength As Long) As *UNDO
	Dim ptmp As *UNDO
	ptmp=pUndo
	pUndo=malloc(20)'Len(ptmp)とかLen(UNDO)ができないので数値直指定 UNDO構造体変更時はここ注意
	pUndo->pNext=ptmp
	pUndo->nType=nType
	pUndo->nStart=nStart
	pUndo->szText=pszText
	pUndo->nLength=nLength
End Sub

'アンドゥを実行する
Sub CallUndo()
'アンドゥバッファが空の場合関数を抜ける
	If pUndo->pNext=0 Then Exit Sub

	Dim pNowText As BytePtr'現在のテキスト
	Dim pNewText As BytePtr'新しく設定するテキスト
	Dim Length As Long'テキストの長さなんか
	Dim ptmp As *UNDO'pUndoの一時保管
	'##### 現在のテキスト取得 始まり #####
	Length=GetWindowTextLength(hEdit)+1
	pNowText=malloc(Length)
	GetWindowText(hEdit,pNowText,Length)
	'##### 現在のテキスト取得 終わり #####
	Select Case pUndo->nType
		Case UNDO_INPUT
			'##### アンドゥ後のテキストの長さ #####
			Length=Length-pUndo->nLength+lstrlen(pUndo->szText)
			'##### アンドゥ後のバッファ確保 #####
			'MoveMemory使うからcallocで確保する
			pNewText=calloc(Length)
			'##### 先頭からカーソルまでをコピー #####
			MoveMemory(pNewText,pNowText,pUndo->nStart)
			'##### 入力時に消された文字を追加する #####
			'文字選択状態で文字入力した時の為
			lstrcat(pNewText,StrPtr(pUndo->szText))
			'##### カーソルから最後までをコピー #####
			lstrcat(pNewText,pNowText+pUndo->nStart+pUndo->nLength)
			'##### 新しいバッファを設定 #####
			SetWindowText(hEdit,pNewText)
			'##### カーソルを元の位置に戻す #####
			SendMessage(hEdit,EM_SETSEL,pUndo->nStart,pUndo->nStart)
		Case UNDO_DELETE
		Case UNDO_BACK
		Case UNDO_PASTE
			'この辺は未実装
	End Select
	'##### 一番新しいアンドゥバッファを削除する 始まり #####
	ptmp=pUndo->pNext
	free(pUndo)'リドゥにも対応する場合はfreeせずにリドゥバッファに渡す(リドゥバッファを新たに作成する必要あり)
	pUndo=ptmp
	'##### 一番新しいアンドゥバッファを削除する 終わり #####
	'##### 後始末 #####
	free(pNowText)
	free(pNewText)
End Sub

Function EditProc(hWnd As HWND,message As DWord,wParam As WPARAM,lParam As LPARAM) As LRESULT
	Dim nStart As Long,nEnd As Long,length As Long
	Dim buf As BytePtr,buf2 As BytePtr
	Select Case message
		Case WM_UNDO
			'EDITの本来のアンドゥ処理をさせない
			Exit Function
		Case WM_KEYDOWN
			If wParam=Asc("Z") and (GetAsyncKeyState(VK_CONTROL) and &H8000) Then
				'Control+Zが押された
				'自前のアンドゥを行う
				CallUndo()
				Exit Function
			ElseIf wParam>=Asc("A") and wParam<=Asc("Z") or wParam>=Asc("0") and wParam<=Asc("9") Then
				'入力が数字の0～9、アルファベットのA～Zの場合
				'IME ONや、上書きモードは考慮されていません
				'##### カーソルスタート位置 #####
				nStart=LOWORD(SendMessage(hEdit,EM_GETSEL,0,0))
				'##### カーソル終わり位置 #####
				nEnd=HIWORD(SendMessage(hEdit,EM_GETSEL,0,0))
				'##### 選択バイト数 #####
				length=nEnd-nStart
				'##### 現在のテキストバッファを確保 #####
				buf=malloc(GetWindowTextLength(hEdit)+1)
				'##### 選択文字のバッファを確保 #####
				buf2=calloc(length+1)
				'##### 現在のテキスト取得 #####
				GetWindowText(hEdit,buf,GetWindowTextLength(hEdit)+1)
				'##### 選択文字取得 #####
				MoveMemory(buf2,buf+nStart,length)
				'##### アンドゥ追加 #####
				AddUndo(UNDO_INPUT,nStart,buf2,1)
			End If
	End Select
*EditProcEnd
	EditProc=CallWindowProc(pOldEditProc,hWnd,message,wParam,lParam)
End Function

'-----------------------------------------------------------------------------
' ウィンドウメッセージを処理するためのコールバック関数

Function MainWndProc(hWnd As HWND, dwMsg As DWord, wParam As WPARAM, lParam As LPARAM) As DWord
	' TODO: この位置にウィンドウメッセージを処理するためのコードを記述します。

	' イベントプロシージャの呼び出しを行います。
	MainWndProc=EventCall_MainWnd(hWnd,dwMsg,wParam,lParam)
End Function


'-----------------------------------------------------------------------------
' ここから下は、イベントプロシージャを記述するための領域になります。

Sub MainWnd_Destroy()
	DestroyUndoBuffer(pUndo)
	Test_DestroyObjects()
	PostQuitMessage(0)
End Sub

Sub MainWnd_Create(ByRef CreateStruct As CREATESTRUCT)
	pUndo=CreateUndoBuffer()
	hEdit=GetDlgItem(hMainWnd,EditBox1)
	pOldEditProc=SetWindowLong(hEdit,GWL_WNDPROC,AddressOf(EditProc) As Long) As VoidPtr
End Sub

Sub MainWnd_Resize(SizeType As Long, cx As Integer, cy As Integer)
	MoveWindow(hEdit,0,0,cx,cy,1)
End Sub

Sub MainWnd_Activate(state As Integer, minimized As Integer)
	If state<>WA_INACTIVE Then SetFocus(hEdit)
End Sub

この前と同じように空のプロジェクトのMainWndにEditを追加してMainWnd.sbpの
中身を丸ごと入れ替えて下さい。
上記コードでは中にいろいろコメントしてますが、0～9、A～Zの入力と
そのアンドゥのみ実装しています。
上記条件を満たしていれば文字入力、文字を選択状態での文字入力にも
完璧に対応しています(のはずです)。
これを元にyu0627さんの力でがんばってみて下さい。
僕にやらせると完成が数ヶ月(もしかしたら数年)かかるかもしれません。

by **yu0627** » 2006年4月03日(月) 17:50

　こちらの勘違いでした。
リッチエディットのアンドゥ機能を一時的に無効にすることなどできませんでした＾＾；
というわけで、どうやってアンドゥを呼び出すかです。

とりあえず、やり方はCtrl+Zが押されたことを検出(アクセラレータ使ってるか
WM_KEYDOWN wParam=Zの時にAsyncKeyState(VK_CONTROL)してるか)し、
それを奪い取って(CallWindowProcに渡さずExit Functionで抜ける)、
バッファから文字を追加、削除する。といった感じです。
削除をアンドゥする時はnStart～nEndの文字列をszTextに変換する。
文字追加をアンドゥする時は追加された文字をnStartの位置から削除する。
追加の場合、前のコードは考慮されていませんでしたが、文字選択状態で
"A"なんかを押すと選択部分を削除して文字追加になるのでその部分も
考えなければいけませんでした。

　だいたいは理解できます。
しかし、コードにするのはつらいです...。

by **yu0627** » 2006年4月02日(日) 21:51

　ちょっと色々やっていて返信が遅れました。

　アクセラレータキーについては実装できます。

　今は、RichEdit標準のアンドゥ機能をどうやって生かすかを
考えています。置き換え機能のアンドゥ機能に記録させない設定が
あるので、コードを読み取ってやっていけばよいかと...。
すみません。

by **ノッチ** » 2006年3月31日(金) 00:52

[ここをクリックすると内容が表示されます]

コード: 全て選択

             ElseIf wParam=VK_DELETE Then
                 nStart=LOWORD(SendMessage(hEdit,EM_GETSEL,0,0))
                 nEnd=HIWORD(SendMessage(hEdit,EM_GETSEL,0,0))
                 If nStart=nEnd Then
                     If GetWindowTextLength(hEdit)=nStart Then goto *EditProcEnd'Selectから抜け出す記述がよくわからない
                     length=1
                 Else
                     length=nEnd-nStart
                 End If
                 buf=malloc(GetWindowTextLength(hEdit)+1)
                 buf2=calloc(length+1)
                 GetWindowText(hEdit,buf,GetWindowTextLength(hEdit)+1)
                 MoveMemory(buf2,buf,length)
                 AddUndo(UNDO_DELETE,nStart,nEnd,buf2,length)
                 free(buf)
                 free(buf2)

この部分で
If GetWindowTextLength(hEdit)=nStart Then
としてるのはカーソルがエディットの最後にある時はDeleteを押しても
なにもしないよ。ということです。
ですので、BackSpaceの場合はカーソルが先頭にあって何も選択してない時に
何もしない、となります。

で、投げっぱなしのようになってしまうのですが、僕の家にはネット環境が
ありません。今は出張でネット付のホテルに泊まっていたのでコメントできたの
ですが、出張が終わるので時々会社から覗く(それと簡単なコメント)に
なってしまいます。

とりあえず、やり方はCtrl+Zが押されたことを検出(アクセラレータ使ってるか
WM_KEYDOWN wParam=Zの時にAsyncKeyState(VK_CONTROL)してるか)し、
それを奪い取って(CallWindowProcに渡さずExit Functionで抜ける)、
バッファから文字を追加、削除する。といった感じです。
削除をアンドゥする時はnStart～nEndの文字列をszTextに変換する。
文字追加をアンドゥする時は追加された文字をnStartの位置から削除する。
追加の場合、前のコードは考慮されていませんでしたが、文字選択状態で
"A"なんかを押すと選択部分を削除して文字追加になるのでその部分も
考えなければいけませんでした。
あまり役に立たずにいなくなります。すみません。
どなたかサポートをお願いします。

by **yu0627** » 2006年3月30日(木) 21:42

　ノッチさん、ありがとうございます。
しっかりとサブクラス化も成功しています。
コードを見ると、現在はUNDOバッファを追加していくところまでのようですが。
少し僕も改造してみました。追加箇所は、スペースキー・エンターキー・バックスペースキーへの
対応です。少し、追加位置を間違っているかも知りませんが。

[ここをクリックすると内容が表示されます]

コード: 全て選択

Function EditProc(hWnd As HWND, message As DWord, wParam As WPARAM, lParam As LPARAM) As LRESULT
    Dim nStart As Long,nEnd As Long,length As Long
    Dim buf As BytePtr,buf2 As BytePtr
    Select Case message
        Case WM_KEYDOWN
            If (wParam>=Asc("A") and wParam<=Asc("Z")) or wParam=VK_SPACE or wParam=VK_RETURN Then
                nStart=LOWORD(SendMessage(hEdit,EM_GETSEL,0,0))
                nEnd=HIWORD(SendMessage(hEdit,EM_GETSEL,0,0))
                length=1
                AddUndo(UNDO_INPUT,nStart,nEnd,"",length)
            ElseIf wParam=VK_DELETE Then
                nStart=LOWORD(SendMessage(hEdit,EM_GETSEL,0,0))
                nEnd=HIWORD(SendMessage(hEdit,EM_GETSEL,0,0))
                If nStart=nEnd Then
                    If GetWindowTextLength(hEdit)=nStart Then goto *EditProcEnd'Selectから抜け出す記述がよくわからない
                    length=1
                Else
                    length=nEnd-nStart
                End If
                buf=malloc(GetWindowTextLength(hEdit)+1)
                buf2=calloc(length+1)
                GetWindowText(hEdit,buf,GetWindowTextLength(hEdit)+1)
                MoveMemory(buf2,buf,length)
                AddUndo(UNDO_DELETE,nStart,nEnd,buf2,length)
                free(buf)
                free(buf2)
			ElseIf wParam=VK_BACK Then
                nStart=LOWORD(SendMessage(hEdit,EM_GETSEL,0,0))
                nEnd=HIWORD(SendMessage(hEdit,EM_GETSEL,0,0))
                If nStart=nEnd Then
                    If GetWindowTextLength(hEdit)=nStart Then goto *EditProcEnd'Selectから抜け出す記述がよくわからない
                    length=1
                Else
                    length=nEnd-nStart
                End If
                buf=malloc(GetWindowTextLength(hEdit)+1)
                buf2=calloc(length+1)
                GetWindowText(hEdit,buf,GetWindowTextLength(hEdit)+1)
                MoveMemory(buf2,buf,length)
                AddUndo(UNDO_DELETE,nStart,nEnd,buf2,length)
                free(buf)
                free(buf2)
            End If
    End Select
*EditProcEnd
    EditProc=CallWindowProc(pOldEditProc,hWnd,message,wParam,lParam)
End Function

どうやってバッファを呼び出すのか分かりませんが...。

by **ノッチ** » 2006年3月30日(木) 01:17

>

今回の場合だとmallocで確保した配列よりも、リスト構造の方が向いているんじゃないでしょうか？

とあるように数日前からリスト構造でのアンドゥバッファ作成をしていました。
まだ作成途中ですが、ABの記述方法がよくわからず(メモリ操作系)
ちょっと挫折気味です。

[ここをクリックすると内容が表示されます]

コード: 全て選択

'-----------------------------------------------------------------------------
'  イベント プロシージャ
'-----------------------------------------------------------------------------
' このファイルには、ウィンドウ [MainWnd] に関するイベントをコーディングします。
' ウィンドウ ハンドル: hMainWnd

' TODO: この位置にグローバルな変数、構造体、定数、関数を定義します。

Declare Function MoveMemory Lib "kernel32" Alias "RtlMoveMemory" (pDest As VoidPtr,pSrc As VoidPtr,length As Long) As Long'?

Type Undo
	pNext	As *Undo
	nStart	As Long
	nEnd	As Long
	szText	As String
	nCount	As Long
End Type

Const UNDO_INPUT=0
Const UNDO_DELETE=1

Dim hEdit As HWND
Dim pOldEditProc As VoidPtr
Dim pUndo As *Undo

Function CreateUndoBuffer() As *Undo
	CreateUndoBuffer=malloc(20)
	CreateUndoBuffer->pNext=0
End Function

Sub DestroyUndoBuffer(pBuffer As *Undo)
	Dim p As *Undo
	While pBuffer->pNext
		p=pBuffer->pNext
		free(pBuffer)
		pBuffer=p
	Wend
End Sub

Sub AddUndo(undokind As Long,nStart As Long,nEnd As Long,pszText As BytePtr,count As Long) As *Undo
	Dim ptmp As *Undo
	ptmp=pUndo
	pUndo=malloc(20)
	pUndo->pNext=ptmp
	pUndo->nStart=nStart
	pUndo->nEnd=nEnd
	pUndo->szText=pszText
	pUndo->nCount=count
End Sub

Function EditProc(hWnd As HWND,message As DWord,wParam As WPARAM,lParam As LPARAM) As LRESULT
	Dim nStart As Long,nEnd As Long,length As Long
	Dim buf As BytePtr,buf2 As BytePtr
	Select Case message
		Case WM_KEYDOWN
			If wParam>=Asc("A") and wParam<=Asc("Z") Then
				nStart=LOWORD(SendMessage(hEdit,EM_GETSEL,0,0))
				nEnd=HIWORD(SendMessage(hEdit,EM_GETSEL,0,0))
				length=1
				AddUndo(UNDO_INPUT,nStart,nEnd,"",length)
			ElseIf wParam=VK_DELETE Then
				nStart=LOWORD(SendMessage(hEdit,EM_GETSEL,0,0))
				nEnd=HIWORD(SendMessage(hEdit,EM_GETSEL,0,0))
				If nStart=nEnd Then
					If GetWindowTextLength(hEdit)=nStart Then goto *EditProcEnd'Selectから抜け出す記述がよくわからない
					length=1
				Else
					length=nEnd-nStart
				End If
				buf=malloc(GetWindowTextLength(hEdit)+1)
				buf2=calloc(length+1)
				GetWindowText(hEdit,buf,GetWindowTextLength(hEdit)+1)
				MoveMemory(buf2,buf,length)
				AddUndo(UNDO_DELETE,nStart,nEnd,buf2,length)
				free(buf)
				free(buf2)
			End If
	End Select
*EditProcEnd
	EditProc=CallWindowProc(pOldEditProc,hWnd,message,wParam,lParam)
End Function

'-----------------------------------------------------------------------------
' ウィンドウメッセージを処理するためのコールバック関数

Function MainWndProc(hWnd As HWND, dwMsg As DWord, wParam As WPARAM, lParam As LPARAM) As DWord
	' TODO: この位置にウィンドウメッセージを処理するためのコードを記述します。

	' イベントプロシージャの呼び出しを行います。
	MainWndProc=EventCall_MainWnd(hWnd,dwMsg,wParam,lParam)
End Function


'-----------------------------------------------------------------------------
' ここから下は、イベントプロシージャを記述するための領域になります。

Sub MainWnd_Destroy()
	DestroyUndoBuffer(pUndo)
	Test_DestroyObjects()
	PostQuitMessage(0)
End Sub

Sub MainWnd_Create(ByRef CreateStruct As CREATESTRUCT)
	pUndo=CreateUndoBuffer()
	hEdit=GetDlgItem(hMainWnd,EditBox1)
	pOldEditProc=SetWindowLong(hEdit,GWL_WNDPROC,AddressOf(EditProc) As Long) As VoidPtr
End Sub

Sub MainWnd_Resize(SizeType As Long, cx As Integer, cy As Integer)
	MoveWindow(hEdit,0,0,cx,cy,1)
End Sub

Sub MainWnd_Activate(state As Integer, minimized As Integer)
	If state<>WA_INACTIVE Then SetFocus(hEdit)
End Sub

新規プロジェクトにエディットボックスを配置してMainWnd.sbpに
上記コードをコピペしてみてください。
途中にdebugを入れたりして、こんな方法かというのを感じてもらえればと。
まだA～Zキーを押した時とDeleteキーのみですが。
まだバグもあると思いますし、AddUndoで未知の文字列が開放されます。
＆リドゥは未実装です。
ほんとにイメージとして捉えて下さい。

by **hira** » 2006年3月29日(水) 20:14

自分なりに解釈してコード化してみました。
あってるでしょうか？

あのわかりにくい説明を解釈していただいてありがとうございますm(_ _)m
そういう感じです。
デメリットはどうしてもコードが読みにくくなることですね…(^^;

今回の場合だとmallocで確保した配列よりも、リスト構造の方が向いているんじゃないでしょうか？

どうなんでしょう。リスト構造の方が処理が高速な感じはしますが…。
※それ以前に、コードの読みにくさを改善するというメリットが(何

by **Tomorrow** » 2006年3月29日(水) 19:28

ちょっとうまく理解できませんが...。
例えばどうするのでしょうか。

自分なりに解釈してコード化してみました。
あってるでしょうか？ >> hiraさん

[ここをクリックすると内容が表示されます]

コード: 全て選択

#N88BASIC

Class TRichUndoMemory
Public
	Sub TRichUndoMemory()
		Print "construct"
	End Sub

	Sub ~TRichUndoMemory()
		Print "destruct"
	End Sub

	Sub foo() As Long
		Print "foo"
	End Sub
End Class

'ポインタのポインタ(現在の所うまく処理できませんが)を1つ定義し、
Dim FUndoMemory As **TRichUndoMemory

'要素数分のポインタを格納する領域を用意します(mallocやcallocを使用すること)。 
FUndoMemory = malloc(SizeOf(*TRichUndoMemory)*2)

'それぞれのポインタは、いったんクラスのポインタの変数に
Dim temp As *TRichUndoMemory

'Newで作成したものを
temp = New TRichUndoMemory

'各要素に代入して保存します(ポインタのポインタをうまく処理できないため)。 
FUndoMemory[0] = temp

'ポインタを使ってクラスを呼び出すときは、クラスのポインタの変数に保存しておいたポインタを代入して
Dim temp2 As *TRichUndoMemory
temp2 = FUndoMemory[0]

'呼び出します。 
temp2->foo()
'FUndoMemory[0]->foo() - 文法が間違っています

'解放するときもやはりクラスのポインタの変数に代入してDeleteです。
Dim temp3 As *TRichUndoMemory
temp3 = FUndoMemory[0]
Delete temp3
FUndoMemory[0] = NULL

free(FUndoMemory)

>> yu0627さん

このコードを見ると、「FUndoMemory: array[0..UndoCount] of TRichUndoMemory;」って
書いてあります。よく分からないのですが、配列を途中で拡大しているようです

と書いてらっしゃいますが、"配列を途中で拡大している"とは先のDelphiのソースのどのあたりでしょう？
私には見つかりませんでした。

P.S.
今回の場合だとmallocで確保した配列よりも、リスト構造の方が向いているんじゃないでしょうか？

by **yu0627** » 2006年3月29日(水) 10:54

　hiraさん、ノッチさん、ありがとうございます。

ポインタのポインタ(現在の所うまく処理できませんが)を1つ定義し、要素数分のポインタを格納する領域を用意します(mallocやcallocを使用すること)。
それぞれのポインタは、いったんクラスのポインタの変数にNewで作成したものを各要素に代入して保存します(ポインタのポインタをうまく処理できないため)。
ポインタを使ってクラスを呼び出すときは、クラスのポインタの変数に保存しておいたポインタを代入して呼び出します。
解放するときもやはりクラスのポインタの変数に代入してDeleteです。

　ちょっとうまく理解できませんが...。
例えばどうするのでしょうか。

さらっと見ただけですので間違ってるかも知れませんが、内容的には独自で
アンドゥ、リドゥ処理を実装しているようです。
やはり既存のアンドゥ、リドゥは拡張性のないものなのか、ただ情報があまり
出てないだけなのか。
ですので、リッチエディットをサブクラス化してWM_KEYDOWN、WM_COPY、
WM_PASTEあたり(?)を独自で処理すればOKです。

やり方は、WM_KEYDOWN時やペースト時にmallocでメモリを確保。
確保したメモリに入力したどの文字位置から何文字削除した、どの文字位置に
なんという文字列を追加した等を書き込み、その作業が行われるたびに
メモリを確保->メモリに情報を書き込む->メモリに前のメモリのアドレスを追加する
を繰り返し、Ctrl+Zでその作業を巻き戻す、ついでにリドゥバッファに反対の
作業を(削除した場合は追加)を書き込み・・・。

と、書くのは簡単ですが実装は大変そうです。

　確かに難しそうですね...。
あと、ストリームをやろうとしたのですが、「dwCookie」の部分に何を代入しようか迷っています。
ファイルの読み込みと保存ならファイルハンドルを指定すればよいのですが、
ただのバッファへの格納にどの値を代入すればよいのでしょうか...。

by **ノッチ** » 2006年3月27日(月) 22:02

さらっと見ただけですので間違ってるかも知れませんが、内容的には独自で
アンドゥ、リドゥ処理を実装しているようです。
やはり既存のアンドゥ、リドゥは拡張性のないものなのか、ただ情報があまり
出てないだけなのか。
ですので、リッチエディットをサブクラス化してWM_KEYDOWN、WM_COPY、
WM_PASTEあたり(?)を独自で処理すればOKです。

やり方は、WM_KEYDOWN時やペースト時にmallocでメモリを確保。
確保したメモリに入力したどの文字位置から何文字削除した、どの文字位置に
なんという文字列を追加した等を書き込み、その作業が行われるたびに
メモリを確保->メモリに情報を書き込む->メモリに前のメモリのアドレスを追加する
を繰り返し、Ctrl+Zでその作業を巻き戻す、ついでにリドゥバッファに反対の
作業を(削除した場合は追加)を書き込み・・・。

と、書くのは簡単ですが実装は大変そうです。

by **hira** » 2006年3月27日(月) 19:57

このコードを見ると、「FUndoMemory: array[0..UndoCount] of TRichUndoMemory;」って
書いてあります。よく分からないのですが、配列を途中で拡大しているようです。
こんなことABで可能でしたっけ...。

TRichUndoMemoryという名前からすればクラスですよね(多分)。
私の場合、こういうときは無理矢理実装する派です(^^;;

ポインタのポインタ(現在の所うまく処理できませんが)を1つ定義し、要素数分のポインタを格納する領域を用意します(mallocやcallocを使用すること)。
それぞれのポインタは、いったんクラスのポインタの変数にNewで作成したものを各要素に代入して保存します(ポインタのポインタをうまく処理できないため)。
ポインタを使ってクラスを呼び出すときは、クラスのポインタの変数に保存しておいたポインタを代入して呼び出します。
解放するときもやはりクラスのポインタの変数に代入してDeleteです。

※こうなると、

コード: 全て選択

p As *Class->func()

のような書き方ができるか、ポインタのポインタに対応していただけるとありがたいということになります(^^;;

by **yu0627** » 2006年3月27日(月) 19:15

お久しぶりノッチです。
家にネット環境がないので出張でネット付のホテルに泊まるか会社から(!?)しか
ネットができません。

ということでリンク先を見たのですが、lzhファイルが見つからないですね。
アンドゥ処理は興味があったので残念です。

　どうやら、FTPサイトでファイル要求を送信中にタイムアウトになるようです。
ですので、こちらをご覧ください。
http://www.exfiction.net/~yu0627/temp/RichEditVx.Pas
このコードを見ると、「FUndoMemory: array[0..UndoCount] of TRichUndoMemory;」って
書いてあります。よく分からないのですが、配列を途中で拡大しているようです。
こんなことABで可能でしたっけ...。

ab.com コミュニティ

キーワードの色分け(2)

返信する

展開ビュートピックのレビュー: キーワードの色分け(2)

返信＠yu0627

近況報告

返信＠yu0627

Re: 返信＠yu0627

返信＠yu0627

返信＠yu0627

Re: 返信＠yu0627

返信＠yu0627

Re: 返信＠yu0627

返信＠yu0627

返信＠yu0627

返信する

展開ビュー トピックのレビュー: キーワードの色分け(2)

展開ビュートピックのレビュー: キーワードの色分け(2)