//OPEN JANELA GLOBAL Alterar_Imagem()
//################################################
//JANELA MENU PROCEDURE Alterar_Imagem()
PapelParede is string = INIRead("PAPEL_PAREDE","Imagem","",fCurrentDir()+"\PapelParede.ini")
Tipo is string = INIRead("PAPEL_PAREDE","Tipo","",fCurrentDir()+"\PapelParede.ini")
IF Tipo = 1 WinBackgroundImage(WIN_MENU , PapelParede , imgCentered ) ELSE IF Tipo = 2 WinBackgroundImage(WIN_MENU , PapelParede , imgTiled ) ELSE IF Tipo = 3 WinBackgroundImage(WIN_MENU , PapelParede , imgStretched ) ELSE WinBackgroundImage(WIN_MENU , PapelParede , imgCentered ) END
//################################################
ADICIONE O EVENTO CLICK DIREITO DO MOUSE NA JANELA QUE ABRA O MENU POPUP NOVO COM ESSE EVENTO:
//Abre Alterar Papel Parede ExecuteProcess(BTN_Papel_de_Parede,trtClick)
CRIE UM BOTAO NA POSICAO NEGATIVA COM ESSE CODIGO:
Open(WIN_PapelParede)
//################################################
CRIE UMA JANELA QUE LOCALIZE A IMAGEM E DEFINA A FORMA DE EXIBIÇÃO SE SERÁ CENTRALIZADA, LADO A LADO OU ESTICADA:
//LOCALIZE A IMAGEM
// Opens the file picker EDT_IMAGEM = fSelect("", "", "Selecionar imagem para o Papel de Parede...", "*.jpg" + TAB + "*.jpg" + CR + "*.png" + TAB + "*.png" + CR + "*.bmp" + TAB + "*.bmp" + CR + "All the files (*.*)" + TAB + "*.*", "*.jpg")
IMG_PapelParede = EDT_IMAGEM
//################################################
//ALTERE A IMAGEM ATUAL POR UMA NOVA
//Alterar o Papel de Parede ok is boolean ok = INIWrite("PAPEL_PAREDE","Imagem",EDT_IMAGEM,fCurrentDir()+"\PapelParede.ini") ok = INIWrite("PAPEL_PAREDE","Tipo",Tipo,fCurrentDir()+"\PapelParede.ini") IF Tipo = 1 WinBackgroundImage(WIN_MENU , EDT_IMAGEM , imgCentered ) ELSE IF Tipo = 2 WinBackgroundImage(WIN_MENU , EDT_IMAGEM , imgTiled ) ELSE IF Tipo = 3 WinBackgroundImage(WIN_MENU , EDT_IMAGEM , imgStretched ) ELSE WinBackgroundImage(WIN_MENU , EDT_IMAGEM , imgCentered ) END IF ok = True THEN ToastDisplay("Alterado papel de parede com sucesso!",toastShort,vaMiddle,haCenter) END
//################################################
// REMOVENDO A CONFIGURAÇÃO
//Arquivo de Configuração ok is boolean ok = INIWrite("PAPEL_PAREDE","Imagem","",fCurrentDir()+"\PapelParede.ini") ok = INIWrite("PAPEL_PAREDE","Tipo","",fCurrentDir()+"\PapelParede.ini") WIN_MENU..BackgroundImage = "" IF ok = True THEN ToastDisplay("Alterado papel de parede com sucesso!",toastShort,vaMiddle,haCenter) END
BONS ESTUDOS! |