diff --git a/src/tools/PseuWoWConsole/PseuWoWConsole ReadMe.txt b/src/tools/PseuWoWConsole/PseuWoWConsole ReadMe.txt index d3bf6e6..0acca50 100644 --- a/src/tools/PseuWoWConsole/PseuWoWConsole ReadMe.txt +++ b/src/tools/PseuWoWConsole/PseuWoWConsole ReadMe.txt @@ -1,5 +1,5 @@ ======================================================= -PseuWoWConsole - Version 1.0.0 +PseuWoWConsole - Version 1.1.0 ======================================================= "What ain't no country I ever heard of! They speak English in What? " diff --git a/src/tools/PseuWoWConsole/src/PseuWoWConsole.cfg b/src/tools/PseuWoWConsole/src/PseuWoWConsole.cfg index d1ab8d2..776ea0d 100644 --- a/src/tools/PseuWoWConsole/src/PseuWoWConsole.cfg +++ b/src/tools/PseuWoWConsole/src/PseuWoWConsole.cfg @@ -24,6 +24,7 @@ -$X+ -$YD -$Z1 +-GD -cg -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -H+ @@ -31,7 +32,6 @@ -M -$M16384,1048576 -K$00400000 --E"F:\ttWoWEmu\pseuwow\" -LE"c:\program files\borland\delphi6\Projects\Bpl" -LN"c:\program files\borland\delphi6\Projects\Bpl" -U"E:\Coding\Delphi\rutinas\fastlib" diff --git a/src/tools/PseuWoWConsole/src/PseuWoWConsole.dof b/src/tools/PseuWoWConsole/src/PseuWoWConsole.dof index 2ceb635..9d5813b 100644 --- a/src/tools/PseuWoWConsole/src/PseuWoWConsole.dof +++ b/src/tools/PseuWoWConsole/src/PseuWoWConsole.dof @@ -31,7 +31,7 @@ ShowHints=1 ShowWarnings=1 UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; [Linker] -MapFile=0 +MapFile=3 OutputObjs=0 ConsoleApp=1 DebugInfo=0 @@ -41,7 +41,7 @@ MaxStackSize=1048576 ImageBase=4194304 ExeDescription= [Directories] -OutputDir=F:\ttWoWEmu\pseuwow\ +OutputDir= UnitOutputDir= PackageDLLOutputDir= PackageDCPOutputDir= @@ -64,7 +64,7 @@ RootDir= IncludeVerInfo=1 AutoIncBuild=0 MajorVer=1 -MinorVer=0 +MinorVer=1 Release=0 Build=0 Debug=0 @@ -77,7 +77,7 @@ CodePage=1252 [Version Info Keys] CompanyName= FileDescription= -FileVersion=1.0.0.0 +FileVersion=1.1.0.0 InternalName= LegalCopyright= LegalTrademarks= @@ -86,9 +86,13 @@ ProductName= ProductVersion=1.0.0.0 Comments= [Excluded Packages] -c:\program files\borland\delphi6\Bin\dclsoap60.bpl=Borland SOAP Components -c:\program files\borland\delphi6\Projects\Bpl\ThirdParty2000.bpl=3rd Party Components c:\program files\borland\delphi6\Projects\Bpl\SweetControls6.bpl=CA SweetControls +c:\program files\borland\delphi6\Projects\Bpl\SynUni_D5.bpl=(untitled) +c:\program files\borland\delphi6\Projects\Bpl\images.bpl=Images +c:\program files\borland\delphi6\Projects\Bpl\ryansvcl.bpl=Ryans VCL +c:\program files\borland\delphi6\Bin\dclsoap60.bpl=Borland SOAP Components +c:\program files\borland\delphi6\Projects\Bpl\dclusr60.bpl=Borland User Components +c:\program files\borland\delphi6\Projects\Bpl\XpControls.bpl=XpControls [HistoryLists\hlUnitAliases] Count=1 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; @@ -98,486 +102,3 @@ Item0=E:\Coding\Delphi\rutinas\fastlib [HistoryLists\hlOutputDirectorry] Count=1 Item0=F:\ttWoWEmu\pseuwow\ -[Exception Log] -EurekaLog Version=6003 -Activate=0 -Activate Handle=1 -Save Log File=1 -Foreground Tab=0 -Freeze Activate=0 -Freeze Timeout=0 -SMTP From=eurekalog@email.com -SMTP Host= -SMTP Port=25 -SMTP UserID= -SMTP Password= -Append to Log=0 -TerminateBtn Operation=2 -Errors Number=32 -Errors Terminate=3 -Email Address= -Email Object= -Email Send Options=0 -Output Path= -Encrypt Password= -AutoCloseDialogSecs=0 -WebSendMode=0 -SupportULR= -HTMLLayout Count=15 -HTMLLine0="%3Chtml%3E" -HTMLLine1=" %3Chead%3E" -HTMLLine2=" %3C/head%3E" -HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E" -HTMLLine4=" %3Ctable width="100%%" border="0"%3E" -HTMLLine5=" %3Ctr%3E" -HTMLLine6=" %3Ctd nowrap%3E" -HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E" -HTMLLine8=" %3C%%HTML_TAG%%%3E" -HTMLLine9=" %3C/font%3E" -HTMLLine10=" %3C/td%3E" -HTMLLine11=" %3C/tr%3E" -HTMLLine12=" %3C/table%3E" -HTMLLine13=" %3C/body%3E" -HTMLLine14="%3C/html%3E" -AutoCrashOperation=2 -AutoCrashNumber=10 -AutoCrashMinutes=1 -WebURL= -WebUserID= -WebPassword= -WebPort=0 -AttachedFiles= -ProxyURL= -ProxyUser= -ProxyPassword= -ProxyPort=8080 -TrakerUser= -TrakerPassword= -TrakerAssignTo= -TrakerProject= -TrakerCategory= -TrakerTrialID= -ZipPassword= -PreBuildEvent= -PostSuccessfulBuildEvent= -PostFailureBuildEvent= -ExceptionDialogType=2 -Count=0 -EMail Message Line Count=0 -loNoDuplicateErrors=0 -loAppendReproduceText=0 -loDeleteLogAtVersionChange=0 -loAddComputerNameInLogFileName=0 -loSaveModulesAndProcessesSections=1 -loSaveAssemblerAndCPUSections=1 -soAppStartDate=1 -soAppName=1 -soAppVersionNumber=1 -soAppParameters=1 -soAppCompilationDate=1 -soAppUpTime=1 -soExcDate=1 -soExcAddress=1 -soExcModuleName=1 -soExcModuleVersion=1 -soExcType=1 -soExcMessage=1 -soExcID=1 -soExcCount=1 -soExcStatus=1 -soExcNote=1 -soUserID=1 -soUserName=1 -soUserEmail=1 -soUserPrivileges=1 -soUserCompany=1 -soActCtlsFormClass=1 -soActCtlsFormText=1 -soActCtlsControlClass=1 -soActCtlsControlText=1 -soCmpName=1 -soCmpTotalMemory=1 -soCmpFreeMemory=1 -soCmpTotalDisk=1 -soCmpFreeDisk=1 -soCmpSysUpTime=1 -soCmpProcessor=1 -soCmpDisplayMode=1 -soCmpDisplayDPI=1 -soCmpVideoCard=1 -soCmpPrinter=1 -soOSType=1 -soOSBuildN=1 -soOSUpdate=1 -soOSLanguage=1 -soOSCharset=1 -soNetIP=1 -soNetSubmask=1 -soNetGateway=1 -soNetDNS1=1 -soNetDNS2=1 -soNetDHCP=1 -soCustomData=1 -sndShowSendDialog=1 -sndShowSuccessFailureMsg=0 -sndSendEntireLog=0 -sndSendXMLLogCopy=0 -sndSendScreenshot=1 -sndUseOnlyActiveWindow=0 -sndSendLastHTMLPage=1 -sndSendInSeparatedThread=0 -sndAddDateInFileName=0 -sndAddComputerNameInFileName=0 -edoSendErrorReportChecked=1 -edoAttachScreenshotChecked=1 -edoShowCopyToClipOption=1 -edoShowDetailsButton=1 -edoShowInDetailedMode=0 -edoShowInTopMostMode=0 -edoUseEurekaLogLookAndFeel=0 -edoShowSendErrorReportOption=1 -edoShowAttachScreenshotOption=1 -edoShowCustomButton=0 -csoShowDLLs=1 -csoShowBPLs=1 -csoShowBorlandThreads=1 -csoShowWindowsThreads=1 -csoDoNotStoreProcNames=0 -boPauseBorlandThreads=0 -boDoNotPauseMainThread=0 -boPauseWindowsThreads=0 -boUseMainModuleOptions=1 -boCopyLogInCaseOfError=1 -boSaveCompressedCopyInCaseOfError=0 -boHandleSafeCallExceptions=0 -boCallRTLExceptionEvent=0 -boCatchHandledExceptions=0 -loCatchLeaks=0 -loGroupsSonLeaks=1 -loHideBorlandLeaks=1 -loFreeAllLeaks=1 -loCatchLeaksExceptions=1 -cfoReduceFileSize=1 -cfoCheckFileCorruption=0 -Count mtInformationMsgCaption=1 -mtInformationMsgCaption0="Information." -Count mtQuestionMsgCaption=1 -mtQuestionMsgCaption0="Question." -Count mtErrorMsgCaption=1 -mtErrorMsgCaption0="Error." -Count mtDialog_Caption=1 -mtDialog_Caption0="Error occurred" -Count mtDialog_ErrorMsgCaption=2 -mtDialog_ErrorMsgCaption0="An error has occurred during program execution." -mtDialog_ErrorMsgCaption1="Please read the following information for further details." -Count mtDialog_GeneralCaption=1 -mtDialog_GeneralCaption0="General" -Count mtDialog_GeneralHeader=1 -mtDialog_GeneralHeader0="General Information" -Count mtDialog_CallStackCaption=1 -mtDialog_CallStackCaption0="Call Stack" -Count mtDialog_CallStackHeader=1 -mtDialog_CallStackHeader0="Call Stack Information" -Count mtDialog_ModulesCaption=1 -mtDialog_ModulesCaption0="Modules" -Count mtDialog_ModulesHeader=1 -mtDialog_ModulesHeader0="Modules Information" -Count mtDialog_ProcessesCaption=1 -mtDialog_ProcessesCaption0="Processes" -Count mtDialog_ProcessesHeader=1 -mtDialog_ProcessesHeader0="Processes Information" -Count mtDialog_AsmCaption=1 -mtDialog_AsmCaption0="Assembler" -Count mtDialog_AsmHeader=1 -mtDialog_AsmHeader0="Assembler Information" -Count mtDialog_CPUCaption=1 -mtDialog_CPUCaption0="CPU" -Count mtDialog_CPUHeader=1 -mtDialog_CPUHeader0="CPU Information" -Count mtDialog_OKButtonCaption=1 -mtDialog_OKButtonCaption0="%26OK" -Count mtDialog_TerminateButtonCaption=1 -mtDialog_TerminateButtonCaption0="%26Terminate" -Count mtDialog_RestartButtonCaption=1 -mtDialog_RestartButtonCaption0="%26Restart" -Count mtDialog_DetailsButtonCaption=1 -mtDialog_DetailsButtonCaption0="%26Details" -Count mtDialog_CustomButtonCaption=1 -mtDialog_CustomButtonCaption0="%26Help" -Count mtDialog_SendMessage=1 -mtDialog_SendMessage0="%26Send this error via Internet" -Count mtDialog_ScreenshotMessage=1 -mtDialog_ScreenshotMessage0="%26Attach a Screenshot image" -Count mtDialog_CopyMessage=1 -mtDialog_CopyMessage0="%26Copy to Clipboard" -Count mtDialog_SupportMessage=1 -mtDialog_SupportMessage0="Go to the Support Page" -Count mtMSDialog_ErrorMsgCaption=1 -mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience." -Count mtMSDialog_RestartCaption=1 -mtMSDialog_RestartCaption0="Restart application." -Count mtMSDialog_TerminateCaption=1 -mtMSDialog_TerminateCaption0="Terminate application." -Count mtMSDialog_PleaseCaption=1 -mtMSDialog_PleaseCaption0="Please tell us about this problem." -Count mtMSDialog_DescriptionCaption=1 -mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous." -Count mtMSDialog_SeeDetailsCaption=1 -mtMSDialog_SeeDetailsCaption0="To see what data the error report contains," -Count mtMSDialog_SeeClickCaption=1 -mtMSDialog_SeeClickCaption0="click here." -Count mtMSDialog_HowToReproduceCaption=1 -mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happended (optional)?" -Count mtMSDialog_EmailCaption=1 -mtMSDialog_EmailCaption0="Email address (optional):" -Count mtMSDialog_SendButtonCaption=1 -mtMSDialog_SendButtonCaption0="%26Send Error Report" -Count mtMSDialog_NoSendButtonCaption=1 -mtMSDialog_NoSendButtonCaption0="%26Don't Send" -Count mtLog_AppHeader=1 -mtLog_AppHeader0="Application" -Count mtLog_AppStartDate=1 -mtLog_AppStartDate0="Start Date" -Count mtLog_AppName=1 -mtLog_AppName0="Name/Description" -Count mtLog_AppVersionNumber=1 -mtLog_AppVersionNumber0="Version Number" -Count mtLog_AppParameters=1 -mtLog_AppParameters0="Parameters" -Count mtLog_AppCompilationDate=1 -mtLog_AppCompilationDate0="Compilation Date" -Count mtLog_AppUpTime=1 -mtLog_AppUpTime0="Up Time" -Count mtLog_ExcHeader=1 -mtLog_ExcHeader0="Exception" -Count mtLog_ExcDate=1 -mtLog_ExcDate0="Date" -Count mtLog_ExcAddress=1 -mtLog_ExcAddress0="Address" -Count mtLog_ExcModuleName=1 -mtLog_ExcModuleName0="Module Name" -Count mtLog_ExcModuleVersion=1 -mtLog_ExcModuleVersion0="Module Version" -Count mtLog_ExcType=1 -mtLog_ExcType0="Type" -Count mtLog_ExcMessage=1 -mtLog_ExcMessage0="Message" -Count mtLog_ExcID=1 -mtLog_ExcID0="ID" -Count mtLog_ExcCount=1 -mtLog_ExcCount0="Count" -Count mtLog_ExcStatus=1 -mtLog_ExcStatus0="Status" -Count mtLog_ExcNote=1 -mtLog_ExcNote0="Note" -Count mtLog_UserHeader=1 -mtLog_UserHeader0="User" -Count mtLog_UserID=1 -mtLog_UserID0="ID" -Count mtLog_UserName=1 -mtLog_UserName0="Name" -Count mtLog_UserEmail=1 -mtLog_UserEmail0="Email" -Count mtLog_UserCompany=1 -mtLog_UserCompany0="Company" -Count mtLog_UserPrivileges=1 -mtLog_UserPrivileges0="Privileges" -Count mtLog_ActCtrlsHeader=1 -mtLog_ActCtrlsHeader0="Active Controls" -Count mtLog_ActCtrlsFormClass=1 -mtLog_ActCtrlsFormClass0="Form Class" -Count mtLog_ActCtrlsFormText=1 -mtLog_ActCtrlsFormText0="Form Text" -Count mtLog_ActCtrlsControlClass=1 -mtLog_ActCtrlsControlClass0="Control Class" -Count mtLog_ActCtrlsControlText=1 -mtLog_ActCtrlsControlText0="Control Text" -Count mtLog_CmpHeader=1 -mtLog_CmpHeader0="Computer" -Count mtLog_CmpName=1 -mtLog_CmpName0="Name" -Count mtLog_CmpTotalMemory=1 -mtLog_CmpTotalMemory0="Total Memory" -Count mtLog_CmpFreeMemory=1 -mtLog_CmpFreeMemory0="Free Memory" -Count mtLog_CmpTotalDisk=1 -mtLog_CmpTotalDisk0="Total Disk" -Count mtLog_CmpFreeDisk=1 -mtLog_CmpFreeDisk0="Free Disk" -Count mtLog_CmpSystemUpTime=1 -mtLog_CmpSystemUpTime0="System Up Time" -Count mtLog_CmpProcessor=1 -mtLog_CmpProcessor0="Processor" -Count mtLog_CmpDisplayMode=1 -mtLog_CmpDisplayMode0="Display Mode" -Count mtLog_CmpDisplayDPI=1 -mtLog_CmpDisplayDPI0="Display DPI" -Count mtLog_CmpVideoCard=1 -mtLog_CmpVideoCard0="Video Card" -Count mtLog_CmpPrinter=1 -mtLog_CmpPrinter0="Printer" -Count mtLog_OSHeader=1 -mtLog_OSHeader0="Operating System" -Count mtLog_OSType=1 -mtLog_OSType0="Type" -Count mtLog_OSBuildN=1 -mtLog_OSBuildN0="Build #" -Count mtLog_OSUpdate=1 -mtLog_OSUpdate0="Update" -Count mtLog_OSLanguage=1 -mtLog_OSLanguage0="Language" -Count mtLog_OSCharset=1 -mtLog_OSCharset0="Charset" -Count mtLog_NetHeader=1 -mtLog_NetHeader0="Network" -Count mtLog_NetIP=1 -mtLog_NetIP0="IP Address" -Count mtLog_NetSubmask=1 -mtLog_NetSubmask0="Submask" -Count mtLog_NetGateway=1 -mtLog_NetGateway0="Gateway" -Count mtLog_NetDNS1=1 -mtLog_NetDNS10="DNS 1" -Count mtLog_NetDNS2=1 -mtLog_NetDNS20="DNS 2" -Count mtLog_NetDHCP=1 -mtLog_NetDHCP0="DHCP" -Count mtLog_CustInfoHeader=1 -mtLog_CustInfoHeader0="Custom Information" -Count mtCallStack_Address=1 -mtCallStack_Address0="Address" -Count mtCallStack_Name=1 -mtCallStack_Name0="Module" -Count mtCallStack_Unit=1 -mtCallStack_Unit0="Unit" -Count mtCallStack_Class=1 -mtCallStack_Class0="Class" -Count mtCallStack_Procedure=1 -mtCallStack_Procedure0="Procedure/Method" -Count mtCallStack_Line=1 -mtCallStack_Line0="Line" -Count mtCallStack_MainThread=1 -mtCallStack_MainThread0="Main" -Count mtCallStack_ExceptionThread=1 -mtCallStack_ExceptionThread0="Exception Thread" -Count mtCallStack_RunningThread=1 -mtCallStack_RunningThread0="Running Thread" -Count mtCallStack_CallingThread=1 -mtCallStack_CallingThread0="Calling Thread" -Count mtCallStack_ThreadID=1 -mtCallStack_ThreadID0="ID" -Count mtCallStack_ThreadPriority=1 -mtCallStack_ThreadPriority0="Priority" -Count mtCallStack_ThreadClass=1 -mtCallStack_ThreadClass0="Class" -Count mtCallStack_LeakCaption=1 -mtCallStack_LeakCaption0="Memory Leak" -Count mtCallStack_LeakData=1 -mtCallStack_LeakData0="Data" -Count mtCallStack_LeakType=1 -mtCallStack_LeakType0="Type" -Count mtCallStack_LeakSize=1 -mtCallStack_LeakSize0="Total size" -Count mtCallStack_LeakCount=1 -mtCallStack_LeakCount0="Count" -Count mtSendDialog_Caption=1 -mtSendDialog_Caption0="Send." -Count mtSendDialog_Message=1 -mtSendDialog_Message0="Message" -Count mtSendDialog_Resolving=1 -mtSendDialog_Resolving0="Resolving DNS..." -Count mtSendDialog_Login=1 -mtSendDialog_Login0="Login..." -Count mtSendDialog_Connecting=1 -mtSendDialog_Connecting0="Connecting with server..." -Count mtSendDialog_Connected=1 -mtSendDialog_Connected0="Connected with server." -Count mtSendDialog_Sending=1 -mtSendDialog_Sending0="Sending message..." -Count mtSendDialog_Sent=1 -mtSendDialog_Sent0="Message sent." -Count mtSendDialog_SelectProject=1 -mtSendDialog_SelectProject0="Select project..." -Count mtSendDialog_Searching=1 -mtSendDialog_Searching0="Searching..." -Count mtSendDialog_Modifying=1 -mtSendDialog_Modifying0="Modifying..." -Count mtSendDialog_Disconnecting=1 -mtSendDialog_Disconnecting0="Disconnecting..." -Count mtSendDialog_Disconnected=1 -mtSendDialog_Disconnected0="Disconnected." -Count mtReproduceDialog_Caption=1 -mtReproduceDialog_Caption0="Request" -Count mtReproduceDialog_Request=1 -mtReproduceDialog_Request0="Please describe the steps to reproduce the error:" -Count mtReproduceDialog_OKButtonCaption=1 -mtReproduceDialog_OKButtonCaption0="%26OK" -Count mtModules_Handle=1 -mtModules_Handle0="Handle" -Count mtModules_Name=1 -mtModules_Name0="Name" -Count mtModules_Description=1 -mtModules_Description0="Description" -Count mtModules_Version=1 -mtModules_Version0="Version" -Count mtModules_Size=1 -mtModules_Size0="Size" -Count mtModules_LastModified=1 -mtModules_LastModified0="Modified" -Count mtModules_Path=1 -mtModules_Path0="Path" -Count mtProcesses_ID=1 -mtProcesses_ID0="ID" -Count mtProcesses_Name=1 -mtProcesses_Name0="Name" -Count mtProcesses_Description=1 -mtProcesses_Description0="Description" -Count mtProcesses_Version=1 -mtProcesses_Version0="Version" -Count mtProcesses_Memory=1 -mtProcesses_Memory0="Memory" -Count mtProcesses_Priority=1 -mtProcesses_Priority0="Priority" -Count mtProcesses_Threads=1 -mtProcesses_Threads0="Threads" -Count mtProcesses_Path=1 -mtProcesses_Path0="Path" -Count mtCPU_Registers=1 -mtCPU_Registers0="Registers" -Count mtCPU_Stack=1 -mtCPU_Stack0="Stack" -Count mtCPU_MemoryDump=1 -mtCPU_MemoryDump0="Memory Dump" -Count mtSend_SuccessMsg=1 -mtSend_SuccessMsg0="The message was sent successfully." -Count mtSend_FailureMsg=1 -mtSend_FailureMsg0="Sorry, sending the message didn't work." -Count mtSend_BugClosedMsg=2 -mtSend_BugClosedMsg0="These BUG is just closed." -mtSend_BugClosedMsg1="Contact the program support to obtain an update." -Count mtSend_UnknownErrorMsg=1 -mtSend_UnknownErrorMsg0="Unknown error." -Count mtSend_InvalidLoginMsg=1 -mtSend_InvalidLoginMsg0="Invalid login request." -Count mtSend_InvalidSearchMsg=1 -mtSend_InvalidSearchMsg0="Invalid search request." -Count mtSend_InvalidSelectionMsg=1 -mtSend_InvalidSelectionMsg0="Invalid selection request." -Count mtSend_InvalidInsertMsg=1 -mtSend_InvalidInsertMsg0="Invalid insert request." -Count mtSend_InvalidModifyMsg=1 -mtSend_InvalidModifyMsg0="Invalid modify request." -Count mtFileCrackedMsg=2 -mtFileCrackedMsg0="This file is cracked." -mtFileCrackedMsg1="The application will be closed." -Count mtException_LeakMultiFree=1 -mtException_LeakMultiFree0="Multi Free memory leak." -Count mtException_LeakMemoryOverrun=1 -mtException_LeakMemoryOverrun0="Memory Overrun leak." -Count mtException_AntiFreeze=1 -mtException_AntiFreeze0="The application seems to be frozen." -Count mtInvalidEmailMsg=1 -mtInvalidEmailMsg0="Invalid email." -TextsCollection=English - - diff --git a/src/tools/PseuWoWConsole/src/PseuWoWConsole.dpr b/src/tools/PseuWoWConsole/src/PseuWoWConsole.dpr index 84bcf6d..2e90936 100644 --- a/src/tools/PseuWoWConsole/src/PseuWoWConsole.dpr +++ b/src/tools/PseuWoWConsole/src/PseuWoWConsole.dpr @@ -4,7 +4,7 @@ uses Forms, fMain in 'fMain.pas' {frmMain}, RedirectConsole in 'RedirectConsole.pas', - modRichEdit in '..\..\..\Projects\Common\modRichEdit.pas'; + modRichEdit in 'modRichEdit.pas'; {$R *.RES} diff --git a/src/tools/PseuWoWConsole/src/PseuWoWConsole.res b/src/tools/PseuWoWConsole/src/PseuWoWConsole.res index 291c4d1..10df8a8 100644 Binary files a/src/tools/PseuWoWConsole/src/PseuWoWConsole.res and b/src/tools/PseuWoWConsole/src/PseuWoWConsole.res differ diff --git a/src/tools/PseuWoWConsole/src/PseuWoWConsole.~dpr b/src/tools/PseuWoWConsole/src/PseuWoWConsole.~dpr index 5428113..2e90936 100644 --- a/src/tools/PseuWoWConsole/src/PseuWoWConsole.~dpr +++ b/src/tools/PseuWoWConsole/src/PseuWoWConsole.~dpr @@ -3,7 +3,8 @@ program PseuWoWConsole; uses Forms, fMain in 'fMain.pas' {frmMain}, - RedirectConsole in 'RedirectConsole.pas'; + RedirectConsole in 'RedirectConsole.pas', + modRichEdit in 'modRichEdit.pas'; {$R *.RES} diff --git a/src/tools/PseuWoWConsole/src/fMain.dcu b/src/tools/PseuWoWConsole/src/fMain.dcu index 15aaf29..44f6afa 100644 Binary files a/src/tools/PseuWoWConsole/src/fMain.dcu and b/src/tools/PseuWoWConsole/src/fMain.dcu differ diff --git a/src/tools/PseuWoWConsole/src/fMain.dfm b/src/tools/PseuWoWConsole/src/fMain.dfm index d3b58dd..6ad6b6f 100644 --- a/src/tools/PseuWoWConsole/src/fMain.dfm +++ b/src/tools/PseuWoWConsole/src/fMain.dfm @@ -1,6 +1,6 @@ object frmMain: TfrmMain - Left = 393 - Top = 142 + Left = 293 + Top = 188 Width = 535 Height = 390 Caption = 'PseuWoW Console' diff --git a/src/tools/PseuWoWConsole/src/fMain.pas b/src/tools/PseuWoWConsole/src/fMain.pas index 25c4057..0b9a04b 100644 --- a/src/tools/PseuWoWConsole/src/fMain.pas +++ b/src/tools/PseuWoWConsole/src/fMain.pas @@ -192,11 +192,13 @@ begin Execute(App); end; + procedure TfrmMain.Log(AText: String; Color: TColor); begin AddColouredLine(Console,'CONSOLE: '+AText, Color); end; + procedure TfrmMain.ConsoleResizeRequest(Sender: TObject; Rect: TRect); var ScrollMessage: TWMVScroll; diff --git a/src/tools/PseuWoWConsole/src/fMain.~dfm b/src/tools/PseuWoWConsole/src/fMain.~dfm index 2fb46ce..d3b58dd 100644 --- a/src/tools/PseuWoWConsole/src/fMain.~dfm +++ b/src/tools/PseuWoWConsole/src/fMain.~dfm @@ -24,7 +24,7 @@ object frmMain: TfrmMain Align = alTop BevelOuter = bvNone TabOrder = 0 - object Edit1: TEdit + object txtExe: TEdit Left = 8 Top = 10 Width = 513 @@ -39,23 +39,23 @@ object frmMain: TfrmMain TabOrder = 0 Text = '[enter path to pseuwow bin]' end - object Button2: TButton + object btnRun: TButton Left = 8 Top = 40 Width = 75 Height = 25 Caption = 'RUN' TabOrder = 1 - OnClick = Button2Click + OnClick = btnRunClick end - object Button3: TButton + object btnExit: TButton Left = 88 Top = 40 Width = 75 Height = 25 Caption = 'Exit' TabOrder = 2 - OnClick = Button3Click + OnClick = btnExitClick end end object Console: TRichEdit @@ -134,7 +134,7 @@ object frmMain: TfrmMain Left = 400 Top = 32 end - object JvTrayIcon1: TJvTrayIcon + object TrayIcon: TJvTrayIcon Active = True IconIndex = 0 Visibility = [tvVisibleTaskBar, tvVisibleTaskList, tvAutoHide, tvAutoHideIcon, tvRestoreClick, tvMinimizeClick] diff --git a/src/tools/PseuWoWConsole/src/fMain.~pas b/src/tools/PseuWoWConsole/src/fMain.~pas index 6eb847d..0b9a04b 100644 --- a/src/tools/PseuWoWConsole/src/fMain.~pas +++ b/src/tools/PseuWoWConsole/src/fMain.~pas @@ -10,18 +10,18 @@ uses type TfrmMain = class(TForm) Panel1: TPanel; - Edit1: TEdit; - Button2: TButton; - Button3: TButton; + txtExe: TEdit; + btnRun: TButton; + btnExit: TButton; servRemote: TServerSocket; timerStart: TTimer; clientSock: TClientSocket; - JvTrayIcon1: TJvTrayIcon; + TrayIcon: TJvTrayIcon; Console: TRichEdit; grpCmd: TGroupBox; comCommand: TComboBox; - procedure Button2Click(Sender: TObject); - procedure Button3Click(Sender: TObject); + procedure btnRunClick(Sender: TObject); + procedure btnExitClick(Sender: TObject); procedure FormCreate(Sender: TObject); procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); procedure timerStartTimer(Sender: TObject); @@ -74,18 +74,18 @@ begin Ready := False; end; -procedure TfrmMain.Button2Click(Sender: TObject); +procedure TfrmMain.btnRunClick(Sender: TObject); var IniFile : TInifile; begin IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'Settings.INI'); - IniFile.WriteString('Execute','Application',Edit1.Text); + IniFile.WriteString('Execute','Application',txtExe.Text); IniFile.UpdateFile; IniFile.Free; - RC_Run(Edit1.text); // run console program + RC_Run(txtExe.text); // run console program end; -procedure TfrmMain.Button3Click(Sender: TObject); +procedure TfrmMain.btnExitClick(Sender: TObject); begin ShutDown(); end; @@ -121,7 +121,7 @@ begin timerStart.Enabled := False; if Ready then begin - JvTrayIcon1.HideApplication; + TrayIcon.HideApplication; Launch; Exit; end @@ -192,11 +192,13 @@ begin Execute(App); end; + procedure TfrmMain.Log(AText: String; Color: TColor); begin AddColouredLine(Console,'CONSOLE: '+AText, Color); end; + procedure TfrmMain.ConsoleResizeRequest(Sender: TObject; Rect: TRect); var ScrollMessage: TWMVScroll;