Lazarus
Programming => Packages and Libraries => Ported from Delphi/Kylix => Topic started by: von_ks on February 03, 2009, 11:49:56 am
-
Hi all
I have problem with converting an opensource freeware Programm to lazarus.
The name of this programm is SEBRAN and is writen by delphi.
It is a programm for kids and I want to modify it for my little son.
can sombody help me and give me some tips how can I do that ??
The link of the source code is http://www.wartoft.nu/software/sebran/sebran_139_source.zip
thanks
-
See the documents in the wiki for people coming from Delphi (http://wiki.lazarus.freepascal.org/Lazarus_Documentation#Coming_from_Delphi).
-
I have just read it, and I have tried it, but no seccess, and so I come here to find mor information and some help.
-
What doesn't work?
-
Hi
I am not sure.
There are several files to have be compiled and work together.
first I wanted to convert ist separatly but it did not work, so I have made a package and tried it again but it did not work either.
The only thing that has worked, was converting dfm file to lfm file.
But no chance by .pas file and I am wondering if it is passible at all.
-
I think it is possible, but if all you can say, that is doesn't work, then I cannot help you.
-
which information do you need ?
I send you now the message for compiling the package.
Hint: Start of reading config file D:\lazarus\fpc\2.2.2\bin\i386-win32\fpc.cfg
Hint: End of reading config file D:\lazarus\fpc\2.2.2\bin\i386-win32\fpc.cfg
Free Pascal Compiler version 2.2.2 [2008/10/05] for i386
Copyright (c) 1993-2008 by Florian Klaempfl
Target OS: Win32 for i386
Compiling package01.pas
Compiling .\sebran\Delphi4\GENERELL.PAS
D:\Temp\sebran\Delphi4\GENERELL.PAS(1,1) Fatal: Can't find unit WinTypes used by Generell
kind regards
Kawous
-
Yes, that is clear information. Now I can see what doesn't work and what goes wrong.
AFAIK, wintypes is replaced by windows unit in later delphi version. If you compile for windows, you can try to replace it by the windows unit of fpc.
If you want to be able to target other Lazarus targets later (Linux, Mac OS X), then you should use the LCLIntf and/or the LCLType unit.
-
first thank you for information !
I am using windows XP SP2.
but I have now more question.
where is the windows unit for fpc ?
-
where is the windows unit for fpc ?
In the place where the fpc RTL units are installed. If you don't know, just replace wintypes with windows and compile.
-
It seems to be many of them.
Now comes the message that can not find the unit WinProcs.
should it be also replaced ?
-
Yes. Really, these units are from 16 bits windows time, IIRC. I hope it did compile with Delphi 4...
-
It can not compile with IIRC .
the same message .
-
See IIRC (http://en.wiktionary.org/wiki/IIRC).
The units wintypes and winprocs both have been replaced with the windows unit (since Delphi 2 or Delphi 3).
-
now it has problem with the unit Graphics
and here are all units used by the part generell
SysUtils, Windows, Messages, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls, ExtCtrls, Fileread, MPlayer;
-
Add the LCL as requirement to your application in the
now it has problem with the unit Graphics
Add the LCL as requirement to your project in the project inspector.
and here are all units used by the part generell
SysUtils, Windows, Messages, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls, ExtCtrls, Fileread, MPlayer;
Fileread and MPlayer are not LCL or FPC units as far as I know. If you don't have the source of them, you can stop the port now.
-
I think I have done it.
How can I compile it ?
With the start butoom I get the same massages.
It can not find unit Graphics .
-
I still need help
-
Well, I don't know why it doesn't work, so I cannot help you.
-
What about checking whether a unit named Graphics exists in the project directory? If yes, then it will conflict with Graphics unit from LCL. Try renaming it.
Messages window doesn't show everything emitted by FPC. Right click and choose 'copy all and hidden messages', then paste it somewhere (or here so we can help you) so you can examine it. Using -vt compiler option might also help.
-
tanx
the problem is not solved.
I am still trying to understand lazarus and how it works.
And I can say it is not easy. And I have so many questions.
I found something yesterdy about to rename of graphics in the documentation. so I have to check it too.
Kawous
-
Hi
that is the messages made by compiler now.
Could you tell me please what can I do now ?
Hint: Start of reading config file D:\lazarus\fpc\2.2.2\bin\i386-win32\fpc.cfg
Hint: End of reading config file D:\lazarus\fpc\2.2.2\bin\i386-win32\fpc.cfg
Free Pascal Compiler version 2.2.2 [2008/10/05] for i386
Copyright (c) 1993-2008 by Florian Klaempfl
Target OS: Win32 for i386
Compiling package01.pas
Compiling D:\lazarus\lcl\xmlpropstorage.pas
Compiling D:\lazarus\lcl\fileutil.pas
Compiling D:\lazarus\lcl\lclstrconsts.pas
Writing Resource String Table file: lclstrconsts.rst
Compiling D:\lazarus\lcl\masks.pas
Compiling D:\lazarus\lcl\lclproc.pas
Compiling D:\lazarus\lcl\fpcadds.pas
Compiling D:\lazarus\lcl\avglvltree.pas
D:\lazarus\lcl\avglvltree.pas(1182,16) Hint: Local variable "List" does not seem to be initialized
Compiling D:\lazarus\lcl\fileutil.pas
D:\lazarus\lcl\fileutil.pas(237,2) Fatal: Can't open include file "fileutil.inc"
-
You just have messed up your Lazarus installation by adding LCL source paths to the unit paths.
The best way to undo is to re-install Lazarus in a new directory.
Why did you add the LCL source paths? That should not be necessary, if you really added the LCL as dependency to your project. If you wish to recompile the LCL, for example because you have installed a new fpc compiler, use Tools -> Configure Build Lazarus.
-
Hi Vincent
Problem with finding fpc.
please look to the attachment. zip file.
-
Does the file c:\lazarus\fpc\2.2.2\bin\i386-win32\fpc.exe exist? Or did you accidentially delete it? The file is installed by a lazarus installer with fpc 2.2.2. If you changed fpc versions, then you need to change the path to the compiler in the environment options.
I saw you correctly added the LCL as requirement to your project.
The compilation error you got, were while compiling the package. So add the LCL as requirement to your package too.
-
I have first deinstalled the lazarus and reinstalled it in a new directory as you told in lazarusA.
should I install it again in directory lazarus ?
And when I try to add LCL to package I have only the choice to add files and I can add LCL's just as files. Is that correct ?
How can I else add LCL to packege ?
regarding to my experince and regarding to document the .pas file should be enterd after LCL's is that correct ?
-
I have first deinstalled the lazarus and reinstalled it in a new directory as you told in lazarusA.
should I install it again in directory lazarus ?
Or adapt the paths in the environment options to the new lazarus directory.
And when I try to add LCL to package I have only the choice to add files and I can add LCL's just as files. Is that correct ?
No. In the package editor, click on the add button and choose for the requirements tab. Choose the LCL package.
-
Hi
that is the result
Hint: Start of reading config file D:\lazarus\fpc\2.2.2\bin\i386-win32\fpc.cfg
Hint: End of reading config file D:\lazarus\fpc\2.2.2\bin\i386-win32\fpc.cfg
Free Pascal Compiler version 2.2.2 [2008/10/05] for i386
Copyright (c) 1993-2008 by Florian Klaempfl
Target OS: Win32 for i386
Compiling package01.pas
Compiling .\sebran\Delphi4\FILEREAD.PAS
PPU Loading D:\lazarus\lcl\units\i386-win32\fileutil.ppu
Recompiling FileUtil, checksum changed for LCLStrConsts
D:\Temp\sebran\Delphi4\FILEREAD.PAS(1,1) Fatal: Can't find unit FileUtil used by LResources
and my configuration can you see in attached zip file.
-
Another unit conflict? Search all units (.o, .ppu, libxxx.a if any) with same name and make sure they don't conflict with LCL. If you're sure everything is alright, try rebuilding LCL.
-
More likely, there are still some LCL ppu is the component's dirs and subdirs.
Remove all the .ppus from the component's directory and subdirectories.
-
Hi
I have deleted *.ppu files in the componets directory and subdirctories of it.
it did not help but when I delete it in the Temp direktory
so I could come another step forwards.
Now the compiler deliever this messeage.
Hint: Start of reading config file D:\lazarus\fpc\2.2.2\bin\i386-win32\fpc.cfg
Hint: End of reading config file D:\lazarus\fpc\2.2.2\bin\i386-win32\fpc.cfg
Free Pascal Compiler version 2.2.2 [2008/10/05] for i386
Copyright (c) 1993-2008 by Florian Klaempfl
Target OS: Win32 for i386
Compiling package01.pas
Compiling .\sebran\Delphi4\FILEREAD.PAS
D:\Temp\sebran\Delphi4\FILEREAD.PAS(161,3) Note: Local variable "b" not used
D:\Temp\sebran\Delphi4\FILEREAD.PAS(161,6) Note: Local variable "b2" not used
D:\Temp\sebran\Delphi4\FILEREAD.PAS(163,3) Note: Local variable "code" not used
D:\Temp\sebran\Delphi4\FILEREAD.PAS(226,52) Hint: Local variable "TempBufSize" does not seem to be initialized
D:\Temp\sebran\Delphi4\FILEREAD.PAS(237,5) Note: Local variable "i" not used
D:\Temp\sebran\Delphi4\FILEREAD.PAS(238,5) Note: Local variable "NyStr" not used
Compiling .\sebran\Delphi4\GENERELL.PAS
D:\Temp\sebran\Delphi4\GENERELL.PAS(1,1) Fatal: Can't find unit MPlayer used by Generell
can I do something with Mplayer ?
is the order of .pas files the problem ?
kind regards
Kawous
-
I guess, Delphi has a mplayer unit. Lazarus has not. That is why I said a couple of days ago, that if you don't have the source code of the mplayer unit, you can stop the porting. You must remove it from the uses clause and find or write replacements procedure and functions for the functions and procedures that are in the mplayer unit.
-
It depends on what he needs to do with Media Player. If he just needs to play something (.mid, .avi file, etc.) he could just do a ShellExecute to the mplayer2.exe installed on the computer and pass the path to the file. This will launch the MS Media Player external to his app and open the file.
If he's using the Delphi MPlayer unit's TMediaPlayer component to provide a "VCR-type" set of controls on a form, then that's not available with Lazarus.
Thanks.
-Phil
-
Phil, good point, well explained. Thanks for the help.
That is what I more or less wanted to say with a re-implementation of mplayer, which can be easy, as you explained or hard if you want to show some VCR controls.
But even for showing controls, there are component on Lazarus CCR, IIRC.
-
Do you mean ACS? Recent posts seem to indicate that ACS doesn't work very well and never worked for OS X.
Sebran: Maybe you could post a small bounty for fixing ACS if indeed it doesn't work very well on Windows.
Thanks.
-Phil
-
Do you mean ACS?
No I was thinking about http://wiki.lazarus.freepascal.org/RackCtls
-
Hi
sebran just use some sounds for giving some good or bad singnals for the kids. and some small music sounds after a play.
there is nothing with video.
can I use RackCtls instead of MPlayer ?
-
I don't think so. RackCtls are just the visible controls.
-
Hi
I have found a source code . But I have some questions ?
and I am not sure if it is the right one.
does lazarus support all this units ?
uses Windows, Classes, Controls, Forms, Graphics, Messages,
MMSystem, Dialogs, SysUtils;
-
On windows, yes.
The MMSystem unit is windows only and there is not simple replacement for it.
The Windows unit is for windows only too, but some windows functions can be found in the LCLIntf unit.
-
Hi
There is one more unit does not work. consts
can I replace that ?
Hint: Start of reading config file D:\lazarus\fpc\2.2.2\bin\i386-win32\fpc.cfg
Hint: End of reading config file D:\lazarus\fpc\2.2.2\bin\i386-win32\fpc.cfg
Free Pascal Compiler version 2.2.2 [2008/10/05] for i386
Copyright (c) 1993-2008 by Florian Klaempfl
Target OS: Win32 for i386
Compiling package01.pas
Compiling MPlayer.pas
D:\Temp\MPlayer.pas(101,15) Warning: An inherited method is hidden by "TMediaPlayer.SetVisible(TButtonSet)"
D:\Temp\MPlayer.pas(237,6) Fatal: Can't find unit Consts used by MPlayer
kind regards
Kawous
-
I don't know the unit consts.
-
Hi
So I have found also consts.pas and now I get this compiler message.
I am very disapointed but I would like to do that.
what do you think about this message ?
Hint: Start of reading config file D:\lazarus\fpc\2.2.2\bin\i386-win32\fpc.cfg
Hint: End of reading config file D:\lazarus\fpc\2.2.2\bin\i386-win32\fpc.cfg
Free Pascal Compiler version 2.2.2 [2008/10/05] for i386
Copyright (c) 1993-2008 by Florian Klaempfl
Target OS: Win32 for i386
Compiling package01.pas
Compiling D:\delphi\Consts.pas
Compiling MPlayer.pas
D:\Temp\MPlayer.pas(101,15) Warning: An inherited method is hidden by "TMediaPlayer.SetVisible(TButtonSet)"
D:\Temp\MPlayer.pas(283,52) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(503,14) Error: Identifier not found "BrushCopy"
D:\Temp\MPlayer.pas(790,65) Error: Identifier not found "sNotOpenErr"
D:\Temp\MPlayer.pas(830,32) Error: Illegal type conversion: "ShortString" to "^Char"
D:\Temp\MPlayer.pas(848,49) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(898,60) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(943,57) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(978,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1000,57) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1005,65) Error: Identifier not found "sNotOpenErr"
D:\Temp\MPlayer.pas(1030,58) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1050,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1110,57) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1168,57) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1196,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1202,3) Error: Duplicate identifier "Error"
D:\Temp\MPlayer.pas(1202,3) Hint: Identifier already defined in MPlayer.pas at line 182
D:\Temp\MPlayer.pas(1240,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1267,60) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1288,60) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1314,57) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1324,47) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1335,49) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1346,49) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1357,28) Error: Illegal type conversion: "ShortString" to "^Char"
D:\Temp\MPlayer.pas(1373,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1417,58) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1431,61) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1465,61) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1487,58) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1501,60) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1518,53) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1523,53) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1528,53) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1533,53) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1538,53) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1547,58) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1560,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1571,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1582,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1592,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1602,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1613,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1623,3) Error: Identifier not found "SMCIUnknownError"
D:\Temp\MPlayer.pas(1694,36) Hint: Converting the operands to "Int64" before doing the add could prevent overflow errors.
D:\Temp\MPlayer.pas(1694,36) Hint: Converting the operands to "Int64" before doing the multiply could prevent overflow errors.
D:\Temp\MPlayer.pas(1695,18) Hint: Converting the operands to "Int64" before doing the multiply could prevent overflow errors.
D:\Temp\MPlayer.pas(1754) Fatal: There were 7 errors compiling module, stopping
-
Consts contains a lot of resource strings in Delphi.
Some of the errors you are getting looks like they are related to the consts unit, or expect to have entries in the consts unit...
Looks like you will have to try to figure out the others.
-
Hi
That was just a statement from me.
What do you recommend me to do now ?
-
* Compile the unit in mode Delphi
* BrushCopy is not available in the LCL.
-
Hi
There is still one error.
I have choosen delphi mode.
And I tried to find another MPlayer but I did not have success.
Is there a workaround for Brushcopy ?
Hint: Start of reading config file D:\lazarus\fpc\2.2.2\bin\i386-win32\fpc.cfg
Hint: End of reading config file D:\lazarus\fpc\2.2.2\bin\i386-win32\fpc.cfg
Free Pascal Compiler version 2.2.2 [2008/10/05] for i386
Copyright (c) 1993-2008 by Florian Klaempfl
Target OS: Win32 for i386
Compiling package01.pas
Compiling D:\delphi\consts.pas
Writing Resource String Table file: consts.rst
Compiling MPlayer.pas
D:\Temp\MPlayer.pas(101,15) Warning: An inherited method is hidden by "TMediaPlayer.SetVisible(TButtonSet)"
D:\Temp\MPlayer.pas(283,52) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(503,14) Error: Identifier not found "BrushCopy"
D:\Temp\MPlayer.pas(848,49) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(898,60) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(943,57) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(978,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1000,57) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1030,58) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1050,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1110,57) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1168,57) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1196,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1240,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1267,60) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1288,60) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1314,57) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1324,47) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1335,49) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1346,49) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1373,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1417,58) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1431,61) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1465,61) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1487,58) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1501,60) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1518,53) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1523,53) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1528,53) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1533,53) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1538,53) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1547,58) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1560,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1571,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1582,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1592,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1602,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1613,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1694,36) Hint: Converting the operands to "Int64" before doing the add could prevent overflow errors.
D:\Temp\MPlayer.pas(1694,36) Hint: Converting the operands to "Int64" before doing the multiply could prevent overflow errors.
D:\Temp\MPlayer.pas(1695,18) Hint: Converting the operands to "Int64" before doing the multiply could prevent overflow errors.
D:\Temp\MPlayer.pas(1754) Fatal: There were 1 errors compiling module, stopping
-
There is still one error.
I have choosen delphi mode.
And I tried to find another MPlayer but I did not have success.
Is there a workaround for Brushcopy ?
There's no relation between selected mode and available methods (though you might have it so). The workaround is to implement BrushCopy yourself. I've found something in the bug tracker (http://62.166.198.202/view.php?id=8047) that might help.
-
Hi
What could be the probelm now ?
Parameter color is missing ?
wrong number of parametr ?
Hint: Start of reading config file D:\lazarus\fpc\2.2.2\bin\i386-win32\fpc.cfg
Hint: End of reading config file D:\lazarus\fpc\2.2.2\bin\i386-win32\fpc.cfg
Free Pascal Compiler version 2.2.2 [2008/10/05] for i386
Copyright (c) 1993-2008 by Florian Klaempfl
Target OS: Win32 for i386
Compiling package01.pas
Compiling D:\delphi\consts.pas
Writing Resource String Table file: consts.rst
Compiling MPlayer.pas
D:\Temp\MPlayer.pas(101,15) Warning: An inherited method is hidden by "TMediaPlayer.SetVisible(TButtonSet)"
D:\Temp\MPlayer.pas(283,52) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(434,42) Hint: Parameter "Color" not used
D:\Temp\MPlayer.pas(515,63) Error: Wrong number of parameters specified for call to "BrushCopy"
D:\Temp\MPlayer.pas(433,11) Hint: Found declaration: BrushCopy(TCanvas,const RECT, TBitmap,const RECT, TGraphicsColor)
D:\Temp\MPlayer.pas(859,49) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(909,60) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(954,57) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(989,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1011,57) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1041,58) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1061,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1121,57) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1179,57) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1207,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1251,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1278,60) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1299,60) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1325,57) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1335,47) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1346,49) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1357,49) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1384,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1428,58) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1442,61) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1476,61) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1498,58) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1512,60) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1529,53) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1534,53) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1539,53) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1544,53) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1549,53) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1558,58) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1571,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1582,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1593,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1603,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1613,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1624,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1705,36) Hint: Converting the operands to "Int64" before doing the add could prevent overflow errors.
D:\Temp\MPlayer.pas(1705,36) Hint: Converting the operands to "Int64" before doing the multiply could prevent overflow errors.
D:\Temp\MPlayer.pas(1706,18) Hint: Converting the operands to "Int64" before doing the multiply could prevent overflow errors.
D:\Temp\MPlayer.pas(1765) Fatal: There were 1 errors compiling module, stopping
-
Hi
Do you know some other usefull links ?
let me know please.
tanx
-
Would you mind posting the source around the lines where the error occurs (511-520 perhaps)?
-
Hi
The line is programm stopping is the secound one.
BrushCopy(Bounds(X + BX, BY, Bitmap.Width, Bitmap.Height),
Bitmap, Rect(0, 0, Bitmap.Width, Bitmap.Height), clOlive);
the cursor is standing after clOlive.
and it happens in procedure Tmediaplayer
procedure TMediaPlayer.DrawButton(Btn: TMPBtnType; X: Integer);
var
IsDown: Boolean;
BX, BY: Integer;
TheGlyph: TMPGlyph;
Bitmap: TBitmap;
R: TRect;
begin
IsDown := Down and (Btn = CurrentButton);
with Canvas do
begin
Brush.Style := bsSolid;
Brush.Color := clBtnFace;
Pen.Color := clWindowFrame;
Pen.Width := 1;
Rectangle(X, 0, X + ButtonWidth, Height);
{ draw button beveling }
if IsDown then
begin
Pen.Color := clBtnShadow;
MoveTo(X + 1, Height - 2);
LineTo(X + 1, 1);
LineTo(X + ButtonWidth - 1, 1);
end
else
begin
Pen.Color := clBtnHighlight;
MoveTo(X + 1, Height - 2);
LineTo(X + 1, 1);
LineTo(X + ButtonWidth - 1, 1);
Pen.Color := clBtnShadow;
MoveTo(X + 2, Height - 2);
LineTo(X + ButtonWidth - 2, Height - 2);
LineTo(X + ButtonWidth - 2, 1);
end;
{which bitmap logic - based on Enabled, Colored, and AutoEnable}
if Enabled or (csDesigning in ComponentState) then
begin {Enabled only affects buttons at runtime}
if FAutoEnable and not (csDesigning in ComponentState) then
begin {AutoEnable only affects buttons at runtime}
if Buttons[Btn].Auto then {is button available, based on device state}
begin
TheGlyph := mgEnabled;
if Buttons[Btn].Colored then
TheGlyph := mgColored;
end
else TheGlyph := mgDisabled; {button is not available}
end
else {when not AutoEnabled or at design-time, check Enabled}
begin
if Buttons[Btn].Enabled then
begin
TheGlyph := mgEnabled;
if Buttons[Btn].Colored then
TheGlyph := mgColored;
end
else TheGlyph := mgDisabled;
end;
end
else TheGlyph := mgDisabled; {main switch set to disabled}
Bitmap := Buttons[Btn].Bitmaps[TheGlyph];
BX := (ButtonWidth div 2) - (Bitmap.Width div 2);
BY := (Height div 2) - (Bitmap.Height div 2);
if IsDown then
begin
Inc(BX);
Inc(BY);
end;
BrushCopy(Bounds(X + BX, BY, Bitmap.Width, Bitmap.Height),
Bitmap, Rect(0, 0, Bitmap.Width, Bitmap.Height), clOlive);
end;
if (GetFocus = Handle) and (Btn = FocusedButton) then
begin
R := Bounds(X, 0, ButtonWidth, Height);
InflateRect(R, -3, -3);
if IsDown then OffsetRect(R, 1, 1);
DrawFocusRect(Canvas.Handle, R);
end;
end;
-
I have see a site for replacing Brushcopy with CopyRect
but I think it is for linux.
http://wiki.lazarus.freepascal.org/RXfpc/fr
What do you think about that ?
-
Wrong number of parameters specified for call to "BrushCopy"
Indeed, the BrushCopy requires 5 parameters while the procedure only calls with 4. The first parameter (TCanvas) seems missing, please specify it.
-
could you give me more details how should I specify the missing parameter please ?
-
What about:
BrushCopy(Canvas,Bounds(X + BX, BY, Bitmap.Width, Bitmap.Height),
Bitmap, Rect(0, 0, Bitmap.Width, Bitmap.Height), clOlive);
-
The problem with Brushcopy seems to be solved.
I came one step forward.
But compiler is now stopped at the End of Mplayer.pas and give the folowing message.
D:\Temp\MPlayer.pas(1762,3) Error: Can't open resource file: MPLAYER.res
D:\Temp\MPlayer.pas(1762,3) Fatal: There were 1 errors compiling module, stopping
here is the whole compiller message
Hint: Start of reading config file D:\lazarus\fpc\2.2.2\bin\i386-win32\fpc.cfg
Hint: End of reading config file D:\lazarus\fpc\2.2.2\bin\i386-win32\fpc.cfg
Free Pascal Compiler version 2.2.2 [2008/10/05] for i386
Copyright (c) 1993-2008 by Florian Klaempfl
Target OS: Win32 for i386
Compiling package01.pas
Compiling D:\delphi\consts.pas
Writing Resource String Table file: consts.rst
Compiling MPlayer.pas
D:\Temp\MPlayer.pas(101,15) Warning: An inherited method is hidden by "TMediaPlayer.SetVisible(TButtonSet)"
D:\Temp\MPlayer.pas(283,52) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(434,42) Hint: Parameter "Color" not used
D:\Temp\MPlayer.pas(104,33) Hint: Parameter "YPos" not used
D:\Temp\MPlayer.pas(123,23) Hint: Parameter "Button" not used
D:\Temp\MPlayer.pas(124,27) Hint: Parameter "Button" not used
D:\Temp\MPlayer.pas(111,31) Hint: Parameter "Message" not used
D:\Temp\MPlayer.pas(113,30) Hint: Parameter "Message" not used
D:\Temp\MPlayer.pas(115,31) Hint: Parameter "Message" not used
D:\Temp\MPlayer.pas(149,38) Hint: Parameter "Shift" not used
D:\Temp\MPlayer.pas(859,49) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(909,60) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(954,57) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(989,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1011,57) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1041,58) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1061,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1121,57) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1179,57) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1207,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1251,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1278,60) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1299,60) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1325,57) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1335,47) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1346,49) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1357,49) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1384,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1428,58) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1442,61) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1476,61) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1498,58) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1512,60) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1529,53) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1534,53) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1539,53) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1544,53) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1549,53) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1558,58) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1571,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1582,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1593,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1603,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1613,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1624,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1705,36) Hint: Converting the operands to "Int64" before doing the add could prevent overflow errors.
D:\Temp\MPlayer.pas(1705,36) Hint: Converting the operands to "Int64" before doing the multiply could prevent overflow errors.
D:\Temp\MPlayer.pas(1706,18) Hint: Converting the operands to "Int64" before doing the multiply could prevent overflow errors.
D:\Temp\MPlayer.pas(242,3) Hint: Local const "mci_Back" is not used
D:\Temp\MPlayer.pas(1762,3) Error: Can't open resource file: MPLAYER.res
D:\Temp\MPlayer.pas(1762,3) Fatal: There were 1 errors compiling module, stopping
-
As the error says, is there any mplayer.res in the project dir (or somewhere where the compiler can find)?
-
Try to comment out {$R MPLAYER}
-
I did not know that is also necessary.
If there is not a workaround so I should find it first.
-
I have tried to comment it out but no success.
I think it we should find the MPLAYE.res .
What do you think ?
-
I have tried to comment it out but no success.
Please be more specific. Can you compile the code? Does the executable run? What problems do you get?
I think it we should find the MPLAYE.res .
You mean, you ;).
Just a side question: How long have you been playing with Lazarus? Or in general, with programming?
-
That is the result when I Try to compile the file.
Hint: Start of reading config file D:\lazarus\fpc\2.2.2\bin\i386-win32\fpc.cfg
Hint: End of reading config file D:\lazarus\fpc\2.2.2\bin\i386-win32\fpc.cfg
Free Pascal Compiler version 2.2.2 [2008/10/05] for i386
Copyright (c) 1993-2008 by Florian Klaempfl
Target OS: Win32 for i386
Compiling package01.pas
Compiling D:\delphi\consts.pas
Writing Resource String Table file: consts.rst
Compiling MPlayer.pas
D:\Temp\MPlayer.pas(101,15) Warning: An inherited method is hidden by "TMediaPlayer.SetVisible(TButtonSet)"
D:\Temp\MPlayer.pas(239,14) Fatal: illegal character "'}'" ($7D)
I do not have so many Experience with Lazarus, just few weeks.
But earlear I have developed software.
-
uncomment it by adding // at the start of the line.
Delphi and fpc in delphi mode cannot handle nested comments.
-
I have tried to comment it out but no success.
I think it we should find the MPLAYE.res .
What do you think ?
Have you even tried to delete that line at all?
However, as Vincent already have said, there are some problems with nested comments, so you could try to replace it with something like (notice the blank space before "{" ):
{ $R MPLAYER }
-
Hi Vincent
I am glad to see you again.
Yes it could helped. MPlayer is now compiled.
The compiler is now standing at other line at ResultString[0]
begin
{ Read the string length stored in the first byte. }
stringLength := ReadByte;
{ Store the string length. }
{$IFDEF VER90}
SetLength(ResultString, StringLength);
{$ELSE}
ResultString[0] := Chr(StringLength);
{$ENDIF}
the whole compiler messege is
Hint: Start of reading config file D:\lazarus\fpc\2.2.2\bin\i386-win32\fpc.cfg
Hint: End of reading config file D:\lazarus\fpc\2.2.2\bin\i386-win32\fpc.cfg
Free Pascal Compiler version 2.2.2 [2008/10/05] for i386
Copyright (c) 1993-2008 by Florian Klaempfl
Target OS: Win32 for i386
Compiling package01.pas
Compiling D:\delphi\consts.pas
Writing Resource String Table file: consts.rst
Compiling MPlayer.pas
D:\Temp\MPlayer.pas(101,15) Warning: An inherited method is hidden by "TMediaPlayer.SetVisible(TButtonSet)"
D:\Temp\MPlayer.pas(283,52) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(434,42) Hint: Parameter "Color" not used
D:\Temp\MPlayer.pas(104,33) Hint: Parameter "YPos" not used
D:\Temp\MPlayer.pas(123,23) Hint: Parameter "Button" not used
D:\Temp\MPlayer.pas(124,27) Hint: Parameter "Button" not used
D:\Temp\MPlayer.pas(111,31) Hint: Parameter "Message" not used
D:\Temp\MPlayer.pas(113,30) Hint: Parameter "Message" not used
D:\Temp\MPlayer.pas(115,31) Hint: Parameter "Message" not used
D:\Temp\MPlayer.pas(149,38) Hint: Parameter "Shift" not used
D:\Temp\MPlayer.pas(859,49) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(909,60) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(954,57) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(989,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1011,57) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1041,58) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1061,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1121,57) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1179,57) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1207,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1251,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1278,60) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1299,60) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1325,57) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1335,47) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1346,49) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1357,49) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1384,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1428,58) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1442,61) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1476,61) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1498,58) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1512,60) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1529,53) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1534,53) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1539,53) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1544,53) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1549,53) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1558,58) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1571,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1582,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1593,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1603,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1613,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1624,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1705,36) Hint: Converting the operands to "Int64" before doing the add could prevent overflow errors.
D:\Temp\MPlayer.pas(1705,36) Hint: Converting the operands to "Int64" before doing the multiply could prevent overflow errors.
D:\Temp\MPlayer.pas(1706,18) Hint: Converting the operands to "Int64" before doing the multiply could prevent overflow errors.
D:\Temp\MPlayer.pas(242,3) Hint: Local const "mci_Back" is not used
Compiling .\sebran\Delphi4\FILEREAD.PAS
D:\Temp\sebran\Delphi4\FILEREAD.PAS(175,17) Error: Element zero of an ansi/wide- or longstring can't be accessed, use (set)length instead
D:\Temp\sebran\Delphi4\FILEREAD.PAS(226,52) Hint: Local variable "TempBufSize" does not seem to be initialized
D:\Temp\sebran\Delphi4\FILEREAD.PAS(249) Fatal: There were 1 errors compiling module, stopping
-
The error message is very clear:
D:\Temp\sebran\Delphi4\FILEREAD.PAS(175,17) Error: Element zero of an ansi/wide- or longstring can't be accessed, use (set)length instead
Looking at line 175 of FILEREAD.PAS:
{ Store the string length. }
{$IFDEF VER90}
SetLength(ResultString, StringLength);
{$ELSE}
ResultString[0] := Chr(StringLength);
{$ENDIF}
You can remove all that stuff and let in place only:
SetLength(ResultString, StringLength);
or you could define VER90 somewhere before that IFDEFs:
{$DEFINE VER90}
-
Fileread is now also compiled
Hint: Start of reading config file D:\lazarus\fpc\2.2.2\bin\i386-win32\fpc.cfg
Hint: End of reading config file D:\lazarus\fpc\2.2.2\bin\i386-win32\fpc.cfg
Free Pascal Compiler version 2.2.2 [2008/10/05] for i386
Copyright (c) 1993-2008 by Florian Klaempfl
Target OS: Win32 for i386
Compiling package01.pas
Compiling D:\delphi\consts.pas
Writing Resource String Table file: consts.rst
Compiling MPlayer.pas
D:\Temp\MPlayer.pas(101,15) Warning: An inherited method is hidden by "TMediaPlayer.SetVisible(TButtonSet)"
D:\Temp\MPlayer.pas(283,52) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(434,42) Hint: Parameter "Color" not used
D:\Temp\MPlayer.pas(104,33) Hint: Parameter "YPos" not used
D:\Temp\MPlayer.pas(123,23) Hint: Parameter "Button" not used
D:\Temp\MPlayer.pas(124,27) Hint: Parameter "Button" not used
D:\Temp\MPlayer.pas(111,31) Hint: Parameter "Message" not used
D:\Temp\MPlayer.pas(113,30) Hint: Parameter "Message" not used
D:\Temp\MPlayer.pas(115,31) Hint: Parameter "Message" not used
D:\Temp\MPlayer.pas(149,38) Hint: Parameter "Shift" not used
D:\Temp\MPlayer.pas(859,49) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(909,60) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(954,57) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(989,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1011,57) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1041,58) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1061,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1121,57) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1179,57) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1207,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1251,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1278,60) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1299,60) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1325,57) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1335,47) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1346,49) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1357,49) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1384,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1428,58) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1442,61) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1476,61) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1498,58) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1512,60) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1529,53) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1534,53) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1539,53) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1544,53) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1549,53) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1558,58) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1571,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1582,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1593,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1603,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1613,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1624,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1705,36) Hint: Converting the operands to "Int64" before doing the add could prevent overflow errors.
D:\Temp\MPlayer.pas(1705,36) Hint: Converting the operands to "Int64" before doing the multiply could prevent overflow errors.
D:\Temp\MPlayer.pas(1706,18) Hint: Converting the operands to "Int64" before doing the multiply could prevent overflow errors.
D:\Temp\MPlayer.pas(242,3) Hint: Local const "mci_Back" is not used
Compiling .\sebran\Delphi4\FILEREAD.PAS
D:\Temp\sebran\Delphi4\FILEREAD.PAS(161,3) Note: Local variable "b" not used
D:\Temp\sebran\Delphi4\FILEREAD.PAS(161,6) Note: Local variable "b2" not used
D:\Temp\sebran\Delphi4\FILEREAD.PAS(163,3) Note: Local variable "code" not used
D:\Temp\sebran\Delphi4\FILEREAD.PAS(226,52) Hint: Local variable "TempBufSize" does not seem to be initialized
D:\Temp\sebran\Delphi4\FILEREAD.PAS(237,5) Note: Local variable "i" not used
D:\Temp\sebran\Delphi4\FILEREAD.PAS(238,5) Note: Local variable "NyStr" not used
Compiling .\sebran\Delphi4\GENERELL.PAS
Compiling .\sebran\Delphi4\MESSAGE.PAS
MESSAGE.PAS(41,30) Hint: Parameter "Sender" not used
MESSAGE.PAS(42,30) Hint: Parameter "Sender" not used
D:\Temp\sebran\Delphi4\MESSAGE.PAS(32,20) Hint: Unit "windows" not used in Message
D:\Temp\sebran\Delphi4\MESSAGE.PAS(32,30) Hint: Unit "messages" not used in Message
Compiling resource .\sebran\Delphi4\MESSAGE.DFM
windres: can not determine type of file `.\sebran\Delphi4\MESSAGE.DFM'; use the -J option
MESSAGE.PAS(76,1) Error: Error while linking
Hint: Start of reading config file D:\lazarus\fpc\2.2.2\bin\i386-win32\fpc.cfg
Hint: End of reading config file D:\lazarus\fpc\2.2.2\bin\i386-win32\fpc.cfg
Free Pascal Compiler version 2.2.2 [2008/10/05] for i386
Copyright (c) 1993-2008 by Florian Klaempfl
Target OS: Win32 for i386
Compiling package01.pas
Compiling D:\delphi\consts.pas
Writing Resource String Table file: consts.rst
Compiling MPlayer.pas
MPlayer.pas(101,15) Warning: An inherited method is hidden by "TMediaPlayer.SetVisible(TButtonSet)"
MPlayer.pas(283,52) Hint: Conversion between ordinals and pointers is not portable
MPlayer.pas(434,42) Hint: Parameter "Color" not used
MPlayer.pas(104,33) Hint: Parameter "YPos" not used
MPlayer.pas(123,23) Hint: Parameter "Button" not used
MPlayer.pas(124,27) Hint: Parameter "Button" not used
MPlayer.pas(111,31) Hint: Parameter "Message" not used
MPlayer.pas(113,30) Hint: Parameter "Message" not used
MPlayer.pas(115,31) Hint: Parameter "Message" not used
MPlayer.pas(149,38) Hint: Parameter "Shift" not used
MPlayer.pas(859,49) Hint: Conversion between ordinals and pointers is not portable
MPlayer.pas(909,60) Hint: Conversion between ordinals and pointers is not portable
MPlayer.pas(954,57) Hint: Conversion between ordinals and pointers is not portable
MPlayer.pas(989,59) Hint: Conversion between ordinals and pointers is not portable
MPlayer.pas(1011,57) Hint: Conversion between ordinals and pointers is not portable
MPlayer.pas(1041,58) Hint: Conversion between ordinals and pointers is not portable
MPlayer.pas(1061,59) Hint: Conversion between ordinals and pointers is not portable
MPlayer.pas(1121,57) Hint: Conversion between ordinals and pointers is not portable
MPlayer.pas(1179,57) Hint: Conversion between ordinals and pointers is not portable
MPlayer.pas(1207,59) Hint: Conversion between ordinals and pointers is not portable
MPlayer.pas(1251,59) Hint: Conversion between ordinals and pointers is not portable
MPlayer.pas(1278,60) Hint: Conversion between ordinals and pointers is not portable
MPlayer.pas(1299,60) Hint: Conversion between ordinals and pointers is not portable
MPlayer.pas(1325,57) Hint: Conversion between ordinals and pointers is not portable
MPlayer.pas(1335,47) Hint: Conversion between ordinals and pointers is not portable
MPlayer.pas(1346,49) Hint: Conversion between ordinals and pointers is not portable
MPlayer.pas(1357,49) Hint: Conversion between ordinals and pointers is not portable
MPlayer.pas(1384,59) Hint: Conversion between ordinals and pointers is not portable
MPlayer.pas(1428,58) Hint: Conversion between ordinals and pointers is not portable
MPlayer.pas(1442,61) Hint: Conversion between ordinals and pointers is not portable
MPlayer.pas(1476,61) Hint: Conversion between ordinals and pointers is not portable
MPlayer.pas(1498,58) Hint: Conversion between ordinals and pointers is not portable
MPlayer.pas(1512,60) Hint: Conversion between ordinals and pointers is not portable
MPlayer.pas(1529,53) Hint: Conversion between ordinals and pointers is not portable
MPlayer.pas(1534,53) Hint: Conversion between ordinals and pointers is not portable
MPlayer.pas(1539,53) Hint: Conversion between ordinals and pointers is not portable
MPlayer.pas(1544,53) Hint: Conversion between ordinals and pointers is not portable
MPlayer.pas(1549,53) Hint: Conversion between ordinals and pointers is not portable
MPlayer.pas(1558,58) Hint: Conversion between ordinals and pointers is not portable
MPlayer.pas(1571,59) Hint: Conversion between ordinals and pointers is not portable
MPlayer.pas(1582,59) Hint: Conversion between ordinals and pointers is not portable
MPlayer.pas(1593,59) Hint: Conversion between ordinals and pointers is not portable
MPlayer.pas(1603,59) Hint: Conversion between ordinals and pointers is not portable
MPlayer.pas(1613,59) Hint: Conversion between ordinals and pointers is not portable
MPlayer.pas(1624,59) Hint: Conversion between ordinals and pointers is not portable
MPlayer.pas(1705,36) Hint: Converting the operands to "Int64" before doing the add could prevent overflow errors.
MPlayer.pas(1705,36) Hint: Converting the operands to "Int64" before doing the multiply could prevent overflow errors.
MPlayer.pas(1706,18) Hint: Converting the operands to "Int64" before doing the multiply could prevent overflow errors.
MPlayer.pas(242,3) Hint: Local const "mci_Back" is not used
Compiling .\sebran\Delphi4\FILEREAD.PAS
FILEREAD.PAS(161,3) Note: Local variable "b" not used
FILEREAD.PAS(161,6) Note: Local variable "b2" not used
FILEREAD.PAS(163,3) Note: Local variable "code" not used
FILEREAD.PAS(226,52) Hint: Local variable "TempBufSize" does not seem to be initialized
FILEREAD.PAS(237,5) Note: Local variable "i" not used
FILEREAD.PAS(238,5) Note: Local variable "NyStr" not used
Compiling .\sebran\Delphi4\GENERELL.PAS
Compiling .\sebran\Delphi4\MESSAGE.PAS
MESSAGE.PAS(41,30) Hint: Parameter "Sender" not used
MESSAGE.PAS(42,30) Hint: Parameter "Sender" not used
MESSAGE.PAS(32,20) Hint: Unit "windows" not used in Message
MESSAGE.PAS(32,30) Hint: Unit "messages" not used in Message
Compiling resource .\sebran\Delphi4\MESSAGE.DFM
D:\lazarus\fpc\2.2.2\bin\i386-win32\windres.exe: can not determine type of file `.\sebran\Delphi4\MESSAGE.DFM'; use the -J option
D:\Temp\sebran\Delphi4\MESSAGE.PAS(76,1) Error: Error while linking
D:\Temp\sebran\Delphi4\MESSAGE.PAS(76,1) Fatal: There were 1 errors compiling module, stopping
-
http://wiki.lazarus.freepascal.org/Special:Search?search=dfm&go=Go
-
Hi
I have replaced all dfm files by the lfm files in the package and then tried to compile it.
I get some errors. That is in the attachment.
and compiler deliver this messages.
Hint: Start of reading config file D:\lazarus\fpc\2.2.2\bin\i386-win32\fpc.cfg
Hint: End of reading config file D:\lazarus\fpc\2.2.2\bin\i386-win32\fpc.cfg
Free Pascal Compiler version 2.2.2 [2008/10/05] for i386
Copyright (c) 1993-2008 by Florian Klaempfl
Target OS: Win32 for i386
Compiling package01.pas
Compiling D:\delphi\consts.pas
Writing Resource String Table file: consts.rst
Compiling MPlayer.pas
D:\Temp\MPlayer.pas(101,15) Warning: An inherited method is hidden by "TMediaPlayer.SetVisible(TButtonSet)"
D:\Temp\MPlayer.pas(283,52) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(434,42) Hint: Parameter "Color" not used
D:\Temp\MPlayer.pas(104,33) Hint: Parameter "YPos" not used
D:\Temp\MPlayer.pas(123,23) Hint: Parameter "Button" not used
D:\Temp\MPlayer.pas(124,27) Hint: Parameter "Button" not used
D:\Temp\MPlayer.pas(111,31) Hint: Parameter "Message" not used
D:\Temp\MPlayer.pas(113,30) Hint: Parameter "Message" not used
D:\Temp\MPlayer.pas(115,31) Hint: Parameter "Message" not used
D:\Temp\MPlayer.pas(149,38) Hint: Parameter "Shift" not used
D:\Temp\MPlayer.pas(859,49) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(909,60) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(954,57) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(989,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1011,57) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1041,58) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1061,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1121,57) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1179,57) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1207,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1251,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1278,60) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1299,60) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1325,57) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1335,47) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1346,49) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1357,49) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1384,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1428,58) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1442,61) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1476,61) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1498,58) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1512,60) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1529,53) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1534,53) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1539,53) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1544,53) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1549,53) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1558,58) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1571,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1582,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1593,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1603,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1613,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1624,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1705,36) Hint: Converting the operands to "Int64" before doing the add could prevent overflow errors.
D:\Temp\MPlayer.pas(1705,36) Hint: Converting the operands to "Int64" before doing the multiply could prevent overflow errors.
D:\Temp\MPlayer.pas(1706,18) Hint: Converting the operands to "Int64" before doing the multiply could prevent overflow errors.
D:\Temp\MPlayer.pas(242,3) Hint: Local const "mci_Back" is not used
Compiling .\sebran\Delphi4\FILEREAD.PAS
D:\Temp\sebran\Delphi4\FILEREAD.PAS(161,3) Note: Local variable "b" not used
D:\Temp\sebran\Delphi4\FILEREAD.PAS(161,6) Note: Local variable "b2" not used
D:\Temp\sebran\Delphi4\FILEREAD.PAS(163,3) Note: Local variable "code" not used
D:\Temp\sebran\Delphi4\FILEREAD.PAS(226,52) Hint: Local variable "TempBufSize" does not seem to be initialized
D:\Temp\sebran\Delphi4\FILEREAD.PAS(237,5) Note: Local variable "i" not used
D:\Temp\sebran\Delphi4\FILEREAD.PAS(238,5) Note: Local variable "NyStr" not used
Compiling .\sebran\Delphi4\GENERELL.PAS
Compiling .\sebran\Delphi4\MESSAGE.PAS
MESSAGE.PAS(41,30) Hint: Parameter "Sender" not used
MESSAGE.PAS(42,30) Hint: Parameter "Sender" not used
D:\Temp\sebran\Delphi4\MESSAGE.PAS(32,20) Hint: Unit "windows" not used in Message
D:\Temp\sebran\Delphi4\MESSAGE.PAS(32,30) Hint: Unit "messages" not used in Message
Compiling resource .\sebran\Delphi4\MESSAGE.DFM
windres: can not determine type of file `.\sebran\Delphi4\MESSAGE.DFM'; use the -J option
MESSAGE.PAS(76,1) Error: Error while linking
Hint: Start of reading config file D:\lazarus\fpc\2.2.2\bin\i386-win32\fpc.cfg
Hint: End of reading config file D:\lazarus\fpc\2.2.2\bin\i386-win32\fpc.cfg
Free Pascal Compiler version 2.2.2 [2008/10/05] for i386
Copyright (c) 1993-2008 by Florian Klaempfl
Target OS: Win32 for i386
Compiling package01.pas
Compiling D:\delphi\consts.pas
Writing Resource String Table file: consts.rst
Compiling MPlayer.pas
MPlayer.pas(101,15) Warning: An inherited method is hidden by "TMediaPlayer.SetVisible(TButtonSet)"
MPlayer.pas(283,52) Hint: Conversion between ordinals and pointers is not portable
MPlayer.pas(434,42) Hint: Parameter "Color" not used
MPlayer.pas(104,33) Hint: Parameter "YPos" not used
MPlayer.pas(123,23) Hint: Parameter "Button" not used
MPlayer.pas(124,27) Hint: Parameter "Button" not used
MPlayer.pas(111,31) Hint: Parameter "Message" not used
MPlayer.pas(113,30) Hint: Parameter "Message" not used
MPlayer.pas(115,31) Hint: Parameter "Message" not used
MPlayer.pas(149,38) Hint: Parameter "Shift" not used
MPlayer.pas(859,49) Hint: Conversion between ordinals and pointers is not portable
MPlayer.pas(909,60) Hint: Conversion between ordinals and pointers is not portable
MPlayer.pas(954,57) Hint: Conversion between ordinals and pointers is not portable
MPlayer.pas(989,59) Hint: Conversion between ordinals and pointers is not portable
MPlayer.pas(1011,57) Hint: Conversion between ordinals and pointers is not portable
MPlayer.pas(1041,58) Hint: Conversion between ordinals and pointers is not portable
MPlayer.pas(1061,59) Hint: Conversion between ordinals and pointers is not portable
MPlayer.pas(1121,57) Hint: Conversion between ordinals and pointers is not portable
MPlayer.pas(1179,57) Hint: Conversion between ordinals and pointers is not portable
MPlayer.pas(1207,59) Hint: Conversion between ordinals and pointers is not portable
MPlayer.pas(1251,59) Hint: Conversion between ordinals and pointers is not portable
MPlayer.pas(1278,60) Hint: Conversion between ordinals and pointers is not portable
MPlayer.pas(1299,60) Hint: Conversion between ordinals and pointers is not portable
MPlayer.pas(1325,57) Hint: Conversion between ordinals and pointers is not portable
MPlayer.pas(1335,47) Hint: Conversion between ordinals and pointers is not portable
MPlayer.pas(1346,49) Hint: Conversion between ordinals and pointers is not portable
MPlayer.pas(1357,49) Hint: Conversion between ordinals and pointers is not portable
MPlayer.pas(1384,59) Hint: Conversion between ordinals and pointers is not portable
MPlayer.pas(1428,58) Hint: Conversion between ordinals and pointers is not portable
MPlayer.pas(1442,61) Hint: Conversion between ordinals and pointers is not portable
MPlayer.pas(1476,61) Hint: Conversion between ordinals and pointers is not portable
MPlayer.pas(1498,58) Hint: Conversion between ordinals and pointers is not portable
MPlayer.pas(1512,60) Hint: Conversion between ordinals and pointers is not portable
MPlayer.pas(1529,53) Hint: Conversion between ordinals and pointers is not portable
MPlayer.pas(1534,53) Hint: Conversion between ordinals and pointers is not portable
MPlayer.pas(1539,53) Hint: Conversion between ordinals and pointers is not portable
MPlayer.pas(1544,53) Hint: Conversion between ordinals and pointers is not portable
MPlayer.pas(1549,53) Hint: Conversion between ordinals and pointers is not portable
MPlayer.pas(1558,58) Hint: Conversion between ordinals and pointers is not portable
MPlayer.pas(1571,59) Hint: Conversion between ordinals and pointers is not portable
MPlayer.pas(1582,59) Hint: Conversion between ordinals and pointers is not portable
MPlayer.pas(1593,59) Hint: Conversion between ordinals and pointers is not portable
MPlayer.pas(1603,59) Hint: Conversion between ordinals and pointers is not portable
MPlayer.pas(1613,59) Hint: Conversion between ordinals and pointers is not portable
MPlayer.pas(1624,59) Hint: Conversion between ordinals and pointers is not portable
MPlayer.pas(1705,36) Hint: Converting the operands to "Int64" before doing the add could prevent overflow errors.
MPlayer.pas(1705,36) Hint: Converting the operands to "Int64" before doing the multiply could prevent overflow errors.
MPlayer.pas(1706,18) Hint: Converting the operands to "Int64" before doing the multiply could prevent overflow errors.
MPlayer.pas(242,3) Hint: Local const "mci_Back" is not used
Compiling .\sebran\Delphi4\FILEREAD.PAS
FILEREAD.PAS(161,3) Note: Local variable "b" not used
FILEREAD.PAS(161,6) Note: Local variable "b2" not used
FILEREAD.PAS(163,3) Note: Local variable "code" not used
FILEREAD.PAS(226,52) Hint: Local variable "TempBufSize" does not seem to be initialized
FILEREAD.PAS(237,5) Note: Local variable "i" not used
FILEREAD.PAS(238,5) Note: Local variable "NyStr" not used
Compiling .\sebran\Delphi4\GENERELL.PAS
Compiling .\sebran\Delphi4\MESSAGE.PAS
MESSAGE.PAS(41,30) Hint: Parameter "Sender" not used
MESSAGE.PAS(42,30) Hint: Parameter "Sender" not used
MESSAGE.PAS(32,20) Hint: Unit "windows" not used in Message
MESSAGE.PAS(32,30) Hint: Unit "messages" not used in Message
Compiling resource .\sebran\Delphi4\MESSAGE.DFM
D:\lazarus\fpc\2.2.2\bin\i386-win32\windres.exe: can not determine type of file `.\sebran\Delphi4\MESSAGE.DFM'; use the -J option
D:\Temp\sebran\Delphi4\MESSAGE.PAS(76,1) Error: Error while linking
D:\Temp\sebran\Delphi4\MESSAGE.PAS(76,1) Fatal: There were 1 errors compiling module, stopping
MESSAGE.PAS(-1,0) Error: TSourceChangeCache.ReplaceEx ToPos>MainScanner.CleanedLen+1
-
do you have some idea, how can I solve this problem ?
could you help me please ?
-
It looks like some kind of problem on the MESSAGE.DFM form not converted to Lazarus properly yet...
I'd suggest you look at that first.
Not much help - I know, but a starting place at least.
Regards
Arnold
-
Hi
I gues that the name (Message) of this file could be the Problem.
and compiler access other routine .
because the compiler deliver this messages.
D:\lazarus\fpc\2.2.2\bin\i386-win32\windres.exe: can not determine type of file `.\sebran\Delphi4\MESSAGE.DFM'; use the -J option
D:\Temp\sebran\Delphi4\MESSAGE.PAS(76,1) Error: Error while linking
am I right ?
should I rename this file ?
what do you think ?
-
I think you should read the conversion guide (http://wiki.lazarus.freepascal.org/Code_Conversion_Guide#Converting_Delphi_projects.2Fforms.2Funits_to_Lazarus) carefully. It is one of the links mentioned to you before: http://forum.lazarus.freepascal.org/index.php/topic,6252.msg29104.html#msg29104
-
Hi
I have done things written in the code conversation guide.
I could come a another step forward.
but waht about this messages ?
I do not know what kind of Error that is.
Hint: Start of reading config file D:\lazarus\fpc\2.2.2\bin\i386-win32\fpc.cfg
Hint: End of reading config file D:\lazarus\fpc\2.2.2\bin\i386-win32\fpc.cfg
Free Pascal Compiler version 2.2.2 [2008/10/05] for i386
Copyright (c) 1993-2008 by Florian Klaempfl
Target OS: Win32 for i386
Compiling package01.pas
Compiling D:\delphi\consts.pas
Writing Resource String Table file: consts.rst
Compiling MPlayer.pas
D:\Temp\MPlayer.pas(101,15) Warning: An inherited method is hidden by "TMediaPlayer.SetVisible(TButtonSet)"
D:\Temp\MPlayer.pas(283,52) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(434,42) Hint: Parameter "Color" not used
D:\Temp\MPlayer.pas(104,33) Hint: Parameter "YPos" not used
D:\Temp\MPlayer.pas(123,23) Hint: Parameter "Button" not used
D:\Temp\MPlayer.pas(124,27) Hint: Parameter "Button" not used
D:\Temp\MPlayer.pas(111,31) Hint: Parameter "Message" not used
D:\Temp\MPlayer.pas(113,30) Hint: Parameter "Message" not used
D:\Temp\MPlayer.pas(115,31) Hint: Parameter "Message" not used
D:\Temp\MPlayer.pas(149,38) Hint: Parameter "Shift" not used
D:\Temp\MPlayer.pas(859,49) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(909,60) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(954,57) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(989,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1011,57) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1041,58) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1061,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1121,57) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1179,57) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1207,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1251,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1278,60) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1299,60) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1325,57) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1335,47) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1346,49) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1357,49) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1384,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1428,58) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1442,61) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1476,61) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1498,58) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1512,60) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1529,53) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1534,53) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1539,53) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1544,53) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1549,53) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1558,58) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1571,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1582,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1593,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1603,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1613,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1624,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1705,36) Hint: Converting the operands to "Int64" before doing the add could prevent overflow errors.
D:\Temp\MPlayer.pas(1705,36) Hint: Converting the operands to "Int64" before doing the multiply could prevent overflow errors.
D:\Temp\MPlayer.pas(1706,18) Hint: Converting the operands to "Int64" before doing the multiply could prevent overflow errors.
D:\Temp\MPlayer.pas(242,3) Hint: Local const "mci_Back" is not used
Compiling .\sebran\Delphi4\FILEREAD.PAS
D:\Temp\sebran\Delphi4\FILEREAD.PAS(161,3) Note: Local variable "b" not used
D:\Temp\sebran\Delphi4\FILEREAD.PAS(161,6) Note: Local variable "b2" not used
D:\Temp\sebran\Delphi4\FILEREAD.PAS(163,3) Note: Local variable "code" not used
D:\Temp\sebran\Delphi4\FILEREAD.PAS(226,52) Hint: Local variable "TempBufSize" does not seem to be initialized
D:\Temp\sebran\Delphi4\FILEREAD.PAS(237,5) Note: Local variable "i" not used
D:\Temp\sebran\Delphi4\FILEREAD.PAS(238,5) Note: Local variable "NyStr" not used
Compiling .\sebran\Delphi4\GENERELL.PAS
Compiling .\sebran\Delphi4\MESSAGE.PAS
MESSAGE.PAS(41,30) Hint: Parameter "Sender" not used
MESSAGE.PAS(42,30) Hint: Parameter "Sender" not used
D:\Temp\sebran\Delphi4\MESSAGE.PAS(32,20) Hint: Unit "windows" not used in Message
D:\Temp\sebran\Delphi4\MESSAGE.PAS(32,30) Hint: Unit "messages" not used in Message
Compiling .\sebran\Delphi4\HMENY.PAS
Compiling .\sebran\Delphi4\HURMAN.PAS
Compiling .\sebran\Delphi4\HMENY.PAS
Compiling .\sebran\Delphi4\HANGMAN.PAS
Compiling .\sebran\Delphi4\HMENY.PAS
Compiling .\sebran\Delphi4\REGN.PAS
Compiling .\sebran\Delphi4\HMENY.PAS
Compiling .\sebran\Delphi4\ABOUT.PAS
Compiling .\sebran\Delphi4\HMENY.PAS
D:\Temp\sebran\Delphi4\HMENY.PAS(203,34) Warning: unreachable code
HMENY.PAS(89,24) Hint: Parameter "Sender" not used
D:\Temp\sebran\Delphi4\HMENY.PAS(262,20) Error: Identifier not found "frmOvMemory"
D:\Temp\sebran\Delphi4\HMENY.PAS(262,35) Error: Identifier not found "TfrmOvMemory"
D:\Temp\sebran\Delphi4\HMENY.PAS(263,19) Error: Identifier not found "frmOvMemory"
D:\Temp\sebran\Delphi4\HMENY.PAS(274,21) Error: Identifier not found "frmOvMemory"
D:\Temp\sebran\Delphi4\HMENY.PAS(274,36) Error: Identifier not found "TfrmOvMemory"
D:\Temp\sebran\Delphi4\HMENY.PAS(275,20) Error: Identifier not found "frmOvMemory"
D:\Temp\sebran\Delphi4\HMENY.PAS(591) Fatal: There were 6 errors compiling module, stopping
-
Can be a lot of things, for example:
You didn't include the unit in which TfrmOvMemory and frmOvMemory are declared in the uses clause of HMENY.PAS.
-
Hi Vincent
first of all Tanx a lot for your help.
At the begining I had to change one file name Memory to Memoryy
because it has colidate with a unit of compiler with the same name.
could it be the problem ?
what could I do now ?
-
Find places where you previously used a unit called Memory. Make sure you use a unit called Memoryy now.
-
I have change the filename from Memory to MMemory because the memoryy was used as a parameter.
and I think I came another step forward.
The compiler is standing at another place by the end of Font;
{ Draw the text }
Canvas.Font.Name := Font;
what can I do now ?
and compiler deliver the folowing message.
Hint: Start of reading config file D:\lazarus\fpc\2.2.2\bin\i386-win32\fpc.cfg
Hint: End of reading config file D:\lazarus\fpc\2.2.2\bin\i386-win32\fpc.cfg
Free Pascal Compiler version 2.2.2 [2008/10/05] for i386
Copyright (c) 1993-2008 by Florian Klaempfl
Target OS: Win32 for i386
Compiling package01.pas
Compiling D:\delphi\consts.pas
Writing Resource String Table file: consts.rst
Compiling MPlayer.pas
D:\Temp\MPlayer.pas(101,15) Warning: An inherited method is hidden by "TMediaPlayer.SetVisible(TButtonSet)"
D:\Temp\MPlayer.pas(283,52) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(434,42) Hint: Parameter "Color" not used
D:\Temp\MPlayer.pas(104,33) Hint: Parameter "YPos" not used
D:\Temp\MPlayer.pas(123,23) Hint: Parameter "Button" not used
D:\Temp\MPlayer.pas(124,27) Hint: Parameter "Button" not used
D:\Temp\MPlayer.pas(111,31) Hint: Parameter "Message" not used
D:\Temp\MPlayer.pas(113,30) Hint: Parameter "Message" not used
D:\Temp\MPlayer.pas(115,31) Hint: Parameter "Message" not used
D:\Temp\MPlayer.pas(149,38) Hint: Parameter "Shift" not used
D:\Temp\MPlayer.pas(859,49) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(909,60) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(954,57) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(989,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1011,57) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1041,58) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1061,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1121,57) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1179,57) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1207,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1251,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1278,60) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1299,60) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1325,57) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1335,47) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1346,49) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1357,49) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1384,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1428,58) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1442,61) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1476,61) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1498,58) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1512,60) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1529,53) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1534,53) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1539,53) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1544,53) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1549,53) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1558,58) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1571,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1582,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1593,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1603,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1613,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1624,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1705,36) Hint: Converting the operands to "Int64" before doing the add could prevent overflow errors.
D:\Temp\MPlayer.pas(1705,36) Hint: Converting the operands to "Int64" before doing the multiply could prevent overflow errors.
D:\Temp\MPlayer.pas(1706,18) Hint: Converting the operands to "Int64" before doing the multiply could prevent overflow errors.
D:\Temp\MPlayer.pas(242,3) Hint: Local const "mci_Back" is not used
Compiling .\sebran\Delphi4\FILEREAD.PAS
D:\Temp\sebran\Delphi4\FILEREAD.PAS(161,3) Note: Local variable "b" not used
D:\Temp\sebran\Delphi4\FILEREAD.PAS(161,6) Note: Local variable "b2" not used
D:\Temp\sebran\Delphi4\FILEREAD.PAS(163,3) Note: Local variable "code" not used
D:\Temp\sebran\Delphi4\FILEREAD.PAS(226,52) Hint: Local variable "TempBufSize" does not seem to be initialized
D:\Temp\sebran\Delphi4\FILEREAD.PAS(237,5) Note: Local variable "i" not used
D:\Temp\sebran\Delphi4\FILEREAD.PAS(238,5) Note: Local variable "NyStr" not used
Compiling .\sebran\Delphi4\GENERELL.PAS
Compiling .\sebran\Delphi4\MESSAGE.PAS
MESSAGE.PAS(41,30) Hint: Parameter "Sender" not used
MESSAGE.PAS(42,30) Hint: Parameter "Sender" not used
D:\Temp\sebran\Delphi4\MESSAGE.PAS(32,20) Hint: Unit "windows" not used in Message
D:\Temp\sebran\Delphi4\MESSAGE.PAS(32,30) Hint: Unit "messages" not used in Message
Compiling .\sebran\Delphi4\HMENY.PAS
Compiling .\sebran\Delphi4\HURMAN.PAS
Compiling .\sebran\Delphi4\HMENY.PAS
Compiling .\sebran\Delphi4\MMEMORY.PAS
Compiling .\sebran\Delphi4\HMENY.PAS
Compiling .\sebran\Delphi4\HANGMAN.PAS
Compiling .\sebran\Delphi4\HMENY.PAS
Compiling .\sebran\Delphi4\REGN.PAS
Compiling .\sebran\Delphi4\HMENY.PAS
Compiling .\sebran\Delphi4\ABOUT.PAS
Compiling .\sebran\Delphi4\HMENY.PAS
D:\Temp\sebran\Delphi4\HMENY.PAS(206,34) Warning: unreachable code
HMENY.PAS(89,24) Hint: Parameter "Sender" not used
HMENY.PAS(90,29) Hint: Parameter "Sender" not used
D:\Temp\sebran\Delphi4\HMENY.PAS(90,46) Hint: Parameter "Button" not used
D:\Temp\sebran\Delphi4\HMENY.PAS(91,7) Hint: Parameter "Shift" not used
HMENY.PAS(92,26) Hint: Parameter "Sender" not used
HMENY.PAS(93,27) Hint: Parameter "Sender" not used
HMENY.PAS(94,28) Hint: Parameter "Sender" not used
HMENY.PAS(101,27) Hint: Parameter "Sender" not used
HMENY.PAS(112,27) Hint: Parameter "Sender" not used
HMENY.PAS(149,28) Hint: Parameter "Sender" not used
HMENY.PAS(150,30) Hint: Parameter "Sender" not used
HMENY.PAS(151,28) Hint: Parameter "Sender" not used
HMENY.PAS(152,29) Hint: Parameter "Sender" not used
HMENY.PAS(154,30) Hint: Parameter "Sender" not used
D:\Temp\sebran\Delphi4\HMENY.PAS(31,30) Hint: Unit "messages" not used in Hmeny
ABOUT.PAS(60,24) Hint: Parameter "Sender" not used
ABOUT.PAS(61,28) Hint: Parameter "Sender" not used
ABOUT.PAS(62,26) Hint: Parameter "Sender" not used
ABOUT.PAS(64,31) Hint: Parameter "Sender" not used
ABOUT.PAS(66,37) Hint: Parameter "Sender" not used
D:\Temp\sebran\Delphi4\ABOUT.PAS(31,30) Hint: Unit "messages" not used in About
D:\Temp\sebran\Delphi4\ABOUT.PAS(79,11) Hint: Unit "Hmeny" not used in About
D:\Temp\sebran\Delphi4\REGN.PAS(117,4) Note: Local variable "X1" not used
D:\Temp\sebran\Delphi4\REGN.PAS(117,7) Note: Local variable "X2" not used
D:\Temp\sebran\Delphi4\REGN.PAS(117,10) Note: Local variable "Y1" not used
D:\Temp\sebran\Delphi4\REGN.PAS(117,13) Note: Local variable "Y2" not used
REGN.PAS(45,26) Hint: Parameter "Sender" not used
REGN.PAS(46,24) Hint: Parameter "Sender" not used
REGN.PAS(47,28) Hint: Parameter "Sender" not used
D:\Temp\sebran\Delphi4\REGN.PAS(188,4) Note: Local variable "Rectt" not used
REGN.PAS(48,27) Hint: Parameter "Sender" not used
REGN.PAS(49,28) Hint: Parameter "Sender" not used
REGN.PAS(50,29) Hint: Parameter "Sender" not used
REGN.PAS(51,25) Hint: Parameter "Sender" not used
REGN.PAS(52,28) Hint: Parameter "Sender" not used
D:\Temp\sebran\Delphi4\REGN.PAS(31,30) Hint: Unit "messages" not used in Regn
D:\Temp\sebran\Delphi4\REGN.PAS(32,46) Hint: Unit "Message" not used in Regn
D:\Temp\sebran\Delphi4\REGN.PAS(32,65) Hint: Unit "MPlayer" not used in Regn
D:\Temp\sebran\Delphi4\REGN.PAS(83,10) Hint: Unit "Hmeny" not used in Regn
HANGMAN.PAS(57,26) Hint: Parameter "Sender" not used
HANGMAN.PAS(58,24) Hint: Parameter "Sender" not used
D:\Temp\sebran\Delphi4\HANGMAN.PAS(200,6) Hint: Local const "Cols" is not used
D:\Temp\sebran\Delphi4\HANGMAN.PAS(201,6) Hint: Local const "Rows" is not used
D:\Temp\sebran\Delphi4\HANGMAN.PAS(203,4) Note: Local variable "i" not used
D:\Temp\sebran\Delphi4\HANGMAN.PAS(203,6) Note: Local variable "j" not used
D:\Temp\sebran\Delphi4\HANGMAN.PAS(204,4) Note: Local variable "X" not used
D:\Temp\sebran\Delphi4\HANGMAN.PAS(204,6) Note: Local variable "Y" not used
HANGMAN.PAS(59,28) Hint: Parameter "Sender" not used
HANGMAN.PAS(60,28) Hint: Parameter "Sender" not used
D:\Temp\sebran\Delphi4\HANGMAN.PAS(262,6) Note: Local variable "j" not used
HANGMAN.PAS(61,33) Hint: Parameter "Sender" not used
D:\Temp\sebran\Delphi4\HANGMAN.PAS(61,50) Hint: Parameter "Button" not used
D:\Temp\sebran\Delphi4\HANGMAN.PAS(62,7) Hint: Parameter "Shift" not used
HANGMAN.PAS(63,29) Hint: Parameter "Sender" not used
HANGMAN.PAS(64,28) Hint: Parameter "Sender" not used
D:\Temp\sebran\Delphi4\HANGMAN.PAS(32,20) Hint: Unit "windows" not used in Hangman
D:\Temp\sebran\Delphi4\HANGMAN.PAS(32,30) Hint: Unit "messages" not used in Hangman
D:\Temp\sebran\Delphi4\HANGMAN.PAS(33,56) Hint: Unit "Message" not used in Hangman
D:\Temp\sebran\Delphi4\HANGMAN.PAS(98,10) Hint: Unit "Hmeny" not used in Hangman
MMEMORY.PAS(57,26) Hint: Parameter "Sender" not used
D:\Temp\sebran\Delphi4\MMEMORY.PAS(154,4) Note: Local variable "DX" not used
D:\Temp\sebran\Delphi4\MMEMORY.PAS(154,7) Note: Local variable "DY" not used
D:\Temp\sebran\Delphi4\MMEMORY.PAS(263,23) Warning: Function result does not seem to be set
D:\Temp\sebran\Delphi4\MMEMORY.PAS(74,28) Hint: Parameter "X" not used
D:\Temp\sebran\Delphi4\MMEMORY.PAS(74,30) Hint: Parameter "Y" not used
MMEMORY.PAS(58,24) Hint: Parameter "Sender" not used
MMEMORY.PAS(59,29) Hint: Parameter "Sender" not used
MMEMORY.PAS(60,31) Hint: Parameter "Sender" not used
D:\Temp\sebran\Delphi4\MMEMORY.PAS(60,48) Hint: Parameter "Button" not used
D:\Temp\sebran\Delphi4\MMEMORY.PAS(61,7) Hint: Parameter "Shift" not used
MMEMORY.PAS(62,28) Hint: Parameter "Sender" not used
MMEMORY.PAS(64,30) Hint: Parameter "Sender" not used
MMEMORY.PAS(65,30) Hint: Parameter "Sender" not used
MMEMORY.PAS(66,30) Hint: Parameter "Sender" not used
MMEMORY.PAS(67,28) Hint: Parameter "Sender" not used
D:\Temp\sebran\Delphi4\MMEMORY.PAS(31,20) Hint: Unit "windows" not used in MMemory
D:\Temp\sebran\Delphi4\MMEMORY.PAS(31,30) Hint: Unit "messages" not used in MMemory
D:\Temp\sebran\Delphi4\MMEMORY.PAS(32,56) Hint: Unit "MPlayer" not used in MMemory
D:\Temp\sebran\Delphi4\MMEMORY.PAS(96,10) Hint: Unit "Hmeny" not used in MMemory
D:\Temp\sebran\Delphi4\HURMAN.PAS(209,50) Hint: Converting the operands to "Int64" before doing the multiply could prevent overflow errors.
D:\Temp\sebran\Delphi4\HURMAN.PAS(186,4) Note: Local variable "r" not used
D:\Temp\sebran\Delphi4\HURMAN.PAS(186,6) Note: Local variable "g" not used
D:\Temp\sebran\Delphi4\HURMAN.PAS(186,8) Note: Local variable "b" not used
D:\Temp\sebran\Delphi4\HURMAN.PAS(381,4) Note: Local variable "i" not used
HURMAN.PAS(56,29) Hint: Parameter "Sender" not used
HURMAN.PAS(57,26) Hint: Parameter "Sender" not used
HURMAN.PAS(62,27) Hint: Parameter "Sender" not used
HURMAN.PAS(63,24) Hint: Parameter "Sender" not used
HURMAN.PAS(64,28) Hint: Parameter "Sender" not used
HURMAN.PAS(65,28) Hint: Parameter "Sender" not used
HURMAN.PAS(66,28) Hint: Parameter "Sender" not used
HURMAN.PAS(67,28) Hint: Parameter "Sender" not used
HURMAN.PAS(68,28) Hint: Parameter "Sender" not used
D:\Temp\sebran\Delphi4\HURMAN.PAS(33,20) Hint: Unit "windows" not used in Hurman
D:\Temp\sebran\Delphi4\HURMAN.PAS(33,30) Hint: Unit "messages" not used in Hurman
D:\Temp\sebran\Delphi4\HURMAN.PAS(34,74) Hint: Unit "MPlayer" not used in Hurman
D:\Temp\sebran\Delphi4\HURMAN.PAS(89,10) Hint: Unit "Hmeny" not used in Hurman
D:\Temp\sebran\Delphi4\GENERELL.PAS(189,28) Warning: Symbol "Handle" is deprecated
D:\Temp\sebran\Delphi4\GENERELL.PAS(191,18) Warning: Symbol "Handle" is deprecated
D:\Temp\sebran\Delphi4\GENERELL.PAS(184,4) Note: Local variable "wtext" not used
D:\Temp\sebran\Delphi4\GENERELL.PAS(235,32) Error: Incompatible type for arg no. 1: Got "TFont", expected "AnsiString"
Hint: Found declaration: TFont.SetName(AnsiString)
D:\Temp\sebran\Delphi4\GENERELL.PAS(243,42) Error: Incompatible type for arg no. 6: Got "TFont", expected "AnsiString"
D:\Temp\sebran\Delphi4\GENERELL.PAS(181,11) Hint: Found declaration: DrawChar(LongInt, LongInt, TImage, AnsiString, LongInt, AnsiString, LongInt)
D:\Temp\sebran\Delphi4\GENERELL.PAS(301,31) Hint: Local variable "strTempSingular" does not seem to be initialized
D:\Temp\sebran\Delphi4\GENERELL.PAS(302,31) Hint: Local variable "strTempPlural" does not seem to be initialized
D:\Temp\sebran\Delphi4\GENERELL.PAS(370,31) Hint: Local variable "strTemp" does not seem to be initialized
D:\Temp\sebran\Delphi4\GENERELL.PAS(426,39) Hint: Local variable "strDummy" does not seem to be initialized
D:\Temp\sebran\Delphi4\GENERELL.PAS(505) Fatal: There were 2 errors compiling module, stopping
-
I have replaced the Font with AnsiString but it did not help.
The compiler deliver another Error message
D:\Temp\sebran\Delphi4\GENERELL.PAS(241,38) Error: type identifier not allowed here
D:\Temp\sebran\Delphi4\GENERELL.PAS(249,48) Error: type identifier not allowed here
D:\Temp\sebran\Delphi4\GENERELL.PAS(307,31) Hint: Local variable "strTempSingular" does not seem to be initialized
D:\Temp\sebran\Delphi4\GENERELL.PAS(308,31) Hint: Local variable "strTempPlural" does not seem to be initialized
D:\Temp\sebran\Delphi4\GENERELL.PAS(376,31) Hint: Local variable "strTemp" does not seem to be initialized
D:\Temp\sebran\Delphi4\GENERELL.PAS(432,39) Hint: Local variable "strDummy" does not seem to be initialized
D:\Temp\sebran\Delphi4\GENERELL.PAS(511) Fatal: There were 2 errors compiling module, stopping
-
Sometimes, I wonder if you know what you are doing ...
No idea why it works in Delphi though.
Where is that font variable declared?
try Canvas.Font := Font;
Maybe that compiles (and changes functionality at the same time).
-
Font is declaired in
Procedure DrawButton(Im: TImage; Text: String; Col: Longint; Font: String; FSize: Integer; PCent: Integer; BStyle: Integer);
that is very smal routine for drwing charakter
and now the compiler is standing at the end of Font by this line
with the same error message like before.
DrawChar(X, Y, Im, Text, Col, Font, FSize);
-
I had a another look and I have seen four procedures
have declaired Font as String
how could it imported to lazarus ?
Procedure DrawCharCenter(X,Y: Longint; Im: TImage; Text: String; Col: Longint; Font: String; FSize: Integer);
Procedure DrawChar(X,Y: Longint; Im: TImage; Text: String; Col: Longint; Font: String; FSize: Integer);
Procedure DrawButton(Im: TImage; Text: String; Col: Longint; Font: String; FSize: Integer; PCent: Integer; BStyle: Integer);
Function FontSize(Pixels: Integer; Font: String; Canv: TCanvas): integer;
-
http://wiki.lazarus.freepascal.org/Bounties
;-)
-
:D
-
I just want to modify sebran for my little son using lazarus.
and thought you were also intersted to find out the bugs of lazarus.
I still needs help for workaround .
please help me.
-
Why do you want to port it to Lazarus anyway?
Porting complete Delphi applications with Graphics, Mediaplayer, Databases to Lazarus is not a begginers task.
You need experience from both worlds (Delphi and Lazarus) to do that.
Why not compile it with Delphi?
There are even free versions afaik: http://www.turboexplorer.com/delphi
-
tanx a lot for the link,
certainly I will try it with turbodelphi too. But as long as I get help I will go on with porting sebran to lazarus too.
-
I have tried to chand the Variable Font but the compiler does not like it. I have raplaced the name Font in FontN in Procedures and calls and else wehre it was definde as variable but the compiler delivers only few lines and stops very quickly.
like this DrawChar(X, Y, Im, Text, Col, FontN, FSize);
It seems copmliler of lazarus want see there a Variable String ,
but Font is not recognized as a variable string but as TFont.
Is that normal ?
Hint: Start of reading config file D:\lazarus\fpc\2.2.2\bin\i386-win32\fpc.cfg
Hint: End of reading config file D:\lazarus\fpc\2.2.2\bin\i386-win32\fpc.cfg
Free Pascal Compiler version 2.2.2 [2008/10/05] for i386
Copyright (c) 1993-2008 by Florian Klaempfl
Target OS: Win32 for i386
Compiling package01.pas
package01.pas(11,9) Hint: Unit "Consts" not used in package01
package01.pas(11,18) Hint: Unit "MPlayer" not used in package01
package01.pas(11,28) Hint: Unit "Fileread" not used in package01
package01.pas(11,45) Hint: Unit "Hmeny" not used in package01
package01.pas(11,52) Hint: Unit "About" not used in package01
package01.pas(11,75) Hint: Unit "Regn" not used in package01
package01.pas(12,10) Hint: Unit "Message" not used in package01
22 lines compiled, 0.5 sec
9 hint(s) issued
"Compiling package package01 0.0" beendet
-
have raplaced the name Font in FontN in Procedures and calls and else wehre it was definde as variable but the compiler delivers only few lines and stops very quickly.
If the compiler messages you post is that "few lines" you mentioned, then the package is compiled. Your porting is done.
It seems copmliler of lazarus want see there a Variable String ,
but Font is not recognized as a variable string but as TFont.
Is that normal ?
Assuming the class has Font property, it depends on the compiler switch. Delphi allows method parameters to have the same name with class properties, but ObjFPC doesn't. This is to avoid ambiguity in usage, whether to access the parameter or the property. I think in this case Delphi choose the parameter.
-
Tanx for your reply.
2 things
1. It does not run.
2. compiler deliver the same messages if I replace only one of this Font to FontN. not all of them.
only in this line
DrawChar(X, Y, Im, Text, Col, FontN, FSize);
There should be certainly a another possibility to define Font as a variable string.
do you know that ?
-
It does not run.
You've ported a package, not an application. Of course it won't run! You need to build an application on top of it.
Sometimes, I wonder if you know what you are doing ...
I agree with Vincent more than before now...
compiler deliver the same messages if I replace only one of this Font to FontN. not all of them.
only in this line
DrawChar(X, Y, Im, Text, Col, FontN, FSize);
I need to see the whole procedure where this FontN is declared, changing all won't solve the problem as one occurence may point to the String one while others to the TFont.
-
That is the whole procedure
Procedure DrawButton(Im: TImage; Text: String; Col: Longint; Font: String; FSize: Integer; PCent: Integer; BStyle: Integer);
{ Fills the image with a rounded rectangle border, and a centered text}
var
X, Y: Integer;
begin
{Draw a rounded rectangle }
{If (Font = TYPEFACE) and (FSize < 15) then Font := 'Arial'; }
With Im do begin
Canvas.Brush.Color := (02 shl 24) or clBlack;
Canvas.Brush.Style := bsSolid;
Canvas.Pen.Width := 2 * (Screen.Height div 480);
Canvas.FillRect(Rect(0, 0, Width, Height)) ;
Canvas.Brush.Style := bsClear;
Case BStyle of
THICKBORDER: begin
Canvas.Pen.Width := 2 * (Screen.Height div 480) + 1;
Canvas.Pen.Color := (02 shl 24) or clGray;
Canvas.RoundRect( 2, 2, Width - 3, Height - 3,
Trunc(Width * (PCent / 100)) , Trunc(Width * (PCent / 100)) ) ;
Canvas.Pen.Width := 2 * (Screen.Height div 480);
Canvas.Pen.Color := (02 shl 24) or clWhite;
Canvas.RoundRect( 2, 2, Width - 3, Height - 3,
Trunc(Width * (PCent / 100)) , Trunc(Width * (PCent / 100)) ) ;
end;
THINBORDER: begin
Canvas.Pen.Width := 1;
Canvas.Pen.Color := clGray;
Canvas.RoundRect( 2, 2, Width - 3, Height - 3,
Trunc(Width * (PCent / 100)) , Trunc(Width * (PCent / 100)) ) ;
end;
end;
{ Draw the text }
Canvas.Font.Name := 'Arial';
Canvas.Font.Size := FSize;
Im.Canvas.Font.Style := [];
{If Font = TYPEFACE then
Y := Trunc((Height - Canvas.TextHeight('x') * 1.2)) div 2
else }
Y := Trunc((Height - Canvas.TextHeight(Text) )) div 2;
X := (Width - Canvas.TextWidth(Text)) div 2;
DrawChar(X, Y, Im, Text, Col, FontN, FSize);
end;
end;
-
I don't see any FontN declared. Question: What does DrawChar expect? Just post the method header if you don't know.
-
that is the procedure draw char and I send you additional the wohle
file Generell.pas in this file are all this procedure defined.
Procedure DrawChar(X,Y: Longint; Im: TImage; Text: String; Col: Longint; Font: String; FSize: Integer);
var
logFont: TLogFont;
wtext: Widestring;
begin
{ Draw the character }
GetObject(Im.Canvas.Font.Handle, SizeOf(LogFont), Addr(LogFont));
logFont.lfQuality:=ANTIALIASED_QUALITY;
Im.Canvas.Font.Handle:=CreateFontIndirect(logFont);
Im.Canvas.Font.Size := FSize;
Im.Canvas.Font.Name := Font;
Im.Canvas.Font.Style := [];
Im.Canvas.Brush.Style := bsClear;
Im.Canvas.Font.Color := (02 shl 24) or Col;
Im.Canvas.TextOut(X,Y, text);
end;
-
OK, just change:
Procedure DrawButton(Im: TImage; Text: String; Col: Longint; [b]Font[/b]: String; FSize: Integer; PCent: Integer; BStyle: Integer);to something like:
Procedure DrawButton(Im: TImage; Text: String; Col: Longint; FontN: String; FSize: Integer; PCent: Integer; BStyle: Integer);
-
Hi
with this error at the same line at
DrawChar(X, Y, Im, Text, Col, FontN, FSize);
D:\Temp\sebran\Delphi4\GENERELL.PAS(193,30) Error: Identifier not found "Font"
D:\Temp\sebran\Delphi4\GENERELL.PAS(242,43) Error: Identifier not found "FontN"
Hint: Start of reading config file D:\lazarus\fpc\2.2.2\bin\i386-win32\fpc.cfg
Hint: End of reading config file D:\lazarus\fpc\2.2.2\bin\i386-win32\fpc.cfg
Free Pascal Compiler version 2.2.2 [2008/10/05] for i386
Copyright (c) 1993-2008 by Florian Klaempfl
Target OS: Win32 for i386
Compiling package01.pas
Compiling D:\delphi\consts.pas
Writing Resource String Table file: consts.rst
Compiling MPlayer.pas
D:\Temp\MPlayer.pas(101,15) Warning: An inherited method is hidden by "TMediaPlayer.SetVisible(TButtonSet)"
D:\Temp\MPlayer.pas(283,52) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(434,42) Hint: Parameter "Color" not used
D:\Temp\MPlayer.pas(104,33) Hint: Parameter "YPos" not used
D:\Temp\MPlayer.pas(123,23) Hint: Parameter "Button" not used
D:\Temp\MPlayer.pas(124,27) Hint: Parameter "Button" not used
D:\Temp\MPlayer.pas(111,31) Hint: Parameter "Message" not used
D:\Temp\MPlayer.pas(113,30) Hint: Parameter "Message" not used
D:\Temp\MPlayer.pas(115,31) Hint: Parameter "Message" not used
D:\Temp\MPlayer.pas(149,38) Hint: Parameter "Shift" not used
D:\Temp\MPlayer.pas(859,49) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(909,60) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(954,57) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(989,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1011,57) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1041,58) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1061,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1121,57) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1179,57) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1207,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1251,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1278,60) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1299,60) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1325,57) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1335,47) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1346,49) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1357,49) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1384,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1428,58) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1442,61) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1476,61) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1498,58) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1512,60) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1529,53) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1534,53) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1539,53) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1544,53) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1549,53) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1558,58) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1571,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1582,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1593,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1603,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1613,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1624,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1705,36) Hint: Converting the operands to "Int64" before doing the add could prevent overflow errors.
D:\Temp\MPlayer.pas(1705,36) Hint: Converting the operands to "Int64" before doing the multiply could prevent overflow errors.
D:\Temp\MPlayer.pas(1706,18) Hint: Converting the operands to "Int64" before doing the multiply could prevent overflow errors.
D:\Temp\MPlayer.pas(242,3) Hint: Local const "mci_Back" is not used
Compiling .\sebran\Delphi4\FILEREAD.PAS
D:\Temp\sebran\Delphi4\FILEREAD.PAS(161,3) Note: Local variable "b" not used
D:\Temp\sebran\Delphi4\FILEREAD.PAS(161,6) Note: Local variable "b2" not used
D:\Temp\sebran\Delphi4\FILEREAD.PAS(163,3) Note: Local variable "code" not used
D:\Temp\sebran\Delphi4\FILEREAD.PAS(226,52) Hint: Local variable "TempBufSize" does not seem to be initialized
D:\Temp\sebran\Delphi4\FILEREAD.PAS(237,5) Note: Local variable "i" not used
D:\Temp\sebran\Delphi4\FILEREAD.PAS(238,5) Note: Local variable "NyStr" not used
Compiling .\sebran\Delphi4\HMENY.PAS
Compiling .\sebran\Delphi4\HURMAN.PAS
Compiling .\sebran\Delphi4\GENERELL.PAS
Compiling .\sebran\Delphi4\MESSAGE.PAS
MESSAGE.PAS(41,30) Hint: Parameter "Sender" not used
MESSAGE.PAS(42,30) Hint: Parameter "Sender" not used
D:\Temp\sebran\Delphi4\MESSAGE.PAS(32,20) Hint: Unit "windows" not used in Message
D:\Temp\sebran\Delphi4\MESSAGE.PAS(32,30) Hint: Unit "messages" not used in Message
Compiling .\sebran\Delphi4\HMENY.PAS
Compiling .\sebran\Delphi4\HURMAN.PAS
Compiling .\sebran\Delphi4\HMENY.PAS
Compiling .\sebran\Delphi4\MMEMORY.PAS
Compiling .\sebran\Delphi4\HMENY.PAS
Compiling .\sebran\Delphi4\HANGMAN.PAS
Compiling .\sebran\Delphi4\HMENY.PAS
Compiling .\sebran\Delphi4\REGN.PAS
Compiling .\sebran\Delphi4\HMENY.PAS
Compiling .\sebran\Delphi4\ABOUT.PAS
Compiling .\sebran\Delphi4\HMENY.PAS
D:\Temp\sebran\Delphi4\HMENY.PAS(206,34) Warning: unreachable code
HMENY.PAS(89,24) Hint: Parameter "Sender" not used
HMENY.PAS(90,29) Hint: Parameter "Sender" not used
D:\Temp\sebran\Delphi4\HMENY.PAS(90,46) Hint: Parameter "Button" not used
D:\Temp\sebran\Delphi4\HMENY.PAS(91,7) Hint: Parameter "Shift" not used
HMENY.PAS(92,26) Hint: Parameter "Sender" not used
HMENY.PAS(93,27) Hint: Parameter "Sender" not used
HMENY.PAS(94,28) Hint: Parameter "Sender" not used
HMENY.PAS(101,27) Hint: Parameter "Sender" not used
HMENY.PAS(112,27) Hint: Parameter "Sender" not used
HMENY.PAS(149,28) Hint: Parameter "Sender" not used
HMENY.PAS(150,30) Hint: Parameter "Sender" not used
HMENY.PAS(151,28) Hint: Parameter "Sender" not used
HMENY.PAS(152,29) Hint: Parameter "Sender" not used
HMENY.PAS(154,30) Hint: Parameter "Sender" not used
D:\Temp\sebran\Delphi4\HMENY.PAS(31,30) Hint: Unit "messages" not used in Hmeny
ABOUT.PAS(60,24) Hint: Parameter "Sender" not used
ABOUT.PAS(61,28) Hint: Parameter "Sender" not used
ABOUT.PAS(62,26) Hint: Parameter "Sender" not used
ABOUT.PAS(64,31) Hint: Parameter "Sender" not used
ABOUT.PAS(66,37) Hint: Parameter "Sender" not used
D:\Temp\sebran\Delphi4\ABOUT.PAS(31,30) Hint: Unit "messages" not used in About
D:\Temp\sebran\Delphi4\ABOUT.PAS(79,11) Hint: Unit "Hmeny" not used in About
D:\Temp\sebran\Delphi4\REGN.PAS(117,4) Note: Local variable "X1" not used
D:\Temp\sebran\Delphi4\REGN.PAS(117,7) Note: Local variable "X2" not used
D:\Temp\sebran\Delphi4\REGN.PAS(117,10) Note: Local variable "Y1" not used
D:\Temp\sebran\Delphi4\REGN.PAS(117,13) Note: Local variable "Y2" not used
REGN.PAS(45,26) Hint: Parameter "Sender" not used
REGN.PAS(46,24) Hint: Parameter "Sender" not used
REGN.PAS(47,28) Hint: Parameter "Sender" not used
D:\Temp\sebran\Delphi4\REGN.PAS(188,4) Note: Local variable "Rectt" not used
REGN.PAS(48,27) Hint: Parameter "Sender" not used
REGN.PAS(49,28) Hint: Parameter "Sender" not used
REGN.PAS(50,29) Hint: Parameter "Sender" not used
REGN.PAS(51,25) Hint: Parameter "Sender" not used
REGN.PAS(52,28) Hint: Parameter "Sender" not used
D:\Temp\sebran\Delphi4\REGN.PAS(31,30) Hint: Unit "messages" not used in Regn
D:\Temp\sebran\Delphi4\REGN.PAS(32,46) Hint: Unit "Message" not used in Regn
D:\Temp\sebran\Delphi4\REGN.PAS(32,65) Hint: Unit "MPlayer" not used in Regn
D:\Temp\sebran\Delphi4\REGN.PAS(83,10) Hint: Unit "Hmeny" not used in Regn
HANGMAN.PAS(57,26) Hint: Parameter "Sender" not used
HANGMAN.PAS(58,24) Hint: Parameter "Sender" not used
D:\Temp\sebran\Delphi4\HANGMAN.PAS(200,6) Hint: Local const "Cols" is not used
D:\Temp\sebran\Delphi4\HANGMAN.PAS(201,6) Hint: Local const "Rows" is not used
D:\Temp\sebran\Delphi4\HANGMAN.PAS(203,4) Note: Local variable "i" not used
D:\Temp\sebran\Delphi4\HANGMAN.PAS(203,6) Note: Local variable "j" not used
D:\Temp\sebran\Delphi4\HANGMAN.PAS(204,4) Note: Local variable "X" not used
D:\Temp\sebran\Delphi4\HANGMAN.PAS(204,6) Note: Local variable "Y" not used
HANGMAN.PAS(59,28) Hint: Parameter "Sender" not used
HANGMAN.PAS(60,28) Hint: Parameter "Sender" not used
D:\Temp\sebran\Delphi4\HANGMAN.PAS(262,6) Note: Local variable "j" not used
HANGMAN.PAS(61,33) Hint: Parameter "Sender" not used
D:\Temp\sebran\Delphi4\HANGMAN.PAS(61,50) Hint: Parameter "Button" not used
D:\Temp\sebran\Delphi4\HANGMAN.PAS(62,7) Hint: Parameter "Shift" not used
HANGMAN.PAS(63,29) Hint: Parameter "Sender" not used
HANGMAN.PAS(64,28) Hint: Parameter "Sender" not used
D:\Temp\sebran\Delphi4\HANGMAN.PAS(32,20) Hint: Unit "windows" not used in Hangman
D:\Temp\sebran\Delphi4\HANGMAN.PAS(32,30) Hint: Unit "messages" not used in Hangman
D:\Temp\sebran\Delphi4\HANGMAN.PAS(33,56) Hint: Unit "Message" not used in Hangman
D:\Temp\sebran\Delphi4\HANGMAN.PAS(98,10) Hint: Unit "Hmeny" not used in Hangman
MMEMORY.PAS(57,26) Hint: Parameter "Sender" not used
D:\Temp\sebran\Delphi4\MMEMORY.PAS(154,4) Note: Local variable "DX" not used
D:\Temp\sebran\Delphi4\MMEMORY.PAS(154,7) Note: Local variable "DY" not used
D:\Temp\sebran\Delphi4\MMEMORY.PAS(263,23) Warning: Function result does not seem to be set
D:\Temp\sebran\Delphi4\MMEMORY.PAS(74,28) Hint: Parameter "X" not used
D:\Temp\sebran\Delphi4\MMEMORY.PAS(74,30) Hint: Parameter "Y" not used
MMEMORY.PAS(58,24) Hint: Parameter "Sender" not used
MMEMORY.PAS(59,29) Hint: Parameter "Sender" not used
MMEMORY.PAS(60,31) Hint: Parameter "Sender" not used
D:\Temp\sebran\Delphi4\MMEMORY.PAS(60,48) Hint: Parameter "Button" not used
D:\Temp\sebran\Delphi4\MMEMORY.PAS(61,7) Hint: Parameter "Shift" not used
MMEMORY.PAS(62,28) Hint: Parameter "Sender" not used
MMEMORY.PAS(64,30) Hint: Parameter "Sender" not used
MMEMORY.PAS(65,30) Hint: Parameter "Sender" not used
MMEMORY.PAS(66,30) Hint: Parameter "Sender" not used
MMEMORY.PAS(67,28) Hint: Parameter "Sender" not used
D:\Temp\sebran\Delphi4\MMEMORY.PAS(31,20) Hint: Unit "windows" not used in MMemory
D:\Temp\sebran\Delphi4\MMEMORY.PAS(31,30) Hint: Unit "messages" not used in MMemory
D:\Temp\sebran\Delphi4\MMEMORY.PAS(32,56) Hint: Unit "MPlayer" not used in MMemory
D:\Temp\sebran\Delphi4\MMEMORY.PAS(96,10) Hint: Unit "Hmeny" not used in MMemory
D:\Temp\sebran\Delphi4\HURMAN.PAS(209,50) Hint: Converting the operands to "Int64" before doing the multiply could prevent overflow errors.
D:\Temp\sebran\Delphi4\HURMAN.PAS(186,4) Note: Local variable "r" not used
D:\Temp\sebran\Delphi4\HURMAN.PAS(186,6) Note: Local variable "g" not used
D:\Temp\sebran\Delphi4\HURMAN.PAS(186,8) Note: Local variable "b" not used
D:\Temp\sebran\Delphi4\HURMAN.PAS(381,4) Note: Local variable "i" not used
HURMAN.PAS(56,29) Hint: Parameter "Sender" not used
HURMAN.PAS(57,26) Hint: Parameter "Sender" not used
HURMAN.PAS(62,27) Hint: Parameter "Sender" not used
HURMAN.PAS(63,24) Hint: Parameter "Sender" not used
HURMAN.PAS(64,28) Hint: Parameter "Sender" not used
HURMAN.PAS(65,28) Hint: Parameter "Sender" not used
HURMAN.PAS(66,28) Hint: Parameter "Sender" not used
HURMAN.PAS(67,28) Hint: Parameter "Sender" not used
HURMAN.PAS(68,28) Hint: Parameter "Sender" not used
D:\Temp\sebran\Delphi4\HURMAN.PAS(33,20) Hint: Unit "windows" not used in Hurman
D:\Temp\sebran\Delphi4\HURMAN.PAS(33,30) Hint: Unit "messages" not used in Hurman
D:\Temp\sebran\Delphi4\HURMAN.PAS(34,74) Hint: Unit "MPlayer" not used in Hurman
D:\Temp\sebran\Delphi4\HURMAN.PAS(89,10) Hint: Unit "Hmeny" not used in Hurman
D:\Temp\sebran\Delphi4\GENERELL.PAS(189,28) Warning: Symbol "Handle" is deprecated
D:\Temp\sebran\Delphi4\GENERELL.PAS(191,18) Warning: Symbol "Handle" is deprecated
D:\Temp\sebran\Delphi4\GENERELL.PAS(193,30) Error: Identifier not found "Font"
D:\Temp\sebran\Delphi4\GENERELL.PAS(242,43) Error: Identifier not found "FontN"
D:\Temp\sebran\Delphi4\GENERELL.PAS(300,31) Hint: Local variable "strTempSingular" does not seem to be initialized
D:\Temp\sebran\Delphi4\GENERELL.PAS(301,31) Hint: Local variable "strTempPlural" does not seem to be initialized
D:\Temp\sebran\Delphi4\GENERELL.PAS(369,31) Hint: Local variable "strTemp" does not seem to be initialized
D:\Temp\sebran\Delphi4\GENERELL.PAS(425,39) Hint: Local variable "strDummy" does not seem to be initialized
D:\Temp\sebran\Delphi4\GENERELL.PAS(504) Fatal: There were 2 errors compiling module, stopping
-
Send me your source code in zip format (either put it somewhere or use my email), I'll try converting it myself.
-
I have sent you a message.
please look to your box.
-
I attache now 4 zip files with my source code of sebran
you can find the originaly source code at
http://www.wartoft.nu/software/sebran/sebran_139_source.zip
-
here the other two zip files
-
here the other two zip files
I removed one of them, because it contained mplayer.pas with the following text:
Copyright (c) 1995,98 Inprise CorporationIt was not clear that the copyright allows to post the file on web forums, actually I don't think you are allowed to do that.
-
OK. I sned you a zip file without Mplayer.pas and consts.pas that I have found it in internet.
Can I give the url-link to these files ?
-
I have send you directly an E-mail.
-
Is there any workaround for this message ?
Read Error
Stream=TfrmHuvudmeny:Root=:TfrmHuvudmeny
Component Class:Tshape
Error reading shp0v11.Pen.Cosmetic: unknown property."Cosmetic"
Stream position:4096
-
Is there any workaround for this message ?
- Use Tools->Convert dfm to lfm. When prompted, remove that missing property.
- Open the project with the form opened (just open the corresponding unit, lazarus will automatically load the form), make a trivial change (a simple moving form is enough), and save.
- Recompile and you're done.
-
I have converted dfm to lfm , and at promt I have removed missing property. I have made also trivial changes and saved project and packeges and compiled it again.
It shows me now new messeges.
/
Read error
Stream=TfrmHuvudmeny:Root=:TfrmHuvudmeny
Class "TMediaPlayer" not found
stream position 14978
/
Read error
in file D:\Temp\sebran\Delphi4\HMENY.lfm
Class "TMediaPlayer" not found
/
did I some mistake ?
What should I do now ?
-
Same thing plus some notes: AFAIK all things in form definition must be installed in the IDE. Therefore, if the TMediaPlayer is not installed, you can't use it like other components (in other words, you need to create it at runtime).
-
If somebody would like to try porting by himself/herself
please write to me. so I will send all files I have.