[lazarus] TEdit, TProgress
codepunk
vbman at pcpros.net
Tue Apr 18 09:04:56 EDT 2000
Oh It is already there disreguard my last.
Cliff
On Tue, 18 Apr 2000, Shane Miller wrote:
> HAve you tried putting an
> Appication.ProcessMessages;
> within your loop? Currently this will slow you down a bit but it should (may) work.
> Shane
>
>
> >>> mbm at diprintas.lt 04/18/00 02:34AM >>>
> Hi, all!
>
> See, I have a BIG trouble with TProgress: when my program is COPYING some
> file, and I
> wanna to show for user how many bytes (percent) is away ;) -- progress is
> like died and window (widget, form...) is completely FROZED, while process.
> :-(
>
> Here is example (for understanding only):
>
> ...
> ssomeform_with_progress.show;
> ...
> wwhile not eof(somefile) do
> begin
> read(somefile,someblock);
> // inc(myprogress.position); -- here error :-(
> myprogress.position:=myprogress.position+1; // ughhh... Pascal...
> Why not '+=' ?
>
> // So here POSITION must RUN,
>
> // buddy... window is completely
>
> // FROZED, until EOF :-(
>
> // On Delphi4 this code-example is working OK.
> write(some_another_file,someblock);
> end;
>
> // someform_with_progress.hide; -- error, coz` I can't to hide a widget :-(
> someform_with_progress.close;
>
>
> So.... What I can to do?
> Another trouble: TEdit.OnChange -- is compilling without errors, but... it's
> NOT REAL
> event. It's just... nothing happend... :-(
>
>
>
>
>
>
> _________________________________________________________________
> To unsubscribe: mail lazarus-request at miraclec.com with
> "unsubscribe" as the Subject
> archives at http://www.miraclec.com/list_archives/lazarus
>
> _________________________________________________________________
> To unsubscribe: mail lazarus-request at miraclec.com with
> "unsubscribe" as the Subject
> archives at http://www.miraclec.com/list_archives/lazarus
More information about the Lazarus
mailing list