El metodo View tiene el meollo de la cuestion...asi de paso me empapo un poco de como funciona el sistema de ventana de windows y el de eventos de movimientos

#include "Proyecto1.ch"



class TArray

public:
data aDatos
data nElementos

Method Create Constructor
Method destroy
Method View

Endclass


Method Create ( aArray) Class TArray
::aDatos := aArray
::nElementos := Len(aArray)
Return

Method Destroy Class TArray
Return

Method View Class TArray
/* aqui se muestra el array
Salvo el fondo de la ventana
Dibujo ventana de coordenadas
Dibujo contenidos del array
Mientras no sea Esc o Enter
Capturo la tecla o el Evento
Si es un cursor me desplazo arriba, abajo
Mientras-Fin
Recupero fonde ventana
*/
Return

_________________
(C) Josu Udaondo...el fiera de clipper 5
Bilbao 2006

no me empapo de como van las setpos y las teclas de salida...
help please.



Method View() Class TArray
// aqui se muestra el array
Local oForm, oListBox, nWidth, nHeight
oForm := TForm():Create()
oForm:OnClose := { | nAction | nAction := caFree }
oListBox := TListBox():Create( oForm )
oListBox:SetPos( 54, 17 )
oForm:BorderStyle := bsDialog
nHeight := 110
oListBox:Items := ::aDatos
nWidth := 72 + oListBox:Width
nWidth += 4
nHeight -= 26
oForm:SetSize( nWidth, nHeight )
oForm:Position := poActiveCenter
oForm:ShowModal()
Return oForm:ModalResult

_________________
(C) Josu Udaondo...el fiera de clipper 5
Bilbao 2006