        
                  

                               0.14 b

      WinAPI.pbl;

    :
   
    w_setup_toolbars           
    w_wait_until_complete     
    w_power_tip             
   
    uo_progress_bar         
    uo_dw_select_list       (DataWindow)    
    uo_multi_months            
                           
   
    uo_save_toolbar          ()  
                            
    uo_control_resolution       
    uo_center_window            
    uo_number_to_word            ().
  
    gf_number_to_word            ().


   


    w_setup_toolbars          

      .
  : OpenWithParm (w_setup_toolbars, w_main_mdi)
   w_main_mdi -   MDI  .
 
    w_wait_until_complete     

     uo_pbar,    st_message.

    w_power_tip             

      .     
:
open(w_power_tip)
w_power_tip.Init(Wnd)
 Wnd -       .  
   Tag . 
  : close(w_power_tip)
    :
  il_show_time        -     (  5).
  string is_not_reg[] -         
                        .



   


    uo_progress_bar         

   .      design-time
.    :
  GetPos() long
    ProgressBar'.
  IncPos() long
    ProgressBar'  1 ( ).
  SetPos(long pos) long
    ProgressBar'   pos ( ).
  SetRange(long range) long
     ProgressBar'.

    uo_dw_select_list       (DataWindow)    

        .
    :
  long il_selected_count=0  
    
  long il_active = 0
    1  DataWindow  .
  uo_dw_select_list udwsl[]
    DataWindow      
  .  
  datastore ids_ds
  DataStore     .
  long CopyMode  = 1 
      CopyData()
  CopyMode = 1 ,      
  codef  namef  (  ).
  CopyMode = 2        field[].
  string field[2] 
      . 
  il_SelectMode = 0 
  0 =  
  1 =        
    ( 2   checked).   
   .
  2 =           
          .
  3 =        .
  
     :
  CopyData()
     ids_ds     DataWindow.
  GetSelectedList(ref long mas[])
     mas[]   .
  Resize()
   DataWindow.
  SetSelectMode(long mode)
       ( il_SelectMode)
  SetProtection(long mode)
     
  mode = 0  
  mode = 1  

  :
  ue_checked_change(row_from,row_to)
          row_from 
  row_to.
  ue_retrieve()
       DataWindow. .

     uo_dw_select_list    open 
  dw_1.udwsl[1] = dw_2
  dw_1.Trigger Event ue_retrieve()
     ue_retrieve dw_2  - :
  long mas[]
  dw_2.ids_ds.DataObject = "ds_my_datastore"
  dw_2.ids_ds.SetTransObject(SQLCA)
  dw_1.GetSelectedList(mas[]) 
  dw_2.ids_ds.Retrieve()
  dw_2.CopyData()

  ue_setparentwindow(window wnd)

   .    .   
   .

        DataWindow.  
     ,       
     .    Response  
    MDI  ,   Response wnd  
    null.
  :

  dw_1.trigger event ue_setparentwindow(w_main_mdi)

  ue_update_progressbar()
   ProgressBar' .

     .  
   DataWindow      ( 
    ,     ProgressBar' ),
     ( F7). /    
  (  ProgressBar').      /
           .   checked
     2,       .

    uo_multi_months            
                           

       .
  :
  long il_year -   
  long il_SelMonths[]  -  ,   1900 .
  long il_OnlyOneYear = 0 -      .
  :
  boolean CheckNotInterrupt()
       (..  , ,
,  , -  ).
  datetime GetFirstDate() -      
   .
  datetime GetLastDate() -      
    .
  GetSelectedMonths(ref long mon[]) -      
 (mon[1] = 1 -  , mon[12] = 0 -   ).
  Init() -  .    
il_year, il_OnlyOneYear.
  SetAllMonths(tf boolean) -     
.
  SetAllMonths(ref long mas[]) -     
   mas[]  12 .
             
il_SelMonths[].


   


    uo_save_toolbar          ()  
                            
      
  SavePosition(Window:wnd,string name)
      ToolBar'  wnd    
  "HKEY_CURRENT_USER\SOFTWARE\"+name
  LoadPosition(Window:wnd,string name)
        ToolBar'  wnd ( 
  "HKEY_CURRENT_USER\SOFTWARE\"+name)

    uo_control_resolution       
   
  AddWindow(Window Wnd)
            
 .
  DeleteWindow(Window Wnd)
            
 .
          
 Resize(100,xs,ys),  xs  ys -   .

    uo_center_window            
   
  CenterWindow(Window wnd,long before,long after)
    Wnd  before  after     
   .     .
  FullScreen(Window Wnd)
    wnd   .

    uo_number_to_word            ().
    
  string Exec(double value)
      value   2 
 .      il_NoUpper  (=0) 
  (<>0)      .


  


    gf_number_to_word        ().

  string gf_number_to_word(double value)
      value   2 
 .      .


    ,      :

Fido:   2:5025/3.147@fidonet
e-mail: lokshin_mark@mail.ru

                                           12.11.2005
                 
                                            .
