PC Toledo

Código: Selecionar todos

FUNCTION TESTE
   LOCAL oIconPrint  :=HIcon():AddFile("P:\GERAL\HARBOUR\RELATORIO.ICO")

   PREPARE FONT oFont NAME "Arial" WIDTH 0 HEIGHT 0 WEIGHT -10

   INIT DIALOG  oDlg TITLE "Teste" ;
        ICON    oIconPrint  ;
        AT      0,0 SIZE nWIDTH-50,nHEIGHT-50;
        CLIPPER; 
        FONT    oFont;
        STYLE DS_CENTER +WS_SYSMENU+WS_VISIBLE 

  @ 006,280 BUTTONEX btnSair ;
             CAPTION  "&Sair" ;
             ON CLICK { || EndDialog()};
             SIZE     115, 40 ;
             ICON     oIconSair:handle  ;
             TOOLTIP 'Clique aqui para sair.' 

   ADD STATUS TO oDlg PARTS 50,50,400,12,90,95,90

   WriteStatus( oDlg,1,'Teste')  // Não estou conseguindo colocar essa informação na barra de status

   oDlg:Activate()

RETURN Nil

Código: Selecionar todos

ADD STATUS oStatus TO oDlg PARTS 50,50,400,12,90,95,90 ON INIT {|This| this:settextpanel(1,"Teste") }

Código: Selecionar todos

WriteStatus( oDlg,1,'Teste',.T.)