QImageEx Composant

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.

QImageEx Evenements

Evenement	Type	Déclenchement	Parametres
OnClipboard	(Present as boolean)	Etat de présence image dans le presse papier	1

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(flag as integer)

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"
        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
            OnClipboard=Present
        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(flag as integer)
  item13.enabled=flag
End Sub