VCL Component Delphi компоненты / Delphi components # 9

TxQuery component is a TDataSet descendant component that can be used to query one or more TDataSet descendant components using SQL statements. It is implemented in Delphi 100% source code, no DLL required, because it implements its own SQL syntax parser and SQL engine.

 
DevExpress v18.2.6 Fs

Comparing editions:

-- search:A[A-F,0-9]{48},location: DevExpress18.2.6;extension:*.pas --

Code:
DevExpress18.2.6\ExpressBars\Sources\dxBar.pas"(51886,3): A160B306802597B1D06120D3614045B006279117F48117823: TdxBarItem;
DevExpress18.2.6\ExpressBars\Sources\dxBar.pas"(51891,3): A160B306802597B1D06120D3614045B006279117F48117823 := AItemClass.Create(AOwner);
DevExpress18.2.6\ExpressBars\Sources\dxBar.pas"(51893,20): Result.Item := A160B306802597B1D06120D3614045B006279117F48117823;
DevExpress18.2.6\ExpressBars\Sources\dxBar.pas"(51895,5): A160B306802597B1D06120D3614045B006279117F48117823.Free;
DevExpress18.2.6\ExpressDBTree Suite\Sources\dxdbtrel.pas"(936,3): A160B166B04056E105B061407110E11127778106B24006B7E: TCreateParams;
DevExpress18.2.6\ExpressDBTree Suite\Sources\dxdbtrel.pas"(939,16): CreateParams(A160B166B04056E105B061407110E11127778106B24006B7E);
DevExpress18.2.6\ExpressDBTree Suite\Sources\dxdbtrel.pas"(941,25): AdjustWindowRectEx(R, A160B166B04056E105B061407110E11127778106B24006B7E.Style, False, A160B166B04056E105B061407110E11127778106B24006B7E.ExStyle);
DevExpress18.2.6\ExpressGauge Control\Sources\dxGaugeCustomScale.pas"(1302,3): A160B356805106E3F0005011B182516116F6F5B776B036E75: TdxSizeF;
DevExpress18.2.6\ExpressGauge Control\Sources\dxGaugeCustomScale.pas"(1304,3): A160B356805106E3F0005011B182516116F6F5B776B036E75 := GetContentOriginalSize;
DevExpress18.2.6\ExpressGauge Control\Sources\dxGaugeCustomScale.pas"(1305,46): FScaleFactor.X := ScaleInfo.Bounds.Width / A160B356805106E3F0005011B182516116F6F5B776B036E75.cx;
DevExpress18.2.6\ExpressGauge Control\Sources\dxGaugeCustomScale.pas"(1306,47): FScaleFactor.Y := ScaleInfo.Bounds.Height / A160B356805106E3F0005011B182516116F6F5B776B036E75.cy;
DevExpress18.2.6\ExpressGauge Control\Sources\dxGaugeCustomScale.pas"(1510,3): A160B356805106E3F0005011B182516116F6F5B776B036E75: TStream;
DevExpress18.2.6\ExpressGauge Control\Sources\dxGaugeCustomScale.pas"(1512,3): A160B356805106E3F0005011B182516116F6F5B776B036E75 := TFileStream.Create(AFileName, fmOpenRead or fmShareDenyNone);
DevExpress18.2.6\ExpressGauge Control\Sources\dxGaugeCustomScale.pas"(1514,32): Result := CreateFromStream(A160B356805106E3F0005011B182516116F6F5B776B036E75);
DevExpress18.2.6\ExpressGauge Control\Sources\dxGaugeCustomScale.pas"(1516,5): A160B356805106E3F0005011B182516116F6F5B776B036E75.Free;
DevExpress18.2.6\ExpressGauge Control\Sources\dxGaugeCustomScale.pas"(3604,30): procedure UnregistryStyles(A160B356805106E3F0005011B182516116F6F5B776B036E75: TStringList);
DevExpress18.2.6\ExpressGauge Control\Sources\dxGaugeCustomScale.pas"(3606,8): if A160B356805106E3F0005011B182516116F6F5B776B036E75 <> nil then
DevExpress18.2.6\ExpressGauge Control\Sources\dxGaugeCustomScale.pas"(3607,13): while A160B356805106E3F0005011B182516116F6F5B776B036E75.Count > 0 do
DevExpress18.2.6\ExpressGauge Control\Sources\dxGaugeCustomScale.pas"(3608,21): DeleteStyle(A160B356805106E3F0005011B182516116F6F5B776B036E75, 0);
DevExpress18.2.6\ExpressMap Control\Sources\dxMapItem.pas"(1003,3): A160B3F68003E7F191858051506120D3D627A3C736F1D247D: TdxMapItemStyle;
DevExpress18.2.6\ExpressMap Control\Sources\dxMapItem.pas"(1005,3): A160B3F68003E7F191858051506120D3D627A3C736F1D247D := Style;
DevExpress18.2.6\ExpressMap Control\Sources\dxMapItem.pas"(1008,54): dxGPPaintCanvas.Polyline(FVisiblePolylines, A160B3F68003E7F191858051506120D3D627A3C736F1D247D.BorderColor, ScaleFactor.Apply(A160B3F68003E7F191858051506120D3D627A3C736F1D247D.BorderWidth))
DevExpress18.2.6\ExpressMap Control\Sources\dxMapItem.pas"(1011,47): dxGPPaintCanvas.Polyline(FScreenPoints, A160B3F68003E7F191858051506120D3D627A3C736F1D247D.BorderColor, ScaleFactor.Apply(A160B3F68003E7F191858051506120D3D627A3C736F1D247D.BorderWidth));
DevExpress18.2.6\ExpressMemData\Sources\dxmdaset.pas"(1231,3): A160B1F6D11046E085B061407110E18146279107324006B7E: TFieldType;
DevExpress18.2.6\ExpressMemData\Sources\dxmdaset.pas"(1233,3): A160B1F6D11046E085B061407110E18146279107324006B7E := GetFieldTypeByNo(AFieldTypeNo);
DevExpress18.2.6\ExpressMemData\Sources\dxmdaset.pas"(1234,22): case BaseFieldType(A160B1F6D11046E085B061407110E18146279107324006B7E) of
DevExpress18.2.6\ExpressPDFViewer\Sources\dxFontFile.pas"(8852,3): A160B34661E034D1519135B041405110845651B734C196668: Integer;
DevExpress18.2.6\ExpressPDFViewer\Sources\dxFontFile.pas"(8854,7): for A160B34661E034D1519135B041405110845651B734C196668 := 0 to Length(FVariationSelectorRecords) - 1do
DevExpress18.2.6\ExpressPDFViewer\Sources\dxFontFile.pas"(8855,31): FVariationSelectorRecords[A160B34661E034D1519135B041405110845651B734C196668].Free;
DevExpress18.2.6\ExpressPDFViewer\Sources\dxFontFile.pas"(9064,3): A160B34661E034D1519135B041405110845651B734C196668: TBytes;
DevExpress18.2.6\ExpressPDFViewer\Sources\dxFontFile.pas"(9066,13): SetLength(A160B34661E034D1519135B041405110845651B734C196668, 0);
DevExpress18.2.6\ExpressPDFViewer\Sources\dxFontFile.pas"(9067,20): inherited Create(A160B34661E034D1519135B041405110845651B734C196668);
DevExpress18.2.6\ExpressPDFViewer\Sources\dxFontFile.pas"(10558,3): A160B34661E034D1519135B041405110845651B734C196668 = 'head';
DevExpress18.2.6\ExpressPDFViewer\Sources\dxFontFile.pas"(10560,13): Result := A160B34661E034D1519135B041405110845651B734C196668;
DevExpress18.2.6\ExpressPDFViewer\Sources\dxFontFile.pas"(10923,3): A160B34661E034D1519135B041405110845651B734C196668: TdxFontFileCMapGlyphRange;
DevExpress18.2.6\ExpressPDFViewer\Sources\dxFontFile.pas"(10933,7): A160B34661E034D1519135B041405110845651B734C196668.StartValue := FStartCode;
DevExpress18.2.6\ExpressPDFViewer\Sources\dxFontFile.pas"(10934,7): A160B34661E034D1519135B041405110845651B734C196668.EndValue := AEnd;
DevExpress18.2.6\ExpressPDFViewer\Sources\dxFontFile.pas"(10935,24): FGlyphRanges.Add(A160B34661E034D1519135B041405110845651B734C196668);
DevExpress18.2.6\ExpressQuantumGrid\Sources\cxGridCustomTableView.pas"(19665,3): A110B357B1913480906021A192117171C665C1C627D5E7A6C: TcxCustomGridRecord;
DevExpress18.2.6\ExpressQuantumGrid\Sources\cxGridCustomTableView.pas"(19672,7): A110B357B1913480906021A192117171C665C1C627D5E7A6C := ViewData.GetRecordByIndex(AInfo.RowIndexes);
DevExpress18.2.6\ExpressQuantumGrid\Sources\cxGridCustomTableView.pas"(19673,10): if A110B357B1913480906021A192117171C665C1C627D5E7A6C <> nil then A110B357B1913480906021A192117171C665C1C627D5E7A6C.Invalidate;
DevExpress18.2.6\ExpressQuantumTreeList\Sources\cxTL.pas"(23762,3): A110B26455E076A0F160E21385B0614036072214B24006B7E: TcxTreeListNode;
DevExpress18.2.6\ExpressQuantumTreeList\Sources\cxTL.pas"(23766,5): A110B26455E076A0F160E21385B0614036072214B24006B7E := FindNearestFocusableNode(FocusedNodeIndex);
DevExpress18.2.6\ExpressQuantumTreeList\Sources\cxTL.pas"(23767,8): if A110B26455E076A0F160E21385B0614036072214B24006B7E <> nil then
DevExpress18.2.6\ExpressQuantumTreeList\Sources\cxTL.pas"(23768,7): A110B26455E076A0F160E21385B0614036072214B24006B7E.Focused := True;
DevExpress18.2.6\ExpressRichEdit Control\Sources\dxRichEdit.LayoutEngine.Formatter.pas"(3703,3): A160B2060131F4E181C025B38140F1A05774F1B60631E6F23: TdxMergedFrameProperties;
DevExpress18.2.6\ExpressRichEdit Control\Sources\dxRichEdit.LayoutEngine.Formatter.pas"(3705,3): A160B2060131F4E181C025B38140F1A05774F1B60631E6F23 := PieceTable.Runs[RunIndex].Paragraph.GetMergedFrameProperties;
DevExpress18.2.6\ExpressRichEdit Control\Sources\dxRichEdit.LayoutEngine.Formatter.pas"(3707,16): Result := (A160B2060131F4E181C025B38140F1A05774F1B60631E6F23 <> nil) and A160B2060131F4E181C025B38140F1A05774F1B60631E6F23.IsParagraphFrame;
DevExpress18.2.6\ExpressRichEdit Control\Sources\dxRichEdit.LayoutEngine.Formatter.pas"(3709,5): A160B2060131F4E181C025B38140F1A05774F1B60631E6F23.Free;
DevExpress18.2.6\ExpressRichEdit Control\Sources\dxRichEdit.LayoutEngine.Formatter.pas"(18314,3): A160B2060131F4E181C025B38140F1A05774F1B60631E6F23: TdxSection;
DevExpress18.2.6\ExpressRichEdit Control\Sources\dxRichEdit.LayoutEngine.Formatter.pas"(18317,3): A160B2060131F4E181C025B38140F1A05774F1B60631E6F23 := TdxDocumentModel(DocumentLayout.DocumentModel).Sections[CurrentSectionIndex];
DevExpress18.2.6\ExpressRichEdit Control\Sources\dxRichEdit.LayoutEngine.Formatter.pas"(18319,21): ApplySectionStart(A160B2060131F4E181C025B38140F1A05774F1B60631E6F23);
DevExpress18.2.6\ExpressRichEdit Control\Sources\dxRichEdit.LayoutEngine.Formatter.pas"(18320,47): RestartFormattingFromTheMiddleOfSectionCore(A160B2060131F4E181C025B38140F1A05774F1B60631E6F23);
DevExpress18.2.6\ExpressTile Control\Sources\dxCustomTileControl.pas"(16136,3): A160B317C03036411211F191136191B04716519297A117969: TRect;
DevExpress18.2.6\ExpressTile Control\Sources\dxCustomTileControl.pas"(16138,3): A160B317C03036411211F191136191B04716519297A117969 := cxRectInflate(Bounds, InflateDelta);
DevExpress18.2.6\ExpressTile Control\Sources\dxCustomTileControl.pas"(16139,32): dxGpFillRect(ACanvas.Handle, A160B317C03036411211F191136191B04716519297A117969, Painter.SelectionSelectedColor, 127);
DevExpress18.2.6\ExpressTile Control\Sources\dxCustomTileControl.pas"(16145,21): ACanvas.Rectangle(A160B317C03036411211F191136191B04716519297A117969);
[SHOWTOGROUPS=4,19,20]

14 servers



[/SHOWTOGROUPS]
 
Last edited:
FastReport 6.3.14 ent Installer + Key install
[SHOWTOGROUPS=4,19,20]

key install: 2A212D012247030505122716022F0606350F0D003E091B150A52142018011B1959192E2B10221D280A10193C3F6A0018


[/SHOWTOGROUPS]
 
Last edited by a moderator:
uniGUI - v1.90.0.1503

RADStudio1031-Arch-uni-GUI-v1-90-0build1503-Registred.png


RADStudio1031-Arch-uni-GUI-v1-90-0build1503-Running.png

[SHOWTOGROUPS=4,19,20]


@emailx45 uploaded in 14 servers

[/SHOWTOGROUPS]
 
Last edited by a moderator:
FastReport 6.4 / v6.3.14 Enterprise Full Souces and Installer + key license (v6.4)

Note: the key license is accept in before version!
[SHOWTOGROUPS=4,19,20]


MIRRORS by Emailx45
Key license:
2A212D012247030505122716022F0606350F0D003E091B150A52142018011B1959192E2B10221D280A10193C3F6A0018





FastReport v6.4 Enterprise Full Sources - D7 up to 10.3 RIO (password FR64EntD7toRIO.7z ) using 7-zip v19.00
14 servers:

FastReport v6.3.14 Enterprise Full Sources - D7 up to 10.3 RIO (password FR6314EntFSD7toRIO.7z ) using 7-zip v19.00
14 servers:

FastReport v6.4 - Installer


FastReport v6.3.14 - Installer
14 servers:



Fast-Report64-Enterprise.png
[/SHOWTOGROUPS]
 
Last edited by a moderator:
DevExpress Remover WaterMark v3
note: use for your own risk, as always!
[SHOWTOGROUPS=4,19,20] [/SHOWTOGROUPS]
 
AlmDev StyleControl v4.41 (18/Jul/2019)
StyleControls is a stable, powerful package (more than 100 components), which uses Classic drawing, system Themes, GDI+ and VCL Styles. This package contains the unique solutions to extend standard VCL controls and also has many unique, advanced controls to create modern applications (UWP design). Also with this package you can really improve applying and using of VCL Styles in your application.

Benefits of VCL Styles:

  • Native technology, which based on Themes API
  • Professional collection of styles from Embarcadero
  • Professional collection of styles from our
  • No needs of style-adapter for standard controls
  • Most of already have support of VCL Styles
  • Ability to create application with different controls from different vendors in one style
  • Ability to create VCL Style as one of the options, which can be disabled
Benefits of StyleControls VCL:

  • Unique solution to create UWP-like applications (you can fully customize form, enable DWM shadow with hit test for it (Windows 7, 8, 10))
  • UWP-like form works the same with System Themes or with VCL Styles (you can adjust it and without VCL Style)
  • Excellent support of system Themes and VCL Styles
  • Improves VCL Styles on Forms, Menus and Common Dialogs (and for High-DPI systems)
  • All controls work fine, faster, without any flickers, have the same functionality with system Themes or with VCL Styles
  • All controls have support of High-DPI systems with any DPI (no limitations and with VCL Styles)
  • Complex solution to scale images in controls on High-DPI systems ( , backgrounds and many more)
  • A lot of advanced controls to create really modern application
  • A lot of controls has multi-theme (style) adjustments (for example, one button can looks and works as push button, tool button, spin button and many more)
  • Additional collection of controls, which use GDI+ (buttons with a lot of shapes type and vector glyphs, edits, memos with transparency, listboxes, comboboxes, meters, sliders, switches and many more)
  • special adapter unit to use VCL Styles with DevExpress controls
  • support of "PerMonitorV2" DPI Awareness option (available in 10.3 Rio) for all controls (they use per monitor system metrics and theme data)
StyleControls is intended for use with:

  • Delphi XE2-XE8, 10 Seattle, 10.1 Berlin, 10.2 Tokyo, 10.3 Rio (32-bit + 64-bit)
  • C++Builder XE2-XE8, 10 Seattle, 10.1 Berlin, 10.2 Tokyo, 10.3 Rio (32-bit + 64-bit
[SHOWTOGROUPS=4,19,20]AlmDev StyleControl v4.41 FS

[/SHOWTOGROUPS]
 

Attachments

  • scgp-uwp-multiview.png
    scgp-uwp-multiview.png
    155.2 KB · Views: 857
TMS FMX UI PACK v3.7.2.3 FS + Demos

[SHOWTOGROUPS=4,19,20]TMS FMX UI Pack 3.7.2.3 Source Code + Demos
v3.7.2.3

Fixed : Rare issue with empty text control being an invalid reference in TTMSFMXEdit
Fixed : Issue with filter listbox on iOS in TTMSFMXGrid
Fixed : Issue with custom inplace editor destroy sequence in TTMSFMXGrid
Fixed : Issue with HTML rendering engine an HR tag within other tags


[/SHOWTOGROUPS]
 
FastReport v6.4.2 Ent Full Sources

[SHOWTOGROUPS=4,19,20]
These 4 errors are raised because "Tee.inc" in first post is NOT ORIGINAL - it was modified:
The compiler directive "TeeChart8" is defined by default - but that's not allowed, because most members are of course using TeeChart9. (e.g.: v2019.27)

Simply delete the first line:

{$DEFINE TeeChart8}
in Tee.inc located in
1. Subdir "\FastScript" and in
2. Subdir "\Source"

Moreover the default language is set to "Chinese".
Simply change language to your language ...

Not only does it not, it turns out that it already has some versions that the FR comes with wrong Tee.inc file.

There is an error in Tee.inc in FR configuration to use TeeChart versions 8 and 9. It is defined as follows:

Code:
{$IFDEF TeeChart8}
{$UNDEF TeeChartStd}
{$DEFINE TeeChart7}
{$DEFINE TeeChartPro}
{$ENDIF}

{$IFDEF TeeChart9}
{$UNDEF TeeChartStd}
{$DEFINE TeeChart7}
{$DEFINE TeeChart8}
{$DEFINE TeeChartPro}
{$ENDIF}

But if you leave it the way it is, it sets up, for example, for TeeChart9 that includes TeeChart7 and TeeChart8 as well, causing a series of compilation errors due to method declarations differences / absences.

The correct would be:

Code:
{$IFDEF TeeChart8}
{$UNDEF TeeChartStd}
//{$DEFINE TeeChart7}
{$DEFINE TeeChartPro}
{$ENDIF}

{$IFDEF TeeChart9}
{$UNDEF TeeChartStd}
//{$DEFINE TeeChart7}
//{$DEFINE TeeChart8}
{$DEFINE TeeChartPro}
{$ENDIF}

Current version
----------------------------
- Fixed EAN13 barcode drawing
- Fixed Underlines with LineSpacing printing
- Fixed Invalid ImageList error
+ Version 6.4 changes



[/SHOWTOGROUPS]
 
Last edited:
Back
Top