Difference between revisions of "User:LRChampagne2k"
From Lazarus wiki
Jump to navigationJump to searchLine 9: | Line 9: | ||
# Gain an understanding of the implementation of the "wiki-style" pages structure, syntax and style. | # Gain an understanding of the implementation of the "wiki-style" pages structure, syntax and style. | ||
− | |||
− | |||
− | {$mode objfpc}{$H+} | + | unit TestQueueAsyncCall; |
− | + | {$mode objfpc}{$H+} | |
− | interface | + | |
− | uses | + | interface |
− | + | uses | |
− | + | Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, Buttons, | |
− | + | StdCtrls; | |
− | type | + | 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; | |
− | var | + | |
− | + | implementation | |
− | + | { TQueueAsyncCallForm } | |
− | implementation | + | |
− | { TQueueAsyncCallForm } | + | procedure TQueueAsyncCallForm.CallButtonClick(Sender: TObject); |
− | + | begin | |
− | procedure TQueueAsyncCallForm.CallButtonClick(Sender: TObject); | + | LogListBox.Items.Add('Click 1'); |
− | begin | + | FCounter := FCounter+1; |
− | + | Application.QueueAsyncCall(@Async,FCounter); | |
− | + | LogListBox.Items.Add('Click 2'); | |
− | + | end; | |
− | + | ||
− | end; | + | procedure TQueueAsyncCallForm.Async(Data: PtrInt); |
− | + | begin | |
− | procedure TQueueAsyncCallForm.Async(Data: PtrInt); | + | LogListBox.Items.Add('Async '+ IntToStr(Data)); |
− | begin | + | end; |
− | + | {$R *.lfm} | |
− | end; | + | |
− | + | end. | |
− | {$R *.lfm} | ||
− | |||
− | end. | ||
− | |||
− | |||
− | |||
''-end-'' | ''-end-'' | ||
+ | --[[User:LRChampagne2k|LRChampagne2k]] 05:10, 18 April 2014 (CEST) |
Revision as of 05:10, 18 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 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)