''Reverts the dialog size to the source size for .NET dialogs

'THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND
'EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE IMPLIED WARRANTIES
'OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE

Option Explicit
Public Sub PSL_BeforeGenerateTarget(ByVal TransList As PslTransList, ByRef Abort As Boolean)
	Dim i As Long
	For i = 1 To TransList.StringCount
		Dim t As PslTransString
		Set t = TransList.String(i)
		If t.ResType = "Dialog.NET" And t.ID = "$this" Then
			Dim sx As Long, sy As Long, sw As Long, sh As Long
			Dim tx As Long, ty As Long, tw As Long, th As Long
			t.GetSourceRect( sx, sy, sw, sh)
			t.GetRect( tx, ty, tw, th)
			PSL.Output t.Resource.ID & " sized from " & sw & "x" & sh & " to " & tw & "x" & th
			t.SetRect( sx, sy, sw, sh)
		End If
	Next i
End Sub