change records to packed records

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@381 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2008-03-17 17:04:56 +00:00
parent bba8f3d864
commit 08c7a1f3a5
7 changed files with 122 additions and 104 deletions
--- a/components/rx/vclutils.pas
+++ b/components/rx/vclutils.pas
@@ -140,7 +140,7 @@ end;
 {$IFDEF WIN32}
 type
  PCheckTaskInfo = ^TCheckTaskInfo;
-  TCheckTaskInfo = record
+  TCheckTaskInfo = packed record
    FocusWnd: HWnd;
    Found: Boolean;
  end;