/* 
  * MINIGUI - Harbour Win32 GUI library Demo 
  * 
 */ 
 #define _HMG_OUTLOG 
 #include "hmg.ch" 
 #include "tsbrowse.ch" 
 #include "Dbinfo.ch" 
  
 #xtranslate MiniGuiVersionChar()  => Substr( MiniGuiVersion(), At(".", MiniGuiVersion()) - 2, 8 ) 
 #xtranslate MiniGuiVersionNumba() => Int( Val( MiniGuiVersionChar() ) * 10000 + Val( Right(MiniGuiVersionChar(), 2) ) ) 
  
 #xtranslate LenU( <c> ) => Len( <c> ) 
 /* 
 #xtranslate LenU( <c> ) => iif( hb_IsArray( <c> ) .or. hb_IsHash( <c> ), Len( <c> ), iif( hb_IsChar( <c> ), hb_ULen( <c> ), 0 ) ) 
 #xtranslate At( <c>, <n> )             => hb_UAt( <c>, <n> ) 
 #xtranslate Left( <c>, <n> )           => hb_ULeft( <c>, <n> ) 
 #xtranslate Right( <c>, <n> )          => hb_URight( <c>, <n> ) 
 #xtranslate SubStr( <cS>, <nS> )       => hb_USubStr( <cS>, <nS> ) 
 #xtranslate SubStr( <cS>, <nS>, <nL> ) => hb_USubStr( <cS>, <nS>, <nL> ) 
 #xtranslate Subs( <cS>, <nS> )         => hb_USubStr( <cS>, <nS> ) 
 #xtranslate Subs( <cS>, <nS>, <nL> )   => hb_USubStr( <cS>, <nS>, <nL> ) 
 */ 
 REQUEST DBFCDX, DBFFPT 
 REQUEST HB_CODEPAGE_UTF8 
  
 Function Main() 
    LOCAL cFont := "Arial" 
    LOCAL nSize := 12 
    LOCAL cForm := "wMain" 
    LOCAL cBrw1 := "Brw_1" 
    LOCAL cIni  := hb_FNameExtSet( hb_ProgName(), ".ini" ) 
    LOCAL oIni  := TIniData():New(cIni, .T.):Read() 
    LOCAL oCom  := oIni:COM 
    LOCAL oBrw1, nY, nX, nH, nW, oTsb1, cLog 
  
    SET CODEPAGE TO RUSSIAN 
    SET LANGUAGE TO RUSSIAN 
  
    RddSetDefault("DBFCDX") 
  
    SET OOP ON 
  
    SET EPOCH   TO 2000 
    SET DATE    TO GERMAN 
    SET CENTURY ON 
    SET AUTOPEN OFF 
    SET DELETED OFF 
  
    SET NAVIGATION EXTENDED 
    SET DEFAULT ICON TO "1MAIN_ICO" 
  
    Default oCom:FontName := cFont, ; 
            oCom:FontSize := nSize, ; 
            oCom:LogName  := ".\Msg.log" 
  
    cFont := oCom:FontName 
    nSize := oCom:FontSize 
    cLog  := oCom:LogName 
  
    SET LOGFILE TO ( cLog ) ; fErase( cLog ) 
  
    SET FONT TO cFont, nSize 
    // фонт по default для oTsb1, oBrw1 
    DEFINE FONT    Normal  FONTNAME cFont SIZE nSize 
    DEFINE FONT    Bold    FONTNAME cFont SIZE nSize BOLD 
    DEFINE FONT    Italic  FONTNAME cFont SIZE nSize BOLD ITALIC 
  
    USE ( "CUSTOMER" )  ALIAS CUST1  NEW SHARED 
  
    DEFINE WINDOW &cForm TITLE "Demo ini => TBrowse" MAIN NOSIZE TOPMOST ; 
           ON INIT    ( This.Topmost := .F. ) ; 
           ON RELEASE ( dbCloseAll() ) 
           This.Maximize 
  
       nY := nX := 0 
       nW := This.ClientWidth 
       nH := This.ClientHeight 
  
       oTsb1 := oIni:&(cBrw1)  // секция [Brw_1] 
       //? oTsb1:GetAll() ; ?v oTsb1:GetAll() ; ? 
       oTsb1:aText := oIni:&(cBrw1+"_Text"):GetAll() 
  
       oTsb1:bBody := {|ob,op| 
                       Local oCol, aTxt, nTxt := 0 
                       FOR EACH oCol IN ob:aColumns 
                           IF oCol:cName == "SELECTOR" ; LOOP 
                           ENDIF 
                           oCol:hFont := GetFontHandle( op:aFont[1] ) 
                           IF oCol:cFieldTyp == "C" 
                              oCol:cPicture := Nil 
                              oCol:nWidth := oCol:ToWidth( iif( oCol:nFieldLen > 50, 50, oCol:nFieldLen ), 0.82 ) 
                           ENDIF 
                           IF oCol:cName == "CUSTNO" 
                              oCol:lEdit := .F. 
                           ENDIF 
                       NEXT 
                       FOR EACH aTxt IN op:aText 
                           oCol := ob:GetColumn(aTxt[1]) 
                           IF "\" $ aTxt[2] 
                              nTxt++ 
                              oCol:cHeading := StrTran(aTxt[2], "\", CRLF) 
                           ELSE 
                              oCol:cHeading := aTxt[2] 
                           ENDIF 
                       NEXT 
                       IF nTxt > 0 
                          ob:nHeightHead := GetFontHeight( op:aFont[2] ) * 2 
                       ENDIF 
                       Return Nil 
                      } 
  
       oBrw1 := _TBrowse( oTsb1, "CUST1", cBrw1, nY, nX, nW, nH ) 
  
       oBrw1:SetFocus() ; DO EVENTS 
  
       ON KEY ESCAPE ACTION iif( oBrw1:IsEdit, oBrw1:SetFocus(), ThisWindow.Release ) 
       ON KEY F1 ACTION NIL 
  
    END WINDOW 
  
    //CENTER WINDOW wMain 
    ACTIVATE WINDOW wMain 
  
 RETURN NIL 
 

 
 [COM] 
 FontName = Arial 
 FontSize = 14 
 LogName  = .\_msg.log 
  
 [Brw_1] 
 aFont       = {"Normal", "Bold", "Bold", "Italic", "Bold"} 
 aNumber     = {1, 70} 
 uSelector   = .T. 
 aEdit       = .T. 
 lSpecHd     = .T. 
 aFoot       = .T. 
 aEditNo     = {"CUSTNO", "LASTINVOIC"} 
 nFireKey    = 0 
 ;               F2   F3   F4   F5   F6   F7   F8   F9 
 aMsgPost    = {113, 114, 115, 116, 117, 118, 119, 120} 
  
 [Brw_1_Text] 
 CustNo  = Иденти\фикатор 
 Company = Наименование \ клиента 
 Addr1   = Адрес клиента 
 Addr2   = Адрес \ ( продолжение ) 
 City    = Город 
 State   = Область 
 Country = Страна 
 

 
 /* 
  * MINIGUI - Harbour Win32 GUI library Demo 
  * 
 */ 
 #define _HMG_OUTLOG 
 #include "hmg.ch" 
 #include "tsbrowse.ch" 
 //#include "Dbinfo.ch" 
  
 #xtranslate MiniGuiVersionChar()  => Substr( MiniGuiVersion(), At(".", MiniGuiVersion()) - 2, 8 ) 
 #xtranslate MiniGuiVersionNumba() => Int( Val( MiniGuiVersionChar() ) * 10000 + Val( Right(MiniGuiVersionChar(), 2) ) ) 
  
 #xtranslate LenU( <c> ) => Len( <c> ) 
 /* 
 #xtranslate LenU( <c> ) => iif( hb_IsArray( <c> ) .or. hb_IsHash( <c> ), Len( <c> ), iif( hb_IsChar( <c> ), hb_ULen( <c> ), 0 ) ) 
 #xtranslate At( <c>, <n> )             => hb_UAt( <c>, <n> ) 
 #xtranslate Left( <c>, <n> )           => hb_ULeft( <c>, <n> ) 
 #xtranslate Right( <c>, <n> )          => hb_URight( <c>, <n> ) 
 #xtranslate SubStr( <cS>, <nS> )       => hb_USubStr( <cS>, <nS> ) 
 #xtranslate SubStr( <cS>, <nS>, <nL> ) => hb_USubStr( <cS>, <nS>, <nL> ) 
 #xtranslate Subs( <cS>, <nS> )         => hb_USubStr( <cS>, <nS> ) 
 #xtranslate Subs( <cS>, <nS>, <nL> )   => hb_USubStr( <cS>, <nS>, <nL> ) 
 */ 
 REQUEST DBFCDX, DBFFPT 
 REQUEST HB_CODEPAGE_UTF8 
  
 Function Main() 
    LOCAL cFont := "Arial" 
    LOCAL nSize := 12 
    LOCAL cForm := "wMain" 
    LOCAL cBrw1 := "Brw_1" 
    LOCAL cIni  := hb_FNameExtSet( hb_ProgName(), ".ini" ) 
    LOCAL oIni  := TIniData():New(cIni, .T.):Read() 
    LOCAL oCom  := oIni:COM 
    LOCAL oBrw1, nY, nX, nH, nW, oTsb1, cLog, nTmp 
  
    SET CODEPAGE TO RUSSIAN 
    SET LANGUAGE TO RUSSIAN 
  
    RddSetDefault("DBFCDX") 
  
    SET OOP ON 
  
    SET EPOCH   TO 2000 
    SET DATE    TO GERMAN 
    SET CENTURY ON 
    SET AUTOPEN OFF 
    SET DELETED OFF 
  
    SET NAVIGATION EXTENDED 
    SET DEFAULT ICON TO "1MAIN_ICO" 
  
    Default oCom:FontName := cFont, ; 
            oCom:FontSize := nSize, ; 
            oCom:LogName  := ".\Msg.log" 
  
    cFont := oCom:FontName 
    nSize := oCom:FontSize 
    cLog  := oCom:LogName 
  
    SET LOGFILE TO ( cLog ) ; fErase( cLog ) 
  
    SET FONT TO cFont, nSize 
    // фонт по default для oTsb1, oBrw1 
    DEFINE FONT Normal  FONTNAME cFont SIZE nSize 
    DEFINE FONT Bold    FONTNAME cFont SIZE nSize BOLD 
    DEFINE FONT Italic  FONTNAME cFont SIZE nSize - 2 ITALIC 
  
    USE ( "CUSTOMER" )  ALIAS CUST1  NEW SHARED 
  
    DEFINE WINDOW &cForm TITLE "Demo ini => TBrowse" MAIN NOSIZE TOPMOST ; 
           ON INIT    ( This.Topmost := .F. ) ; 
           ON RELEASE ( dbCloseAll() ) 
           This.Maximize 
 /* 
       nY := nX := 0 
       nW := This.ClientWidth 
       nH := This.ClientHeight 
 */ 
       oTsb1 := oIni:&(cBrw1)  // секция [Brw_1] 
       //? oTsb1:GetAll() ; ?v oTsb1:GetAll() ; ? 
       //oTsb1:aText := oIni:&(cBrw1+"_Text"):GetAll() 
       oTsb1:oText := oIni:&(cBrw1+"_Text") 
  
       oTsb1:bBody := {|ob,op| 
            Local oCol, aTxt, nTxt, lEditNo, nTmp, aTmp 
            lEditNo := HB_ISARRAY(op:aEditNo) .and. LenU(op:aEditNo) > 0 
            FOR EACH oCol IN ob:aColumns 
                oCol:hFont := GetFontHandle( op:aFont[1] ) 
                IF oCol:cFieldTyp == "C" 
                   oCol:cPicture := Nil 
                   oCol:nWidth := oCol:ToWidth( iif( oCol:nFieldLen > 50, 50, oCol:nFieldLen ), 0.82 ) 
                ELSEIF oCol:cFieldTyp == "M" 
                   oCol:cPicture := Nil 
                   oCol:nWidth := oCol:ToWidth(40) 
                ELSEIF oCol:cFieldTyp == "D" 
                   oCol:cPicture := Nil 
                   oCol:nWidth := oCol:ToWidth(10) 
                ELSEIF oCol:cFieldTyp == "T" 
                   oCol:cPicture := Nil 
                   oCol:nWidth := oCol:ToWidth(24) 
                ENDIF 
                IF lEditNo .and. AScan(op:aEditNo, oCol:cName) > 0 
                   oCol:lEdit := .F. 
                ENDIF 
            NEXT 
            nTmp := 1 
            nTxt := 0 
            FOR EACH aTxt IN op:oText:GetAll() // op:aText 
                IF ob:nColumn(aTxt[1], .T.) == 0 ; LOOP 
                ENDIF 
                oCol := ob:GetColumn(aTxt[1]) 
                IF "\" $ aTxt[2] 
                   nTxt++ 
                   aTmp := hb_ATokens(aTxt[2], "\") 
                   nTmp := Max( nTmp, LenU(aTmp)) 
                   oCol:cHeading := StrTran(aTxt[2], "\", CRLF) 
                ELSE 
                   oCol:cHeading := aTxt[2] 
                ENDIF 
            NEXT 
            IF nTxt > 0 
               ob:nHeightHead := GetFontHeight( op:aFont[2] ) * nTmp 
            ENDIF 
            IF HB_ISARRAY(op:aMsgPost) .and. LenU(op:aMsgPost) > 0 
               FOR EACH nTxt IN op:aMsgPost 
                   ob:UserKeys(nTxt, {|ob,nk| _wPost(nk, ob:cParentWnd, ob) }) 
               NEXT 
            ENDIF 
            Return Nil 
           } 
  
       oBrw1 := _TBrowse( oTsb1, "CUST1", cBrw1, nY, nX, nW, nH ) 
  
       oBrw1:SetFocus() ; DO EVENTS 
  
       ON KEY ESCAPE ACTION iif( oBrw1:IsEdit, oBrw1:SetFocus(), ThisWindow.Release ) 
       ON KEY F1 ACTION NIL 
  
       IF HB_ISARRAY(oTsb1:aMsgPost) .and. LenU(oTsb1:aMsgPost) > 0 
          FOR EACH nTmp IN oTsb1:aMsgPost 
              (This.Object):Event( nTmp, {|ow,ky,ob| MsgBox("Press: "+cValToChar(ky)+"-"+ob:cControlName, ow:Name), ob:SetFocus() } ) 
          NEXT 
       ENDIF 
  
    END WINDOW 
  
    //CENTER WINDOW wMain 
    ACTIVATE WINDOW wMain 
  
 RETURN NIL 
 

 
 [COM] 
 FontName = Arial 
 FontSize = 14 
 LogName  = .\_msg.log 
  
 [Brw_1] 
 aFont       = {"Normal", "Bold", "Bold", "Italic", "Bold"} 
 aNumber     = {1, 70} 
 uSelector   = .T. 
 aEdit       = .T. 
 lSpecHd     = .T. 
 aFoot       = .T. 
 aEditNo     = {"CUSTNO", "LASTINVOIC"} 
 nFireKey    = 0 
 ;               F2   F3   F4   F5   F6   F7   F8   F9 
 aMsgPost    = {113, 114, 115, 116, 117, 118, 119, 120} 
  
 [Brw_1_Keys] 
 113 = {|ob,nk| _wPost(nk, ob:cParentWnd, ob) } ; VK_F2 
 114 = {|ob,nk| _wPost(nk, ob:cParentWnd, ob) } ; VK_F3 
 115 = {|ob,nk| _wPost(nk, ob:cParentWnd, ob) } ; VK_F4 
 116 = {|ob,nk| _wPost(nk, ob:cParentWnd, ob) } ; VK_F5 
 117 = {|ob,nk| _wPost(nk, ob:cParentWnd, ob) } ; VK_F6 
 118 = {|ob,nk| _wPost(nk, ob:cParentWnd, ob) } ; VK_F7 
 119 = {|ob,nk| _wPost(nk, ob:cParentWnd, ob) } ; VK_F8 
 120 = {|ob,nk| _wPost(nk, ob:cParentWnd, ob) } ; VK_F9 
  
 [Brw_1_Text] 
 CustNo  = Иденти\фикатор 
 Company = Наименование \ клиента 
 Addr1   = Адрес клиента 
 Addr2   = Адрес \ ( продолжение ) 
 City    = Город 
 State   = Область 
 Country = Страна 
 

 
 /* 
  * MINIGUI - Harbour Win32 GUI library Demo 
  * 
 */ 
 #define _HMG_OUTLOG 
 #include "hmg.ch" 
 #include "tsbrowse.ch" 
 //#include "Dbinfo.ch" 
  
 #xtranslate MiniGuiVersionChar()  => Substr( MiniGuiVersion(), At(".", MiniGuiVersion()) - 2, 8 ) 
 #xtranslate MiniGuiVersionNumba() => Int( Val( MiniGuiVersionChar() ) * 10000 + Val( Right(MiniGuiVersionChar(), 2) ) ) 
  
 #xtranslate LenU( <c> ) => Len( <c> ) 
 /* 
 #xtranslate LenU( <c> ) => iif( hb_IsArray( <c> ) .or. hb_IsHash( <c> ), Len( <c> ), iif( hb_IsChar( <c> ), hb_ULen( <c> ), 0 ) ) 
 #xtranslate At( <c>, <n> )             => hb_UAt( <c>, <n> ) 
 #xtranslate Left( <c>, <n> )           => hb_ULeft( <c>, <n> ) 
 #xtranslate Right( <c>, <n> )          => hb_URight( <c>, <n> ) 
 #xtranslate SubStr( <cS>, <nS> )       => hb_USubStr( <cS>, <nS> ) 
 #xtranslate SubStr( <cS>, <nS>, <nL> ) => hb_USubStr( <cS>, <nS>, <nL> ) 
 #xtranslate Subs( <cS>, <nS> )         => hb_USubStr( <cS>, <nS> ) 
 #xtranslate Subs( <cS>, <nS>, <nL> )   => hb_USubStr( <cS>, <nS>, <nL> ) 
 */ 
 REQUEST DBFCDX, DBFFPT 
 REQUEST HB_CODEPAGE_UTF8 
  
 Function Main() 
    LOCAL cFont := "Arial" 
    LOCAL nSize := 12 
    LOCAL cForm := "wMain" 
    LOCAL cBrw1 := "Brw_1" 
    LOCAL cIni  := hb_FNameExtSet( hb_ProgName(), ".ini" ) 
    LOCAL oIni  := TIniData():New(cIni, .T.):Read() 
    LOCAL oCom  := oIni:COM 
    LOCAL oBrw1, nY, nX, nH, nW, oTsb1, cLog, nTmp, aTmp 
  
    SET CODEPAGE TO RUSSIAN 
    SET LANGUAGE TO RUSSIAN 
  
    RddSetDefault("DBFCDX") 
  
    SET OOP ON 
  
    SET EPOCH   TO 2000 
    SET DATE    TO GERMAN 
    SET CENTURY ON 
    SET AUTOPEN OFF 
    SET DELETED OFF 
  
    SET NAVIGATION EXTENDED 
    SET DEFAULT ICON TO "1MAIN_ICO" 
  
    Default oCom:FontName := cFont, ; 
            oCom:FontSize := nSize, ; 
            oCom:LogName  := ".\Msg.log" 
  
    cFont := oCom:FontName 
    nSize := oCom:FontSize 
    cLog  := oCom:LogName 
  
    SET LOGFILE TO ( cLog ) ; fErase( cLog ) 
  
    SET FONT TO cFont, nSize 
    // фонт по default для oTsb1, oBrw1 
    DEFINE FONT Normal  FONTNAME cFont SIZE nSize 
    DEFINE FONT Bold    FONTNAME cFont SIZE nSize BOLD 
    DEFINE FONT Italic  FONTNAME cFont SIZE nSize - 2 ITALIC 
  
    USE ( "CUSTOMER" )  ALIAS CUST1  NEW SHARED 
  
    DEFINE WINDOW &cForm TITLE "Demo ini => TBrowse" MAIN NOSIZE TOPMOST ; 
           ON INIT    ( This.Topmost := .F. ) ; 
           ON RELEASE ( dbCloseAll() ) 
           This.Maximize 
           This.Cargo := oHmgData() 
 /* 
       nY := nX := 0 
       nW := This.ClientWidth 
       nH := This.ClientHeight 
 */ 
       oTsb1 := oIni:&(cBrw1)  // секция [Brw_1] 
       //? oTsb1:GetAll() ; ?v oTsb1:GetAll() ; ? 
       //oTsb1:aText := oIni:&(cBrw1+"_Text"):GetAll() 
       oTsb1:oText := oIni:&(cBrw1+"_Text") 
  
       oTsb1:aUserKeys := {} 
       FOR EACH aTmp IN oIni:&(cBrw1+"_Keys"):GetAll() 
           nTmp := Val(aTmp[1]) 
           AADD( oTsb1:aUserKeys, {nTmp, aTmp[2]} ) 
       NEXT 
  
       oTsb1:bBody := {|ob,op| 
            Local oCol, aTxt, nTxt, lEditNo, nTmp, aTmp 
            lEditNo := HB_ISARRAY(op:aEditNo) .and. LenU(op:aEditNo) > 0 
            FOR EACH oCol IN ob:aColumns 
                oCol:hFont := GetFontHandle( op:aFont[1] ) 
                IF oCol:cFieldTyp == "C" 
                   oCol:cPicture := Nil 
                   oCol:nWidth := oCol:ToWidth( iif( oCol:nFieldLen > 50, 50, oCol:nFieldLen ), 0.82 ) 
                ELSEIF oCol:cFieldTyp == "M" 
                   oCol:cPicture := Nil 
                   oCol:nWidth := oCol:ToWidth(40) 
                ELSEIF oCol:cFieldTyp == "D" 
                   oCol:cPicture := Nil 
                   oCol:nWidth := oCol:ToWidth(10) 
                ELSEIF oCol:cFieldTyp == "T" 
                   oCol:cPicture := Nil 
                   oCol:nWidth := oCol:ToWidth(24) 
                ENDIF 
                IF lEditNo .and. AScan(op:aEditNo, oCol:cName) > 0 
                   oCol:lEdit := .F. 
                ENDIF 
            NEXT 
            nTmp := 1 
            nTxt := 0 
            FOR EACH aTxt IN op:oText:GetAll() // op:aText 
                IF ob:nColumn(aTxt[1], .T.) == 0 ; LOOP 
                ENDIF 
                oCol := ob:GetColumn(aTxt[1]) 
                IF "\" $ aTxt[2] 
                   nTxt++ 
                   aTmp := hb_ATokens(aTxt[2], "\") 
                   nTmp := Max( nTmp, LenU(aTmp)) 
                   oCol:cHeading := StrTran(aTxt[2], "\", CRLF) 
                ELSE 
                   oCol:cHeading := aTxt[2] 
                ENDIF 
            NEXT 
            IF nTxt > 0 
               ob:nHeightHead := GetFontHeight( op:aFont[2] ) * nTmp 
            ENDIF 
            /* 
            IF HB_ISARRAY(op:aMsgPost) .and. LenU(op:aMsgPost) > 0 
               FOR EACH nTxt IN op:aMsgPost 
                   ob:UserKeys(nTxt, {|ob,nk| _wPost(nk, ob:cParentWnd, ob) }) 
               NEXT 
            ENDIF 
            */ 
            Return Nil 
           } 
  
       oBrw1 := _TBrowse( oTsb1, "CUST1", cBrw1, nY, nX, nW, nH ) 
  
       oBrw1:SetFocus() ; DO EVENTS 
  
       This.Cargo:cBrw1 := cBrw1 
       This.Cargo:oBrw1 := oBrw1 
  
       ON KEY ESCAPE ACTION iif( oBrw1:IsEdit, oBrw1:SetFocus(), ThisWindow.Release ) 
       ON KEY F1 ACTION NIL 
       /* 
       IF HB_ISARRAY(oTsb1:aMsgPost) .and. LenU(oTsb1:aMsgPost) > 0 
          FOR EACH nTmp IN oTsb1:aMsgPost 
              (This.Object):Event( nTmp, {|ow,ky,ob| MsgBox("Press: "+cValToChar(ky)+"-"+ob:cControlName, ow:Name), ob:SetFocus() } ) 
          NEXT 
       ENDIF 
       */ 
       FOR EACH aTmp IN oTsb1:aUserKeys 
           (This.Object):Event( aTmp[1], {|ow,ky,ob| MsgBox("Press: "+cValToChar(ky)+"-"+ob:cControlName, ow:Name), ob:SetFocus() } ) 
       NEXT 
  
    END WINDOW 
  
    //CENTER WINDOW wMain 
    ACTIVATE WINDOW wMain 
  
 RETURN NIL