Porque não consigo aumentar a coluna? MSFLEXGRID

Porque não consigo aumentar a coluna? MSFLEXGRID

Postby ronaldo » Tue Jun 17, 2008 12:36 pm

Estou usando o MSFLEXGRID do VISUAL BASIC:

No codigo abaixo não esto consegundo alterar o tamanho da 2º coluna. esta como o Visual basic, onde posso ter errado:

#include "FiveWin.ch"

function Main()

local oWnd, oActiveX,nLin, I

DEFINE WINDOW oWnd TITLE "FiveWin ActiveX Support"

oActiveX := TActiveX():New( oWnd, "MSFlexGridLib.MSFlexGrid.1" )
oActiveX:nLeft:=10
oActiveX:nWidth := 510

oActiveX:SetProp( "ColWidth(0)",500 )
oActiveX:SetProp( "BackColor", CLR_HRED )

oActiveX:SetProp( "Cols", 2 )

oActiveX:SetProp( "ColWidth(0)", 200 ) //aqui não esta funcionando
oActiveX:SetProp( "ColWidth(1)", 400 )//aqui não esta funcionando

FOR I=0 TO 5
oActiveX:Do( "AddItem", "")
oActiveX:SetProp( "Row", I )
oActiveX:SetProp( "Col", 0 )
oActiveX:SetProp( "Text", "Código "+strzero(I))

oActiveX:SetProp( "Col", 1 )
oActiveX:SetProp( "Text", "Nome "+Str(I,2))
NEXT


ACTIVATE WINDOW oWnd

return nil


Ronaldo Minacapelli
(11) 6950 3069
User avatar
ronaldo
 
Posts: 139
Joined: Fri Nov 25, 2005 4:38 pm
Location: brasil

Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 55 guests

cron