#include "TOTVS.CH"
User Function ITECI5()
DEFINE DIALOG oDlg TITLE "tControl:Moveto." FROM 180,180 TO 450,450 PIXEL
// Usando o New
oPanelA:= tPanel():New(01,01,"Painel A",oDlg,,,,CLR_YELLOW,CLR_BLUE,35,35)
oPanelB:= tPanel():New(10,10,"Painel B",oDlg,,,,CLR_BLUE,CLR_YELLOW,35,35)
oPanelC:= tPanel():New(20,20,"Painel C",oDlg,,,,CLR_YELLOW,CLR_RED,35,35)
TButton():New( 060, 005, "Topo Painel A",oDlg,{|| oPanelA:MovetoTop() }, 40,10,,,.F.,.T.,.F.,,.F.,,,.F. )
TButton():New( 060, 045, "Topo Painel B",oDlg,{|| oPanelB:MovetoTop() }, 40,10,,,.F.,.T.,.F.,,.F.,,,.F. )
TButton():New( 060, 085, "Topo Painel C",oDlg,{|| oPanelC:MovetoTop() }, 40,10,,,.F.,.T.,.F.,,.F.,,,.F. )
TButton():New( 075, 005, "Fundo Painel A",oDlg,{|| oPanelA:MovetoBottom() }, 40,10,,,.F.,.T.,.F.,,.F.,,,.F. )
TButton():New( 075, 045, "Fundo Painel B",oDlg,{|| oPanelB:MovetoBottom() }, 40,10,,,.F.,.T.,.F.,,.F.,,,.F. )
TButton():New( 075, 085, "Fundo Painel C",oDlg,{|| oPanelC:MovetoBottom() }, 40,10,,,.F.,.T.,.F.,,.F.,,,.F. )
ACTIVATE DIALOG oDlg CENTERED
Return |