LMD VCL - LMD Packs - Revision history

Balabuyew: /* Using Paste/Copy commands at runtime */

2022-04-28T12:09:42Z

Using Paste/Copy commands at runtime

← Older revision		Revision as of 14:09, 28 April 2022
Line 6:		Line 6:
	<syntaxhighlight lang="delphi">		<syntaxhighlight lang="delphi">
	if assigned(LMDShellList1.selected) then		if assigned(LMDShellList1.selected) then
	~~LMDDoContextMenuVerb~~( LMDShellList1, (LMDShellList1.Selected as TLMDShellListItem).ShellItem, 'copy');		LMDShellDoContextMenuVerb( LMDShellList1, (LMDShellList1.Selected as TLMDShellListItem).ShellItem, 'copy');
	</syntaxhighlight>		</syntaxhighlight>
	Paste:		Paste:
	<syntaxhighlight lang="delphi">		<syntaxhighlight lang="delphi">
	~~LMDDoContextMenuVerb~~( LMDShellList2, LMDShellFolder2.ActiveFolder,'paste');		LMDShellDoContextMenuVerb( LMDShellList2, LMDShellFolder2.ActiveFolder,'paste');
	</syntaxhighlight>		</syntaxhighlight>

Fduch at 12:10, 18 August 2017

2017-08-18T12:10:53Z

← Older revision		Revision as of 14:10, 18 August 2017
Line 29:		Line 29:
	<syntaxhighlight lang="cpp">		<syntaxhighlight lang="cpp">
	#pragma link "wininet.lib"		#pragma link "wininet.lib"
	#</syntaxhighlight> in your code.		</syntaxhighlight> in your code.

Fduch at 12:10, 18 August 2017

2017-08-18T12:10:27Z

← Older revision		Revision as of 14:10, 18 August 2017
Line 4:		Line 4:
	===Using Paste/Copy commands at runtime===		===Using Paste/Copy commands at runtime===
	Copy:		Copy:
	<~~pre class~~="~~brush:~~delphi">		<syntaxhighlight lang="delphi">
	if assigned(LMDShellList1.selected) then		if assigned(LMDShellList1.selected) then
	LMDDoContextMenuVerb( LMDShellList1, (LMDShellList1.Selected as TLMDShellListItem).ShellItem, 'copy');		LMDDoContextMenuVerb( LMDShellList1, (LMDShellList1.Selected as TLMDShellListItem).ShellItem, 'copy');
	</~~pre~~>		</syntaxhighlight>
	Paste:		Paste:
	<~~pre class~~="~~brush:~~delphi">		<syntaxhighlight lang="delphi">
	LMDDoContextMenuVerb( LMDShellList2, LMDShellFolder2.ActiveFolder,'paste');		LMDDoContextMenuVerb( LMDShellList2, LMDShellFolder2.ActiveFolder,'paste');
	</~~pre~~>		</syntaxhighlight>

	==LMD RichPack==		==LMD RichPack==
Line 27:		Line 27:
	===[Linker Error] Unresolved external "InternetCloseHandle" referenced from===		===[Linker Error] Unresolved external "InternetCloseHandle" referenced from===
	Simply add wininet.lib to your project (file can be found in \lib directory of your C++ Builder / BDS / CRS installation). In recent IDEs you can also add<br>		Simply add wininet.lib to your project (file can be found in \lib directory of your C++ Builder / BDS / CRS installation). In recent IDEs you can also add<br>
	<~~code~~>#pragma link "wininet.lib"</~~code><br~~> in your code.		<syntaxhighlight lang="cpp">
			#pragma link "wininet.lib"
			#</syntaxhighlight> in your code.

Rafael at 16:06, 27 May 2015

2015-05-27T16:06:26Z

← Older revision		Revision as of 18:06, 27 May 2015
Line 28:		Line 28:
	Simply add wininet.lib to your project (file can be found in \lib directory of your C++ Builder / BDS / CRS installation). In recent IDEs you can also add<br>		Simply add wininet.lib to your project (file can be found in \lib directory of your C++ Builder / BDS / CRS installation). In recent IDEs you can also add<br>
	<code>#pragma link "wininet.lib"</code><br> in your code.		<code>#pragma link "wininet.lib"</code><br> in your code.

	~~==NG Serialization==~~
	~~===How to serialize collections===~~
	~~Serializing collections, including custom or standard collections (like TList) requires writing custom converters. For example, lets consider the folowing collection declaration:~~

	~~<pre class="brush:delphi">~~
	~~type~~
	~~TItem = class~~
	~~public~~
	~~X: Integer;~~
	~~Y: Integer;~~
	~~end;~~

	~~TItems = class(TObjectList<TItem>);~~
	~~</pre>~~

	~~To be able to serialize it, we need to declare a converter class, and '''associate''' this class with our collection using Converter attribute:~~

	~~<pre class="brush:delphi">~~
	~~type~~
	~~TItemsConverter = class(TConverter)~~
	~~public~~
	~~function GetReadMode: TReadMode; override;~~
	~~procedure Write(S: TSerializer; const V); override;~~
	~~procedure Read(D: TDeserializer; var V); override;~~
	~~end;~~

	~~[Converter(TItemsConverter)]~~
	~~TItems = class(TObjectList<TItem>);~~
	~~</pre>~~

	~~The converter can be implemented like this:~~

	~~<pre class="brush:delphi">~~
	~~function TItemsConverter.GetReadMode: TReadMode;~~
	~~begin~~
	~~Result := rmFillRead; // Indicate fill-read mode.~~
	~~end;~~

	~~procedure TItemsConverter.Read(D: TDeserializer; var V);~~
	~~var~~
	~~lst: TItems;~~
	~~begin~~
	~~lst := TItems(V); // Since we work in fill-read mode,~~
	~~// V already contains a reference to~~
	~~// TItems instance; we should not~~
	~~// create it here.~~
	~~lst.Clear;~~

	~~D.BeginArray;~~
	~~while D.HasNext do~~
	~~lst.Add(D.Value<TItem>);~~
	~~D.EndArray;~~
	~~end;~~

	~~procedure TItemsConverter.Write(S: TSerializer; const V);~~
	~~var~~
	~~lst: TItems;~~
	~~i: Integer;~~
	~~begin~~
	~~S.BeginArray;~~
	~~lst := TItems(V);~~
	~~for i := 0 to lst.Count - 1 do~~
	~~S.Value(lst[i]);~~
	~~S.EndArray;~~
	~~end;~~
	~~</pre>~~

	As can be seen, GetReadMode returns rmFillRead, which indicates that de-serializer should use fill-read mode. This means that no new TItems instance is created during de-serialization. This mode is especially usefull for collection like classes, because they usually owned by some other objects. For example, lets look at the following class:

	~~<pre class="brush:delphi">~~
	~~type~~
	~~TOwner = class~~
	~~private~~
	~~FItems: TItems;~~
	~~public~~
	~~constructor Create;~~
	~~destructor Destroy; override;~~
	~~property Items: TItems read FItems;~~
	~~end;~~

	~~constructor TOwner.Create;~~
	~~begin~~
	~~inherited Create;~~
	~~FItems := TItems.Create;~~
	~~end;~~

	~~destructor TOwner.Destroy;~~
	~~begin~~
	~~FItems.Free;~~
	~~inherited;~~
	~~end;~~
	~~</pre>~~

	~~As can be seen, TItems collection is oqned by TOwner class. TOwner expose Items as read-only property, and thus, there no way to replace collection as a whole. Only collection content can be changed.~~

	~~But, fortunately, TOwner class can be serialized and de-serialized, because TItems collection has fill-read mode converter:~~

	~~<pre class="brush:delphi">~~
	~~var~~
	~~src, dst: TOwner;~~
	~~stream: TStream;~~
	~~s: TBinarySerializer;~~
	~~d: TBinaryDeserializer;~~
	~~begin~~
	~~stream := TMemoryStream.Create;~~
	~~try~~
	~~src := TOwner.Create;~~
	~~src.Items.Add(TItem.Create);~~
	~~src.Items.Add(TItem.Create);~~
	~~src.Items.Add(TItem.Create);~~

	~~s := TBinarySerializer.Create(stream);~~
	~~s.Value(src);~~
	~~s.Free;~~

	~~stream.Position := 0;~~

	~~d := TBinaryDeserializer.Create(stream);~~
	~~dst := d.Value<TOwner>;~~
	~~d.Free;~~
	~~finally~~
	~~stream.Free;~~
	~~end;~~
	~~end;~~
	~~</pre>~~

	~~Please use the following link for more information about fill-read mode:~~
	~~[http://www.lmd.de/downloads/tutorials/serialization/index.html?fill-read_mode.htm Fill-Read Mode]~~

Rafael: /* Using Paste/Copy commands at runtime */

2015-05-27T15:59:18Z

Using Paste/Copy commands at runtime

← Older revision		Revision as of 17:59, 27 May 2015
Line 6:		Line 6:
	<pre class="brush:delphi">		<pre class="brush:delphi">
	if assigned(LMDShellList1.selected) then		if assigned(LMDShellList1.selected) then
	LMDDoContextMenuVerb( LMDShellList1, (LMDShellList1.Selected as TLMDShellListItem).ShellItem, 'copy');		LMDDoContextMenuVerb( LMDShellList1, (LMDShellList1.Selected as TLMDShellListItem).ShellItem, 'copy');
	</pre>		</pre>
	Paste:		Paste:

Rafael: /* LMD ShellPack */

2015-05-27T15:58:45Z

LMD ShellPack

← Older revision		Revision as of 17:58, 27 May 2015
Line 3:		Line 3:
	==LMD ShellPack==		==LMD ShellPack==
	===Using Paste/Copy commands at runtime===		===Using Paste/Copy commands at runtime===
			Copy:
			<pre class="brush:delphi">
			if assigned(LMDShellList1.selected) then
			LMDDoContextMenuVerb( LMDShellList1, (LMDShellList1.Selected as TLMDShellListItem).ShellItem, 'copy');
			</pre>
			Paste:
			<pre class="brush:delphi">
			LMDDoContextMenuVerb( LMDShellList2, LMDShellFolder2.ActiveFolder,'paste');
			</pre>

	==LMD RichPack==		==LMD RichPack==

Rafael at 15:58, 27 May 2015

2015-05-27T15:58:12Z

← Older revision		Revision as of 17:58, 27 May 2015
Line 3:		Line 3:
	==LMD ShellPack==		==LMD ShellPack==
	===Using Paste/Copy commands at runtime===		===Using Paste/Copy commands at runtime===
	~~Copy:~~
	~~<pre class="brush:delphi">~~
	~~if assigned(LMDShellList1.selected) then~~
	~~LMDDoContextMenuVerb( LMDShellList1, (LMDShellList1.Selected as TLMDShellListItem).ShellItem, 'copy');~~
	~~</pre>~~
	~~Paste:~~
	~~<pre class="brush:delphi">~~
	~~LMDDoContextMenuVerb( LMDShellList2, LMDShellFolder2.ActiveFolder,'paste');~~
	~~</pre>~~

	==LMD RichPack==		==LMD RichPack==

Rafael at 15:57, 27 May 2015

2015-05-27T15:57:16Z

← Older revision		Revision as of 17:57, 27 May 2015
Line 4:		Line 4:
	===Using Paste/Copy commands at runtime===		===Using Paste/Copy commands at runtime===
	Copy:		Copy:
	<delphi>		<pre class="brush:delphi">
	if assigned(LMDShellList1.selected) then		if assigned(LMDShellList1.selected) then
	LMDDoContextMenuVerb( LMDShellList1, (LMDShellList1.Selected as TLMDShellListItem).ShellItem, 'copy');		LMDDoContextMenuVerb( LMDShellList1, (LMDShellList1.Selected as TLMDShellListItem).ShellItem, 'copy');
	</~~delphi~~>		</pre>
	Paste:		Paste:
	<delphi>		<pre class="brush:delphi">
	LMDDoContextMenuVerb( LMDShellList2, LMDShellFolder2.ActiveFolder,'paste');		LMDDoContextMenuVerb( LMDShellList2, LMDShellFolder2.ActiveFolder,'paste');
	</~~delphi~~>		</pre>

	==LMD RichPack==		==LMD RichPack==

Balabuyew: /* NG Serialization */

2015-05-27T11:48:16Z

NG Serialization

← Older revision		Revision as of 13:48, 27 May 2015
Line 156:		Line 156:

	Please use the following link for more information about fill-read mode:		Please use the following link for more information about fill-read mode:
	[http://www.lmd.de/downloads/tutorials/serialization/index.html?fill-read_mode.htm]		[http://www.lmd.de/downloads/tutorials/serialization/index.html?fill-read_mode.htm Fill-Read Mode]

Balabuyew: /* How to serialize collections */

2015-05-27T11:47:11Z

How to serialize collections

← Older revision		Revision as of 13:47, 27 May 2015
Line 62:		Line 62:

	<pre class="brush:delphi">		<pre class="brush:delphi">
			function TItemsConverter.GetReadMode: TReadMode;
			begin
			Result := rmFillRead; // Indicate fill-read mode.
			end;

			procedure TItemsConverter.Read(D: TDeserializer; var V);
			var
			lst: TItems;
			begin
			lst := TItems(V); // Since we work in fill-read mode,
			// V already contains a reference to
			// TItems instance; we should not
			// create it here.
			lst.Clear;

			D.BeginArray;
			while D.HasNext do
			lst.Add(D.Value<TItem>);
			D.EndArray;
			end;

			procedure TItemsConverter.Write(S: TSerializer; const V);
			var
			lst: TItems;
			i: Integer;
			begin
			S.BeginArray;
			lst := TItems(V);
			for i := 0 to lst.Count - 1 do
			S.Value(lst[i]);
			S.EndArray;
			end;
	</pre>		</pre>

			As can be seen, GetReadMode returns rmFillRead, which indicates that de-serializer should use fill-read mode. This means that no new TItems instance is created during de-serialization. This mode is especially usefull for collection like classes, because they usually owned by some other objects. For example, lets look at the following class:

			<pre class="brush:delphi">
			type
			TOwner = class
			private
			FItems: TItems;
			public
			constructor Create;
			destructor Destroy; override;
			property Items: TItems read FItems;
			end;

			constructor TOwner.Create;
			begin
			inherited Create;
			FItems := TItems.Create;
			end;

			destructor TOwner.Destroy;
			begin
			FItems.Free;
			inherited;
			end;
			</pre>

			As can be seen, TItems collection is oqned by TOwner class. TOwner expose Items as read-only property, and thus, there no way to replace collection as a whole. Only collection content can be changed.

			But, fortunately, TOwner class can be serialized and de-serialized, because TItems collection has fill-read mode converter:

			<pre class="brush:delphi">
			var
			src, dst: TOwner;
			stream: TStream;
			s: TBinarySerializer;
			d: TBinaryDeserializer;
			begin
			stream := TMemoryStream.Create;
			try
			src := TOwner.Create;
			src.Items.Add(TItem.Create);
			src.Items.Add(TItem.Create);
			src.Items.Add(TItem.Create);

			s := TBinarySerializer.Create(stream);
			s.Value(src);
			s.Free;

			stream.Position := 0;

			d := TBinaryDeserializer.Create(stream);
			dst := d.Value<TOwner>;
			d.Free;
			finally
			stream.Free;
			end;
			end;
			</pre>

			Please use the following link for more information about fill-read mode:
			[http://www.lmd.de/downloads/tutorials/serialization/index.html?fill-read_mode.htm]