fixed 1.0.x compilation

git-svn-id: trunk@5296 -

components/codetools/pascalparsertool.pas

@@ -482,7 +482,9 @@ begin
     CurNode.Desc:=CurSection;
     ReadNextAtom; // read source name
     AtomIsIdentifier(true);
-    ReadNextAtom; // read ';'
+    ReadNextAtom; // read ';' (or 'platform;')
+    if UpAtomIs('PLATFORM') then
+      ReadNextAtom;
     if (CurPos.Flag<>cafSemicolon) then
       RaiseCharExpectedButAtomFound(';');
     if CurSection=ctnUnit then begin

lcl/filectrl.pp

@@ -30,7 +30,7 @@
 This unit contains file and directory controls and supporting handling functions. 
 } 
 
-unit filectrl;
+unit FileCtrl;
 
 {$mode objfpc}{$H+}
 
@@ -42,11 +42,11 @@ interface
 
 uses
   Classes, SysUtils,
-{$ifdef VER1_0}
+  {$ifdef VER1_0}
-// fpc 1.0.x needs unit in which redefined property originally is defined
+  // fpc 1.0.x needs unit in which redefined property originally is defined
-// otherwise IE 55665566 occurs.
+  // otherwise IE 55665566 occurs.
   Controls,
-{$endif}
+  {$endif}
   StdCtrls;
 
 Type
@@ -265,7 +265,7 @@ function TCustomFileListBox.IndexOfFile(const AFilename: string): integer;
 begin
   Result:=0;
   while (Result<Items.Count)
-  and (CompareFilenames(Filename,Items[Result])<>0) do
+  and (CompareFilenames(AFilename,Items[Result])<>0) do
     inc(Result);
   Result:=-1;
 end;
@@ -360,12 +360,13 @@ end;
 initialization
   InternalInit;
 
-finalization
-
 end.
 
 {
   $Log$
+  Revision 1.25  2004/03/12 15:48:57  mattias
+  fixed 1.0.x compilation
+
   Revision 1.24  2004/03/12 12:53:51  vincents
   fixed comment
 

lcl/stdctrls.pp

@@ -395,22 +395,46 @@ type
     procedure MakeCurrentVisible;
     procedure Clear;
   public
+    property Align;
+    property Anchors;
     property BorderStyle : TBorderStyle read FBorderStyle write SetBorderStyle default bsSingle;
     property Canvas: TCanvas read FCanvas;
+    property Constraints;
     property ExtendedSelect : boolean read FExtendedSelect write SetExtendedSelect;
+    property Font;
     property IntegralHeight: boolean read FIntegralHeight write FIntegralHeight; // not implemented
     property ItemHeight: Integer read GetItemHeight write SetItemHeight;
     property ItemIndex : integer read GetItemIndex write SetItemIndex;
     property Items : TStrings read FItems write SetItems;
     property MultiSelect: boolean read FMultiSelect write SetMultiSelect;
+    property OnChangeBounds;
+    property OnClick;
+    property OnDblClick;
     property OnDrawItem: TDrawItemEvent read FOnDrawItem write FOnDrawItem;
+    property OnEnter;
+    property OnExit;
+    property OnKeyDown;
+    property OnKeyPress;
+    property OnKeyUp;
+    property OnMouseDown;
+    property OnMouseMove;
+    property OnMouseUp;
+    property OnMouseWheel;
+    property OnMouseWheelDown;
+    property OnMouseWheelUp;
+    property OnResize;
+    property ParentFont;
+    property ParentShowHint;
+    property PopupMenu;
     property SelCount : integer read GetSelCount;
     property Selected[Index: integer]: boolean read GetSelected write SetSelected;
+    property ShowHint;
     property Sorted: boolean read FSorted write SetSorted;
     property Style: TListBoxStyle read FStyle write SetStyle;
-    property TopIndex: Integer read GetTopIndex write SetTopIndex;
+    property TabOrder;
-  published
     property TabStop default true;
+    property TopIndex: Integer read GetTopIndex write SetTopIndex;
+    property Visible;
   end;
 
 
@@ -1520,6 +1544,9 @@ end.
 { =============================================================================
 
   $Log$
+  Revision 1.139  2004/03/12 15:48:57  mattias
+  fixed 1.0.x compilation
+
   Revision 1.138  2004/03/08 22:36:01  mattias
   added TWinControl.ParentFormInitializeWnd