home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / PASCAL / VISIMP.ZIP / README.TXT < prev    next >
Text File  |  1993-07-09  |  3KB  |  74 lines
  1.                    V I S U A L  I M P L E M E N T A T I O N
  2.  
  3.                    MRU Filelist  ----  Shadowed Popup Boxes
  4.  
  5.                       Pascal Code (C)1993 Bobby R. Wallen
  6.  
  7.                               All Rights Reserved
  8.  
  9.  
  10. Part One : OMRULIST.PAS
  11.  
  12.      This unit will add a Most Recently Used filelist to the FILE menu of your
  13.      Application. Simply add the unit to your uses statement and then set it
  14.      up in the Initialization of your Main Window Object.
  15.  
  16.   To add a filename to the list call AddMRUItem in your File Opening sequence.
  17.   To Access a file from the List use the call to GetMRUItem to retrieve the
  18.      Filename and then send that to your File opening sequence. This will not
  19.      automatically remove the filename from the list, that must be done by an
  20.      explicit call to DeleteMRUItem.
  21.   To Dispose of the FileList simply call Dispose in your WindowObject's Done
  22.      method like this -> Dispose( MRU, Done );
  23.   To Save the List of files for the next session call SaveMRUList at the start
  24.      of your Done method. This will write the filelist to an INI file which
  25.      you can name.
  26.   To Load the Filelist at the start of your session, call LoadMRUList in your
  27.      SetUpWindow method.
  28.  
  29. Part Two: SPOPUP.PAS
  30.  
  31.   This unit will give you a shadowed popup text box.
  32.  
  33.   To use it first add the unit name to your uses statement.
  34.   Next add a field in your Main Window Object -> APopUp : PSPopUp;
  35.   Next Add a method to handle the Window Message WM_SPOPUP_DONE
  36.  
  37.   procedure TYourWindow.PopDone( var Msg: TMessage );
  38.                                  virtual WM_First + WM_SPOPUP_DONE;
  39.   begin
  40.        Dispose( APopUp, Done );
  41.   end;
  42.  
  43.   this will dispose of the Popup Window and free the memory used.
  44.  
  45.   At the place you want to use a popup window place a call to MakeWindow,
  46.  
  47. -> APopUp := PSPopUp( Application^.MakeWindow( new( PSPopUp, Init( X, Y, AText))));
  48.  
  49.   where X and Y are the Left and Top positions of the Window and AText is the
  50.   PChar string you want to display.
  51.  
  52.   The rest is automatic.
  53.  
  54.   Please see the file MRUTEST.PAS for a working example of these units.
  55.  
  56. **** NOTICE ****
  57.   These units are not public domain. They are Shareware.
  58.   If you find them useful
  59.   please send $5.00 for each unit to:
  60.  
  61.      Bobby R. Wallen
  62.      P.O. Box 30218
  63.      Mesa, AZ  85275-0218
  64.  
  65. *** LEGAL NOTICE ***
  66.   There is no warranty either expressed or implied in these units. Use them
  67.   at your own risk. I have tried my best to make sure that they are bugfree
  68.   but I am only beginning to learn Windows Programming.
  69.  
  70.   Thank You for taking the time to download this file.
  71.  
  72.   Bobby R. Wallen
  73.   July 9, 1993
  74.