LVCL: SynCommons.pas SynCrtSock.pas

pult · 2014-02-11 15:37:09

1) "SynCrtSock.pas, CPort.pas" requires inclusion "Synopse.inc" for processing "{$IFDEF LVCL}"
2) "SynCommons.pas" reqired change "function FileAgeToDateTime" for option "{$IFDEF LVCL}" or need overloded version FileAge in "LVCL\SysUtils.pas"
3) "SynCommons.pas" required declaration TBytes for "{$IFDEF LVCL}" (easier to add to LVCL\SysUtils.pas)
4) "SynCommons.pas" duplicate definitions PUREPASCAL:
{$ifndef PUREPASCAL} { these functions are implemented in asm }
{$ifndef LVCL} { don't define these functions twice }
{$ifndef PUREPASCAL}
procedure FillChar(var Dest; Count: Integer; Value: Byte);
5) "SynCommons.pas" required "function Trim(RawUTF8): RawUTF8" for option "{$IFDEF LVCL}"

ab · 2014-02-11 16:09:28

I guess you are using an unsupported version of the compiler for LVCL.

LVCL works without any problem with Delphi 7, in the current unstable 1.18 branch.
LVCL does NOT work with any other version (may be Delphi 2007, but not tested).

pult · 2014-02-11 17:47:45

I tried to translate for D2007, XE3.
In the "D2007" examples work. And in "XE3" black background in forms (still need to fix).
LVCL my changes:
LVCL_CHANGES_D2007,XE3_[2014.02.11_1919].zip

pult · 2014-02-11 17:58:45

To reduce the size of the examples (*.dpr):

{$IF CompilerVersion >= 22.00}
{.$IFNDEF DEBUG}
{$WEAKLINKRTTI ON}
{$RTTI EXPLICIT METHODS([]) PROPERTIES([]) FIELDS([])}
{.$ENDIF}
{$ENDIF}

ab · 2014-02-11 21:09:11

Even with RTTI off, the executables should be much bigger than with Delphi 2007...

Delphi 2009+ is something completly diverse, at RTL level, e.g. for System.pas.

pult · 2014-02-11 21:25:04

LVCL\Demo\Project3.dpr

D2007: 62'464 bytes
XE3: 81'408 bytes

ab · 2014-02-11 21:48:36

I took a look at your code.
A lot of changes, very interesting to read.

ab · 2014-02-12 21:40:01

I've committed most of your enhancements.
Tested with Delphi 7 only by now.

Thanks a lot for the feedback!

See http://synopse.info/fossil/info/66ec5745e5

pult · 2014-02-13 00:00:25

thanks!!!
fixes for Abort/ReturnAddress

procedure Abort;
   {$IFDEF MSWINDOWS}{$IFNDEF UNICODE}
   function ReturnAddress: Pointer; // "ReturnAddress" built into the new language
   asm
     mov eax, [ebp+8]
   end;
   {$ENDIF}{$ENDIF}
 begin
   raise EAbort.Create('Operation Aborted') {$IFDEF FPC} {at todo: ?<i do not remember> }{$ELSE}at ReturnAddress{$ENDIF};
 end;

- I will wait for fixes for unicode

Last edited by pult (2014-02-13 00:02:16)

mORMot Open Source

#1 2014-02-11 15:37:09

LVCL: SynCommons.pas SynCrtSock.pas

#2 2014-02-11 16:09:28

Re: LVCL: SynCommons.pas SynCrtSock.pas

#3 2014-02-11 17:47:45

Re: LVCL: SynCommons.pas SynCrtSock.pas

#4 2014-02-11 17:58:45

Re: LVCL: SynCommons.pas SynCrtSock.pas

#5 2014-02-11 21:09:11

Re: LVCL: SynCommons.pas SynCrtSock.pas

#6 2014-02-11 21:25:04

Re: LVCL: SynCommons.pas SynCrtSock.pas

#7 2014-02-11 21:48:36

Re: LVCL: SynCommons.pas SynCrtSock.pas

#8 2014-02-12 21:40:01

Re: LVCL: SynCommons.pas SynCrtSock.pas

#9 2014-02-13 00:00:25

Re: LVCL: SynCommons.pas SynCrtSock.pas

Board footer