frp内网穿透,解决客户端(frpc.exe)莫名退出后自动重启
frp内网穿透,解决客户端(frpc.exe)莫名退出后自动重启
CrossVcl 1.53.7z
CrossVcl is a toolchain that permits the development macOS and Linux application using Embarcadero OSX compiler and VCL.
Conceptually, CrossVcl is a combination of two major components:
Runtimes: Brand-new implementations of WinAPI for macOS nad Linux, tightly integrated with the native OS runtime.
Design Time Management: An IDE expert which allows to add OSX64 and Linux64 platform to VCL project and setup it with CrossVcl.
FastReport V6.4.8_ByJoe.7z
解决 fastreport 字符中出现 行首 为标点符号的问题.
FlyTreeViewPro.Suite.7z
此控件在树控件,速度绝对可以称为最快(没有之一)
10万个节点,不管是创建,还是清除,1秒钟内可以创建完成,而其它同类控件至少需要15秒;(我的电脑 I5-10500 + 32G + SSD(NVME)500G * 2)
有一个小细节须注意。
TreeView1.ITEMS.beginUpdate;
// 生成树的代码
TreeView1.ITEMS.endUpdate;
如果前后不加上 BeginUpdate 与 EndUpdate 的话,
生成速度甚至不如同类控件;
控件开发基础.rar
想要学习DELPHI的控件开发,这个资料非常的值得一看。
Delphi控件开发 1~8 由CowNew开源团队撰写。
文章将通过一个简单的例子来为初学者介绍编写控件的一些基本方法和模式。
这个例子控件叫TLeiLabel,是在TLabel的基础上增加两个实用的功能:一是使文字具有立体形状,二是使文字具有超链接属性。下面就让我们一步步来实现这些功能。
一、使文字具有立体形状
首先定义类型T3DEffect和属性Style3D分别如下:
T3DEffect=(Normal,Raised,Lowered, Shadowed);
property Style3D:T3DEffect read FStyle3D write SetStyle3D default Normal;
再在private中定义变量:“FStyle3D:T3DEffect;”,并设置SetStyle3D()方法如下,这也是写方法的一般格式:
procedure TLeiLabel.SetStyle3D(Value: T3DEffect);
begin
if FStyle3D <> value then
begin
FStyle3D := value;
invalidate; //表示控件将重画
end;
end;
另外对于带阴影的文字还要定义阴影的偏移量ShadeXOffSet和ShadeYOffSet:
property ShadowXOffSet: integer read FXOffSet write SetFXOffSet default 5;
property ShadowYOffSet: integer read FYOffSet write SetFYOffSet default -5;
写方法SetFXOffSet()、SetFYOffSet()和上面的SetStyle3D()类似。
要重画控件一般要重载Paint方法,此处只是重画文字,我们只需重载DoDrawText方法。
DoDrawText的声明放在Protected中:
procedure DoDrawText(var Rect: TRect; Flags: Longint); override;
此处DoDrawText()根据四种类型(正常、凸起、凹进和阴影)分别画出不同的文字。
二、使文字具有超链接属性
定义一个属性URL表示要链接的网址或Email地址。
Property URL : String read FURL write SetURL;
写方法SetURL如下:
procedure TLeiLabel.SetURL(Value: String);
Begin
if FURL <> Value then FURL := Value ;
if FURL <> then
Cursor := crHandPoint;
end;
当点击此Label时要打开浏览器或收发邮件工具,这便要重载Click方法。
Procedure Click; Override;
procedure TLeiLabel.Click;
var s: string;
Begin
Inherited Click;
if FURL = then exit;
if LowerCase(Copy(FURL,1,7)) = http:// then
s := FURL
else if Pos(@,FURL) <> 0 Then
s := mailt + FURL
else
s := http:// + FURL;
ShellExecute(Application.Handle, open, PChar(s), NIL, NIL, SW_SHOWNORMAL);
end;
一般的超链接当鼠标移入时文字的颜色发生变化。为此加上属性HoverColor,表示鼠标移入时文字的颜色。
Property HoverColor : TColor Read FHoverColor Write SetHoverColor default clRed;
还要定义两个接收Windows消息CM_MOUSEENTER和CM_MOUSELEAVE(鼠标移进和移出)的过程:
Procedure CMMouseE
InfoPower 4K v20.0.2.3 for XE10.3 RIO_ByJoe.7z
在各种群或是网上找到的类似 InfoPower 4K v20.0.2.3 for D10.3 Rio Full Source
基本上想顺利的安装上都相当的不容易。仿佛是对BDE的支持问题导致很多地方编译通不过
于是我整理了一下。
简化的安装方法,只需要编译安装一个DPK。
FastReport QRCode
让你的 FastReport 支持 QRCode 二维码
TscExcelExport 3.6 full source
* The warnings 'unsafe code', 'unsafe type' and 'unsafe typecast' should be ignored.
In Delphi 7, 2005, 2006, Turbo Delphi and 2007 these warnings can be disabled in your project options.
--------------------------------------------------------------------------------
Version 1.0 (February 2000)
Version 1.2
- Improved connection to Excel
Version 1.3
- Added Orientation of titles
- Added StyleColumnWidth
Version 1.4
- Improved GetColumnCharacters
- Added Border properties and background colors for Titles, Data and Summary
- Added Summary properties (SummarySelection, SummaryFields, SummaryCalculation)
Version 1.5
- Improved speed of exporting data
- Improved exporting string-fields
- Added ConnectTo property
Version 1.6
- Suppression of reference to Dataset.RecordCount (thanks to G閞ard Beneteau)
- Added VisibleFieldsOnly property
Version 1.7
- Notification when disconnecting dataset
- Very fast export by using a variant matrix (thanks to Frank van den Bergh)
Version 1.8
- Bug in exporting titles (thanks to Roberto Parola)
- Setting format of cells before exporting data (thanks to Asbj鴕n Heggvik)
- Added BlockOfRecords property : little bit faster and more control of memory
- Added properties to set begin row of titles and data
Version 1.9
- Added properties (Orientation, WrapText, Alignment) to font (thanks to David Balick)
(property OrientationTitles is removed)
- Added HeaderText (thanks to David Balick)
- Improved some routines
Version 2.0
- Added read only property with row number of last data row
- Added property with the Excel tabsheet so after the export
it is possible to access the cells in Excel
- Added event OnExportRecords
Version 2.1
- Bugfixes
Version 2.2
- Bugfix when exporting filtered dataset (thanks to Heinz Faerber)
- New column width styles : cwFieldDisplayWidth, cwFieldDataSize, cwEnhAutoFit (idea from Scott Stanek)
Version 2.3
- Added properties begin column data/titles and header (idea from Knjazev Sergey)
- Added property ShowTitles
Version 2.4
- Support for Delphi 6.0
Version 2.5
- D6 : problem when using disconnect
Version 2.6
- Bugfixes and some improvements
- Added method LoadDefaultProperties to reset all properties
- Improvement SetFormat (thanks to Enrico Chiaramonte)
- Improvements using borders (thanks to Ot醰io)
- Added event OnGetCellBackgroundColorEvent (thanks to Yuri Plotnikov)
- Added events to export data without using a TDataset
and new property DataPipe : dpDataset, dpCustom (thanks to David Balick)
- Event OnExportRecords will be triggered after exporting the record
Version 2.7
- Some bugfixes
- Added new unit scExcelExportReg which contains a component editor
- Added exceptions to prevent access violations
(EFileNotExists, ENoDatasetConnected, EDatasetNotActive, ENoActiveWorkbook)
- Added new property Filename which can be used to add data to existing file
- Add data to existing worksheet when name of given worksheet already exists
- Added new feature to group rows (thanks to Vadim Mescheryakov & Stijn Vansummeren)
- Added new group options properties : ClearContents, BorderRange, IntervalFontSize
- New events for exporting without dataset : OnGotoFirstRecord, OnGotoNextRecord
Version 2.81
- Created a package for Delphi5 and Delphi6 to make installation easier
- Added new public method Connect. Can be used to make a connection to Excel before
exporting data. When exporting more datasets at the same time, the Disconnect
method should be used after using the ExportDataset method !
- Added new read only property Connected.
- Text property of field in stead of Value property is exported
so OnGetText events can be used
Version 2.91
- Improvements SetFormat (before exporting data)
- Added support for fieldtype ftTimeStamp
- Added fieldtype ftMemo, ftOraClob, ftFmtMemo, these kinds of fields are exported
using AsVariant not the Text property like other fields
- Improvement for regional settings of floats (thanks to Jorge Pinetta)
- Improvement ShowTitles and BeginRowData properties (thanks to Jordi March i Nogu?
- Added FooterText properties
- Small changes for Delphi 7.0
Version 3.0
- Bugfix for Delphi 5 (added extra compiler directives)
- Improvements constants of Borders, Colors, ...
- Use OnGetText event for memo field when it is assigned,
otherwise export contents of memo
- Improvement exporting string data when DataPipe = dpCustom
- New demonstration program
Version 3.1
- Bugfix for displayformat (InitFormatNumbers was disabled)
- Improvements for exporting currency fields (a kind of curency displayformat
is created so that the result in Excel looks the same as in your Delphi program)
- Improvement for setting displayformat for cells. This has to be done before
exporting. In previous version this was done from row 1 to 9999.
When exporting more records they had no displayformat.
Now displayformat for each block of rows is set.
This will also increase the file size !
- Added resource strings for the exceptions. Now these error
messages can be translated.
- Added scAVG (average) as new TSummaryCalculation type
Version 3.11
- Added support for displayformat of datetime fields
Version 3.12
- Bugfix displayformat of time field
Version 3.2 (May 2004)
- Bugfix displayformat with thousand seperators
- Bugfix date time fields with Excel 2003 (internal American datetime format should be used)
- Tested with MS Excel 2003
Version 3.3 (February 2005)
- Bugfixes : ExcelVersion, Excel 2003, ...
- Created 2 packages, a run-time (ExcelExportPack) and a design-time (dclExcelExportPack)
- Added package for Delphi (BDS) 2005
- Added new OnCellStyle event which can be used to change the background color
and font color, size, name and bold style of a cell
- Added new OnFieldCellStyle event which can be used to change the background color
and font color, size, name and bold style of a cell when datapipe is set to dpCustom
- Added ftBCD and ftFMTBCD datatype in IsValueField function
- Added ftFMTBCD datatype to CanConvertFieldToCell function
Version 3.31 (February 2005)
- Empty datetime fields are exported as '' instead of 31/12/1899 (thanks to Peter Hannah)
Version 3.4 (April 2006)
- Bugfix Memo fields, maximum length 910 (thanks to Douglas Neckers)
- Bugfix set font and style when there are more then 26 columns (thanks to Horst Borscht)
- Made properties ExcelApplication and ExcelWorkbook public
- Added IsExcelAppActive function
- Added ENotSupported exception
- Added Quit option for Disconnect method
- Added support for ExcelXP type library
- Added FileFormat XML (XML spreadsheet, only with ExcelXP type library)
- Added scExcelExportConfig.inc unit with compiler directives
for choosing Excel type library (97, 2000, XP)
- Added package and package group for Delphi (BDS) 2006
Version 3.41 (May 2006)
- Bugfix compiler directives in Delphi 5
- Added SummaryDisplayFormat property
Version 3.42 (June 2006)
- Bugfix BeginRowHeader
- Added PropertyGroups parameter to LoadDefaultProperties
Now a set of property groups can be given : pgFont, pgPositions, pgSummary, pgGroup, pgText, pgOther
- Improvement WorkSheetName. By setting the WorkSheetName property an existing or new
worksheet can be focused after the export.
Version 3.5 (September 2006)
- Bugfix setting column width
- Added properties for merging of header and footer cells (MergeHeaderCells, MergeFooterCells)
- Added AutoFilter property for titles of dataset
- Added support for Excel 2007 (b鑤a)
- Added ffXLSX for saving files in Excel 2007 Open XML format
- Added support for OnGetText event for numeric fields
- Added public property for LCID so it can be used after exporting
- Using default font and size of Excel by setting Size = -1 and Font.Name = 'MS Sans Serif'
-> Excel97/2003 : Arial size 10, Excel 2007 : Calibri size 11
- Tested with Turbo Delphi Explorer (Win32)
Version 3.51 (October 2006)
- Added readonly TypeLibrary property
Version 3.6 (June 2007)
- Added support for Delphi 2007
- Retested support for Excel 2007
- Tested with Windows Vista
- Started with converting comments to XML documentation
- Added public method FindFirstEmptyRow
Ehlib 4.3.2.1 (完整源代码)
EhLib 4.3 Build 4.3.21 source included version.
----------------------------------------------
The Library contains components and classes for Borland Delphi
versions 5, 6, 7, 8 & 9 , Borland C++ Builder versions 5 & 6,
Borland Developer Studio 2006, CodeGear Delphi 2007 and
CodeGear RAD Studio 2009.