delphi 10.4 新知识
<p>https://theroadtodelphi.com/?tdsourcetag=s_pctim_aiomsg</p><p> </p>
<p> </p>
<p> </p>
<p> </p>
<h2 id="site-description">Delphi – Free Pascal – Oxygene</h2>
<p><img src="https://theroadtodelphi.files.wordpress.com/2012/09/blog_1.png"></p>
<div class="clear"> </div>
<div id="wrap">
<div id="main" class="one-sidebar">
<div id="content" class="site-content">
<div class="entry-details">
<p>July 1, 2020<br><span class="byline">by <span class="author vcard">Rodrigo Leave a comment</span></span></p>
</div>
<h2 class="entry-title">Delphi IDE theme Editor Now supports RAD Studio 10.4</h2>
<div class="entry-content">
<p>Hi guys, I just uploaded a new version of DITE with support for RAD Studio 10.4 Sydney</p>
<p><img sizes="(max-width: 611px) 100vw, 611px" srcset="https://theroadtodelphi.files.wordpress.com/2020/07/dite_1.96.6.6.png?w=611 611w, https://theroadtodelphi.files.wordpress.com/2020/07/dite_1.96.6.6.png?w=150 150w, https://theroadtodelphi.files.wordpress.com/2020/07/dite_1.96.6.6.png?w=300 300w, https://theroadtodelphi.files.wordpress.com/2020/07/dite_1.96.6.6.png 744w" alt="DITE_1.96.6.6" class="size-full wp-image-4973 aligncenter lazyload" data-attachment-id="4973" data-permalink="https://theroadtodelphi.com/2020/07/01/delphi-ide-theme-editor-now-supports-rad-studio-10-4/dite_1-96-6-6/" data-orig-file="https://theroadtodelphi.files.wordpress.com/2020/07/dite_1.96.6.6.png" data-orig-size="744,490" data-comments-opened="1" data-image-meta="{"aperture":"0","credit":"","camera":"","caption":"","created_timestamp":"0","copyright":"","focal_length":"0","iso":"0","shutter_speed":"0","title":"","orientation":"0"}" data-image-title="DITE_1.96.6.6" data-image-description="" data-medium-file="https://theroadtodelphi.files.wordpress.com/2020/07/dite_1.96.6.6.png?w=300" data-large-file="https://theroadtodelphi.files.wordpress.com/2020/07/dite_1.96.6.6.png?w=611" data-src="https://theroadtodelphi.files.wordpress.com/2020/07/dite_1.96.6.6.png?w=611"></p>
<p>The themes now are imported into the RAD Studio registry and recognized by the IDE.</p>
<p><img alt="IDE_CustomThemes" class="size-full wp-image-4975 aligncenter lazyload" data-attachment-id="4975" data-permalink="https://theroadtodelphi.com/2020/07/01/delphi-ide-theme-editor-now-supports-rad-studio-10-4/ide_customthemes/" data-orig-file="https://theroadtodelphi.files.wordpress.com/2020/07/ide_customthemes.gif" data-orig-size="468,480" data-comments-opened="1" data-image-meta="{"aperture":"0","credit":"","camera":"","caption":"","created_timestamp":"0","copyright":"","focal_length":"0","iso":"0","shutter_speed":"0","title":"","orientation":"0"}" data-image-title="IDE_CustomThemes" data-image-description="" data-medium-file="https://theroadtodelphi.files.wordpress.com/2020/07/ide_customthemes.gif?w=293" data-large-file="https://theroadtodelphi.files.wordpress.com/2020/07/ide_customthemes.gif?w=468" data-src="https://theroadtodelphi.files.wordpress.com/2020/07/ide_customthemes.gif?w=611"></p>
<p>Looking for the installer? Check the Github Release Area</p>
<p>Categories: Delphi | Permalink.</p>
</div>
<div class="entry-details">
<p>March 27, 2019<br><span class="byline">by <span class="author vcard">Rodrigo 1 Comment</span></span></p>
</div>
<h2 class="entry-title">VCL Styles Utils – New version released</h2>
<div class="entry-content">
<p>Hello Guys, a new version of the VCL Styles Utils was released, the main changes for this update are :</p>
<ul>
<li>Improved Modern Dialogs support</li>
<li>Support for Windows 10 build 1809 (Dark Mode Explorer)</li>
<li>High-DPI support</li>
</ul>
<p><img alt="NewOpendialog" class="alignnone size-full wp-image-4965 lazyload" data-attachment-id="4965" data-permalink="https://theroadtodelphi.com/2019/03/27/vcl-styles-utils-new-version-released/newopendialog/" data-orig-file="https://theroadtodelphi.files.wordpress.com/2019/03/newopendialog.gif" data-orig-size="625,463" data-comments-opened="1" data-image-meta="{"aperture":"0","credit":"","camera":"","caption":"","created_timestamp":"0","copyright":"","focal_length":"0","iso":"0","shutter_speed":"0","title":"","orientation":"0"}" data-image-title="NewOpendialog" data-image-description="" data-medium-file="https://theroadtodelphi.files.wordpress.com/2019/03/newopendialog.gif?w=300" data-large-file="https://theroadtodelphi.files.wordpress.com/2019/03/newopendialog.gif?w=611" data-src="https://theroadtodelphi.files.wordpress.com/2019/03/newopendialog.gif?w=611"></p>
<p>Thank you very much for all the contributors especially to Rickard Johansson (rickard67), salvadordf and luebbe</p>
<p>Rodrigo.</p>
<p>Categories: Delphi | Permalink.</p>
</div>
<div class="entry-details">
<p>July 2, 2017<br><span class="byline">by <span class="author vcard">Rodrigo 4 Comments</span></span></p>
</div>
<h2 class="entry-title">VCL Styles Utils – New version</h2>
<div class="entry-content">
<p>Hello, I just uploaded a new version of the VCL Styles Utils library which include 2 important fixes for the styled menus.</p>
<ul>
<li>First a very nice contribution from gandf which fix the draw for long popup-menus.</li>
</ul>
<p><img alt="Longmenu" class="size-full wp-image-4954 aligncenter lazyload" data-attachment-id="4954" data-permalink="https://theroadtodelphi.com/2017/07/02/vcl-styles-utils-new-version/longmenu/" data-orig-file="https://theroadtodelphi.files.wordpress.com/2017/07/longmenu.png" data-orig-size="139,533" data-comments-opened="1" data-image-meta="{"aperture":"0","credit":"","camera":"","caption":"","created_timestamp":"0","copyright":"","focal_length":"0","iso":"0","shutter_speed":"0","title":"","orientation":"0"}" data-image-title="Longmenu" data-image-description="" data-medium-file="https://theroadtodelphi.files.wordpress.com/2017/07/longmenu.png?w=78" data-large-file="https://theroadtodelphi.files.wordpress.com/2017/07/longmenu.png?w=139" data-src="https://theroadtodelphi.files.wordpress.com/2017/07/longmenu.png?w=611"></p>
<ul>
<li>Also the support for the <em>SubMenuImages</em> property has been improved.</li>
</ul>
<p>Rodrigo.</p>
<p>Categories: Delphi | Permalink.</p>
</div>
<div class="entry-details">
<p>April 26, 2017<br><span class="byline">by <span class="author vcard">Rodrigo 1 Comment</span></span></p>
</div>
<h2 class="entry-title">New VCL Styles from DelphiStyles.com</h2>
<div class="entry-content">
<p>A few days ago <em>KSDev</em> launched a new site, DelphiStyles.com, this new place offers new <em>FMX</em> and <em>VCL Styles</em>. I tested the <em>VCL Styles</em> bundle and are just great, the themes looks modern, sleek and polished.</p>
<p>So if you are looking for a professional looking <em>FMX/</em><em>VCL s</em>tyles for you application this is the place to go.</p>
<p>Check out the <em>TOpenDialog</em> component styled using the <em>VCL Style Utils</em> and the <em>DelphiStyles</em> themes.</p>
<h6>Material Black Pearl</h6>
<p><img data-src="https://dl.dropboxusercontent.com/u/12733424/Blog/DelphiStyles/OpenDialog_Material_Black_Pearl.png"></p>
<h6>Material Oxford Blue</h6>
<p><img src="https://dl.dropboxusercontent.com/u/12733424/Blog/DelphiStyles/OpenDialog_Material_Oxford_Blue.png"></p>
<h6>Windows 10 Black Pearl</h6>
<p><img src="https://dl.dropboxusercontent.com/u/12733424/Blog/DelphiStyles/OpenDialog_Windows10_Black_Pearl.png"></p>
<h6>Windows 10 Oxford Blue</h6>
<p><img src="https://dl.dropboxusercontent.com/u/12733424/Blog/DelphiStyles/OpenDialog_Windows10_Oxford_Blue.png"></p>
<p>Thanks very much to the guys from DelphiStyle (KSDev) which kindly donated a VCL Styles bundle to <em>The Road to Delphi</em>.</p>
<p>Rodrigo.</p>
<p>Categories: Delphi, VCL Styles | Tags: Delphi, Vcl Styles, VCL Styles Utils | Permalink.</p>
</div>
<div class="entry-details">
<p>April 8, 2017<br><span class="byline">by <span class="author vcard">Rodrigo 5 Comments</span></span></p>
</div>
<h2 class="entry-title">DITE and DIC now supports RAD Studio 10.2 Tokyo</h2>
<div class="entry-content">
<p>Hi, I just uploaded a new version of DIC (Delphi IDE Colorizer) with support for RAD Studio 10.2 Tokyo.</p>
<p>Check the next screenshot of the Delphi IDE styled with the <em>Glossy</em> VCL Style.</p>
<h6>(click to enlarge)</h6>
<p><img src="https://dl.dropboxusercontent.com/u/12733424/Blog/Delphi%20IDE%20Theme%20Editor/DIC/DIC%20Images/DIC_DXTokio.png"></p>
<p>Also since some days ago a new version of DITE is available with support for RAD Studio 10.2 Tokyo.</p>
<p><img sizes="(max-width: 611px) 100vw, 611px" srcset="https://theroadtodelphi.files.wordpress.com/2017/04/2.png?w=611 611w, https://theroadtodelphi.files.wordpress.com/2017/04/2.png?w=150 150w, https://theroadtodelphi.files.wordpress.com/2017/04/2.png?w=300 300w, https://theroadtodelphi.files.wordpress.com/2017/04/2.png 744w" alt="2.png" class="alignnone size-full wp-image-4810 lazyload" data-attachment-id="4810" data-permalink="https://theroadtodelphi.com/2017/04/08/dite-and-dic-now-supports-rad-studio-10-2-tokyo/2-16/" data-orig-file="https://theroadtodelphi.files.wordpress.com/2017/04/2.png" data-orig-size="744,490" data-comments-opened="1" data-image-meta="{"aperture":"0","credit":"","camera":"","caption":"","created_timestamp":"0","copyright":"","focal_length":"0","iso":"0","shutter_speed":"0","title":"","orientation":"0"}" data-image-title="2" data-image-description="" data-medium-file="https://theroadtodelphi.files.wordpress.com/2017/04/2.png?w=300" data-large-file="https://theroadtodelphi.files.wordpress.com/2017/04/2.png?w=611" data-src="https://theroadtodelphi.files.wordpress.com/2017/04/2.png?w=611"></p>
<p><span class="megaexamples-highlight">Happy <span class="megaexamples-highlight">weekend.</span></span></p>
<p>Rodrigo.-</p>
<p>Categories: Delphi | Permalink.</p>
</div>
<div class="entry-details">
<p>April 4, 2017<br><span class="byline">by <span class="author vcard">Rodrigo 2 Comments</span></span></p>
</div>
<h2 class="entry-title">TSMBIOS now supports Linux via Delphi 10.2 Tokyo.</h2>
<div class="entry-content">
<p>I just uploaded a new version of the <em>TSMBIOS</em> library with support for Linux via Delphi 10.2 Tokyo. You can found a full description of the project in the <em>Github</em> site.</p>
<p>Check these screenshots of the demo applications running under <em>ubuntu 16.04 LTS</em></p>
<p><img sizes="(max-width: 611px) 100vw, 611px" srcset="https://theroadtodelphi.files.wordpress.com/2017/04/rruzubuntu-paserver-scratch-dir-rruz-linux-ubuntu-processorinformation_001.png?w=611 611w, https://theroadtodelphi.files.wordpress.com/2017/04/rruzubuntu-paserver-scratch-dir-rruz-linux-ubuntu-processorinformation_001.png?w=140 140w, https://theroadtodelphi.files.wordpress.com/2017/04/rruzubuntu-paserver-scratch-dir-rruz-linux-ubuntu-processorinformation_001.png?w=281 281w, https://theroadtodelphi.files.wordpress.com/2017/04/rruzubuntu-paserver-scratch-dir-rruz-linux-ubuntu-processorinformation_001.png 633w" alt="rruz@ubuntu^% ~-PAServer-scratch-dir-RRUZ-Linux Ubuntu-ProcessorInformation_001" class="alignnone size-full wp-image-4781 lazyload" data-attachment-id="4781" data-permalink="https://theroadtodelphi.com/2017/04/04/tsmbios-now-supports-linux-via-delphi-10-2-tokio/rruzubuntu-paserver-scratch-dir-rruz-linux-ubuntu-processorinformation_001/" data-orig-file="https://theroadtodelphi.files.wordpress.com/2017/04/rruzubuntu-paserver-scratch-dir-rruz-linux-ubuntu-processorinformation_001.png" data-orig-size="633,676" data-comments-opened="1" data-image-meta="{"aperture":"0","credit":"","camera":"","caption":"","created_timestamp":"0","copyright":"","focal_length":"0","iso":"0","shutter_speed":"0","title":"","orientation":"0"}" data-image-title="rruz@ubuntu^% ~-PAServer-scratch-dir-RRUZ-Linux Ubuntu-ProcessorInformation_001" data-image-description="" data-medium-file="https://theroadtodelphi.files.wordpress.com/2017/04/rruzubuntu-paserver-scratch-dir-rruz-linux-ubuntu-processorinformation_001.png?w=281" data-large-file="https://theroadtodelphi.files.wordpress.com/2017/04/rruzubuntu-paserver-scratch-dir-rruz-linux-ubuntu-processorinformation_001.png?w=611" data-src="https://theroadtodelphi.files.wordpress.com/2017/04/rruzubuntu-paserver-scratch-dir-rruz-linux-ubuntu-processorinformation_001.png?w=611"><img sizes="(max-width: 611px) 100vw, 611px" srcset="https://theroadtodelphi.files.wordpress.com/2017/04/rruzubuntu-paserver-scratch-dir-rruz-linux-ubuntu-processorinformation_002.png?w=611 611w, https://theroadtodelphi.files.wordpress.com/2017/04/rruzubuntu-paserver-scratch-dir-rruz-linux-ubuntu-processorinformation_002.png?w=150 150w, https://theroadtodelphi.files.wordpress.com/2017/04/rruzubuntu-paserver-scratch-dir-rruz-linux-ubuntu-processorinformation_002.png?w=300 300w, https://theroadtodelphi.files.wordpress.com/2017/04/rruzubuntu-paserver-scratch-dir-rruz-linux-ubuntu-processorinformation_002.png 633w" alt="rruz@ubuntu^% ~-PAServer-scratch-dir-RRUZ-Linux Ubuntu-ProcessorInformation_002" class="alignnone size-full wp-image-4782 lazyload" data-attachment-id="4782" data-permalink="https://theroadtodelphi.com/2017/04/04/tsmbios-now-supports-linux-via-delphi-10-2-tokio/rruzubuntu-paserver-scratch-dir-rruz-linux-ubuntu-processorinformation_002/" data-orig-file="https://theroadtodelphi.files.wordpress.com/2017/04/rruzubuntu-paserver-scratch-dir-rruz-linux-ubuntu-processorinformation_002.png" data-orig-size="633,353" data-comments-opened="1" data-image-meta="{"aperture":"0","credit":"","camera":"","caption":"","created_timestamp":"0","copyright":"","focal_length":"0","iso":"0","shutter_speed":"0","title":"","orientation":"0"}" data-image-title="rruz@ubuntu^% ~-PAServer-scratch-dir-RRUZ-Linux Ubuntu-ProcessorInformation_002" data-image-description="" data-medium-file="https://theroadtodelphi.files.wordpress.com/2017/04/rruzubuntu-paserver-scratch-dir-rruz-linux-ubuntu-processorinformation_002.png?w=300" data-large-file="https://theroadtodelphi.files.wordpress.com/2017/04/rruzubuntu-paserver-scratch-dir-rruz-linux-ubuntu-processorinformation_002.png?w=611" data-src="https://theroadtodelphi.files.wordpress.com/2017/04/rruzubuntu-paserver-scratch-dir-rruz-linux-ubuntu-processorinformation_002.png?w=611"><img sizes="(max-width: 611px) 100vw, 611px" srcset="https://theroadtodelphi.files.wordpress.com/2017/04/rruzubuntu-paserver-scratch-dir-rruz-linux-ubuntu-processorinformation_003.png?w=611 611w, https://theroadtodelphi.files.wordpress.com/2017/04/rruzubuntu-paserver-scratch-dir-rruz-linux-ubuntu-processorinformation_003.png?w=150 150w, https://theroadtodelphi.files.wordpress.com/2017/04/rruzubuntu-paserver-scratch-dir-rruz-linux-ubuntu-processorinformation_003.png?w=300 300w, https://theroadtodelphi.files.wordpress.com/2017/04/rruzubuntu-paserver-scratch-dir-rruz-linux-ubuntu-processorinformation_003.png 633w" alt="rruz@ubuntu^% ~-PAServer-scratch-dir-RRUZ-Linux Ubuntu-ProcessorInformation_003" class="alignnone size-full wp-image-4783 lazyload" data-attachment-id="4783" data-permalink="https://theroadtodelphi.com/2017/04/04/tsmbios-now-supports-linux-via-delphi-10-2-tokio/rruzubuntu-paserver-scratch-dir-rruz-linux-ubuntu-processorinformation_003/" data-orig-file="https://theroadtodelphi.files.wordpress.com/2017/04/rruzubuntu-paserver-scratch-dir-rruz-linux-ubuntu-processorinformation_003.png" data-orig-size="633,268" data-comments-opened="1" data-image-meta="{"aperture":"0","credit":"","camera":"","caption":"","created_timestamp":"0","copyright":"","focal_length":"0","iso":"0","shutter_speed":"0","title":"","orientation":"0"}" data-image-title="rruz@ubuntu^% ~-PAServer-scratch-dir-RRUZ-Linux Ubuntu-ProcessorInformation_003" data-image-description="" data-medium-file="https://theroadtodelphi.files.wordpress.com/2017/04/rruzubuntu-paserver-scratch-dir-rruz-linux-ubuntu-processorinformation_003.png?w=300" data-large-file="https://theroadtodelphi.files.wordpress.com/2017/04/rruzubuntu-paserver-scratch-dir-rruz-linux-ubuntu-processorinformation_003.png?w=611" data-src="https://theroadtodelphi.files.wordpress.com/2017/04/rruzubuntu-paserver-scratch-dir-rruz-linux-ubuntu-processorinformation_003.png?w=611"></p>
<p> </p>
<p>Now just a small note, the <em>TSMBIOS</em> library access to the SMBIOS data reading the <strong>/dev/mem </strong>device file (which provides direct access to system physical memory). So the applications which uses this library require being executed by an user with access to such file, typically a superuser.</p>
<p>Rodrigo.</p>
<p>Categories: Delphi, Linux | Tags: Delphi, Linux, SMBIOS | Permalink.</p>
</div>
<div class="entry-details">
<p>March 29, 2017<br><span class="byline">by <span class="author vcard">Rodrigo 7 Comments</span></span></p>
</div>
<h2 class="entry-title">VCL Styles Utils supports RAD Studio 10.2 Tokyo</h2>
<div class="entry-content">
<p>The new release of the VCL Styles Utils project now is compatible with RAD Studio 10.2 Tokyo .</p>
<p>This new version also improve the support for the <em>Windows</em> 10 custom Styles.</p>
<p>Check this <em>TOpenDialog</em> styled with the <em>Windows 10 Black</em> VCL Style.</p>
<p><img sizes="(max-width: 611px) 100vw, 611px" srcset="https://theroadtodelphi.files.wordpress.com/2017/03/w10black.png?w=611 611w, https://theroadtodelphi.files.wordpress.com/2017/03/w10black.png?w=150 150w, https://theroadtodelphi.files.wordpress.com/2017/03/w10black.png?w=300 300w, https://theroadtodelphi.files.wordpress.com/2017/03/w10black.png 736w" alt="W10Black" class="alignnone size-full wp-image-4746 lazyload" data-attachment-id="4746" data-permalink="https://theroadtodelphi.com/2017/03/29/vcl-styles-utils-supports-rad-studio-10-2-tokyo/w10black/" data-orig-file="https://theroadtodelphi.files.wordpress.com/2017/03/w10black.png" data-orig-size="736,480" data-comments-opened="1" data-image-meta="{"aperture":"0","credit":"","camera":"","caption":"","created_timestamp":"0","copyright":"","focal_length":"0","iso":"0","shutter_speed":"0","title":"","orientation":"0"}" data-image-title="W10Black" data-image-description="" data-medium-file="https://theroadtodelphi.files.wordpress.com/2017/03/w10black.png?w=300" data-large-file="https://theroadtodelphi.files.wordpress.com/2017/03/w10black.png?w=611" data-src="https://theroadtodelphi.files.wordpress.com/2017/03/w10black.png?w=611"></p>
<p>Rodrigo.</p>
<p>Categories: Delphi | Permalink.</p>
</div>
<div class="entry-details">
<p>March 9, 2017<br><span class="byline">by <span class="author vcard">Rodrigo 5 Comments</span></span></p>
</div>
<h2 class="entry-title">TListView OwnerDraw compat with Windows UI & VCL Styles</h2>
<div class="entry-content">
<p>There is a lot of resources of how ownerdraw a <em>Delphi TListView</em>, but most of them are deprecated and don’t take into account the <em>VCL Styles</em> and the StyleServices.</p>
<p>So on this post I will show you how you can ownerdraw a <em>TListView</em> to be compatible with the native <em>Windows</em> Look and feel and the <em>VCL Styles</em>.</p>
<p>First, there is lot of ways to ownerdraw a <em>TListView</em> , but on this post we will focus only in the <em>OnDrawItem</em> event, because offers more flexibility than the <em>OnCustomDrawXXX</em> events handlers .</p>
<p>The <em>OnDrawItem</em> is an event handler of type <em>Vcl.ComCtrls.TLVDrawItemEvent</em></p>
<p>This is the definition of such event</p>
<pre class="brush: delphi; title: ; wrap-lines: false; notranslate">TLVDrawItemEvent = procedure(Sender: TCustomListView;
Item: TListItem; Rect: TRect; State: TOwnerDrawState) of object;
</pre>
<h3>Parameters</h3>
<ul>
<li><strong>Sender</strong> : The <em>ListView</em> which is raising the event.</li>
<li><strong>Item </strong>: The list item which need to be drawn. (you can use this object to read the data of the <em>ListView</em>).</li>
<li><strong>Rect</strong> : The bounds of the item (including the subitems).</li>
<li><strong>State</strong> : The current state of item.</li>
</ul>
<blockquote>
<p><strong>Note</strong>: Before to use the <em>OnDrawItem </em>event you must set the value of the property <em>TListView</em>.<em>ownerdraw</em> to <em>True</em>.</p>
</blockquote>
<hr>
<p>Ok, So I’m planning create a <em>TListview</em> in report mode and draw some controls like a checkbox and progressbar. These controls must looks perfect under the <em>Windows UI</em> and the <em>VCL Styles</em>.</p>
<p>I will start creating the columns of the <em>TListview</em> in runtime (just for personal preference.). I’m using a <em>TDictionary</em> to hold the columns reference in that way I prevent create one variable per column and also I can access the columns by a Name.</p>
<pre class="brush: delphi; title: ; wrap-lines: false; notranslate">procedure TFrmMain.AddColumns;
Procedure AddColumn(const AColumnName : String; AWidth : Integer; AColumnType : TColumnType);
begin
FColumns.Add(AColumnName, LvSampleData.Columns.Add());
FColumns.Caption := AColumnName;
FColumns.Width := AWidth;
FColumns.Tag := Integer(AColumnType);
end;
begin
FColumns:= TDictionary<string, TListColumn>.Create();
AddColumn('Text', 150, ctText);
AddColumn('Porc', 100, ctProgress);
AddColumn('Text2', 150, ctText);
AddColumn('Enabled', 100, ctCheck);
end;
</pre>
<p>Please pay attention to the Tag property of the Columns, I’m using this to store the type of the column (<em>TColumnType</em> is a custom type).</p>
<pre class="brush: delphi; title: ; wrap-lines: false; notranslate"> TColumnType = (ctText, ctCheck, ctProgress);
</pre>
<p>Next we need fill the listview with some sample data (This doesn’t requires much explanation right?).</p>
<pre class="brush: delphi; title: ; wrap-lines: false; notranslate">const
MaxItems = 100;
var
LItem : TListItem;
i : Integer;
begin
Randomize;
LvSampleData.Items.BeginUpdate;
try
for i := 0 to MaxItems - 1 do
begin
LItem := LvSampleData.Items.Add;
LItem.Caption:= Format('Sample text', []);
LItem.SubItems.Add(IntToStr(Random(101)));
LItem.SubItems.Add(Format('Sample text 2', []));
LItem.SubItems.Add(IntToStr(Random(2)));
end;
finally
LvSampleData.Items.EndUpdate;
end;
end;
</pre>
<p>And now I can start to draw the <em>TListView</em> items using the the <em>OnDrawItem</em> event.</p>
<p>First I will store a reference to the <em>StyleServices</em> function (In this way I’m avoiding call the same function again and again).</p>
<blockquote>
<p>Note : The <em>StyleServices</em> method returns an instance of a <em>TCustomStyleServices</em> type, which allow to gain access to all the styling functionality of the current active style (<em>Windows</em> or <em>VCL Style</em>).</p>
</blockquote>
<p>Next I will erase any previous content of the current row by filling with the current <em>clWindow </em>color.</p>
<p>Check how the <em>clWindow</em> const is used in the <em>TCustomStyleServices.GetSystemColor</em> function to return the current <em>Window Background</em> color.</p>
<pre class="brush: delphi; title: ; wrap-lines: false; notranslate">procedure TFrmMain.LvSampleDataDrawItem(Sender: TCustomListView; Item: TListItem; Rect: TRect; State: TOwnerDrawState);
...
...
begin
LStyleService:= StyleServices;
if not LStyleService.Enabled then exit;
Sender.Canvas.Brush.Style := bsSolid;
Sender.Canvas.Brush.Color := LStyleService.GetSystemColor(clWindow);
Sender.Canvas.FillRect(Rect);
LRect := Rect;
</pre>
<p>Now I will iterate over all the columns of the Listview resolving the current column type, the text stored in the current item and calculating the bounds of the current item.</p>
<pre class="brush: delphi; title: ; wrap-lines: false; notranslate">...
...
for i := 0 to TListView(Sender).Columns.Count - 1 do
begin
LColummnType := TColumnType(TListView(Sender).Columns.Tag);
LRect.Right:= LRect.Left + Sender.Column.Width;
LText := '';
if i = 0 then
LText := Item.Caption
else
if (i - 1) <= Item.SubItems.Count - 1 then
LText := Item.SubItems;
....
....
</pre>
<blockquote>
<p>Note : The OnDrawItem event is raised once per each row of the ListView, So you must draw all the items and subitems yourself).</p>
</blockquote>
<p>Now depending of the column type (Text, CheckBox or ProgressBar) I will draw the item.</p>
<h2>Text</h2>
<p>For the columns of type text (ctText), I check if the <em>State</em> of the item is <em>Selected</em> or <em>Hot</em> and Draw the highlight bar (using the <em>TCustomStyleServices.</em><em>DrawElement</em> method) and finally the text is rendered using the <em>TCustomStyleServices</em>.<em>DrawText</em> function.</p>
<p>Check how the color of the text is selected depending of the state of the item.</p>
<pre class="brush: delphi; title: ; wrap-lines: false; notranslate"> ctText:begin
LDetails := LStyleService.GetElementDetails(tgCellNormal);
LColor := LStyleService.GetSystemColor(clWindowText);
if ( * State <> []) then
begin
LDetails := LStyleService.GetElementDetails(tgCellSelected);
LColor := LStyleService.GetSystemColor(clHighlightText);
LStyleService.DrawElement(Sender.Canvas.Handle, LDetails, LRect);
end;
LRect2 := LRect;
LRect2.Left := LRect2.Left + ListView_Padding;
LTextFormat := TTextFormatFlags(DT_SINGLELINE or DT_VCENTER or DT_LEFT or DT_END_ELLIPSIS);
LStyleService.DrawText(Sender.Canvas.Handle, LDetails, LText, LRect2, LTextFormat, LColor);
end;
</pre>
<h2>CheckBox</h2>
<p>For the checkbox columns, the process start in the same way, first check if the item is highlighted and then the bar is drawn.</p>
<p>Then I calculate the bounds of the checkbox and get the text for the column. (for this sample the Value 1 means checked otherwise means unchecked).</p>
<p>Now according to the value and the state of the checkbox is draw.</p>
<p>Please pay attention to how the the element to be drawn is selected depending of the current state and the current text.</p>
<pre class="brush: delphi; title: ; wrap-lines: false; notranslate"> ctCheck: begin
if ( * State <> []) then
begin
LDetails := LStyleService.GetElementDetails(tgCellSelected);
LStyleService.DrawElement(Sender.Canvas.Handle, LDetails, LRect);
end;
LSize.cx := GetSystemMetrics(SM_CXMENUCHECK);
LSize.cy := GetSystemMetrics(SM_CYMENUCHECK);
LRect2.Top := Rect.Top + (Rect.Bottom - Rect.Top - LSize.cy) div 2;
LRect2.Bottom := LRect2.Top + LSize.cy;
LRect2.Left := LRect.Left + ((LRect.Width - LSize.cx) div 2);
LRect2.Right:= LRect2.Left + LSize.cx;
if (LText = '1') then
begin
if ( * State <> []) then
LDetails := LStyleService.GetElementDetails(tbCheckBoxCheckedHot)
else
LDetails := LStyleService.GetElementDetails(tbCheckBoxCheckedNormal);
end
else
begin
if ( * State <> []) then
LDetails := LStyleService.GetElementDetails(tbCheckBoxUncheckedHot)
else
LDetails := LStyleService.GetElementDetails(tbCheckBoxUncheckedNormal);
end;
LStyleService.DrawElement(Sender.Canvas.Handle, LDetails, LRect2);
end;
</pre>
<h2>ProgressBar</h2>
<p>Finally for the progressbar columns, after of check the current state I draw the frame of the progress bar by using the <em>tpBar</em> element, then getting the current value for the column I calculate the bounds of the <em>chunks</em> to be draw. Then depending of the value I fill the progress bar with a solid color or with the element of the current style.</p>
<pre class="brush: delphi; title: ; wrap-lines: false; notranslate"> ctProgress:
begin
if ( * State <> []) then
begin
LDetails := LStyleService.GetElementDetails(tgCellSelected);
LStyleService.DrawElement(Sender.Canvas.Handle, LDetails, LRect);
end;
LRect2 := ResizeRect(LRect, 2, 2, 2, 2);
LDetails := LStyleService.GetElementDetails(tpBar);
LStyleService.DrawElement(Sender.Canvas.Handle, LDetails, LRect2);
if not TryStrToInt(LText, p) thenp := 0;
InflateRect(LRect2, -1, -1);
LRect2.Right := LRect2.Left + Round(LRect2.Width * p / 100);
if p < 20 then
begin
Sender.Canvas.Brush.Style := bsSolid;
Sender.Canvas.Brush.Color := clWebFirebrick;
Sender.Canvas.FillRect(LRect2);
end
else
if p < 50 then
begin
Sender.Canvas.Brush.Style := bsSolid;
Sender.Canvas.Brush.Color := clWebGold;
Sender.Canvas.FillRect(LRect2);
end
else
begin
LDetails := LStyleService.GetElementDetails(tpChunk);
LStyleService.DrawElement(Sender.Canvas.Handle, LDetails, LRect2);
end;
end;
</pre>
<p>This is the final result of the code</p>
<p><img sizes="(max-width: 554px) 100vw, 554px" srcset="https://theroadtodelphi.files.wordpress.com/2017/03/glow.png 554w, https://theroadtodelphi.files.wordpress.com/2017/03/glow.png?w=150 150w, https://theroadtodelphi.files.wordpress.com/2017/03/glow.png?w=300 300w" alt="Glow" class="size-full wp-image-4715 aligncenter lazyload" data-attachment-id="4715" data-permalink="https://theroadtodelphi.com/2017/03/09/tlistview-ownerdraw-compat-with-windows-ui-vcl-styles/glow/" data-orig-file="https://theroadtodelphi.files.wordpress.com/2017/03/glow.png" data-orig-size="554,239" data-comments-opened="1" data-image-meta="{"aperture":"0","credit":"","camera":"","caption":"","created_timestamp":"0","copyright":"","focal_length":"0","iso":"0","shutter_speed":"0","title":"","orientation":"0"}" data-image-title="Glow" data-image-description="" data-medium-file="https://theroadtodelphi.files.wordpress.com/2017/03/glow.png?w=300" data-large-file="https://theroadtodelphi.files.wordpress.com/2017/03/glow.png?w=554" data-src="https://theroadtodelphi.files.wordpress.com/2017/03/glow.png?w=611"></p>
<p><img sizes="(max-width: 554px) 100vw, 554px" srcset="https://theroadtodelphi.files.wordpress.com/2017/03/windows10dark.png 554w, https://theroadtodelphi.files.wordpress.com/2017/03/windows10dark.png?w=150 150w, https://theroadtodelphi.files.wordpress.com/2017/03/windows10dark.png?w=300 300w" alt="Windows10Dark" class="size-full wp-image-4716 aligncenter lazyload" data-attachment-id="4716" data-permalink="https://theroadtodelphi.com/2017/03/09/tlistview-ownerdraw-compat-with-windows-ui-vcl-styles/windows10dark/" data-orig-file="https://theroadtodelphi.files.wordpress.com/2017/03/windows10dark.png" data-orig-size="554,242" data-comments-opened="1" data-image-meta="{"aperture":"0","credit":"","camera":"","caption":"","created_timestamp":"0","copyright":"","focal_length":"0","iso":"0","shutter_speed":"0","title":"","orientation":"0"}" data-image-title="Windows10Dark" data-image-description="" data-medium-file="https://theroadtodelphi.files.wordpress.com/2017/03/windows10dark.png?w=300" data-large-file="https://theroadtodelphi.files.wordpress.com/2017/03/windows10dark.png?w=554" data-src="https://theroadtodelphi.files.wordpress.com/2017/03/windows10dark.png?w=611"></p>
<p><img sizes="(max-width: 554px) 100vw, 554px" srcset="https://theroadtodelphi.files.wordpress.com/2017/03/windowsui.png 554w, https://theroadtodelphi.files.wordpress.com/2017/03/windowsui.png?w=150 150w, https://theroadtodelphi.files.wordpress.com/2017/03/windowsui.png?w=300 300w" alt="WindowsUI" class="size-full wp-image-4717 aligncenter lazyload" data-attachment-id="4717" data-permalink="https://theroadtodelphi.com/2017/03/09/tlistview-ownerdraw-compat-with-windows-ui-vcl-styles/windowsui/" data-orig-file="https://theroadtodelphi.files.wordpress.com/2017/03/windowsui.png" data-orig-size="554,243" data-comments-opened="1" data-image-meta="{"aperture":"0","credit":"","camera":"","caption":"","created_timestamp":"0","copyright":"","focal_length":"0","iso":"0","shutter_speed":"0","title":"","orientation":"0"}" data-image-title="WindowsUI" data-image-description="" data-medium-file="https://theroadtodelphi.files.wordpress.com/2017/03/windowsui.png?w=300" data-large-file="https://theroadtodelphi.files.wordpress.com/2017/03/windowsui.png?w=554" data-src="https://theroadtodelphi.files.wordpress.com/2017/03/windowsui.png?w=611"></p>
<p>As you can see the list view is draw consistently under <em>Windows</em> or when a custom <em>Style</em> is used.</p>
<p>The full source code is available on Github.</p>
<p>Categories: Delphi, VCL Styles | Tags: Delphi, Vcl Styles | Permalink.</p>
</div>
<div class="entry-details">
<p>May 27, 2016<br><span class="byline">by <span class="author vcard">Rodrigo 8 Comments</span></span></p>
</div>
<h2 class="entry-title">DIC supports RAD Studio 10.1 Berlin</h2>
<div class="entry-content">
<p>Hello Folks, I just uploaded a new version of the Delphi IDE Colorizer (DIC) plugin with support for <strong>RAD Studio 10.1 Berlin</strong>.</p>
<p><img sizes="(max-width: 611px) 100vw, 611px" srcset="https://theroadtodelphi.files.wordpress.com/2016/05/berlin-splashscreen.png?w=611 611w, https://theroadtodelphi.files.wordpress.com/2016/05/berlin-splashscreen.png?w=150 150w, https://theroadtodelphi.files.wordpress.com/2016/05/berlin-splashscreen.png?w=300 300w, https://theroadtodelphi.files.wordpress.com/2016/05/berlin-splashscreen.png 632w" alt="Berlin - SplashScreen" class="size-full wp-image-4448 aligncenter lazyload" data-attachment-id="4448" data-permalink="https://theroadtodelphi.com/2016/05/27/dic-supports-rad-studio-10-1-berlin/berlin-splashscreen/" data-orig-file="https://theroadtodelphi.files.wordpress.com/2016/05/berlin-splashscreen.png" data-orig-size="632,430" data-comments-opened="1" data-image-meta="{"aperture":"0","credit":"","camera":"","caption":"","created_timestamp":"0","copyright":"","focal_length":"0","iso":"0","shutter_speed":"0","title":"","orientation":"0"}" data-image-title="Berlin – SplashScreen" data-image-description="" data-medium-file="https://theroadtodelphi.files.wordpress.com/2016/05/berlin-splashscreen.png?w=300" data-large-file="https://theroadtodelphi.files.wordpress.com/2016/05/berlin-splashscreen.png?w=611" data-src="https://theroadtodelphi.files.wordpress.com/2016/05/berlin-splashscreen.png?w=611"></p>
<p><em>DIC is a styling plugin for the RAD Studio IDE which allow you customize the UI of the IDE Workspace . You can use a predefined theme or create your own, also DIC is compatible with the VCL Styles.</em></p>
<p class="jetpack-slideshow-noscript robots-nocontent">This slideshow requires JavaScript.</p>
<div id="gallery-4443-1-slideshow" class="slideshow-window jetpack-slideshow slideshow-black" data-trans="fade" data-autostart="1" data-gallery="[{"src":"https:\/\/theroadtodelphi.files.wordpress.com\/2016\/05\/1.png","id":"4445","title":"1","alt":"","caption":"","itemprop":"image"},{"src":"https:\/\/theroadtodelphi.files.wordpress.com\/2016\/05\/2.png","id":"4446","title":"2","alt":"","caption":"","itemprop":"image"},{"src":"https:\/\/theroadtodelphi.files.wordpress.com\/2016\/05\/3.png","id":"4447","title":"3","alt":"","caption":"","itemprop":"image"}]"> </div>
<p>You can download the installer from Github.</p>
<p>By the way, on the last weeks I’ve updated another projects adding support for RAD Studio 10.1 Berlin.</p>
<ul>
<li>Delphi IDE Theme Editor</li>
<li>VCL Styles Utils</li>
<li>Delphi Dev. Shell Tools</li>
</ul>
<p>Rodrigo.</p>
<p>Categories: Delphi, Tools | Tags: tools | Permalink.</p>
</div>
<div class="entry-details">
<p>April 20, 2016<br><span class="byline">by <span class="author vcard">Rodrigo 10 Comments</span></span></p>
</div>
<h2 class="entry-title">DITE supports RAD Studio 10.1 Berlin</h2>
<div class="entry-content">
<p>I just updated the Delphi IDE Theme Editor adding support for RAD Studio 10.1 Berlin.</p>
<p><img sizes="(max-width: 611px) 100vw, 611px" srcset="https://theroadtodelphi.files.wordpress.com/2016/04/dite_compact.png?w=611&h=402 611w, https://theroadtodelphi.files.wordpress.com/2016/04/dite_compact.png?w=150&h=99 150w, https://theroadtodelphi.files.wordpress.com/2016/04/dite_compact.png?w=300&h=198 300w, https://theroadtodelphi.files.wordpress.com/2016/04/dite_compact.png 744w" alt="DITE_Compact" width="611" height="402" class="aligncenter size-full wp-image-4420 lazyload" data-attachment-id="4420" data-permalink="https://theroadtodelphi.com/2016/04/20/dite-supports-rad-studio-10-1-berlin/dite_compact/" data-orig-file="https://theroadtodelphi.files.wordpress.com/2016/04/dite_compact.png" data-orig-size="744,490" data-comments-opened="1" data-image-meta="{"aperture":"0","credit":"","camera":"","caption":"","created_timestamp":"0","copyright":"","focal_length":"0","iso":"0","shutter_speed":"0","title":"","orientation":"0"}" data-image-title="DITE_Compact" data-image-description="" data-medium-file="https://theroadtodelphi.files.wordpress.com/2016/04/dite_compact.png?w=300" data-large-file="https://theroadtodelphi.files.wordpress.com/2016/04/dite_compact.png?w=611" data-src="https://theroadtodelphi.files.wordpress.com/2016/04/dite_compact.png?w=611&h=402"></p>
<p>Also this new version of DITE includes a improved thumbnail generator and a option to change between <em>compact </em>and <em>full </em>GUI which can be set with the options of the title bar.</p>
<p>Remember which starting with RAD Studio XE8, DITE allows you edit the values (color and font) of the IDE <em>modern theme</em>. To use it just press the button “Additional Settings” and set values for the Main ToolBar and the IDE Font, finally press the button “Apply”. (For restore the default settings just press the button <em>Restore</em>).</p>
<p><img sizes="(max-width: 300px) 100vw, 300px" srcset="https://theroadtodelphi.files.wordpress.com/2015/09/dite_10seattle_3.png 300w, https://theroadtodelphi.files.wordpress.com/2015/09/dite_10seattle_3.png?w=150 150w" alt="DITE_10Seattle_3" class="aligncenter size-full wp-image-4225 lazyload" data-attachment-id="4225" data-permalink="https://theroadtodelphi.com/2015/09/01/dite-supports-rad-studio-10-seattle/dite_10seattle_3/" data-orig-file="https://theroadtodelphi.files.wordpress.com/2015/09/dite_10seattle_3.png" data-orig-size="300,145" data-comments-opened="1" data-image-meta="{"aperture":"0","credit":"","camera":"","caption":"","created_timestamp":"0","copyright":"","focal_length":"0","iso":"0","shutter_speed":"0","title":"","orientation":"0"}" data-image-title="DITE_10Seattle_3" data-image-description="" data-medium-file="https://theroadtodelphi.files.wordpress.com/2015/09/dite_10seattle_3.png?w=300" data-large-file="https://theroadtodelphi.files.wordpress.com/2015/09/dite_10seattle_3.png?w=300" data-src="https://theroadtodelphi.files.wordpress.com/2015/09/dite_10seattle_3.png?w=611"></p>
<p>You can download the DITE from here.</p>
<p>Rodrigo.</p>
<p>Categories: Delphi, Tools | Tags: tools | Permalink.</p>
</div>
<h1 class="assistive-text">Post navigation</h1>
</div>
</div>
</div>
</div>
<div id="MySignature" role="contentinfo">
好不容易活着<br><br>
来源：https://www.cnblogs.com/iwana/p/13220750.html
頁:
[1]