#
# TypeLibrary v1.0 for FW Standard Button
# Make by Vailton Renato, 25/04-2005.
#
TYPELIB: Get
PALLETE: Standard
ICON: Button.ico
REQUEST:
   Library:
   Include:
   ResFiles:
INTERFACE: Button
   InternalName C "Button"

#
# Nas linhas abaixo algumas propriedades possuem comentrios apos a declarao
# das propriedades... isto significa que sero exibias na parte inferior do
# OBJ. Inspector como uma simples 'ajuda' para o componente.
#
# A Seguinte sequencia deve ser respeitada ESTRITAMENTE ao se escrever/ou editar
# uma TypeLibrary:
#
# <Prop> <TIPO> [<OPCOES_OU_ARGUMENTOS_DO_EVENTO>] [OLD_ALIAS <cAlias>] [<*DEFAULT*>] [<*HIDDEN*>] [#COMENTARIOS]
#
# A sequencia acima JAMAIS DEVE SER INVERTIDA OU TROCADA, sob a penalidade da
# propriedade ser incorretamente interpretada pela IDE e possivelmente corrompendo
# o teu .RC final.
#
# Se voce mudar o nome da <propriedade> acima para outro diferente, nas proximas
# vezes em que voc abrir a IDE, os valores j salvos em um .RC sero perdidos,
# sendo assim,voc pode especificar a CLAUSULA [OLD_ALIAS <nome>] para dizer qual
# era o nome antigo desta propriedade ou evento, conforme ela foi gravada.
#
# Isto  de grande ajuda pois facilita a voc TRADUZIR em parte os nomes dos
# eventos ou das propriedades de determinado componente. Veja um exemplo:
#
# Propriedade contendo o titulo da Dialog, originalmente seria declarado assim:
# Caption C # Title of this Window
#
# Se voce traduzir para o portugues, poderia ser declarado assim na TypeLibrary:
# Titulo$da$Janela C OLD_ALIAS Caption # Titulo da Janela
#
# Sendo assim, a IDE saberia que ao gravar/ler um .RC, embora exiba o texto
# "Titulo da Janela" no OBJ.INSP. ela deveria gravar usando a clusula original
# chamada "Caption" evitando assim perca de informaes ao se trocar o nome da
# propriedade por algum motivo.
#

RESOURCE:
GROUP: General Info
   ResType      C "Edit"          *HIDDEN* # Classe do Objeto por padro
   ResStyle     N                 *HIDDEN* # Tipo do controle PADRAO
   nID          N                 *HIDDEN* # Contem o numero ID dentro do arquivo .RES
  !Name         C
  !Text         C  OLD_ALIAS Caption
   TabIndex     N
  !Left         N
  !Top          N
  !Width        N
  !Height       N

GROUP: FiveWin Options
   Cargo        U    #Standard Clipper general purpose user defined DATA
   cMsg         C    #The associated message of this control.
   nHelpId      N    #Help topic identifier for GETs from resources.
   cPicture     C    #Typical xBase PICTURE clause.
   oFont        1 	#A reference to the Font to be used with the GET.
   oCursor      2    #A reference to the Cursor to dispay over this control.
   lUpdate      L

GROUP: Type Specific Styles
  !Aligment     STYLE ES_LEFT,ES_CENTER,ES_RIGHT
  !Number       STYLE ES_NUMBER
 !Password$Char C                         # Set the PASSWORD Style for this control
   Upper$case   STYLE ES_UPPERCASE
   Lower$case   STYLE ES_LOWERCASE
   OEM$Convert  STYLE ES_OEMCONVERT

   Auto$HScroll STYLE ES_AUTOHSCROLL
   Auto$VScroll STYLE ES_AUTOVSCROLL
   NO$Hide$Selection STYLE ES_NOHIDESEL

   MultiLine    STYLE ES_MULTILINE+ES_WANTRETURN	 *HIDDEN* #/// colocar 1 obj memo...

GROUP: Window Styles
  !Disabled     STYLE WS_DISABLED
   Group        STYLE WS_GROUP
  !Read-only    STYLE ES_READONLY
  !Visible      STYLE WS_VISIBLE                      *DEFAULT*
   TabStop      STYLE WS_TABSTOP                      *DEFAULT*

GROUP: Extended Window Styles
   Client$Edge  STYLE WS_EX_CLIENTEDGE
   Static$Edge  STYLE WS_EX_STATICEDGE
   Transparent  STYLE WS_EX_TRANSPARENT
   Accept$Files STYLE WS_EX_ACCEPTFILES
   Right        STYLE WS_EX_RIGHT

OBJECT INSPECTOR PROPERTIES:
# Eventos:
OBJECT INSPECTOR EVENTS:
   Change       B ( nKey, nFlags, Self )              #An action to be performed when the Get changes.
GROUP: Focus Control
   Valid        B ( )     OLD_ALIAS bValid            #Code Block for VALID clause
GROUP: Mouse & Key Events
   KeyDown      B ( nKey, nFlags )                    #Code Block to execute when pressing a key

OUTPUT:
REDEFINE GET <OBJ$Name> VAR <Value$Name> ;
  OF oDlg ;
[ ID <nId> ] ;
[ HELPID <nHelpId> ] ;
[ VALID   <{Valid}> ]  ;
[ PICTURE <cPicture> ] ;
[ FONT <oFont> ] ;
[ CURSOR <oCursor> ] ;
[ MESSAGE <cMsg> ] ;
[ ON CHANGE <Change> ]

WITH <OBJ$Name>
   [:lUpdate   := <.lUpdate.>]
END
End TypeLib
