Microsig@ ADVPL

Você conhece a Classe TDrawer? Usando-a você pode abrir e manipular imagens com extensões BMP (Bitmap), JPG (Joint Photographic Group) e PNG (Portable Network Graphics). Para isto, basta você adicionar a função (exemplo abaixo), em seu programa (usar include TOTVS.CH ou PROTHEUS.CH), fazer a chamada a ela num botão e compilar. Segue a função: User Function TDrawer Private isText := .F. Private colors := {CLR_HRED, -1} // Linha Vermelha / Fundo Transparente DEFINE DIALOG oDlg TITLE "Exemplo TDrawer" FROM 180,180 TO 550,700 PIXEL // Menu de Opções oMenu := TMenu():New() oMenu:Add(TMenuItem():New(oMenu:Owner(),'Abre',,,,{||isText:=.F.,openFile()})) oMenu:Add(TMenuItem():New(oMenu:Owner(),'Salva',,,,{||isText:=.F.,saveFile()})) oMenu:Add(TMenuItem():New(oMenu:Owner(),'Texto',,,,{||isText:=.T.})) oMenu:Add(TMenuItem():New(oMenu:Owner(),'Selecao',,,,{||isText:=.F.,oDrawer:SetType(0)})) oMenu:Add(TMenuItem():New(oMenu:Owne