      

    13  

    ,   RENTMAN   .   
, ,  ,   .  , 
        , 
 . 
           
    .     , 
        .    
 ,           
         .  
   ,     , 
       . , 
  ,     
. ,     , 
  ,  ,       
 . 
         ,       
    .      
    ,      
-,            
,    .        
   ,      
      . 
       RENTMAN,   ,     
      Windows. 
    Q   . 
         . 
    Q   ,     - . 
    Q   . 
       . 
    Q      About. 
    D    . 
    Q   ,    . 
        ,      
,    .    
     ,     
  . 

       

           Delphi,    
 .        
,   ,     .  
          fmRSYSMANO. 


     13.   275 

. 13.1.    Image Editor Delphi    

. 13.2.         


    276  II.  

          ,     
.   -  ,  
  Delphi, Windows    .   
    Image Editor Delphi.     
Image Editor,    Tools Delphi     
 ,     Delphi.  . 13.1   Image 
Editor       . 
      RENTMAN,      ,     
     fmRSYSMANO.    paMiddle  
    Image.    imSplash,   
 Alignment   alClient.     
picture,      Load   .   
Load picture         Open. 
   Picture editor,    . 
              
  (   RENTMAN    
  ),  ,    
   .    
  ,    ,     
,        Height  Width   
Object Inspector.     ,    
,      . 
            
 .       .  
          
.         
    ,    Stretch  True. 
     ,    True   Stretch 
 Image       
    .      
  .   ,   
    .    fmRSYSMANO 
      . 
             , 
      .  . 13.2 ,  
           
 . 


          

       RENTMAN,      
,    ,    . 
  Delphi      
   Delphi.     
,       .    
        
  .         
 .   ,    , 
     . 
             
.    Windows,     Delphi,   
    .      
,    Image Editor   
.  . 13.3         
 . 
       ,    .   
   Project^Options,         
Application.   Title   RENTMAN System,   
   Load Icon   ,    
 (. 13.4). 
    ,      Title,    
     Windows.  ,    
    ,   Windows 
,             
 .   ,      
 ,       
   .  ,    
         
 . 


     13.   277 

    . 13.3.    Image Editor Delphi   
,      

    . 13.4.     Project Options   
   

       

      ,       
   Windows   .      
,    .   ,   
         Windows 
    ,      
 Windows    . 

         

         ,    - 
     Windows.     
   ForeHelp  RoboHelp.      
   ,     
             
.        ,      
 ,        Windows  
, ,  ,   . 


    278  II.   

         

            Windows,  
     .      
  :    (HPJ),    
(CNT)     (RTF),     
  .   HPJ  CNT     . 
  RTF      Rich-Text Format,  
   ,  Microsoft Word.  
      (,   ,  
),    ,      
 Windows. 

      

      Windows WordPad,    RTF,  
       ,  
      Windows.     
  ,      ,  
WordPad         . 
   Delphi TRichEdit       
Windows,    WordPad,       . 

          ,  
      .   
Windows 95        
,       -    
 .   Windows 95, Microsoft   
    .      Microsoft 
Help Workshop     Delphi. 
               
      .    
          
,        . 
       ,      
.      ,  
,  ,   ,    . 
        .  
. 13.1       . 

     13.1.    ,   
   Windows 

       	 

    	#		  ,      
    	$ 		   
    	K 		       
    	+		       
    	 		     
    	! 		  
    	* 		         
    	> 		   
    	@ 		      
      	      
                 	  ,        

             , 
   (    ). 
       (#, $,   +). 


     13.   279 

       

        ,     
 .      -   
 Windows.     ,  
  RTF, ,       
     Microsoft Word,  ,    
,      ,  
  . 
           RENTMAN,  
 ,          
     
        ,     
 Log a call. 

    Log a call 
    Select this option to enter a maintenance call. You'll be asked to specify 
the property that the call concerns. 

       

        Log     #.   
    ,  .   
   LogCall.        
     .    
   Help Workshop    ,   
        . 

      

         Log     ,   
   $    .     
   .     Log a call.  
Windows      ,     
     . , 
    ,       
  WinHelp,       ..   
 ,      . 
   ,        
        ,   
    .. 

       

    ,      ,   
   .       Log, 
  ,        : Log 
a Call; Calls, logging; Calls, entering; Calls, adding.    
       ,   
      . 
          .   
     ( Microsoft Word   
    <Ctrl+Enter>).  . 13.5   
 .    ,     , 
 Word    .   ,   
     .     
  ,      . 
        , property,   
      Tables. 
        property: 

    Property 
    Select this option to enter or update property records. If you are needing 
to log a maintenance call, see the Log Calls help topic. 

        ,     .  
  )    ,     LogCall.  
          
Property,    LogCall. 

         

        ,       . 
   (  )   Log Calls    Property. 
 LogCall,            
     Hidden  True ( Hidden () 
  Font ()  Word 7.0).    Log Calls  
 -


    280  II.   

       ( Word 7.0      
 Font).      Log Calls    
   (         
Windows,       ).  
    ,   LogCall. 

    . 13.5.    LogCall 


      
          . 
  ,  ,     .  
        ,    
<Ctrl+Tab>.       . 

         .  ,   
    .  . 13.6  
  Property. 
       Work Order Print,    
  Reports.    : 

    Work Order Print 

    This option allows you to select and print a work order. A work order 
lists the work to be done on a rental property due to a call from a tenant. 
See the Property and Log Calls topics for more information. 
        ,       
 . 
          .   
      Property.      
        ,    
   ,   . 
       ( )   Property.   
  Property,           
,    .    Property   
    (<Ctrl+U>  Microsoft Word). 
          Log Calls.   LogCall, 
 ,     . ,   Log 
Calls      .  . 13.7   
 . 
          . 

     13.   281 

. 13.6.   Property

. 13.7.    I/fork Order Print

282  II.  


      

           ,    
     Contents.    
     . 
        ,     
      .    
        LogCall.  
 ,        . 

    RENTMAN System Contents 
    Log a call 
    Add or update property 
    Print work orders 

          ,     
  Contents. 
            .  
    Log a call   LogCall.   LogCall  
 ,       .    Log 
a call      . 
          Add or update property   
 Property.       ,   
  Add or update property      
.       Print work orders,   
     WorkOrderPrint. 

     . 13.8      Contents. 
    
    . 13.8.      

              , 
    .      
  WinHelp,      Help 
Workshop.        
,          . 
          Contents    
 +.      auto.     
  .       ,  
        
  .    ,   
 auto      ,     
         
 . 


     13.   283 

           .    
 Rich Text Format   RENTMAN   rentman.rtf,  
       . 

       

      Windows 95      
  ,        
-   .      
      RTF   
   ,   Microsoft  DOS. 
      Windows 95  Microsoft    
Microsoft Help Workshop,        
 .         
   .  Microsoft Help Workshop 
   Delphi,      prograr. 
Files\Borlanr4\nelphi 3\Help\Tools.     
HCW.EXE.         . 

     Help Author 

    ,     ,    Help Author  
     File.      
       (, 
  ).  ,       
,   ,     ,   
 <Ctrl+Shift+<->  <Ctrl+Shift+>>.      
   , ,  
<Ctrl+Shift+Home>  <Ctrl+Shift+End>. 
      File^New,       Help Contents. 
      Default filename      . 
\rentman.hlp.   Default title     RENTMAN System. 
   Add Above     Title   
RENTMAN System Contents,    Topic ID    Contents. 
   ,       . 
       Add Below     Edit Contents Tab Entry 
 Log a call.         . 
        ,      RENTMAN 
  rentman. cnt.   13.)      
 . 

     13.1.   ,   Help Workshop 

    :Base .\rentman.hip 
    :Title RENTMAN System 
    1 RENTMAN System Contents=Contents 
    1 Log a call=LogCall 
    1 Property=Property 
    1 Print a work order=WorkOrderPrint 


       

       ,      , 
    ,      Help Workshop. 
       Help Workshop 
  . 

      
    ,    ,       
,        , 
     ,        
Help Workshop.   ,      
        Help Workshop  
  .  Help Workshop    
  ,      . 

    284  II.   

      File^New      Help Project. 
,   Help Workshop   ,    
.     RENTMAN    rentman,   
   Save.  HPJ      . 

        RTF  CNT 

       Options,   Default topic  Contents,   
 Help title  RENTMAN System.    Compression   
 Maximum.     Files    Rich Text 
Format (RTF) files  rentman. rtf,    Contents file rentmant. 
cnt.      OK,     Options. 

       

       Windows,       
 Add,      Add a New Type Window  main. 
    Window Properties,    Buttons 
   Browse   Buttons.     
WinHelp        
  ,       
  ,     .   
  Macros    ,  ,   
Help Workshop         
BrowseButtonsQ.          
  .    ,      
 . 

          

         Help Workshop,    Map. 
       Add,    Topic 
ID  Contents,    Mapped numeric value   .   
     RENTMAN,   
  ,     - 
.    ,    . 
        Add        
 LogCall   100.       
         
  .       Property  
WorkOrderPrint, , ,  200  300.    
    RENTMAN    
 .           
,        
- ,    HelpContext 
   .    
 ,       . 
           .   
 Save  Compile,      . 
        ,     , 
     . 

       

       Help Workshop    ,   
  .   File'=>Run WinHelp    
  ,      
.   Mapped Topic IDs    View Help File 
  Contents.       
   WinHelp  - .   
      . 
       View Help,     .  
    ,    . 13.9. 
       Log a call.    , 
   . 13.10. 
        (),     Contents   
 Add or update property.     Contents   
  Print work orders.  ,    ,   
   WinHelp,    . 13.11. 
    ,    Contents (),    , 
     . 

     13.   285 

    . 13.9.      

    . 13.10.  LogCall,      

    . 13.11.  WorkOrderPrint,      
    

    286  II.   

         

     , ,       , 
          
  . 
       Help Workshop    Delphi.    
Help Workshop,  ,   Help Author    
.   Delphi,   Project^Options    
    Application.    Help file   
rentman. hip     . 
       fmRSYSMANO        
  MainMenu,     .    
File  Log a call   <F11>,     Object Inspector. 
      HelpContext    
  100,    ,      
        
.        ,     
 Property  WorkOrderPrint,    HelpContext 
200  300, . 
        Contents  Help .  
   MainMenu,      Contents.   
    . 

    Application.HelpContext(0); 

    HelpContext   ,      Application 
  WinHelp,        
  .      0,  
  Contents. 
      ,    Help   
RENTMAN,    <F11>,     Object Inspector. 
  Events       OnClick 
     Contentsldick,    
     Help^>Contents.     
Help          . 
      .     
,      Help      
 Help'=!>Contents    Contents    
 .     Log a call, Property  Work Order 
print   <F1>      . 

     -  

      -     
    ,  Windows     
  Windows 95.      Windows 95 
  -      
  ,      . 
        ,   
 Delphi, , ,   biHelp  
Borderlcons ,  -,      
 . 
           ,     
 ,     -  
    Delphi. 
            - 
,      . ,   
 biHelp  Borderlcons   ,    
 HelpContext        
.        fmPROCGRDO, 
     PROPERTY.     
     biHelp  Borderlcons  
,    True.  ,     
       ,  
  'biMinimaze  biMaximize  .   
  DBCtrlGrid       HelpContext 
 200, ..    .    ,  
 ,    ,    
HelpContext     0,     
-   ,   200. 
 ,    .   
,   PROPERTY,      
       .   
      Property,    . 13.12. 

     13.   287 

      
      biMinimaze  biMaximize     
      Windows,   Delphi. 
-,  Windows ,       
  ,        . 

    . 13.12.  ,      
-  


       

       ,     
 .         
, -,   True  ShowHint ,  -, 
       . 
      RENTMAN  ,      Delphi. 
   , fmRSYSMANO,      
   ShowHint  True.   -  
      Hint    
 . ,  sbLogCall     
   : Click here to log a maintenance call. 
           ,  
. ,       ,  
   ,    . 
       ,    ,  ,   
 . ,     
 ,         
.     ,      
      OnShowHint  Application. 
      . 

    procedure(var HintStr: string; var CanShow: Boolean; var Hintlnfo: 
THintInfo) of object; 

       ,     
      

    procedure TfmRSYSMANO.RMShowHint(var HintStr: string; var CanShow: 
Boolean; var Hintlnfo: THintInfo); 
    begin 
       stRENTMAN.Panels.Items[0].Text:=HintStr; 
       CanShow ^Falser
    end; 

     ,       TfmRSYSMANO. 

    public 
    { Public declarations } 
    procedure RMShowHint(var HintStr: string; var CanShow: Boolean; var Hintlnfo: 
    THintInfo) ; 

              
  OnShowHint. 

    procedure TfmRSYSMANO.FormCreate(Sender: TObject); 
    begin 
    inherited; 
    Applicat ion.OnShowHint:=RMShowHintProc; 
    end; 

    288  II.   

             ,    
   . ,    
    ,      
 ,       ,  
     . ,    
  ,      . 

       

          RENTMAN 
   .  ,  , ,   , 
     fmRSYSMANO  ,   
     . 
            : 
   ,      
.     ,     
 .    ,    - 
  ,       ,    
      ,     . 
            .   
        - . 
, ,       , 
     File^Log a call.  
       . 

    procedure TfmRSYSMANO.LogaCalllClick(Sender: TObject); 
    begin 
      inherited; 
      dmRENTMAN.taCALL.Insert; 
      fmRCALEDTO.Show; 
    end; 

    ,         ,   
      ,  
    .    ,   , 
          
,          . 

    procedure TfmRSYSMANO.LogaCalllClick(Sender: TObject); 
    begin 
      inherited; 
         try 
           stRENTMAN.Panels.Items[0].Text:='Add a maintenance call'; 
           dmRENTMAN.taCALL.Insert; 
            fmRCALEDTO.Show; 
        finally 
          stRENTMAN.Panels.Items[0].Text:='' ; 
       end; 
    end; 

           .   
        API Windows.  
     OnShow     
 . 

    MaxUserName:=30; 
    SetLength(UserName,MaxUserName) ; 
    GetUserNarne(PChar(UserName), MaxUserName) ; 
    SetLength(UserName,Pred(MaxUserName)); 
    stRENTMAN.Panels.Items[1].Text:='User: '+UserName; 
    He        RSYSMANO. 
    UserName : String; 
    MaxUserName : Integer; 

             
  Windows GetUserName. ,  , 
      . 

     13.                                                 289 

    10 Delphi 3   / 

    , ,      ,   
.  Delphi     Windows VERSIONINFO, 
     ,     
     Delphi.    
. 13.13,      Versionlnfo 
  Project Options. 

    . 13.13.  Delphi      
VERSIONINFO Windows 

             
    .    Object Inspector  
 OnCreate      .    
  ,         
  .    ,   
 13.2,          
 . 

     13.2. ,      
   

    VersionSize:=GetFileVersionInfoSize(PChar(Application.ExeName),Dummy) ; 
    If (VersionSizeoO) then begin 
      SetLength(VersionBuffer,VersionSize) ; 
      SetLength(Version,VersionSize) ; 
       If (GetFileVersionInfo(PChar(Application.ExeName), Dummy, VersionSize, 
          PChar(VersionBuffer))) and (VerQueryValue(PChar(VersionBuffer), 
          '\StringFileInfo\040904E4\ProductVersion', Pointer(Version), VersionSize)) then 
          stRENTMAN.Panels.Items[2].Text:= 'Version: '-(-Version; 
    end; 
   
    He        FormCreate 
  . 

    var 
    VersionBuffer, Version : String; 
    VersionSize : Integer; 
    Dummy : Integer; 

        13.2     
       API Windows  
GetFileVersionInfoSize, GetFileVersionInfo  VerQueryValue.  
      . 

    290  II.   

      
           
GetFileVersionlnfoSize  GetFile Versioninfo     
PChar      ,    . 
  (.. ,       
   ),      
. ,        
     - . 

             VERSIONINFO 
,   RENTMAN   Explorer () 
Windows.    RENTMAN,      
 RENTMAN .         
Properties ().  ,    General ()   
    Version ().   ,   
    ,     Delphi. 
       VERSIONINFO    Delphi   
     Delphi   
Windows.     API Windows,     
,   Delphi. 

       About 

        ,       
,       About.   
        Windows.  
About         
:   ,  ,     
  ..   -     
   . ,    About Delphi 
1.0     (Anders Heilsberg),  
 Delphi. 

     
       , 4Tq     Delphi,  
 <Alt> ,   ,     : DEVELOPERS, 
  QUALITY.     ,     
  Delphi. 

      Delphi        About, 
   .    fmRABTBOXO,   
    About RENTMAN.      
  ,      13.3. 

     13.3.      FormCreate  
 About   

    procedure TfmRABTBOXO.FormCreate(Sender: TObject); 
    var 
    VersionBuffer, VersionNoText, ProductNameText, LegalCopyrightText, 
CompanyText : String; 
    VersionSize : Integer; 
    Dummy : Integer; 
    begin 
    inherited; 
    VersionSize:=GetFileVersionInfoSize(PChar(Application.ExeName),Dummy) 
    if  (VersionSizeOO) then begin 
       SetLength(VersionBuffer,VersionSize); 
       SetLength(VersionNoText,VersionSize); 
       SetLength(ProductNameText,VersionSize); 
       SetLength(LegalCopyrightText,VersionSize); 
       SetLength(CompanyText,VersionSize) ; 
       if (GetFileVersionInfo(PChar(Application.ExeName),Dummy, VersionSize, 
           PChar(VersionBuffer))) and 

     13.   291 

    (VerQueryValue(PChar(VersionBuffer), 
    '\StringFileInfo\040904E4\ProductVersion', 
    Pointer(VersionNoText), VersionSize)) and 
    (VerQueryValue(PChar(VersionBuffer), 
    '\StringFileInfo\040904E4\ProductName', 
    Pointer(ProductNameText), VersionSize)) and 
    (VerQueryValue(PChar(VersionBuffer), 
    '\StringFileInfo\040904E4\LegalCopyright', 
    Pointer(LegalCopyrightText), VersionSize)) and 
    (VerQueryValue(PChar(VersionBuffer), 
    '\StringFileInfo\040904E4\CompanyName', Pointer(CompanyText), 
     VersionSize)) then begin 
        Version.Caption:=VersionNoText; 
        ProductName.Caption:=ProductNameText; 
        Copyright.Caption:"LegalCopyrightText; 
        Comments.Caption:=CompanyText; 
    end; 
    end; 
    end; 

        ,       
RENTMAN,          
   VERSIONINFO.      
  About  RENTMAN. 
              
 RENTMAN,       About  
Help  fmRSYSMANO        : 

    fmRABTBOXO.ShowModal ; 


    . 13.14.   About       

     ,   File^Use Unit    
RABTBOXO   uses   .    
   About.  . 13.14    About RENTMAN, 
    . 

    292  II.   

        

    ,          . 
     ,    
Delphi,        . , 
 Delphi        ,  
           5 . 
  Delphi         fmDat 
abase Form.     BitBtn,      
   DBNavigator.     
bbPrintForm,      Print Form.  Glyph  
     Print, bmp,     
Images \Buttons   Delphi.       
  . 

    Print; 

      ,       
fmRWORMDEO.  ,           
 Print,    Print Form.      ,  
    .   ,      
,    Print Form,     
- DatabaseForm.    Print Form  fmRWORMDEO  
  Visible  False.    
,    . 
    ,   RENTMAN.   ,  .  
     . 

       

    ,         
,      .     
        
      -  
 .      ,    
,     . 
           , 
       .  
,         
   -  ,  
 . 
             
  -  .   fmRSYSMANO   
      Task List  Reports.  
       OnClik 
  . 

    If (MessageDIg('Print the Task List report?', 
    mtConfirmation, mbYesNoCancel,0)omrYes) then Exit; 

             
 MessageDIg,         
.     ,    
 .      (     
  ).    ,   
           Yes, No  
Cancel.       .   
   0, ,  ,       
   . 
     ,      ,  
     . 
              
.          
 TaskListlClick   finally    Cursor 
:=crDefault;  end;  . 

    MessageDIg("Task List Report Finished', mtlnformation, [mbOK],0) ; 

     13.   293 

              
 RENTMAN.        
     OnClick     
 . 
       ,       , 
.   RENTMAN   ,      . 

     

               
Delphi       /. 
,    ,     
    .       
  ,        
,    Delphi.   , Delphi  
   ,     
  ,     ,    ,  
 . 

     ... 

      ,   II, " ",    
,      RENTMAN.  
,       ,    
 ,        . 
  14, "",      ,   
       /. 

    294  II.   
