|
- End of drawing
- Drawing in PHP
- Drawing in Browser code
dResize (Function) In french: dRedimensionne
// Zoom on the IMG_Image1 control: the size of the image displayed in the control is doubled Result1 is boolean Result1 = dResize(IMG_Image1, IMG_Image1..Width * 2, IMG_Image1..Height * 2) IF Result1 = False THEN Error("The operation failed")
Syntax
<Result> = dResize(<Image> , <New width> , <New height> [, <Option>])
Remarks End of drawing The transformation of the image will not be displayed if dEndDrawing and dResize are called in the same process. Versions 16 and later New in version 16
This page is also available for…
|
|
|
| |
| Como usar a procedure SelecionaImagem |
|
| IMG_LogoCompany = SelecionaImagem("WIN_GPU_02_Menu","IMG_LogoCompany",True) |
|
|
|
| |
| |
| |
|
| Seleciona Imagem e Resize |
|
| PROCEDURE SelecionaImagem(Janela, ControleImagem,bResize is boolean)
bufImagebuffer is Buffer
sFile is string = fSelect("c:\", "Selecione uma Foto...", "Todos os arquivos (*.*)" + TAB + "*.*" + CR + "PNG" + TAB + "*.PNG" + CR + "JPEG" + TAB + "*.JPEG" + CR + "JPG" + TAB + "*.JPG", "*.*")
IF fFileExist(sFile) = True bufImagebuffer = fLoadBuffer(sFile) sControlTelaImg is string = Janela +"."+ ControleImagem //monta a string do indirection {sControlTelaImg,indControl} = bufImagebuffer IF bResize = True dResize({sControlTelaImg,indControl},{sControlTelaImg,indControl}..Width,{sControlTelaImg,indControl}..Height,drHomotheticCentered) END ELSE Info("Nenhum arquivo selecionado!") END
RESULT bufImagebuffer //CASE ERROR: // CASE EXCEPTION:
|
|
|
|
| |
| |
| |
| |
| |
| |
| | |
| |