home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 October / Chip_2001-10_cd1.bin / zkuste / delphi / kompon / d123456 / CHEMPLOT.ZIP / TPlot / resourcefix2.pas / text0000.txt < prev   
Encoding:
Text File  |  2001-03-30  |  692 b   |  32 lines
  1. : Mat Ballard <mat.ballard@molsci.csiro.au> wrote:
  2.  
  3. >Every LoadStr from
  4. >there is also out by 16.
  5.  
  6. What happens if you change the code in SysUtils as below?
  7.  
  8. Theoretically, this could work.
  9.  
  10. **********************
  11.  
  12. function EnumStringModules(Instance: Longint; Data: Pointer): Boolean;
  13. {$IFDEF LINUX}
  14. var
  15.   rs: TResStringRec;
  16.   Module: HModule;
  17. begin
  18.   Module := Instance;
  19.   rs.Module := @Module;
  20.   with PStrData(Data)^ do
  21.   begin
  22.     rs.Identifier := Ident + 16; // <--- Add "+16" here
  23.     Str := LoadResString(@rs);
  24.     Result := Str = '';
  25.   end;
  26. end;
  27. {$ENDIF}
  28.  
  29. -- 
  30. NNQ - Quoting Style in Newsgroup Postings
  31.   http://web.infoave.net/~dcalhoun/nnq/nquote.html
  32.