Xailer & OZ Software

HI,
how can I display the "flying folder" animation system dialog during copying the file?
Gejza Horvath

Gejza,
TProgressDlg.
Take a loot at sample SamplesDialogs.
Regards,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Gejza Horvath" <_hsoftkn@nextra.sk> escribió en el mensaje
news:[email=471639bf@ozsrv2.ozlan.local...]471639bf@ozsrv2.ozlan.local...[/email]
> HI,
>
> how can I display the "flying folder" animation system dialog during
> copying the file?
>
>
> Gejza Horvath
>

Gejza,
TProgressDlg.
Take a loot at sample SamplesDialogs.
Regards,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Gejza Horvath" <_hsoftkn@nextra.sk> escribió en el mensaje
news:[email=471639bf@ozsrv2.ozlan.local...]471639bf@ozsrv2.ozlan.local...[/email]
> HI,
>
> how can I display the "flying folder" animation system dialog during
> copying the file?
>
>
> Gejza Horvath
>

WITH OBJECT oFileOperation := TFileOperationDlg():New( GetActiveform() )
:nAction := foCOPY
:aFrom := {cOrigFile}
:aTo := {cBackupFile}
:lNoConfirmation := .T.
:lNoConfirmMkDir := .T.
:Create()
:Run()
END

WITH OBJECT oFileOperation := TFileOperationDlg():New( GetActiveform() )
:nAction := foCOPY
:aFrom := {cOrigFile}
:aTo := {cBackupFile}
:lNoConfirmation := .T.
:lNoConfirmMkDir := .T.
:Create()
:Run()
END

Bingen
thanks for your quick reply, but using this code the dialog is not displayed. The file
copy operation is done, but nothing during that about progress..
Is the error on my side? Any idea?
Gejza
"Bingen Ugaldebere" <bingen@muninser.com> pí¹e v diskusním pøíspìvku
news:47164ab6$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> WITH OBJECT oFileOperation := TFileOperationDlg():New( GetActiveform() )
> :nAction := foCOPY
> :aFrom := {cOrigFile}
> :aTo := {cBackupFile}
> :lNoConfirmation := .T.
> :lNoConfirmMkDir := .T.
> :Create()
> :Run()
> END
>

Bingen
thanks for your quick reply, but using this code the dialog is not displayed. The file
copy operation is done, but nothing during that about progress..
Is the error on my side? Any idea?
Gejza
"Bingen Ugaldebere" <bingen@muninser.com> pí¹e v diskusním pøíspìvku
news:47164ab6$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> WITH OBJECT oFileOperation := TFileOperationDlg():New( GetActiveform() )
> :nAction := foCOPY
> :aFrom := {cOrigFile}
> :aTo := {cBackupFile}
> :lNoConfirmation := .T.
> :lNoConfirmMkDir := .T.
> :Create()
> :Run()
> END
>

Gezja,
The dialogs is ONLY shown when the process takes more than a couple of
seconds. There is no way to modify that behaviour.
Regards,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Gejza Horvath" <_hsoftkn@nextra.sk> escribió en el mensaje
news:[email=4716540c@ozsrv2.ozlan.local...]4716540c@ozsrv2.ozlan.local...[/email]
> Bingen
>
> thanks for your quick reply, but using this code the dialog is not
> displayed. The file copy operation is done, but nothing during that about
> progress..
> Is the error on my side? Any idea?
>
> Gejza
>
> "Bingen Ugaldebere" <bingen@muninser.com> pí¹e v diskusním pøíspìvku
> news:47164ab6$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>> WITH OBJECT oFileOperation := TFileOperationDlg():New( GetActiveform() )
>> :nAction := foCOPY
>> :aFrom := {cOrigFile}
>> :aTo := {cBackupFile}
>> :lNoConfirmation := .T.
>> :lNoConfirmMkDir := .T.
>> :Create()
>> :Run()
>> END
>>
>
>

Gezja,
The dialogs is ONLY shown when the process takes more than a couple of
seconds. There is no way to modify that behaviour.
Regards,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Gejza Horvath" <_hsoftkn@nextra.sk> escribió en el mensaje
news:[email=4716540c@ozsrv2.ozlan.local...]4716540c@ozsrv2.ozlan.local...[/email]
> Bingen
>
> thanks for your quick reply, but using this code the dialog is not
> displayed. The file copy operation is done, but nothing during that about
> progress..
> Is the error on my side? Any idea?
>
> Gejza
>
> "Bingen Ugaldebere" <bingen@muninser.com> pí¹e v diskusním pøíspìvku
> news:47164ab6$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>> WITH OBJECT oFileOperation := TFileOperationDlg():New( GetActiveform() )
>> :nAction := foCOPY
>> :aFrom := {cOrigFile}
>> :aTo := {cBackupFile}
>> :lNoConfirmation := .T.
>> :lNoConfirmMkDir := .T.
>> :Create()
>> :Run()
>> END
>>
>
>

Ignacio,
you have right, when the operation takes more time, the animation runs. You could insert
this sentence into TProgressDlg chapter in Xailer help file.
Thanks
Gejza
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> pí¹e v diskusním pøíspìvku
news:47165587$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Gezja,
>
> The dialogs is ONLY shown when the process takes more than a couple of seconds. There is
> no way to modify that behaviour.
>
> Regards,
>
> --
> Ignacio Ortiz de Zúñiga
> http://www.xailer.com
>
>
> "Gejza Horvath" <_hsoftkn@nextra.sk> escribió en el mensaje
> news:[email=4716540c@ozsrv2.ozlan.local...]4716540c@ozsrv2.ozlan.local...[/email]
>> Bingen
>>
>> thanks for your quick reply, but using this code the dialog is not displayed. The file
>> copy operation is done, but nothing during that about progress..
>> Is the error on my side? Any idea?
>>
>> Gejza
>>
>> "Bingen Ugaldebere" <bingen@muninser.com> pí¹e v diskusním pøíspìvku
>> news:47164ab6$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>>> WITH OBJECT oFileOperation := TFileOperationDlg():New( GetActiveform() )
>>> :nAction := foCOPY
>>> :aFrom := {cOrigFile}
>>> :aTo := {cBackupFile}
>>> :lNoConfirmation := .T.
>>> :lNoConfirmMkDir := .T.
>>> :Create()
>>> :Run()
>>> END
>>>
>>
>>
>
>
>

Ignacio,
you have right, when the operation takes more time, the animation runs. You could insert
this sentence into TProgressDlg chapter in Xailer help file.
Thanks
Gejza
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> pí¹e v diskusním pøíspìvku
news:47165587$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Gezja,
>
> The dialogs is ONLY shown when the process takes more than a couple of seconds. There is
> no way to modify that behaviour.
>
> Regards,
>
> --
> Ignacio Ortiz de Zúñiga
> http://www.xailer.com
>
>
> "Gejza Horvath" <_hsoftkn@nextra.sk> escribió en el mensaje
> news:[email=4716540c@ozsrv2.ozlan.local...]4716540c@ozsrv2.ozlan.local...[/email]
>> Bingen
>>
>> thanks for your quick reply, but using this code the dialog is not displayed. The file
>> copy operation is done, but nothing during that about progress..
>> Is the error on my side? Any idea?
>>
>> Gejza
>>
>> "Bingen Ugaldebere" <bingen@muninser.com> pí¹e v diskusním pøíspìvku
>> news:47164ab6$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>>> WITH OBJECT oFileOperation := TFileOperationDlg():New( GetActiveform() )
>>> :nAction := foCOPY
>>> :aFrom := {cOrigFile}
>>> :aTo := {cBackupFile}
>>> :lNoConfirmation := .T.
>>> :lNoConfirmMkDir := .T.
>>> :Create()
>>> :Run()
>>> END
>>>
>>
>>
>
>
>

Gejza,
Done.
Regards
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Gejza Horvath" <_hsoftkn@nextra.sk> escribió en el mensaje
news:[email=47170ed9@ozsrv2.ozlan.local...]47170ed9@ozsrv2.ozlan.local...[/email]
> Ignacio,
>
> you have right, when the operation takes more time, the animation runs.
> You could insert this sentence into TProgressDlg chapter in Xailer help
> file.
>
> Thanks
> Gejza
>
> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> pí¹e v diskusním pøíspìvku
> news:47165587$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>> Gezja,
>>
>> The dialogs is ONLY shown when the process takes more than a couple of
>> seconds. There is no way to modify that behaviour.
>>
>> Regards,
>>
>> --
>> Ignacio Ortiz de Zúñiga
>> http://www.xailer.com
>>
>>
>> "Gejza Horvath" <_hsoftkn@nextra.sk> escribió en el mensaje
>> news:[email=4716540c@ozsrv2.ozlan.local...]4716540c@ozsrv2.ozlan.local...[/email]
>>> Bingen
>>>
>>> thanks for your quick reply, but using this code the dialog is not
>>> displayed. The file copy operation is done, but nothing during that
>>> about progress..
>>> Is the error on my side? Any idea?
>>>
>>> Gejza
>>>
>>> "Bingen Ugaldebere" <bingen@muninser.com> pí¹e v diskusním pøíspìvku
>>> news:47164ab6$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>>>> WITH OBJECT oFileOperation := TFileOperationDlg():New(
>>>> GetActiveform() )
>>>> :nAction := foCOPY
>>>> :aFrom := {cOrigFile}
>>>> :aTo := {cBackupFile}
>>>> :lNoConfirmation := .T.
>>>> :lNoConfirmMkDir := .T.
>>>> :Create()
>>>> :Run()
>>>> END
>>>>
>>>
>>>
>>
>>
>>
>
>

Gejza,
Done.
Regards
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Gejza Horvath" <_hsoftkn@nextra.sk> escribió en el mensaje
news:[email=47170ed9@ozsrv2.ozlan.local...]47170ed9@ozsrv2.ozlan.local...[/email]
> Ignacio,
>
> you have right, when the operation takes more time, the animation runs.
> You could insert this sentence into TProgressDlg chapter in Xailer help
> file.
>
> Thanks
> Gejza
>
> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> pí¹e v diskusním pøíspìvku
> news:47165587$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>> Gezja,
>>
>> The dialogs is ONLY shown when the process takes more than a couple of
>> seconds. There is no way to modify that behaviour.
>>
>> Regards,
>>
>> --
>> Ignacio Ortiz de Zúñiga
>> http://www.xailer.com
>>
>>
>> "Gejza Horvath" <_hsoftkn@nextra.sk> escribió en el mensaje
>> news:[email=4716540c@ozsrv2.ozlan.local...]4716540c@ozsrv2.ozlan.local...[/email]
>>> Bingen
>>>
>>> thanks for your quick reply, but using this code the dialog is not
>>> displayed. The file copy operation is done, but nothing during that
>>> about progress..
>>> Is the error on my side? Any idea?
>>>
>>> Gejza
>>>
>>> "Bingen Ugaldebere" <bingen@muninser.com> pí¹e v diskusním pøíspìvku
>>> news:47164ab6$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>>>> WITH OBJECT oFileOperation := TFileOperationDlg():New(
>>>> GetActiveform() )
>>>> :nAction := foCOPY
>>>> :aFrom := {cOrigFile}
>>>> :aTo := {cBackupFile}
>>>> :lNoConfirmation := .T.
>>>> :lNoConfirmMkDir := .T.
>>>> :Create()
>>>> :Run()
>>>> END
>>>>
>>>
>>>
>>
>>
>>
>
>