Difference between revisions of "User:LRChampagne2k"
From Lazarus wiki
Jump to navigationJump to searchm |
|||
Line 12: | Line 12: | ||
unit TestQueueAsyncCall; | unit TestQueueAsyncCall; | ||
{$mode objfpc}{$H+} | {$mode objfpc}{$H+} | ||
− | |||
interface | interface | ||
uses | uses | ||
Line 30: | Line 29: | ||
{ public declarations } | { public declarations } | ||
end; | end; | ||
− | |||
var | var | ||
QueueAsyncCallForm: TQueueAsyncCallForm; | QueueAsyncCallForm: TQueueAsyncCallForm; | ||
− | |||
implementation | implementation | ||
{ TQueueAsyncCallForm } | { TQueueAsyncCallForm } | ||
− | |||
procedure TQueueAsyncCallForm.CallButtonClick(Sender: TObject); | procedure TQueueAsyncCallForm.CallButtonClick(Sender: TObject); | ||
begin | begin | ||
Line 44: | Line 40: | ||
LogListBox.Items.Add('Click 2'); | LogListBox.Items.Add('Click 2'); | ||
end; | end; | ||
− | |||
procedure TQueueAsyncCallForm.Async(Data: PtrInt); | procedure TQueueAsyncCallForm.Async(Data: PtrInt); | ||
begin | begin | ||
Line 50: | Line 45: | ||
end; | end; | ||
{$R *.lfm} | {$R *.lfm} | ||
− | |||
end. | end. | ||
Line 56: | Line 50: | ||
--[[User:LRChampagne2k|LRChampagne2k]] 05:10, 18 April 2014 (CEST) | --[[User:LRChampagne2k|LRChampagne2k]] 05:10, 18 April 2014 (CEST) | ||
− | |||
[[My Sandbox - Diff]] | [[My Sandbox - Diff]] |
Latest revision as of 13:32, 3 May 2014
Just JUNK that may be DELETED, at any time
Purpose:
Its purposes are multiple, 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 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)