[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