Difference between pages "TListObject" and "TThreadEx"

From Ultibo.org
(Difference between pages)
Jump to: navigation, search
(Created page with "Return to Unit UltiboClasses __TOC__ === Description === ---- ''To be documented'' === Class definitions === ---- <div class="toccolours mw-colla...")
 
 
Line 15: Line 15:
 
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">
 
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">
  
<code>TListObject = class(TObject)</code>
+
<code>TThreadEx = class(TThread)</code>
 
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
 
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
 
{| class="wikitable" style="font-size: 14px; background: white;"
 
{| class="wikitable" style="font-size: 14px; background: white;"
 
|-
 
|-
|colspan="2"|Note: A TObject with .Prev/.Next with Properties for use in Lists
+
|colspan="2"|Note: TThread with Before and After Execution methods
 
|-
 
|-
 
|colspan="2"|&nbsp;
 
|colspan="2"|&nbsp;
Line 25: Line 25:
 
|colspan="2"|<div style="font-family: monospace,courier;">'''private'''</div>
 
|colspan="2"|<div style="font-family: monospace,courier;">'''private'''</div>
 
|-
 
|-
| <code>FPrev:TListObject;</code>
+
| <code>function GetName:String;</code>
 +
| &nbsp;
 +
|-
 +
| <code>procedure SetName(const AName:String);</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|<div style="font-family: monospace,courier;">'''protected'''</div>
 +
|-
 +
| <code>procedure Execution; virtual;</code>
 
| style="width: 50%;"|&nbsp;
 
| style="width: 50%;"|&nbsp;
 
|-
 
|-
| <code>FNext:TListObject;</code>
+
| <code>procedure AfterExecution; virtual;</code>
 +
| &nbsp;
 +
|-
 +
| <code>procedure BeforeExecution; virtual;</code>
 +
| &nbsp;
 +
|-
 +
| <code>procedure Execute; override;</code>
 
| &nbsp;
 
| &nbsp;
 
|-
 
|-
 
|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>
 
|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>
 
|-
 
|-
| <code>property Prev:TListObject read FPrev write FPrev;</code>
+
| <code>property Name:String read GetName write SetName;</code>
 
| &nbsp;
 
| &nbsp;
 
|-
 
|-
| <code>property Next:TListObject read FNext write FNext;</code>
+
| <code>procedure TerminateAndWaitFor;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function MapPriority(Value:TThreadPriority):LongWord;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function UnmapPriority(Value:LongWord):TThreadPriority;</code>
 
| &nbsp;
 
| &nbsp;
 
|-
 
|-
 
|}
 
|}
</div></div>
+
</div></div>  
 
<br />
 
<br />
  
Line 46: Line 68:
 
----
 
----
  
''None defined''
 
  
 +
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
 +
<pre style="border: 0; padding-bottom:0px;">function TThreadEx.GetName:String;</pre>
 +
<div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 +
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
 +
{| class="wikitable" style="font-size: 14px; background: white;"
 +
|-
 +
! Note
 +
| None documented
 +
|-
 +
|}
 +
</div></div>
 +
<br />
 +
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
 +
<pre style="border: 0; padding-bottom:0px;">procedure TThreadEx.SetName(const AName:String);</pre>
 +
<div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 +
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
 +
{| class="wikitable" style="font-size: 14px; background: white;"
 +
|-
 +
! Note
 +
| None documented
 +
|-
 +
|}
 +
</div></div>
 +
<br />
 +
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
 +
<pre style="border: 0; padding-bottom:0px;">procedure TThreadEx.Execution;</pre>
 +
<div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 +
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
 +
{| class="wikitable" style="font-size: 14px; background: white;"
 +
|-
 +
! Note
 +
| None documented
 +
|-
 +
|}
 +
</div></div>
 +
<br />
 +
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
 +
<pre style="border: 0; padding-bottom:0px;">procedure TThreadEx.AfterExecution;</pre>
 +
<div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 +
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
 +
{| class="wikitable" style="font-size: 14px; background: white;"
 +
|-
 +
! Note
 +
| None documented
 +
|-
 +
|}
 +
</div></div>
 +
<br />
 +
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
 +
<pre style="border: 0; padding-bottom:0px;">procedure TThreadEx.BeforeExecution;</pre>
 +
<div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 +
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
 +
{| class="wikitable" style="font-size: 14px; background: white;"
 +
|-
 +
! Note
 +
| None documented
 +
|-
 +
|}
 +
</div></div>
 +
<br />
 +
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
 +
<pre style="border: 0; padding-bottom:0px;">procedure TThreadEx.Execute;</pre>
 +
<div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 +
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
 +
{| class="wikitable" style="font-size: 14px; background: white;"
 +
|-
 +
! Note
 +
| None documented
 +
|-
 +
|}
 +
</div></div>
 +
<br />
 +
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
 +
<pre style="border: 0; padding-bottom:0px;">procedure TThreadEx.TerminateAndWaitFor;</pre>
 +
<div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 +
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
 +
{| class="wikitable" style="font-size: 14px; background: white;"
 +
|-
 +
! Note
 +
| None documented
 +
|-
 +
|}
 +
</div></div>
 +
<br />
  
 
Return to [[Unit_Reference|Unit Reference]]
 
Return to [[Unit_Reference|Unit Reference]]

Latest revision as of 04:31, 15 September 2025

Return to Unit UltiboClasses


Description


To be documented

Class definitions



TThreadEx = class(TThread)

Note: TThread with Before and After Execution methods
 
private
function GetName:String;  
procedure SetName(const AName:String);  
protected
procedure Execution; virtual;  
procedure AfterExecution; virtual;  
procedure BeforeExecution; virtual;  
procedure Execute; override;  
public
property Name:String read GetName write SetName;  
procedure TerminateAndWaitFor;  
 
function MapPriority(Value:TThreadPriority):LongWord;  
function UnmapPriority(Value:LongWord):TThreadPriority;  


Function declarations



function TThreadEx.GetName:String;
Description: To be documented
Note None documented


procedure TThreadEx.SetName(const AName:String);
Description: To be documented
Note None documented


procedure TThreadEx.Execution;
Description: To be documented
Note None documented


procedure TThreadEx.AfterExecution;
Description: To be documented
Note None documented


procedure TThreadEx.BeforeExecution;
Description: To be documented
Note None documented


procedure TThreadEx.Execute;
Description: To be documented
Note None documented


procedure TThreadEx.TerminateAndWaitFor;
Description: To be documented
Note None documented


Return to Unit Reference