Guidance
指路人
g.yi.org

software / rapidq / Examples / QObject / Object / Doc French / QImageEx.html

Home

Software

Upload

回顶部

⇑

2003-12-31 11:31

Appendix A: QImageEx

Documentation composant par D.Glodt (c)2000-2004	Appendix A: QImageEx

QImageEx Composant

QImageEx est un controle identique a QImage avec ajout de fonctionnalités avec le presse papier.

La copie d'image vers le presse papier ne fonctionne que si l'image a été chargé avec la méthode LoadFromFile.

Le chargement d'autres formats graphique est possible si la dll Nviewlib est présente dans le systeme window ou bien

dans le repertoire de l'application.

QImageEx Proprietés

Champs	Type	L/E	Defaut

QImageEx Methodes

Methode	Type	Description	Parametres

CopyToClipboard	SUB(rect as QRECT)	Copie l'image dans le presse papier	1
PasteFromClipboard	SUB	Colle l'image du presse papier	0
LoadFromFile	SUB(FileName$,Width%,Height%,Real%)	Charge et affiche un fichier bitmap	4
	Si le parametre Real est a true,l'image sera chargé avec ses propres dimensions , sinon les dimensions seront spécifié avec les parametres width et height.
CanPaste	FUNCTION	Retourne TRUE si image présente dans le presse papier	0
LoadOtherImage	SUB(FileName$,Progress&,Language$)	Charge les images aux formats de la dll Nviewlib(jpg,gif,...).	3
	Le parametre progress permet d'afficher une barre de progression pendant le chargement du fichier. Le parametres Language correspond au langage supporté par la dll.

QImageEx Evenements

Evenement	Type	Déclenchement	Parametres

QImageEx Exemples

  $typecheck on
  $INCLUDE "Rapidq.inc" 
  $INCLUDE "Object\QImageEx.inc" 
  
  declare sub OuvrirClick 
  declare sub QuitterClick 
  declare sub Copier 
  declare sub Coller 
  declare sub Present 
  
  const title="Viewer picture" 
  dim source as QRECT 
  
  CREATE Form AS QFORM 
    Caption =title 
    Width = 600 
    Height = 600 
    Center 
    CREATE Menu AS QMAINMENU 
      CREATE item1 AS QMENUITEM 
        Caption="&Fichier" 
        CREATE item2 AS QMENUITEM 
          Caption="&Ouvrir" 
          OnClick=OuvrirClick 
        END CREATE 
        CREATE item5 AS QMENUITEM 
          Caption="-" 
        END CREATE 
        CREATE item6 AS QMENUITEM 
          Caption="&Quitter" 
          OnClick=QuitterClick 
        END CREATE 
      END CREATE 
      CREATE item11 as QMENUITEM 
        Caption="&Edition" 
        OnClick=Present
        CREATE item12 as QMENUITEM 
          Caption="&Copier" 
          OnClick=Copier 
        END CREATE
        CREATE item13 as QMENUITEM 
          Caption="&Coller" 
          OnClick=Coller 
          Enabled=false 
        END CREATE 
      END CREATE
    END CREATE 
    CREATE ScrollBox1 AS QSCROLLBOX 
      AutoScroll = 1 
      Align=5 
      Color = &HFFFFFF 
      CREATE image AS QImageEx 
        Autosize=1 
      END CREATE 
    END CREATE
  END CREATE 
  
  Form.ShowModal 
  
  sub OuvrirClick 
    dim file as QOPENDIALOG 
    
    file.Filter="Fichiers bitmap(*.bmp)|*.bmp" 
    file.InitialDir=CurDir$ 
    if file.Execute then 
      image.loadFromFile(file.fileName,0,0,true) 
      Form.Caption=title+"-"+file.FileName 
    end if 
  end sub 
  
  sub QuitterClick 
    Form.Close 
  end sub 
  
  sub Copier 
    source.left=0 
    source.top=0 
    source.right=image.width 
    source.bottom=image.height 
    image.copyToClipboard(source) 
  end sub 
  
  sub coller 
    image.pasteFromClipboard 
  end sub 
  
  Sub Present
    if image.canpaste then
      item13.enabled=true
    else
      item13.enabled=false
    end if
  End Sub

2003-12-31 11:31

掌柜推荐

¥1,420.00 ·

¥950.00 ·

¥288.00 ·

¥738.00 ·

¥397.00 ·

¥750.00 ·

g.yi.org Hits:0 Last modified:2003-12-31 11:31:26