User:LRChampagne2k

From Free Pascal wiki
Jump to navigationJump to search

Just JUNK that may be DELETED, at any time

Purpose:

Its purposes are multiple, 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 of page-

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

My Sandbox - Diff