[sword-cvs] sword/apps/windoze/CBuilder5/BibleCS sword.cpp,1.43,1.44
sword@www.crosswire.org
sword@www.crosswire.org
Thu, 19 Jun 2003 23:15:08 -0700
Update of /usr/local/cvsroot/sword/apps/windoze/CBuilder5/BibleCS
In directory www:/tmp/cvs-serv30517
Modified Files:
sword.cpp
Log Message:
minor private protocol fix?
Index: sword.cpp
===================================================================
RCS file: /usr/local/cvsroot/sword/apps/windoze/CBuilder5/BibleCS/sword.cpp,v
retrieving revision 1.43
retrieving revision 1.44
diff -C2 -d -r1.43 -r1.44
*** sword.cpp 12 Jun 2003 02:03:34 -0000 1.43
--- sword.cpp 20 Jun 2003 06:15:05 -0000 1.44
***************
*** 66,70 ****
--- 66,73 ----
// see if there's a previous instance running
+ AnsiString titleString = Application->Title;
+ Application->Title = "";
otherInst = ::FindWindow(NULL, "The SWORD Project");
+ Application->Title = titleString;
// if so, and we have an argument, send the argument to the other instance
if (*lpCmdLine) {
***************
*** 101,105 ****
}
startVerse = buf;
-
// TODO 5: if we have a cmdline argument, figure we have to change directories. BAD, FIX.
--- 104,107 ----
***************
*** 168,188 ****
Application->ProcessMessages();
Application->CreateForm(__classid(TForm1), &Form1);
! Application->CreateForm(__classid(TAboutBox), &AboutBox);
! Application->CreateForm(__classid(TbookmarkForm), &bookmarkForm);
! Application->CreateForm(__classid(TNewBMfrm), &NewBMfrm);
! Application->CreateForm(__classid(TOptionsfrm), &Optionsfrm);
! Application->CreateForm(__classid(TsearchForm), &searchForm);
! Application->CreateForm(__classid(TModInstFrm), &ModInstFrm);
! Application->CreateForm(__classid(TVerseListForm), &VerseListForm);
! Application->CreateForm(__classid(TEditEntryForm), &EditEntryForm);
! Application->CreateForm(__classid(TVerseSelFrm), &VerseSelFrm);
! Application->CreateForm(__classid(TRangeMaintForm), &RangeMaintForm);
! Application->CreateForm(__classid(TModVisForm), &ModVisForm);
! Application->CreateForm(__classid(TDevOfTheDay2), &DevOfTheDay2);
! Application->CreateForm(__classid(TForm3), &Form3);
! Application->CreateForm(__classid(TRTFHintForm), &RTFHintForm);
! Application->CreateForm(__classid(TPreviewForm), &PreviewForm);
! Application->CreateForm(__classid(TPrintForm), &PrintForm);
! Application->Run();
}
catch (Exception &exception) {
--- 170,190 ----
Application->ProcessMessages();
Application->CreateForm(__classid(TForm1), &Form1);
! Application->CreateForm(__classid(TAboutBox), &AboutBox);
! Application->CreateForm(__classid(TbookmarkForm), &bookmarkForm);
! Application->CreateForm(__classid(TNewBMfrm), &NewBMfrm);
! Application->CreateForm(__classid(TOptionsfrm), &Optionsfrm);
! Application->CreateForm(__classid(TsearchForm), &searchForm);
! Application->CreateForm(__classid(TModInstFrm), &ModInstFrm);
! Application->CreateForm(__classid(TVerseListForm), &VerseListForm);
! Application->CreateForm(__classid(TEditEntryForm), &EditEntryForm);
! Application->CreateForm(__classid(TVerseSelFrm), &VerseSelFrm);
! Application->CreateForm(__classid(TRangeMaintForm), &RangeMaintForm);
! Application->CreateForm(__classid(TModVisForm), &ModVisForm);
! Application->CreateForm(__classid(TDevOfTheDay2), &DevOfTheDay2);
! Application->CreateForm(__classid(TForm3), &Form3);
! Application->CreateForm(__classid(TRTFHintForm), &RTFHintForm);
! Application->CreateForm(__classid(TPreviewForm), &PreviewForm);
! Application->CreateForm(__classid(TPrintForm), &PrintForm);
! Application->Run();
}
catch (Exception &exception) {