Seite 1 von 1

LayoutManager() und Brows

Verfasst: Di, 09. Jun 2015 12:01
von satmax
Hallo,

Code: Alles auswählen

oDlg:oBrow:LayoutAlign   := XBPLAYOUT_LEFT + XBPLAYOUT_TOP
zeigt bei mir keine Wirkung:

Code: Alles auswählen

oDlg:oBrow := tdSqlBrow(6.0, 1, 7, 93, .F.,/* lEdit*/.T.,.T.,.t., ;
                    oDa, oDlg:oCurs,aFields,,,,,;
                    ,,,,,;
                    oDlg:bSkip)
                    
oDlg:oBrow:LayoutAlign   := XBPLAYOUT_LEFT + XBPLAYOUT_TOP
Geht das bei Browser Objekten nicht oder muss man hier noch etwas anderes beachten?

Re: LayoutManager() und Brows

Verfasst: Di, 09. Jun 2015 12:11
von Tom
Vielleicht noch ein oBrowse:Configure() hinterherschieben? Das Browse ist ja schon erzeugt.

Re: LayoutManager() und Brows

Verfasst: Di, 09. Jun 2015 12:19
von satmax
Leider nicht, was etwas verändert ist

oDa:LayoutAlign := XBPLAYOUT_LEFT + XBPLAYOUT_TOP

aber das wirkt sich dann auf den gesamten Dialog aus, nicht nur auf das Brows.

Re: LayoutManager() und Brows

Verfasst: Di, 09. Jun 2015 13:03
von Jan
Bei mir klappt das mit Browses. Aber ich arbeite auch mit Xbase++ pur, ohne TopDown.

Jan

Re: LayoutManager() und Brows

Verfasst: Do, 11. Jun 2015 14:44
von satmax
Aktuell geht es mit TD nicht.

Workaround Border abschalten:

also:

Code: Alles auswählen

lBorder:=.f.
oDlg:oBrow := tdSqlBrow(6, 1, 7, 93, .F.,.T.,.T.,.t., oDa, oDlg:oCursTourPos,aFieldsLaden,,,,,;
      ,,,,,  oDlg:bSkipEvalLaden,,,,,,,lBorder)
Allerdings kommt dann der nächste BUG in tdSqlBrow()

Sonst geht das wirklich schon sehr gut mit dem LayoutManager!


Also in tdcSqlBrow.prg noch folgende Änderung (oGb auf oParent):

Code: Alles auswählen

ELSE  // no border
//   oBrow := tdcSqlBrow():new(nRow,nCol,nRowHt,nColWd,lJump,lEdit,lSort,;
//               lColMove,oGb,oCursor,aCols,cCompname,aPres,lTabStop,;
//               lVisible,cCursMode,lHscroll,lSizeCol,lSofTrak,lVscroll,;
//                   bSkipEval,cDefPict,bInsKey,nBGclr,bDefColClrBlk,;
//                   nAltRowClr,nSBclr,oConn,cSortBtn,lNavMode2)
   oBrow := tdcSqlBrow():new(nRow,nCol,nRowHt,nColWd,lJump,lEdit,lSort,;
               lColMove,oParent,oCursor,aCols,cCompname,aPres,lTabStop,;
               lVisible,cCursMode,lHscroll,lSizeCol,lSofTrak,lVscroll,;
                   bSkipEval,cDefPict,bInsKey,nBGclr,bDefColClrBlk,;
                   nAltRowClr,nSBclr,oConn,cSortBtn,lNavMode2)
Clayton macht das ins nächste Update rein.