Jump to content

Kazantsev Alexey

Members
 View Profile  See their activity

  • Content Count

    26

  • Joined

  • Last visited

  • Days Won

    2

Posts posted by Kazantsev Alexey

  2. Posted

    1 hour ago, EugeneK said:

    It have to be somewhere on Windows machine 

    Press [Update Local File Cache] in SDK Manager after libgtk-3-dev installed.

    • Like 1
    • Thanks 1

  3. Posted 

    type
  TForm1 = class(TForm)
    ListView1: TListView;
    procedure FormCreate(Sender: TObject);
    procedure ListView1UpdateObjects(const Sender: TObject;
      const AItem: TListViewItem);
    procedure FormDestroy(Sender: TObject);
  private
    FCustomItem : TListViewItem;
    FBitmap     : TBitmap;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.fmx}

procedure TForm1.FormCreate(Sender: TObject);
begin
  for var i := 1 to 25 do
    ListView1.Items.Add.Text := Format('item #%u', [i]);

  FCustomItem := ListView1.Items[4];
  FCustomItem.Text := 'Custom Background Item';

  var c := TAlphaColorRec.Orangered;
  TAlphaColorRec(c).A := 64;

  FBitmap := TBitmap.Create(8, 8);
  FBitmap.Clear(c);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  FBitmap.Free;
end;

procedure TForm1.ListView1UpdateObjects(const Sender: TObject;
  const AItem: TListViewItem);
begin
  if AItem = FCustomItem then
    begin
      var Bkgnd := TListItemImage.Create(nil);
      Bkgnd.ScalingMode := TImageScalingMode.Stretch;
      Bkgnd.OwnsBitmap := False;
      Bkgnd.Bitmap := FBitmap;

      AItem.View.Insert(0, Bkgnd);
    end;
end;

    custom_bkgnd_item.png.b0d940ee2b3df6da645326e0cf0f5876.png

    custom_bkgnd_item.zip

    • Thanks 2

  4. Posted 

    program Project1;

{$APPTYPE CONSOLE}

uses
  System.Rtti;

type
  TvatIndividual = record
    DocumentNumber: string;
    TurnoverDate: TDate;
    PaymentDate: TDate;
    DocumentType: string;
    Year: integer;
    TurnoverDescription: string;
    TurnoverAmount: Currency;
  end;

begin
  for var f in TRttiContext.Create.GetType(TypeInfo(TvatIndividual)).GetFields do
    WriteLn(f.ToString);

  ReadLn;
end.

     

    • Like 1
    • Thanks 2

  8. Posted

    11 hours ago, Marus said:

    I need a safe way to allocate memory for a string variable, without getting exceptions. I don't want to use "try-except" blocks and neither the function that do this, use them internaly. I need a speed optimised method. If there are errors it can return a nil pointer.

     

    I checked the GetMem, AllocMem, GetMemory... and they all say that raise exceptions. Although I looked to the GetMemory code but I didn't see any code that raise exceptions. 

    You can use SysGetMem, SysReallocMem, SysFreeMem.

  10. Posted

    Two cent about compilers performance by the example of spritz-c stream cipher implementation:

    spritz_delphi_fpc.thumb.png.52229db9c54f36941644b11aa8ac9c81.png

    1. Delphi 11, Windows x86_64 (classic compiler), release

    2. Delphi 11, Linux x86_64 (nextgen, LLVM based compiler), release

    3. FreePascal 3.3.1, Linux x86_64, release

    • Like 1

  15. Posted

    4 hours ago, Kazantsev Alexey said: 
    
library rtltest;
//{$weaklinkrtti on}
uses
 system.classes;
begin
 TMemoryStream.Create.Free;
end.

    Delphi XE2, x86_64, Release:

    default - 547840 bytes

    + weaklinkrtti on - 505344 bytes

    + custom rtl build with minimal rtti - 256000 bytes

    The same example on 10.4.2:
    1770kb, 1279kb, 456kb

  16. Posted · Edited by Kazantsev Alexey

    1 hour ago, Fr0sT.Brutal said:

    How did you produce custom RTL build?

    For XE2 you need explicitly rebuild the three files (for latest versons need some more rtl files be rebuilded):
    system.pas (with key -Y)
    system.sysutils.pas (with key -V-)
    system.variants.pas (with key -V-)
    (search path should include rtl sources)

     

    When project building seach path should include your own custom rtl dcus, and rtl sources after it.

    • Like 1

  17. Posted

    1 hour ago, Fr0sT.Brutal said:

    I have x64 DLL that uses SysUtils and DateUtils weighting 590 Kb compiled with XE2. 

    library rtltest;
//{$weaklinkrtti on}
uses
 system.classes;
begin
 TMemoryStream.Create.Free;
end.

    Delphi XE2, x86_64, Release:

    default - 547840 bytes

    + weaklinkrtti on - 505344 bytes

    + custom rtl build with minimal rtti - 256000 bytes

    • Like 1

  18. Posted · Edited by Kazantsev Alexey
    misprint

    7 hours ago, Anders Melander said:

    Um... Aren't you responsible for initializing the record yourself if you have declared an initializer for the record? 

    The error is not in the implementation of the custom initializer. A custom initializer is available for the “TRec” type, but an initialization error is in the “TData” type, which does not have a custom initializer, but has a field of a managed type. In the code example, you can replace the custom initializer with any other custom management operator (finalizer, assign), and you will get the same error.

    • Thanks 3

  21. Posted

    13 hours ago, fugitivox said:

    how would I change "SysColors.clHighlight" from version 10.3.2?

    1. Run any resource editor (ResourceHacker, for example) and open ModernTheme260.bpl
    2. Extract resource "WIN10IDE_LIGHT" to file *.vsf
    3. Open saved file in the Bitmap Style Designer ($(BDSBIN)\BitmapStyleDesigner.exe)
    4. In the tree-structure "Objects" find node "SysColors" and item "clHighlight"
    5. Change the "clHighlight" to you prefered color
    6. Save modified style and close Style Designer
    7. Using resource editor replace resource "WIN10IDE_LIGHT" in ModernTheme260.bpl by the modified style file.

     

    p.s. This issue planed to fix soon.

    • Like 1
    • Thanks 1
×