Difference between revisions of "User:LRChampagne2k"
From Lazarus wiki
Jump to navigationJump to search (Created page with "Just JUNK that may be DELETED, at any time Its purpose is multi-, as follows: # A basic understanding of the syntax, structure, capabilities and limitations of Wiki edit...") |
|||
| Line 1: | Line 1: | ||
[[Just JUNK that may be DELETED, at any time]] | [[Just JUNK that may be DELETED, at any time]] | ||
| + | ==Purpose:== | ||
Its purpose is multi-, as follows: | Its purpose is multi-, as follows: | ||
# A basic understanding of the syntax, structure, capabilities and limitations of Wiki editing. | # A basic understanding of the syntax, structure, capabilities and limitations of Wiki editing. | ||
## Attempts to mix Wiki-style and HTML-style editing (The former is new to me; the latter I am not fond of.) | ## Attempts to mix Wiki-style and HTML-style editing (The former is new to me; the latter I am not fond of.) | ||
| − | ## I'd | + | ## I'd PREFER to fully edit off-line, and port to the proper pages, |
| + | # Gain an understanding of the implementation of the "wiki-style" pages. | ||
| + | |||
| + | <code> | ||
| + | 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. | ||
| + | </code> | ||
| + | -end- | ||
Revision as of 14:48, 17 April 2014
Just JUNK that may be DELETED, at any time
Purpose:
Its purpose is multi-, as follows:
- A basic understanding of the syntax, structure, capabilities and limitations of Wiki editing.
- Attempts to mix Wiki-style and HTML-style editing (The former is new to me; the latter I am not fond of.)
- I'd PREFER to fully edit off-line, and port to the proper pages,
- Gain an understanding of the implementation of the "wiki-style" pages.
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-
