Re: Problema pintado xbrowse FWH2210
Posted: Mon Dec 19, 2022 3:50 pm
enviadas por email
quedo a la espera de tus noticias...
quedo a la espera de tus noticias...
www.FiveTechSoft.com
https://forums.fivetechsupport.com/
Code: Select all | Expand
░
function TXBrows( bChild ) ░
░
if bXBrowse == nil ░
bXBrowse := { || TXBrowse() } ░
endif ░
░
if ValType( bChild ) == 'B' .and. ; // retained for backward compatibility ░
ValType( Eval( bChild ) ) == 'O' .and. ; ░
Eval( bChild ):IsKindOf( TXBrowse() ) ░
░
bXBrowse := bChild ░
endif ░
░
return Eval( bXBrowse ) █
Code: Select all | Expand
#include "fivewin.ch"
function Main()
local oDlg, oBrw
USE STATES VIA "DBFCDX"
SET FILTER TO RECNO() < 3
DEFINE DIALOG oDlg SIZE 300,400 PIXEL TRUEPIXEL ;
TITLE FWVERSION
@ 20,20 XBROWSE oBrw SIZE -20,-20 PIXEL OF oDlg ;
DATASOURCE "STATES" AUTOCOLS CELL LINES NOBORDER
WITH OBJECT oBrw
:lFullGrid := .t.
:aCols[ 2 ]:bClrStd := { || { 0, CLR_HGREEN } }
:CreateFromCode()
END
ACTIVATE DIALOG oDlg CENTERED
return nil
Code: Select all | Expand
:lFullGrid := .f.
:lRowDividerComplete := .T.
:lColDividerComplete := .T.