Jump to content


Photo

delphi 2009 support


  • Please log in to reply
96 replies to this topic

#41 Lelik

Lelik
  • Members
  • 28 posts
  • Gender:Male

Posted 18 December 2008 - 11:34 PM

OK)

If you need any help - you can contact me. I'd love to take part in developing of these usefull components smile.gif
Кручу-верчу, ЛариÑ?у Ивановну хочу :)

#42 Boki (Berg)

Boki (Berg)

    Boki (Berg)

  • Forum Admin
  • PipPipPipPipPip
  • 8,289 posts
  • Gender:Male

Posted 18 December 2008 - 11:53 PM

Hello Lelik,

Thank you again. If I have something to ask, I will do.

Best regards
boki@bergsoft.net | LinkedIn Profile
--
BergSoft Home Page: www.bergsoft.net
Users Section: users.bergsoft.net
Articles and Tutorials: help.bergsoft.net (Developers Network)
--
BergSoft Facebook page
--
Send us applications made with our components and we will submit them on: www.bergsoft.net/apps.htm. Link to this page will be also set on home page too.

#43 Boki (Berg)

Boki (Berg)

    Boki (Berg)

  • Forum Admin
  • PipPipPipPipPip
  • 8,289 posts
  • Gender:Male

Posted 26 December 2008 - 03:51 PM

Hello,

First release for Delphi 2009 is out. I hope that you may use it

Best regards
boki@bergsoft.net | LinkedIn Profile
--
BergSoft Home Page: www.bergsoft.net
Users Section: users.bergsoft.net
Articles and Tutorials: help.bergsoft.net (Developers Network)
--
BergSoft Facebook page
--
Send us applications made with our components and we will submit them on: www.bergsoft.net/apps.htm. Link to this page will be also set on home page too.

#44 Lelik

Lelik
  • Members
  • 28 posts
  • Gender:Male

Posted 26 December 2008 - 09:47 PM

How do I install a new version for Delphi? I mean what to do with Delphi 2009.groupproj
Кручу-верчу, ЛариÑ?у Ивановну хочу :)

#45 Boki (Berg)

Boki (Berg)

    Boki (Berg)

  • Forum Admin
  • PipPipPipPipPip
  • 8,289 posts
  • Gender:Male

Posted 27 December 2008 - 05:38 PM

Hello,

You may open this file, and then simply compie and install all packages before NxAddonsRun .NxAddons does not support Delphi 2009 at the moment.
boki@bergsoft.net | LinkedIn Profile
--
BergSoft Home Page: www.bergsoft.net
Users Section: users.bergsoft.net
Articles and Tutorials: help.bergsoft.net (Developers Network)
--
BergSoft Facebook page
--
Send us applications made with our components and we will submit them on: www.bergsoft.net/apps.htm. Link to this page will be also set on home page too.

#46 emailaya

emailaya

    Master Member

  • Members
  • PipPipPipPipPip
  • 984 posts

Posted 27 December 2008 - 05:48 PM

so nxAutoComplete doesnt work with D2009?

#47 Lelik

Lelik
  • Members
  • 28 posts
  • Gender:Male

Posted 27 December 2008 - 06:29 PM

Some errors appear while installing into Delphi 2009:

Unit: NxColumnClasses

-- 1480 line, replace it as in example block:

CODE
function TNxDateColumn.IsKeyValid(Key: Char): Boolean;
begin
  Result := CharInSet(Key,['1'..'9', '0', DateSeparator]);
end;




-- lines 555, 556 replace it as in example block:

CODE
function ValidNumberKey(Key: Char; Options: TNxNumberEditOptions): Boolean;
begin
  Result := True;
  if CharInSet(Key, ['1'..'9', '0']) then Exit;
  if (eoAllowSigns in Options) and (CharInSet(Key, ['-', '+'])) then Exit;
  if (eoAllowFloat in Options) and (Key = DecimalSeparator) then Exit;
  Result := False;
end;






Unit: NxColumns

-- 2026 line, replace it as in example block:
CODE
begin
  StringText := AsString;
  DrawTextEx(Canvas.Handle, PWideChar(StringText), Length(StringText), Rect, Flags, nil);
end;




Unit: NxGridReg

-- lines 306, 308, 322, 327, 342, use insead of "Key in []" - "CharInSet(Key, [])" function



Unit: NxDbCommon

-- line 31 replace with:

CODE
if Pos('JFIF', Copy(Field.AsString, 1, 10)) = 7 then { jpeg? }




Unit: NxDbColumns

-- line 1213, use insead of "Key in []" - "CharInSet(Key, [])" function





Unit: NxDbGridDsgn

-- line 39, use insead of "vcljpg" - "VCLIMG" unit



Unit: NxPropertyItemClasses

-- function StringToFontStyles replace with:

CODE
function TNxFontStyleItem.StringToFontStyles(
  const Value: WideString): TFontStyles;
var sBold, sItalic, sUnderline:WideString;
begin
  Result := [];

  sBold:='bold';
  sItalic:='italic';
  sUnderline:='underline';

  if Pos(sBold, Value) > 0 then Result := Result + [fsBold];
  if Pos(sItalic, Value) > 0 then Result := Result + [fsItalic];
  if Pos(sUnderline, Value) > 0 then Result := Result + [fsUnderline];
end;




-- move to the public section of TNxCustomInspector:

CODE
procedure GetChildren(Proc: TGetChildProc; Root: TComponent); override;

Кручу-верчу, ЛариÑ?у Ивановну хочу :)

#48 Boki (Berg)

Boki (Berg)

    Boki (Berg)

  • Forum Admin
  • PipPipPipPipPip
  • 8,289 posts
  • Gender:Male

Posted 28 December 2008 - 10:06 PM

Hello Lelik,

I will need to look at you code and test it. Not sure why this errors don't appear for me too.

Best regards
boki@bergsoft.net | LinkedIn Profile
--
BergSoft Home Page: www.bergsoft.net
Users Section: users.bergsoft.net
Articles and Tutorials: help.bergsoft.net (Developers Network)
--
BergSoft Facebook page
--
Send us applications made with our components and we will submit them on: www.bergsoft.net/apps.htm. Link to this page will be also set on home page too.

#49 Victor Printing

Victor Printing
  • Members
  • 26 posts

Posted 02 January 2009 - 04:15 PM

All the changes to use CharInSet should only be warnings and not errors. I didn't get any notifications on this thread or I'd have been back sooner. I'll diff your latest release against my own branch and let you know of any differences.

#50 Boki (Berg)

Boki (Berg)

    Boki (Berg)

  • Forum Admin
  • PipPipPipPipPip
  • 8,289 posts
  • Gender:Male

Posted 02 January 2009 - 05:26 PM

Hello,

I am just release version for download, and now I will work on Delphi 2009 full support.

Best regards
boki@bergsoft.net | LinkedIn Profile
--
BergSoft Home Page: www.bergsoft.net
Users Section: users.bergsoft.net
Articles and Tutorials: help.bergsoft.net (Developers Network)
--
BergSoft Facebook page
--
Send us applications made with our components and we will submit them on: www.bergsoft.net/apps.htm. Link to this page will be also set on home page too.

#51 emailaya

emailaya

    Master Member

  • Members
  • PipPipPipPipPip
  • 984 posts

Posted 02 January 2009 - 05:52 PM

does that mean the latest version does not have a full d2009 support?

#52 Boki (Berg)

Boki (Berg)

    Boki (Berg)

  • Forum Admin
  • PipPipPipPipPip
  • 8,289 posts
  • Gender:Male

Posted 02 January 2009 - 06:17 PM

Hello Emailaya,

AddOns package still not have, other packages are fine. I will ask Wim to help me for this 1 package

Best regards
boki@bergsoft.net | LinkedIn Profile
--
BergSoft Home Page: www.bergsoft.net
Users Section: users.bergsoft.net
Articles and Tutorials: help.bergsoft.net (Developers Network)
--
BergSoft Facebook page
--
Send us applications made with our components and we will submit them on: www.bergsoft.net/apps.htm. Link to this page will be also set on home page too.

#53 emailaya

emailaya

    Master Member

  • Members
  • PipPipPipPipPip
  • 984 posts

Posted 02 January 2009 - 08:15 PM

any estimation on when it should be ready?

#54 Boki (Berg)

Boki (Berg)

    Boki (Berg)

  • Forum Admin
  • PipPipPipPipPip
  • 8,289 posts
  • Gender:Male

Posted 03 January 2009 - 01:11 AM

Hello Emailaya,

I am not really sure about it.

Best regards
boki@bergsoft.net | LinkedIn Profile
--
BergSoft Home Page: www.bergsoft.net
Users Section: users.bergsoft.net
Articles and Tutorials: help.bergsoft.net (Developers Network)
--
BergSoft Facebook page
--
Send us applications made with our components and we will submit them on: www.bergsoft.net/apps.htm. Link to this page will be also set on home page too.

#55 emailaya

emailaya

    Master Member

  • Members
  • PipPipPipPipPip
  • 984 posts

Posted 09 January 2009 - 06:18 PM

QUOTE (Lelik @ Dec 27 2008, 07:29 PM) <{POST_SNAPBACK}>
Some errors appear while installing into Delphi 2009:

Unit: NxColumnClasses

-- 1480 line, replace it as in example block:

CODE
function TNxDateColumn.IsKeyValid(Key: Char): Boolean;
begin
  Result := CharInSet(Key,['1'..'9', '0', DateSeparator]);
end;

-- lines 555, 556 replace it as in example block:

CODE
function ValidNumberKey(Key: Char; Options: TNxNumberEditOptions): Boolean;
begin
  Result := True;
  if CharInSet(Key, ['1'..'9', '0']) then Exit;
  if (eoAllowSigns in Options) and (CharInSet(Key, ['-', '+'])) then Exit;
  if (eoAllowFloat in Options) and (Key = DecimalSeparator) then Exit;
  Result := False;
end;

Unit: NxColumns

-- 2026 line, replace it as in example block:
CODE
begin
  StringText := AsString;
  DrawTextEx(Canvas.Handle, PWideChar(StringText), Length(StringText), Rect, Flags, nil);
end;

Unit: NxGridReg

-- lines 306, 308, 322, 327, 342, use insead of "Key in []" - "CharInSet(Key, [])" function
Unit: NxDbCommon

-- line 31 replace with:

CODE
if Pos('JFIF', Copy(Field.AsString, 1, 10)) = 7 then { jpeg? }

Unit: NxDbColumns

-- line 1213, use insead of "Key in []" - "CharInSet(Key, [])" function
Unit: NxDbGridDsgn

-- line 39, use insead of "vcljpg" - "VCLIMG" unit
Unit: NxPropertyItemClasses

-- function StringToFontStyles replace with:

CODE
function TNxFontStyleItem.StringToFontStyles(
  const Value: WideString): TFontStyles;
var sBold, sItalic, sUnderline:WideString;
begin
  Result := [];

  sBold:='bold';
  sItalic:='italic';
  sUnderline:='underline';

  if Pos(sBold, Value) > 0 then Result := Result + [fsBold];
  if Pos(sItalic, Value) > 0 then Result := Result + [fsItalic];
  if Pos(sUnderline, Value) > 0 then Result := Result + [fsUnderline];
end;

-- move to the public section of TNxCustomInspector:

CODE
procedure GetChildren(Proc: TGetChildProc; Root: TComponent); override;



im having the same errors as lelik described above

#56 Boki (Berg)

Boki (Berg)

    Boki (Berg)

  • Forum Admin
  • PipPipPipPipPip
  • 8,289 posts
  • Gender:Male

Posted 09 January 2009 - 09:50 PM

Hello Emailaya,

Do you have try yet to use latest version from users section?

Best regards
boki@bergsoft.net | LinkedIn Profile
--
BergSoft Home Page: www.bergsoft.net
Users Section: users.bergsoft.net
Articles and Tutorials: help.bergsoft.net (Developers Network)
--
BergSoft Facebook page
--
Send us applications made with our components and we will submit them on: www.bergsoft.net/apps.htm. Link to this page will be also set on home page too.

#57 emailaya

emailaya

    Master Member

  • Members
  • PipPipPipPipPip
  • 984 posts

Posted 09 January 2009 - 11:41 PM

i remember downloading it but im not sure i actually installed that smile.gif
i will try and let u know

#58 emailaya

emailaya

    Master Member

  • Members
  • PipPipPipPipPip
  • 984 posts

Posted 10 January 2009 - 09:32 PM

hi
i installed the latest version of next suite under D2009 without TNT condition and it seems to be ok
but when i opened my project (D2007 based) and tried to open it under D2009) i got the attached 2 errors

please advice
can it be related to the fact that under D2007 , TNT condition was ON?

update: after re-opening the project, the whole TNextDBGrid class was defined. i may have to re-install NextSuite but first i want to make sure what was the problem

Attached Files



#59 Boki (Berg)

Boki (Berg)

    Boki (Berg)

  • Forum Admin
  • PipPipPipPipPip
  • 8,289 posts
  • Gender:Male

Posted 10 January 2009 - 11:22 PM

Hello Emailaya,

If you haved for 2007 NextSuite installed, try to do a clean install and then install Next Suite again.

Best regards
boki@bergsoft.net | LinkedIn Profile
--
BergSoft Home Page: www.bergsoft.net
Users Section: users.bergsoft.net
Articles and Tutorials: help.bergsoft.net (Developers Network)
--
BergSoft Facebook page
--
Send us applications made with our components and we will submit them on: www.bergsoft.net/apps.htm. Link to this page will be also set on home page too.

#60 emailaya

emailaya

    Master Member

  • Members
  • PipPipPipPipPip
  • 984 posts

Posted 10 January 2009 - 11:27 PM

is it possible to have 2 different NextSuites (different folders) installed 1 for D2007 and 1 for D2009?
under D2007 there is no problem
the problem is with D2009 and there i did a clean install, the installation was successful, the above problem was only when i opened my project




0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users