[Lazarus] libusb access from Lazarus

[Mark Morgan Lloyd]

On Tuesday 11 November 2008 14.09:08 Martin Schreiber wrote:
>
> Some more competition:   ;-)
>
> Suse 11 32bit, AMD Athlon XP3000+ 2.15GHz, ATI Radeon 9200SE
>
fpGUI, current trunk, button with caption, compiled with -B -O3
Duration: 00:00.305
Duration: 00:00.302
Duration: 00:00.303
Duration: 00:00.305
Duration: 00:00.301
Duration: 00:00.301

fpGUI code:
var
  i: integer;
  s: TDateTime;
  e: TDateTime;
begin
  s := Now;
  for i := 1 to 1000 do
  begin
    if (i mod 2) = 0 then
      button2.backgroundColor := clRed
    else
      button2.backgroundColor := clBlue;
    fpgApplication.ProcessMessages;
  end;
  e := Now - s;
  writeln('Duration: ' + FormatDateTime('nn:ss.zz', e));
end;

Martin