[lazarus] Get button state

[Michael A. Hess]

Hmmmm. Let's see. Michael wrote:

> procedure TTestwin.StartClicked(Sender: TObject);
> begin
>  FStopped:=False;
>  repeat
>     writeln('xxx');
>     Application.ProcessMessages; // Process pending messages.
>  until FStopped;
> end;
> 
> procedure TTestwin.StopClicked(Sender: TObject);
> 
> begin
>   FStopped:=True;
> end;
> 


and Mattias wrote:


> procedure TTestwin.startClicked(Sender: TObject);
> begin
>  ButtonStopPressed:=false;
>  repeat
>    writeln('xxx');
>    Application.ProcessMessages;
>  until ButtonStopPressed;
> end;
> 
> procedure TTestwin.stopClicked(Sender: TObject);
> begin
>  ButtonStopPressed:=true;
> end;


Clearly a serious Intel. Prop. issues here. Since Mattias was date posted
first I guess Michael MUST of copied his code and just changed it a little to
appear that it was different but clearly he copied it.

Hee hee hee.  ;-)

This was such a great example of why some of the SCO stuff is so much hog
wash. Somethings are just written some ways and that is that.

Just struck me funny.

--
==== Programming my first best destiny! ====

Michael A. Hess      Miracle Concepts, Inc.
mhess at miraclec.com   http://www.miraclec.com
Phone: 570-388-2211  Fax: 570-388-6101