ab.com コミュニティ

コード: 全て選択

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

コード: 全て選択

'-----------------------------------------------------------------------------
'  イベント プロシージャ
'-----------------------------------------------------------------------------
' このファイルには、ウィンドウ [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

コード: 全て選択

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

コード: 全て選択

             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)