PC Toledo

Prezados Desenvolvedores !

Preciso exibir uma janela de opções, tais como parâmetros, e permitir que o Operador Habilite/Desabilite cada ítem, ou seja, um ítem por linha.
Vejo que, o Componente GRID me permite inserir uma Imagem.
O que seria útil, pois posso apresentar um X, quando o ítem estiver Habilitado. E um quadrado vazio, quando o ítem estiver desabilitado.

Pois bem, não estou conseguindo trocar a imagem quando da seleção pelo Operador.

Se alguem puder ajudar ..................................

Jair Rangel
Harbour - MiniGUI 107 - BrMake
:xau

Jair

Como ja falei antes, use a hwgui.

o que vc quer com a hwgui faco em poucas linhas

se quiser mando o .exe para vc

aqui esta o codigo da hwgui que faz isso (e nao uso grid)

function OpenAbout
Local oModDlg, oFontBtn, oFontDlg, oBrw
Local aSample := { {.t.,"Line 1",10}, {.t.,"Line 2",22}, {.f.,"Line 3",40} }
Local oBmp, oIcon := HIcon():AddFile("..\image\PIM.ICO")
Local oSay

PREPARE FONT oFontDlg NAME "MS Sans Serif" WIDTH 0 HEIGHT -13
PREPARE FONT oFontBtn NAME "MS Sans Serif" WIDTH 0 HEIGHT -13 ITALIC UNDERLINE

INIT DIALOG oModDlg TITLE "About" ;
AT 190,10 SIZE 360,240 ;
ICON oIcon ;
ON EXIT {||oBmp2 := HBitmap():AddWindow(oBrw),.T.} ;
FONT oFontDlg

oModDlg:bActivate := {||MsgInfo("!!")}


// @ 20,30 BITMAP "..\image\OPEN.BMP"
// @ 20,20 ICON "..\image\PIM.ICO"
@ 10,10 IMAGE "..\image\ASTRO.JPG" SIZE 50,50

@ 20,60 SAY "Sample Dialog" ;
SIZE 130, 22 STYLE SS_CENTER ;
COLOR Vcolor("0000FF")

@ 20,80 SAY "Written as a sample" ;
SIZE 130, 22 STYLE SS_CENTER
@ 20,100 SAY "of Harbour GUI" ;
SIZE 130, 22 STYLE SS_CENTER
@ 20,120 SAY "application" ;
SIZE 130, 22 STYLE SS_CENTER

@ 160,30 BROWSE oBrw ARRAY SIZE 180,110 ;
STYLE WS_BORDER + WS_VSCROLL + WS_HSCROLL

@ 80,180 OWNERBUTTON ON CLICK {|| MsgInfo(oModDlg:ClassName()),EndDialog()} ;
SIZE 180,35 FLAT ;
TEXT "Close" COLOR Vcolor("0000FF") FONT oFontBtn ;
BITMAP cImageDir+"door.bmp" COORDINATES 40,10,0,0
//

CreateArList( oBrw,aSample )
oBrw:bColorSel := 12507070 // 15149157449

oBmp := HBitmap():AddResource( OBM_LFARROWI )
oBrw:aColumns[1]:aBitmaps := { ;
{ {|l|l}, oBmp } ;
}
oBrw:aColumns[2]:length := 6
oBrw:aColumns[3]:length := 4
oBrw:bKeyDown := {|o,key|BrwKey(o,key)}

ACTIVATE DIALOG oModDlg
oIcon:Release()

Return Nil

Static Function BrwKey( oBrw, key )
IF key == 32
oBrw:msrec[ oBrw:tekzp,1 ] := !oBrw:msrec[ oBrw:tekzp,1 ]
oBrw:RefreshLine()
ENDIF
Return .T.

Se notar uso apenas a tecla de espaco para isso

[]s
Luiz

A postagem do colega foi sobre Minigui.

Use a Minigui ela é mais fácil e tem muito mais suporte.
Mas se preferir use o Foxpro que também é muito bom.
Ainda pode usar o VB ou quem sabe o Delphi.
Eu pessoalmente recomendo não fazer nada, deixa em Clipper puro mesmo e o cliente que quer 32 bits que se dane.

Pronto já dei minha "enorme" contribuição na questão do colega.

Tenho certeza que foi totalmente esclarecedora minha postagem assim como "outras".

Se é pra zoar vamos zoar....

:* :xau

Marcelo