        
                WinAPI   

                               0.11 b

    :

uo_getstringlength               
                            ( ).
uo_systemchoosecolordialog    Choose Color Dialog Windows.
uo_systemchoosefontdialog     Choose Font Dialog Windows.
uo_executeprocess               .
uo_setapplicationfocus          
                             ,    .



uo_getstringlength         
           .
       
Exec(ref string txt) return str_fontsize,
 txt - ,      ,  
str_fontsize - ,    CX  CY,   
   , .
          . 
 :
long il_Weight = 400      // 
long il_Italic=0          //  (0 = , 1 = )
long il_Underline = 0     //   (0 = , 1 = )
long il_StrikeOut = 0     //  (0 = , 1 = )
long il_charset = 204     //
long il_Height = 10       //
string is_fontname='Arial'// 
                           
uo_systemchoosecolordialog
      .
   :  long il_Color -  , 
                     long il_cust[16] - 16  .
     Exec().      true,
    - false.  il_Color -  ,  il_cust[16] - 
 .
 
uo_systemchoosefontdialog 
      .
   :long il_Weight = 400 -  .
                   long il_Italic=0 -  (1=, 0=).
                   long il_Underline = 0 -  (1=, 0=).
                   long il_StrikeOut = 0 -  (1=, 0=).
                   long il_charset = 204 - .
                   long il_Height = 10 -  .
                   long il_Color = 0 -  .
                   string is_fontname='Arial' -  .
     Exec().      true,
    - false.  instance   
.

uo_executeprocess
      .

  :

  PrepareStructure (ref str_shellexecuteinfo SEI)
    SEI   .

  function boolean Terminate (unsignedlong handle, unsignedlong exitcode)
       handle    ExitCode.
   true    , false -   .

  function boolean ExitCode (unsignedlong handle, ref unsignedlong code)
       code    handle.
   true    , false -   .

  function long IsActive (unsignedlong handle)
   ,        handle
   1 -  , 0 -  , -1 -   .

  function boolean RunProcess (ref str_shellexecuteinfo SEI)
      ShellExecuteEx   SEI
   true    , false -   .


uo_setapplicationfocus
        .
   Exec(wnd) -  wnd - ,     .
