home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 October / Chip_2001-10_cd1.bin / zkuste / delphi / kompon / d123456 / CHEMPLOT.ZIP / TPlot / resourcefix2.pas < prev    next >
Pascal/Delphi Source File  |  2001-03-30  |  1KB  |  50 lines
  1. From - Fri Mar 30 13:13:57 2001
  2. From: Stefan Hoffmeister <Borland.Newsgroups@econos.com>
  3. Newsgroups: borland.public.kylix.clx.components.writing
  4. Subject: Re: Bug: LoadStr(Ident: Integer) does not load correct string
  5. Date: Thu, 29 Mar 2001 14:01:48 +0200
  6. Organization: .
  7. Message-ID: <sm86ctg77mvk0rhfackp6udjm2j5fp5q5q@4ax.com>
  8. References: <3AC2A751.B59F0C18@molsci.csiro.au>
  9. X-Newsreader: Forte Agent 1.8/32.548
  10. MIME-Version: 1.0
  11. Content-Type: text/plain; charset=us-ascii
  12. Content-Transfer-Encoding: 7bit
  13. NNTP-Posting-Host: 62.226.148.65
  14. X-Trace: 29 Mar 2001 03:59:38 -0800, 62.226.148.65
  15. Lines: 31
  16. Path: dnews!62.226.148.65
  17. Xref: dnews borland.public.kylix.clx.components.writing:169
  18.  
  19. : Mat Ballard <mat.ballard@molsci.csiro.au> wrote:
  20.  
  21. >Every LoadStr from
  22. >there is also out by 16.
  23.  
  24. What happens if you change the code in SysUtils as below?
  25.  
  26. Theoretically, this could work.
  27.  
  28. **********************
  29.  
  30. function EnumStringModules(Instance: Longint; Data: Pointer): Boolean;
  31. {$IFDEF LINUX}
  32. var
  33.   rs: TResStringRec;
  34.   Module: HModule;
  35. begin
  36.   Module := Instance;
  37.   rs.Module := @Module;
  38.   with PStrData(Data)^ do
  39.   begin
  40.     rs.Identifier := Ident + 16; // <--- Add "+16" here
  41.     Str := LoadResString(@rs);
  42.     Result := Str = '';
  43.   end;
  44. end;
  45. {$ENDIF}
  46.  
  47. -- 
  48. NNQ - Quoting Style in Newsgroup Postings
  49.   http://web.infoave.net/~dcalhoun/nnq/nquote.html
  50.