[Lazarus] Porting Delphi to Lazarus
wli222 at casema.nl
Sat Mar 15 13:18:02 CET 2008
Luiz Americo Pereira Camara wrote:
> drew einhorn wrote:
>> I'm organizing a team attending Health Jam Seattle
>> April 18-20
>> We will be porting the VA's VistA software frontends
>> to Lazarus/Free Pascal. VistA is the IT infrastructure
>> that runs the VA's hospitals, nursing homes, and clinics.
>> It includes a complete Electronic Medical Record System.
>> We are hoping some Lazarus/Free Pascal developers will join us.
> I have some experience in porting Delphi components to LCL (See
> https://luipack.bountysource.com/) and i would be happy in helping.
> See some notes below
>> VistA CPRS Delphi source statistices
>> Count of files by extension
>> .avi 1
>> .bak 21
>> .BMP 1
>> .bmp 117
>> .~bpl 1
>> .bpl 1
>> .cfg 5
>> .dcp 1
>> .dcr 5
>> .dcu 18
>> .ddp 236
>> .~ddp 74
>> .dfm 252
>> .~dfm 85
>> .dklang 1
>> .doc 1
>> .dof 5
>> .dpk 4
>> .~dpr 1
>> .dpr 1
>> .drc 5
>> .~dsk 1
>> .dsk 2
>> .dsm 1
>> .html 1
>> .jcf 1
>> .JDF 1
>> .JGF 1
>> .jpg 1
>> .jsb 1
>> .jsd 1
>> .JSS 1
>> .map 1
>> .old 1
>> .~pas 100
>> .pas 326
>> .rc 1
>> .res 10
>> .~tlb 1
>> .tlb 1
>> .~txt 1
>> .TXT 1
>> .txt 2
>> .vpw 1
>> .we 1
>> .pas files total 204651 lines
> Will the code be shared between Delphi and Lazarus or it will be a fork?
> In the former option the work is harder.
>> We hope to have gotten past compilation issues by the
>> HealthJam, and be focusing on the necessary VCL
>> components missing from LCL. But we may still
>> be fighting compilation issues.
>> Been resisting the urge trying to extract the VCL calls
>> from the code. Been hoping to get through the compilations
>> and get the linker or somthing to give me a count.
>> Folks who are familiar with the CPRS code to a quick look at:
>> And noticed TFrame and TRichEdit are missing.
>> There's almost certainly more.
> TFrame is easy to be ported but you are in trouble with TRichEdit. I
> already researched for a TRichEdit control that does not relies in
> native win32 control and only found comercial
> (http://www.trichview.com/). There's a port from a old version (
> http://wiki.lazarus.freepascal.org/RichView) but is read only. An
> alternative way is to find a suitable gtk2 control (i don't know any) an
> write a wrapper around it.
> Another issue is if gtk1 widgetset is suitable for such work. I don't
> know if XO supports gtk1. The gtk2 widgetset is not as good as gtk1.
>> I made a couple stabs at converting to Lazarus.
>> Most recent on a Ubuntu box using the testing repos
>> lazarus 0.9.24 beta 5/11/07
>> free pascal 2.2.0-1
>> Getting "safecall" errors at compile time. I see stuff in the
>> bug tracker about "safecall" runtime issues not resolve till
>> So next thing I need to do is find the right vintage of Lazarus/Free
> Can you post a link to the code, so i can take a look?
> ___________Well this a verey interesting post
please give more information
More information about the Lazarus