Histórico da Página

#include "TOTVS.CH"

user function exemplo()
    DEFINE DIALOG oDlg TITLE "Exemplo TBitmap" FROM 180,180 TO 550,700 PIXEL

    // Usando o New
    oTBitmap1 := TBitmap():New(01,01,260,184,,"C:\garbageTemp\TOTVS.PNG",.T.,oDlg,;
        {||Alert("Clique em TBitmap1")},,.F.,.F.,,,.F.,,.T.,,.F.)
    oTBitmap1:lAutoSize := .T.

    // Usando o Create
    oTBitmap2 := TBitmap():Create(oDlg,01,146,260,184,,"C:\garbageTemp\TOTVS.PNG",.T.,;
        {||Alert("Clique em TBitmap1")},,.F.,.F.,,,.F.,,.T.,,.F.)
    oTBitmap2:lAutoSize := .T.

    ACTIVATE DIALOG oDlg CENTERED
Return