User:LRChampagne2k

Just JUNK that may be DELETED, at any time

Purpose:

Its purpose is multi-, as follows:

1. A basic understanding of the syntax, structure, capabilities and limitations of Wiki editing.
   1. Attempts to mix Wiki-style and HTML-style editing (The former is new to me; the latter I am not fond of.)
   2. I'd PREFER to fully edit off-line, and port to the proper pages,
2. Gain an understanding of the implementation of the "wiki-style" pages structure, syntax and style.

unit TestQueueAsyncCall;
{$mode objfpc}{$H+}

interface
uses
  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, Buttons,
  StdCtrls;
type
  { TQueueAsyncCallForm }
  TQueueAsyncCallForm = class(TForm)
    CallButton: TButton;
    LogListBox: TListBox;
    procedure CallButtonClick(Sender: TObject);
  private
    { private declarations }
    FCounter: PtrInt;
    procedure Async(Data: PtrInt);
  public
    { public declarations }
  end; 

 var
  QueueAsyncCallForm: TQueueAsyncCallForm;

implementation
{ TQueueAsyncCallForm }

procedure TQueueAsyncCallForm.CallButtonClick(Sender: TObject);
begin
  LogListBox.Items.Add('Click 1');
  FCounter := FCounter+1;
  Application.QueueAsyncCall(@Async,FCounter);
  LogListBox.Items.Add('Click 2');
end;

procedure TQueueAsyncCallForm.Async(Data: PtrInt);
begin
   LogListBox.Items.Add('Async '+ IntToStr(Data));
end;
{$R *.lfm}

end.

-end-

--LRChampagne2k 05:10, 18 April 2014 (CEST)