Recent

Author Topic: convert Sebran delphi(4) code to lazarus  (Read 94147 times)

von_ks

  • Jr. Member
  • **
  • Posts: 57
Re: convert Sebran delphi(4) code to lazarus
« Reply #90 on: February 20, 2009, 12:25:13 pm »

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 ?

Leledumbo

  • Hero Member
  • *****
  • Posts: 8274
  • Programming + Glam Metal + Tae Kwon Do = Me
Re: convert Sebran delphi(4) code to lazarus
« Reply #91 on: February 20, 2009, 01:42:14 pm »
Quote
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.
Quote
Sometimes, I wonder if you know what you are doing ...
I agree with Vincent more than before now...
Quote
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.

von_ks

  • Jr. Member
  • **
  • Posts: 57
Re: convert Sebran delphi(4) code to lazarus
« Reply #92 on: February 23, 2009, 10:52:11 am »





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;                   

Leledumbo

  • Hero Member
  • *****
  • Posts: 8274
  • Programming + Glam Metal + Tae Kwon Do = Me
Re: convert Sebran delphi(4) code to lazarus
« Reply #93 on: February 23, 2009, 11:18:53 am »
I don't see any FontN declared. Question: What does DrawChar expect? Just post the method header if you don't know.

von_ks

  • Jr. Member
  • **
  • Posts: 57
Re: convert Sebran delphi(4) code to lazarus
« Reply #94 on: February 23, 2009, 01:54:40 pm »


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; 

Leledumbo

  • Hero Member
  • *****
  • Posts: 8274
  • Programming + Glam Metal + Tae Kwon Do = Me
Re: convert Sebran delphi(4) code to lazarus
« Reply #95 on: February 24, 2009, 02:47:42 am »
OK, just change:
Code: [Select]
Procedure DrawButton(Im: TImage; Text: String; Col: Longint; [b]Font[/b]: String; FSize: Integer; PCent: Integer; BStyle: Integer);to something like:
Quote
Procedure DrawButton(Im: TImage; Text: String; Col: Longint; FontN: String; FSize: Integer; PCent: Integer; BStyle: Integer);

von_ks

  • Jr. Member
  • **
  • Posts: 57
Re: convert Sebran delphi(4) code to lazarus
« Reply #96 on: February 24, 2009, 10:39:59 am »

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

Leledumbo

  • Hero Member
  • *****
  • Posts: 8274
  • Programming + Glam Metal + Tae Kwon Do = Me
Re: convert Sebran delphi(4) code to lazarus
« Reply #97 on: February 25, 2009, 05:02:01 am »
Send me your source code in zip format (either put it somewhere or use my email), I'll try converting it myself.

von_ks

  • Jr. Member
  • **
  • Posts: 57
Re: convert Sebran delphi(4) code to lazarus
« Reply #98 on: February 26, 2009, 09:35:54 am »
I have sent you a message.
please look to your box.

von_ks

  • Jr. Member
  • **
  • Posts: 57
Re: convert Sebran delphi(4) code to lazarus
« Reply #99 on: February 26, 2009, 10:45:40 am »


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

von_ks

  • Jr. Member
  • **
  • Posts: 57
Re: convert Sebran delphi(4) code to lazarus
« Reply #100 on: February 26, 2009, 10:47:20 am »
here the other two zip files
« Last Edit: February 26, 2009, 11:13:30 am by Vincent Snijders »

Vincent Snijders

  • Administrator
  • Hero Member
  • *
  • Posts: 2661
    • My Lazarus wiki user page
Re: convert Sebran delphi(4) code to lazarus
« Reply #101 on: February 26, 2009, 11:15:28 am »
here the other two zip files
I removed one of them, because it contained mplayer.pas with the following text:
Code: [Select]
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.
« Last Edit: February 26, 2009, 11:17:12 am by Vincent Snijders »

von_ks

  • Jr. Member
  • **
  • Posts: 57
Re: convert Sebran delphi(4) code to lazarus
« Reply #102 on: February 26, 2009, 11:45:02 am »


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 ?

von_ks

  • Jr. Member
  • **
  • Posts: 57
Re: convert Sebran delphi(4) code to lazarus
« Reply #103 on: February 28, 2009, 09:25:03 pm »
I have send you directly an E-mail.

von_ks

  • Jr. Member
  • **
  • Posts: 57
Re: convert Sebran delphi(4) code to lazarus
« Reply #104 on: March 09, 2009, 04:14:42 pm »

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

 

TinyPortal © 2005-2018