1. This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.
  2. Donation with Paypal!!!

    Go to your paypal account and send directly donation to [email protected]

    1 month - 10 $ - Standart VIP

    6 months - 20 $- Standart VIP

    1 year - 30 $- Standart VIP

    2 years - 50 $- Standart VIP

    Gold member for life - 150 $- Standart VIP

    High Vip (Standart VIP include) group please send PM or email to [email protected] for info

    After Donation please send email to [email protected]

  3. Donation Ways 2020


    Paysend
  4. Telegram

  5. Delphifan Magazine
Dismiss Notice

Donation with Paypal!!!

Go to your paypal account and send directly donation to [email protected]

1 month - 10 $ - Standart VIP

6 months - 20 $- Standart VIP

1 year - 30 $- Standart VIP

2 years - 50 $- Standart VIP

Gold member for life - 150 $- Standart VIP

High Vip (Standart VIP include) group please send PM or email to [email protected] for info

After Donation please send email to [email protected]

Dismiss Notice
For open hidden message no need write thanks, thank etc. Enough is click to like button on right side of thread.

Any TeeChart version to D10/Seattle?

Discussion in 'Delphi Help&Requests' started by SequelUsed, Oct 14, 2015.

  1. SequelUsed
    Offline

    SequelUsed DF Junior

    Hello Folks,

    I really looking for any teechart version to delphi d10/seattle, anyone? There's any old version like teechart do XE8 that works on D10?
     
  2. hansxia
    Online

    hansxia Guest

    go http://www.delphifan.com/forum/Thread-TeeChart-VCL-FMX-version-2015-April-2015-SOURCE [​IMG]
     
  3. SequelUsed
    Offline

    SequelUsed DF Junior

    Thank you for the link. But I don't know how to install it, is there some TeeRecompile.exe like the 2014 version? Or instructions?

    Thanks in advanced.[​IMG]
     
     
  4. Bor_Land
    Offline

    Bor_Land DF Member

    "go http://www.delphifan.com/forum/Thread-TeeChart-VCL-FMX-version-2015-April-2015-SOURCE"

    can give me any show someone how to do that installed under Delphi XE10
     
     
  5. Pocahontas
    Online

    Pocahontas DF Junior

    I managed to get it working, but it is a time consuming task.

    Unfortunately there is no recompile program available. The sources and packages in the download are for Delphi versions up to XE8 and you will have to create packages for Delphi 10 Seattle manually. If you know how to install packages, it is not difficult. Find the packakes ending at *922.dpk in the Source\VCL folder. Copy each of them them to a new file with the ending *923.dpk. Open the new *923.dpk packages with a text editor and replace all occurrences of '922' with '923', including the first line!! Create a new projectgroup and open the new package files in it. Save it as projectgroup TeechartProD10. You need to create the following packages for the VCL in this order:
    Tee923.bpl
    TeeUI923.bpl
    TeeDB923.bpl
    TeeGL923.bpl
    TeePro923.bpl
    TeeLanguage923.bpl
    TeeImage923.bpl
    TeeWorld923.bpl
    TeeImport923.bpl
    DclTeePro923.bpl (install this one)

    Don't forget to change the TeeDefs.inc file. Add a section for {$IFDEF VER300} . Just copy the {$IFDEF290) contents into this new section and add {$DEFINE D23} before the final {$ENDIF} of the new section.

    There is an other problem with the sources. Not all of them will compile under D10 Seattle. Embarcadero changed the 'GetPath' function parameter types from XE8 to D10 Seattle. You will get incompatible type errors. This is explained below.

    XE8 version

    {$EXTERNALSYM GetPath}
    function GetPath(DC: HDC; var Points, Types; nSize: Integer): Integer; stdcall;


    D10 Seattle version:

    {$EXTERNALSYM GetPath}
    function GetPath(DC: HDC; Points: PPointL; Types: PByte; nSize: Integer): Integer; stdcall;


    WORKAROUND
    ==========

    To override the new function parameters, declare in the implementation section of the failing Teechart unit:

    {$IFDEF D23}
    {$POINTERMATH ON}
      // Delphi 10 Seattle: function GetPath(DC: HDC; Points: PPointL; Types- PByte; nSize: Integer): Integer; stdcall;
      // previously had "var Points,Types" untyped,
    const
       gdi32     = 'gdi32.dll';

    {$EXTERNALSYM GetPath}
    function GetPath(DC: HDC; var Points, Types; nSize: Integer): Integer; stdcall; external gdi32 name 'GetPath';
    {$ENDIF}

    Lots of success!

    Update: Our CoAdmin Freak 20888 has posted compiled versions, but these are not available to everyone on this forum.

     

     

     

     

     
     
  6. Bor_Land
    Offline

    Bor_Land DF Member

    Thank you very much for the help, i try this.
     
  7. AdminDF
    Online

    AdminDFAdminDF is a Verified Member Delphifan Staff Member DF Staff

  8. Bor_Land
    Offline

    Bor_Land DF Member

    ...188 Post [​IMG] Is another way possible ?
     
  9. Bor_Land
    Offline

    Bor_Land DF Member

    Hi Pocahontas
    Your help was very helpful , it works very well !!!
     
  10. jimbetter
    Offline

    jimbetter DF Junior

    Many thanks
     
  11. joaoumbertominerva
    Online

    joaoumbertominerva Guest

    thanks

     
    [hr]
    thanks
     

Share This Page