Page History

[ Image Removed |../../index.htm#lansa/l4wdev06_1540.htm]
現在地:

...

開くダイアログを呼び出すサンプル・アプリケーションを実行するには、このコードをコピーしてフォームに貼り付けてください。フォームは、フルRDMLX使用可能でなくてはなりません。

* 
* 
* COMPONENT:STD_FORM
* 
* 
Function Options(*DIRECT)
Begin_Com Role(*EXTENDS #PRIM_FORM) CLIENTHEIGHT(686) CLIENTWIDTH(475) HEIGHT(713) LEFT(465) TOP(108) WIDTH(483)
Define_Com Class(#PRIM_LABL) Name(#InitialValuesLbl) CAPTION('Open dialog Inital values') DISPLAYPOSITION(6) HEIGHT(20) LEFT(8) PARENT(#COM_OWNER) TABPOSITION(6) TABSTOP(False) TOP(8) WIDTH(137)
Define_Com Class(#PRIM_LABL) Name(#InitialOpenFileLbl) CAPTION('Initial Directory') DISPLAYPOSITION(5) HEIGHT(20) LEFT(24) PARENT(#COM_OWNER) TABPOSITION(5) TABSTOP(False) TOP(32) WIDTH(81)
Define_

...

Com Class(#PRIM_EDIT)

...

Name(#InitialDirectory)

...

DISPLAYPOSITION(3)

...

LEFT(112)

...

PARENT(#COM_OWNER)

...

SHOWSELECTION(False)

...

SHOWSELECTIONHILIGHT(False)

...

TABPOSITION(3)

...

TOP(32)

...

WIDTH(289)

...

Define_

...

Com Class(#PRIM_PHBN)

...

Name(#PHBN_1)

...

CAPTION('

...

Start Open File Dialog')

...

DISPLAYPOSITION(1)

...

LEFT(8)

...

PARENT(#COM_OWNER)

...

TABPOSITION(1)

...

TOP(224)

...

WIDTH(161)

...

Define_

...

Com Class(#PRIM_APPL.ICommonDialogFileOpen)

...

Name(#openFileDlg)

...

Reference(*DYNAMIC)

...

Define_Com Class(#PRIM_LABL) Name(#ResultLbl) CAPTION('Open File dialog results') DISPLAYPOSITION(7) HEIGHT(25) LEFT(8) PARENT(#COM_OWNER) TABPOSITION(7) TABSTOP(False) TOP(264) WIDTH(121)
Define_

...

Com Class(#PRIM_LABL)

...

Name(#FileCountLb)

...

CAPTION('

...

Selected File Count')

...

DISPLAYPOSITION(4)

...

HEIGHT(20)

...

LEFT(32)

...

PARENT(#COM_OWNER)

...

TABPOSITION(4)

...

TABSTOP(False)

...

TOP(400)

...

WIDTH(105)

...

Define_Com Class(#PRIM_PHBN) Name(#GotoOpenFileForm) CAPTION('Goto Open File Dialog form') DISPLAYPOSITION(8) LEFT(280) PARENT(#COM_OWNER) TABPOSITION(8) TOP(656) WIDTH(185)
Define_Com Class(#PRIM_EDIT) Name(#FileCount) DISPLAYPOSITION(9) LEFT(152) PARENT(#COM_OWNER) SHOWSELECTION(False) SHOWSELECTIONHILIGHT(False) TABPOSITION(9) TOP(392) WIDTH(49)
Define_Com Class(#PRIM_GPBX) Name(#GPBX_1) DISPLAYPOSITION(10) HEIGHT(81) LEFT(32) PARENT(#COM_OWNER) TABPOSITION(10) TABSTOP(False) TOP(304) WIDTH(193)
Define_Com Class(#PRIM_RDBN) Name(#OkButtonPressed) CAPTION('OK Button pressed') DISPLAYPOSITION(1) LEFT(16) PARENT(#GPBX_1) TABPOSITION(1) TOP(16)
Define_Com Class(#PRIM_RDBN) Name(#CancelButtonPressed) CAPTION('Cancel Button pressed') DISPLAYPOSITION(2) LEFT(16) PARENT(#GPBX_1) TABPOSITION(2) TOP(48) WIDTH(153)
Define_

...

Com Class(#PRIM_CKBX)

...

Name(#ExplorerMode)

...

CAPTION('

...

Explorer Mode')

...

DISPLAYPOSITION(11)

...

LEFT(24)

...

PARENT(#COM_OWNER)

...

TABPOSITION(11)

...

TOP(152)

...

Define_Com Class(#AAsavefil) Name(#SaveFileDlgForm)
Define_Com Class(#PRIM_CKBX) Name(#Multiselect) CAPTION('Multiselect') DISPLAYPOSITION(12) LEFT(24) PARENT(#COM_OWNER) TABPOSITION(12) TOP(176)
Define_Com Class(#PRIM_EDIT) Name(#Title) DISPLAYPOSITION(13) LEFT(112) PARENT(#COM_OWNER) SHOWSELECTION(False) SHOWSELECTIONHILIGHT(False) TABPOSITION(13) TOP(56) WIDTH(289)
Define_Com Class(#PRIM_LABL) Name(#TitleLbl) CAPTION('Title') DISPLAYPOSITION(14) HEIGHT(25) LEFT(24) PARENT(#COM_OWNER) TABPOSITION(14) TABSTOP(False) TOP(56) WIDTH(81)
Define_

...

Com Class(#PRIM_CKBX)

...

Name(#HideReadOnly)

...

CAPTION('

...

Hide Read-Only')

...

DISPLAYPOSITION(15)

...

LEFT(24)

...

PARENT(#COM_OWNER)

...

TABPOSITION(15)

...

TOP(128)

...

Define_Com Class(#PRIM_LTBX) Name(#fileLst) DISPLAYPOSITION(2) HEIGHT(210) LEFT(16) PARENT(#COM_OWNER) SHOWSELECTION(True) TABPOSITION(2) TOP(450) WIDTH(225)
Define_Com Class(#PRIM_LBCL) Name(#TRACECOL1) DISPLAYPOSITION(1) PARENT(#fileLst) SOURCE(#STD_TEXT) WIDTH(10)
Define_Com Class(#PRIM_EDIT) Name(#File) DISPLAYPOSITION(16) LEFT(112) PARENT(#COM_OWNER) SHOWSELECTION(False) SHOWSELECTIONHILIGHT(False) TABPOSITION(16) TOP(80) WIDTH(289)
Define_

...

Com Class(#PRIM_LABL)

...

Name(#FileLb)

...

CAPTION('File')

...

DISPLAYPOSITION(17)

...

HEIGHT(23)

...

LEFT(27)

...

PARENT(#COM_OWNER)

...

TABPOSITION(17)

...

TABSTOP(False)

...

TOP(80)

...

WIDTH(54)

...

Evtroutine Handling(#com_owner.Initialize)
Set Com(#com_owner) CAPTION(*component_desc)
Endroutine

...

Evtroutine Handling(#PHBN_1.Click)

...

Invoke Method(#sys_appln.CreateFileOpenDialog)

...

RESULT(#OpenFileDLG)

...

Define Field(#boolRes)

...

Type(*BOOLEAN)

...

#OpenFileDLG.Title := #TITLE.Text
#OpenFileDLG.InitialDir := #INITIALDIRECTORY.Text
#OPENFILEDLG.

...

File :=

...

#FILE.Text

...

#OpenFileDLG.AddFilter(

...

'

...

First entry (*.nothing)'

...

'*.nothing'

...

)

...

* deliberately make .cpp as .hpp to check overwriting facility later
#OpenFileDLG.AddFilter( 'C++ defn files (*.cpp)' '*.hpp' )
#OpenFileDLG.AddFilter(

...

'C

...

++ header files ( ended with *.hpp)'

...

'*.hpp'

...

)

...

* correct the first the initial filter
#OpenFileDLG.FilterCaption<2> := 'C++ defn files (corrected to *.cpp & *.c)'
#OpenFileDLG.FilterExtension<2> := '*.cpp;*.c'
* add an extra filter
#OpenFileDLG.FilterCaption<4> := 'Text Files (*.txt)'
#OpenFileDLG.FilterExtension<4> := '*.txt'
* select something non-default
#OpenFileDLG.

...

FilterIndex :=

...

2
If (#Hidereadonly.ButtonState = checked)
#OPENFILEDLG.HideReadOnly := true
Else
#OPENFILEDLG.HideReadOnly := false
Endif
If (#Explorermode.ButtonState = checked)
#OPENFILEDLG.ExplorerStyle := true
Else
#OPENFILEDLG.ExplorerStyle := false
Endif
If (#Multiselect.ButtonState = checked)
#OPENFILEDLG.MultiSelect := true
Else
#OPENFILEDLG.MultiSelect := false
Endif

...

Invoke Method(#OpenFileDLG.Show)

...

OKPRESSED(#boolRes)

...

FORMOWNER(#com_self)

...

* ensure fresh start every time the dialog is open
Clr_

...

List Named(#filelst)

...

If (#BOOLRES)
#OKBUTTONPRESSED.ButtonChecked := true
#CANCELBUTTONPRESSED.

...

ButtonChecked :=

...

false
Define Field(#i) Type(*INT)
#i := 1
#std_count := #oPENFileDLG.FileCount
If Cond(#std_count = 0)
#std_text := #OPENFILEDLG.FileTitle
Add_Entry To_List(#filelst)
Else
Dountil Cond(#i > #std_count)
#std_text := #OPENFileDLG.Files<#i>
Add_Entry To_List(#filelst)
#i :=

...

 #i + 1
Enduntil
Endif
#FILECOUNT.

...

Value :=

...

#OPENFILEDLG.FileCount.AsString

...

Else
#CANCELBUTTONPRESSED.ButtonChecked := true
#okbUTTONPRESSED.

...

ButtonChecked :=

...

false
Endif
Endroutine
Evtroutine Handling(#GotoOpenFileForm.Click)
Invoke Method(#SAVEFILEDLGFORM.ShowForm)
Endroutine
End_Com

...