Jump to content

Cristian Peța

Members
  • Content Count

    437
  • Joined

  • Last visited

  • Days Won

    5

Posts posted by Cristian Peța


  1. Just wanted to try a fix in FMX.Forms and I found it already there but commented 🤔.

    First two lines will exit and AlignObjects() will not be called if used Form.BeginUpdate. The Realign will be done anyway after Form.EndUpdate.

    procedure TCustomForm.Realign;
    begin
    //  if FDisableAlign or (FUpdating > 0) then
    //    Exit;
    ... more code
      if FCanvas <> nil then
      begin
        AlignObjects(Self, Padding, FCanvas.Width, FCanvas.Height, FLastWidth, FLastHeight, FDisableAlign);
        RecalcControlsUpdateRect;
        InvalidateRect(ClientRect);
      end;
    end;

     


  2. FMX.Types.AlignObjects is taking the most time: 97.4% (from VTune)

     

    AlignObjects is not called from TControl.Realign and is going fast when rectangles are on TLayout.

     

    But when rectangles are on a form, AlignObjects is called from TCustomForm.Realign and is taking the most time

    FMX.Types.AlignObjects($4BD50A0,$4C4C860,640,480,640,480,False)
    FMX.Forms.TCustomForm.Realign
    FMX.Controls.TControlHelper.PositionChanged(???)
    FMX.Types.TPosition.DoChange
    FMX.Types.TPosition.SetX(1)
    Unit1.TForm1.Button1Click($4BEFDE0)

     

     

    • Thanks 1

  3. I suppose you want something like this:

     

      * ReportTitle (logo + ...)

      * Header
        - RichText

        - Column names (if you need them)
      * MasterData connected to the table
        - table fields that will be printed for every table record

      * Footer
        - RichText
      * PageFooter (for Page Numbers)


  4. Reading again I'm asking myself if you know what MasterData is. You connect MasterData to a table and MastedData will be printed for every line in that table.

    To put a TableObiect into a MasterData is somehow strange for me. You will print a table for every record of a table.


  5. On 6/13/2025 at 2:43 PM, Squall_FF8 said:

    And it didnt work:
     - The TableObject is not shown!

    What didn't work?

    The MasterData is not shown or only TableObiect?

    Have you set MasterData.DataSet? Do you have something in that table?

    And you want to print that RishText for every line in that MasterData table?


  6. -                b8_1  := P8^ shl ShiftAmnt; 
    +                b8_1  := Byte(P8^ shl ShiftAmnt); //(3 shl 7) do not fit into Byte
    
    -                b8_1 := P8^ shl ShiftComp8;
    +                b8_1 := Byte(P8^ shl ShiftComp8);
    
    -  PoweredFactor, Power, iFactor: integer;
    +  PoweredFactor, Power, iFactor: uint32;

    After some changes in /run/utilities/uTPLb_HugeCardinal.pas no more errors... but it works?

    If it worked with range checking OFF then probably it will work.


  7. Just now, Rollo62 said:

    Germany has B2B only too.

    It was a fast forward for us. There was many disruptions. For some electricity companies it was impossible to use it at beginning because it was incompatible with what our energy regulatory authority asked. :classic_laugh:

    • Like 1

  8. 3 minutes ago, Attila Kovacs said:

    Okay, which format do you use there? 

     

    This is from an invoice B2C:

    <Invoice xmlns="urn:oasis:names:specification:ubl:schema:xsd:Invoice-2" xmlns:cac="urn:oasis:names:specification:ubl:schema:xsd:CommonAggregateComponents-2" xmlns:cbc="urn:oasis:names:specification:ubl:schema:xsd:CommonBasicComponents-2">
    <cbc:UBLVersionID>2.1</cbc:UBLVersionID>
    <cbc:CustomizationID>urn:cen.eu:en16931:2017#compliant#urn:efactura.mfinante.ro:CIUS-RO:1.0.1</cbc:CustomizationID>

     


  9. 9 hours ago, Attila Kovacs said:

    (Interesting that there is a B2C implementation in NO, whereas in the EU it's only for B2B, as you can't pass the gross prices, only the net.)

    In Romania B2C is mandatory. It's working already.


  10. 3 minutes ago, Squall_FF8 said:

    how to view the .dfm  as text

    Right-click on the form and in contextual menu select "View as text"

    EDIT: or Alt-F12 to switch between.

×