         
                ۲
            ۲    ۲                     
                                   ۲
                
                                    
      ۲  ۲  ۲  ۲ ۲  ۲ ۲  ۲   
        ۲  ۱  ۱  ۱    ۱  ۱ ۱      
            ۲  ۰  ۰  ۰  ۰  ۰ ۰    
            ۲                           
              ۰  ۰  ۰  ۰ ۰  ۰ ۰  ۰
              ۱  ۱  ۱  ۱ ۱  ۱ ۱  ۱  ߲
      ۲  ۲  ۲  ۲ ۲  ۲ ۲  ۲   Ŀ
   VER<1.0>              
     ۲  ۲ Ĵ
   :     ۲ ۱  ۱   :
   ۲ N>T>DUONG DeSiGn ۲     ۱ ۲  ۲ ۲
   :      ۲      :
       
                                                             Since 2001
                                                   
                                                     

     -/- THE NATIONAL ASSEMBLY GROUP -/-   Ŀ
 
               
                  
                 
                   
                    
                    
                    
              
 [Update in 09-22-2002]

 

                 
                            
                                   
                   

                              +++ present +++

 
 
                                                                           
   ۰ ۰ ۰  ۰  ۰   ۰   ۰ ۰   
   ۰۰۰ ۰۰۰  ۰ ۰  ۰۰۰ ۰  ۰   ۰۰   ۰ ۰ ۰۰۰   
     ۰     ۰    ۰        ۰   ۰  ۰   ۰ ۰  ۰       ۰     
     ۰     ۰    ۰ ۰     ۰   ۰  ۰   ۰ ۰  ۰ ۰    ۰     
     ۰     ۰    ۰     ۰   ۰  ۰   ۰ ۰  ۰    ۰     
     ۰     ۰    ۰ ۰     ۰   ۰  ۰   ۰ ۰  ۰ ۰    ۰     
     ۰     ۰    ۰        ۰   ۰  ۰   ۰ ۰  ۰       ۰     
     ۰     ۰    ۰        ۰   ۰  ۰   ۰ ۰  ۰       ۰     
     ۰     ۰    ۰        ۰   ۰  ۰   ۰۰   ۰       ۰     
    ۰   ۰  ۰      ۰   ۰   ۰   ۰     ۰    
                                                                           
 
 
 =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= VERSION 1.0 =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
 

 ͻ
  *THE UNIT FOR USE WINDOWS TRUE TYPE FONT IN YOUR TURBO PASCAL  PROGRAM*  
 ĺ
  + WITH MY UNIT YOU CAN :                                                 
  - Use Windows TRUE TYPE FONT (*.TTF) in your TP 7.0 program as resource  
  - This UNIT work with ALL GRAPHIC MODE and ALL RESOLUTIONS.              
  - NOT interdepend GRAPH.TPU or anothers graphic library.                 
  - User can access 255 font to general use.                               
  - Free ware, not for sale, not register.                                 
 ͼ

 

 ͻ
               *PROCEDURES PROVIDED BY MY UNIT AND USAGE*                  
 ͺ
  + For use my unit, you must register it at top of your PASCAL source     
 ĺ
  * Uses DFTTPU;                                                           
 ĺ
  * INSTALL YOUR FONT DRAW ROUTINE                                         
 ĺ
  + For draw TRUE TYPE FONT in your graphic mode, I need a PUTPIXEL        
    procedure in your graphic mode like :                                  
    PROCEDURE YOUR_PUTPIXEL(x,y:integer;color:word);                       
    You must call :                                                        
    MAX_PUTPIXEL_COLOR:=16;(16 bit color = 65535 = WORD DATA type)         
    PUTPIXEL_WORD:=YOUR_PUTPIXEL;                                          
  *NOTE*                                                                   
    YOUR PUTPIXEL routine SYNTAX must be compatible with my SYNTAX         
 ĺ
    If SYNTAX of YOUR PUTPIXEL routine is:                                 
    PROCEDURE YOUR_PUTPIXEL(x,y:integer;color:byte);                       
    You must call :                                                        
    MAX_PUTPIXEL_COLOR:=8;(8 bit color = 256 = BYTE DATA type)             
    PUTPIXEL_BYTE:=YOUR_PUTPIXEL;                                          
 ĺ
    If SYNTAX of YOUR PUTPIXEL routine is:                                 
    PROCEDURE YOUR_PUTPIXEL(x,y:integer;color:word);                       
    You must call :                                                        
    MAX_PUTPIXEL_COLOR:=16;(16 bit color = 65535 = WORD DATA type)         
    PUTPIXEL_BYTE:=YOUR_PUTPIXEL;                                          
 ĺ
    If SYNTAX of YOUR PUTPIXEL routine is:                                 
    PROCEDURE YOUR_PUTPIXEL(x,y:integer;color:longint);                    
    You must call :                                                        
    MAX_PUTPIXEL_COLOR:=24;(24 bit color = LONGINT DATA type)              
    PUTPIXEL_LONGINT:=YOUR_PUTPIXEL;                                       
                                                                           
    For more infomation, please view TESTTPU.PAS                           
 ĺ
  * Procedure START_DFTfont;                                               
 ĺ
  + Action :                                                               
    This procedure initalize my UNIT. You must call it before you can use  
    anothers routines                                                      
 ĺ
  * Procedure INSTALL_DFTfont(DFTname:string;font_index:byte);             
 ĺ
   Load a font (*.DFT) from disk. FONT_INDEX is the handle which is used   
   to select font later in the program. It must be < 256                   
 ĺ
  * Procedure INSTALL_DFTfont_from_ZIP(ZIPname,DFTname:string;index:byte); 
 ĺ
  + Action :                                                               
   Like INSTALL_DFTfont but you can install a font from a *.ZIP file       
 ĺ
  * Procedure SET_USE_DFTfont(font_index:byte);                            
 ĺ
  + Action :                                                               
   Set the active font for use (installed)                                 
 ĺ
  * Procedure writeDFT(x,y:word;color:longint;s:string);                   
 ĺ
  + Action :                                                               
   Write the string S at position X:Y with color.                          
 ĺ
  * Procedure writescaleDFT(x,y:word;xres:real;yres:byte;color:longint;    
              s:string);                                                   
 ĺ
  + Action :                                                               
   Like WRITEDFT but you can resize font by scale XRES, YRES factor        
 ĺ
  * Procedure SET_TEXT_SPACE(space:shortint);                              
 ĺ
  + Action :                                                               
   Set the SPACE between 2 character                                       
 ĺ
  * function  DFT_width(scalex:real;s:string):word;                        
 ĺ
  + Action :                                                               
   Get the text width (pixel size) of S with scalex value                  
 ĺ
  * Procedure DONE_DFTfont;                                                
 ĺ
  + Action :                                                               
   Close working environment, must call before the end of your program     
 ĺ
  * BONUS LIBRARY : UNZIPTPU.TPU                                           
 ĺ
  * Procedure : UNZIPFILE(zipname,unzip_path,unzip_filename:String);       
 ͼ

 

 ͻ
                          *COPYRIGHT INFORMATION*                          
 ͺ
  + Author :                                                               
                           - NGUYEN TUAN DUONG -                           
                 - MEMBER OF THE NATIONAL ASSEMBLY GROUP -                 
           - YEN BINH - DUONG XA - GIA LAM - HA NOI - VIET NAM -           
                       - Tel : (84) (04).8.276089 -                        
                    - E_mail : mrTUANDUONG@Yahoo.com -                     
           - Copyright (c) 09 - 2002 . All rights reserved. -              
                                                                           
 ͼ
 
