TclDeviceManager - Revision history

ClomosyAdmin at 07:25, 24 December 2024

2024-12-24T07:25:35Z

← Older revision		Revision as of 07:25, 24 December 2024
Line 74:		Line 74:
	* [[Object Properties]]		* [[Object Properties]]
	* [[AddNewEvent]]		* [[AddNewEvent]]
			{{#seo:\|description=Explore TclDeviceManager on Clomosy! Learn how to manage and control devices in your applications using the TclDeviceManager.}}

ClomosyManager at 12:49, 18 November 2024

2024-11-18T12:49:39Z

@@ Line 5: / Line 5: @@
 : - Access to the phonebook
-Usage of the TclDeviceManager component:
+<div class="table-responsive">
 {| class="wikitable" style="border: 2px solid #c3d7e0"
-! style="background-color: #c3d7e0"| Feature !!style="background-color: #c3d7e0"| Use of !!style="background-color: #c3d7e0"|Definition
+! style="background-color: #c3d7e0"| Feature  !!style="background-color: #c3d7e0"| Use of !!style="background-color: #c3d7e0"| Definition
 |-
-|TclDeviceManager ||MyDevice:TclDeviceManager; ||Variable is defined.
+|TclDeviceManager ||DeviceManager1:TclDeviceManager; ||Variable is defined.
 |-
-|TclDeviceManager.Create ||MyDevice =TclDeviceManager.Create; ||TclDeviceManager is created on the project.
+|TclDeviceManager.Create ||DeviceManager1 = TclDeviceManager.Create; ||TclDeviceManager is created on the project.
 |-
-|Vibrate ||MyDevice.Vibrate(500); ||It is used to control the vibration feature of the device. In the example, it was vibrated for 500 milliseconds.
+|Vibrate ||DeviceManager1.Vibrate(500); ||It is used to control the vibration feature of the device. In the example, it was vibrated for 500 milliseconds.
 |-
-|BatteryStatus ||MyDevice.BatteryStatus || Indicates the battery level of the device.
+|BatteryStatus ||DeviceManager1.BatteryStatus || Indicates the battery level of the device.
 |-
-|GetAddressBookContacts ||MyDevice.GetAddressBookContacts('ConList'); || Provides access to the phone book of the device. In the example 'ConList' is a procedure.
+|GetAddressBookContacts ||DeviceManager1.GetAddressBookContacts('ConList'); || Provides access to the phone book of the device. In the example 'ConList' is a procedure.
 |-
-|ContactsList ||MyDevice.ContactsList.Text || Returns a list representing contacts in the device's address book.
+|ContactsList ||DeviceManager1.ContactsList.Text || Returns a list representing contacts in the device's address book.
 |-
-|CallOnAfterListProcName ||MyDevice.CallOnAfterListProcName ||Specifies the name of the procedure to be called after obtaining the list of phonebook contacts on the device.
+|CallOnAfterListProcName ||DeviceManager1.CallOnAfterListProcName ||Specifies the name of the procedure to be called after obtaining the list of phonebook contacts on the device.
 |}
-You can examine how these properties are used with an example. In the example, names retrieved from the phonebook are listed in a Memo.
+In the example, vibration and battery level are displayed, and names retrieved from the phonebook are listed in a Memo.<br>
-'''Example:'''<br>
+<pre>
-  var
+<h2> See Also </h2>
-    MyDevice:TclDeviceManager;
+* [[Components]]
-    i : Integer;
+* [[Object Properties]]
-    Memo1 : TclMemo;
+* [[AddNewEvent]]

ClomosyManager at 13:22, 13 November 2024

2024-11-13T13:22:05Z

@@ Line 12: / Line 12: @@
 |TclDeviceManager ||MyDevice:TclDeviceManager; ||Variable is defined.
 |-
-|TclDeviceManager.Create ||MyDevice:=TclDeviceManager.Create; ||TclDeviceManager is created on the project.
+|TclDeviceManager.Create ||MyDevice =TclDeviceManager.Create; ||TclDeviceManager is created on the project.
 |-
 |Vibrate ||MyDevice.Vibrate(500); ||It is used to control the vibration feature of the device. In the example, it was vibrated for 500 milliseconds.
@@ Line 28: / Line 28: @@
 '''Example:'''<br>
    var
@@ Line 69: / Line 67: @@
      MyForm.Run;
+   }

ClomosyManager at 11:49, 22 August 2024

2024-08-22T11:49:02Z

@@ Line 28: / Line 28: @@
 '''Example:'''<br>
 :'''TRObject Syntax'''
@@ Line 109: / Line 69: @@
      MyForm.Run;
+   }

ClomosyManager at 07:19, 23 April 2024

2024-04-23T07:19:50Z

← Older revision		Revision as of 07:19, 23 April 2024
Line 80:		Line 80:
	//ShowMessage(MyDevice.ContactsList.Text);		//ShowMessage(MyDevice.ContactsList.Text);
	try		try
	{
	for (i = 0 to MyDevice.ContactsList.Count - 1)		for (i = 0 to MyDevice.ContactsList.Count - 1)
	{		{
Line 86:		Line 85:
	Memo1.Lines.Add('---');		Memo1.Lines.Add('---');
	}		}
	}
	finally		finally
	{
	MyDevice.ContactsList.Free;		MyDevice.ContactsList.Free;
	}		}

ClomosyManager at 06:32, 8 February 2024

2024-02-08T06:32:06Z

@@ Line 71: / Line 71: @@
 :'''TRObject Syntax'''
-var
+  var
-  MyDevice:TclDeviceManager;
+    MyDevice:TclDeviceManager;
-  i : Integer;
+    i : Integer;
-  Memo1 : TclMemo;
+    Memo1 : TclMemo;
-  MyForm : TclForm;
+    MyForm : TclForm;
-void ConList;
+  void ConList;
+   {
-    for (i = 0 to MyDevice.ContactsList.Count - 1)
+  //ShowMessage(MyDevice.ContactsList.Text);
+     {
-       Memo1.Lines.Add('Name: ' + Clomosy.StringListItemString(MyDevice.ContactsList,i));
+       for (i = 0 to MyDevice.ContactsList.Count - 1)
-      Memo1.Lines.Add('---');
+     }
+   }
+   {
-     MyDevice.ContactsList.Free;
+     MyForm = TclForm.Create(Self);
+   }

ClomosyManager at 06:31, 8 February 2024

2024-02-08T06:31:21Z

@@ Line 28: / Line 28: @@
 '''Example:'''<br>
   '''var'''
    MyDevice:TclDeviceManager;
@@ Line 66: / Line 68: @@
    MyForm.Run;
   '''End;'''

ClomosyManager at 14:39, 15 January 2024

2024-01-15T14:39:20Z

← Older revision		Revision as of 14:39, 15 January 2024
Line 49:		Line 49:
	MyForm := TclForm.Create(Self);		MyForm := TclForm.Create(Self);

	Memo1 := MyForm.AddNewMemo(MyForm,'Memo1','');		Memo1 := MyForm.AddNewMemo(MyForm,'Memo1',<nowiki>''</nowiki>);
	Memo1.Align := alClient;		Memo1.Align := alClient;
	Memo1.Margins.Left:= 10;		Memo1.Margins.Left:= 10;

ClomosyManager: Created page with "The TclDeviceManager component is used to interact with devices. This component allows you to control the properties and functions of devices.
Properties include: : - Vibration : - Battery level : - Access to the phonebook Usage of the TclDeviceManager component: {| class="wikitable" style="border: 2px solid #c3d7e0" ! style="background-color: #c3d7e0"| Feature !!style="background-color: #c3d7e0"| Use of !!style="background-color: #c3d7e0"|Definition |- |TclDevic..."

2023-10-03T07:43:27Z

Created page with "The TclDeviceManager component is used to interact with devices. This component allows you to control the properties and functions of devices.<br> Properties include: : - Vibration : - Battery level : - Access to the phonebook Usage of the TclDeviceManager component: {| class="wikitable" style="border: 2px solid #c3d7e0" ! style="background-color: #c3d7e0"| Feature !!style="background-color: #c3d7e0"| Use of !!style="background-color: #c3d7e0"|Definition |- |TclDevic..."

New page

The TclDeviceManager component is used to interact with devices. This component allows you to control the properties and functions of devices.<br>
Properties include:
: - Vibration
: - Battery level
: - Access to the phonebook

Usage of the TclDeviceManager component:

{| class="wikitable" style="border: 2px solid #c3d7e0"
! style="background-color: #c3d7e0"| Feature !!style="background-color: #c3d7e0"| Use of !!style="background-color: #c3d7e0"|Definition
|-
|TclDeviceManager ||MyDevice:TclDeviceManager; ||Variable is defined.
|-
|TclDeviceManager.Create ||MyDevice:=TclDeviceManager.Create; ||TclDeviceManager is created on the project.
|-
|Vibrate ||MyDevice.Vibrate(500); ||It is used to control the vibration feature of the device. In the example, it was vibrated for 500 milliseconds.
|-
|BatteryStatus ||MyDevice.BatteryStatus || Indicates the battery level of the device.
|-
|GetAddressBookContacts ||MyDevice.GetAddressBookContacts('ConList'); || Provides access to the phone book of the device. In the example 'ConList' is a procedure.
|-
|ContactsList ||MyDevice.ContactsList.Text || Returns a list representing contacts in the device's address book.
|-
|CallOnAfterListProcName ||MyDevice.CallOnAfterListProcName ||Specifies the name of the procedure to be called after obtaining the list of phonebook contacts on the device.
|}

You can examine how these properties are used with an example. In the example, names retrieved from the phonebook are listed in a Memo.

'''Example:'''<br>
'''var'''
MyDevice:TclDeviceManager;
i : Integer;
Memo1 : TclMemo;
MyForm : TclForm;
'''procedure ConList;'''
'''begin'''
//ShowMessage(MyDevice.ContactsList.Text);
try
for i := 0 to MyDevice.ContactsList.Count - 1 do
begin
Memo1.Lines.Add('Name: ' + Clomosy.StringListItemString(MyDevice.ContactsList,i));
Memo1.Lines.Add('---');
end;
finally
MyDevice.ContactsList.Free;
end;
'''End;'''
'''begin'''
MyForm := TclForm.Create(Self);

Memo1 := MyForm.AddNewMemo(MyForm,'Memo1','');
Memo1.Align := alClient;
Memo1.Margins.Left:= 10;
Memo1.Margins.Right:= 10;
Memo1.Margins.Top:= 10;
Memo1.Margins.Bottom:= 10;
Memo1.ReadOnly := True;
Memo1.TextSettings.WordWrap := True;

MyDevice:=TclDeviceManager.Create;
ShowMessage(MyDevice.BatteryStatus);
MyDevice.Vibrate(500);
MyDevice.GetAddressBookContacts('ConList');
ShowMessage('List Name: '+MyDevice.CallOnAfterListProcName);

MyForm.Run;
'''End;'''