Documentation component by D.Glodt (c)2004 |
Appendix A: QImageBox |
|
Field |
Type |
R/W |
Default |
|
Progress |
BOOLEAN |
R/W |
FALSE |
|
Show progress bar for image type from dll NVIEWLIB |
||||
FileName |
STRING |
R/W |
||
File name selected with full path |
||||
ImgWidth |
INTEGER |
R |
||
Image width |
||||
ImgHeight |
INTEGER |
R |
||
Image height |
||||
Language |
STRING |
R/W |
||
Langage for dll.
|
Method |
Type |
Description |
Params |
|
|
|
|
|
|
Event |
Type |
Occurs when... |
Params |
|
|
|
|
|
|
QImageBox Example
$TypeCheck On
$Include
"rapidq.inc"
$Include
"Object\QImageBox.inc"
declare Sub FileSelect
CREATE Form ASQFORM
Caption = "Image
Viewer"
Width=300
Height=300
Center
CREATE image ASQImageBox
Language="french"
color=clAppWorkSpace
Progress=true
Align=AlClient
width=200
END CREATE
CREATE
btSelect AS QBUTTON
Align=AlBottom
Caption="&Select image"
OnClick=FileSelect
END CREATE
END CREATE
Form.ShowModal
Sub FileSelect
dim
OpenDlg asQOpenDialog
OpenDlg.filter="Image(*.bmp;*.ico;*.ani;*.cur*.gif;*.jpg)|*.bmp;*.ico;*.ani;*.cur*.gif;*.jpg"
if
OpenDlg.execute()then
image.Filename=OpenDlg.Filename
End
Sub