Browse Source

Publish Anchors.

Martijn Laan 6 năm trước cách đây
mục cha
commit
a708b983b9

+ 1 - 0
Components/BitmapImage.pas

@@ -43,6 +43,7 @@ type
     destructor Destroy; override;
   published
     property Align;
+    property Anchors;
     property AutoSize: Boolean read FAutoSize write SetAutoSize default False;
     property BackColor: TColor read FBackColor write SetBackColor default clBtnFace;
     property Center: Boolean read FCenter write SetCenter default False;

+ 3 - 1
Components/FolderTreeView.pas

@@ -2,7 +2,7 @@ unit FolderTreeView;
 
 {
   Inno Setup
-  Copyright (C) 1997-2015 Jordan Russell
+  Copyright (C) 1997-2018 Jordan Russell
   Portions by Martijn Laan
   For conditions of distribution and use, see LICENSE.TXT.
 
@@ -74,6 +74,7 @@ type
     function GetItemImageIndex(const Item: HTREEITEM;
       const NewItem, SelectedImage: Boolean): Integer; override;
   published
+    property Anchors;
     property TabOrder;
     property TabStop default True;
     property Visible;
@@ -97,6 +98,7 @@ type
     procedure SetPaths(const AUserPrograms, ACommonPrograms,
       AUserStartup, ACommonStartup: String);
   published
+    property Anchors;
     property TabOrder;
     property TabStop default True;
     property Visible;

+ 1 - 0
Components/NewCheckListBox.pas

@@ -153,6 +153,7 @@ type
     property State[Index: Integer]: TCheckBoxState read GetState;
   published
     property Align;
+    property Anchors;
     property BorderStyle;
     property Color;
     property Ctl3D;

+ 1 - 0
Components/NewNotebook.pas

@@ -40,6 +40,7 @@ type
   published
     property ActivePage: TNewNotebookPage read FActivePage write SetActivePage;
     property Align;
+    property Anchors;
     property Color;
     property DragCursor;
     property DragMode;

+ 3 - 5
Components/NewProgressBar.pas

@@ -2,19 +2,16 @@ unit NewProgressBar;
 
 {
   Inno Setup
-  Copyright (C) 1997-2006 Jordan Russell
+  Copyright (C) 1997-2018 Jordan Russell
   Portions by Martijn Laan
   For conditions of distribution and use, see LICENSE.TXT.
 
-  TNewProgressBar component - a smooth TProgressBar for Delphi 2 and a 32 bit
-  TProgressBar for Delphi 2 and all platforms
+  TNewProgressBar component - a smooth TProgressBar 32 bit TProgressBar
 
   Note: themed Vista and newer animate progress bars and don't immediately show changes.
   This applies both to Position and State. For example if you set State while the
   progress bar is still moving towards a new Position, the new State doesnt show until
   the moving animation has finished.
-
-  $jrsoftware: issrc/Components/NewProgressBar.pas,v 1.10 2010/10/27 09:45:06 mlaan Exp $
 }
 
 interface
@@ -46,6 +43,7 @@ type
   public
     constructor Create(AOwner: TComponent); override;
   published
+    property Anchors;
     property Min: LongInt read FMin write SetMin;
     property Max: LongInt read FMax write SetMax;
     property Position: LongInt read FPosition write SetPosition default 0;

+ 1 - 0
Components/NewStaticText.pas

@@ -50,6 +50,7 @@ type
     function AdjustHeight: Integer;
   published
     property Align;
+    property Anchors;
     property AutoSize: Boolean read FAutoSize write SetAutoSize default True;
     property Caption;
     property Color;

+ 3 - 4
Components/PasswordEdit.pas

@@ -2,13 +2,11 @@ unit PasswordEdit;
 
 {
   Inno Setup
-  Copyright (C) 1997-2007 Jordan Russell
+  Copyright (C) 1997-2018 Jordan Russell
   Portions by Martijn Laan
   For conditions of distribution and use, see LICENSE.TXT.
 
-  This unit provides a true password edit for Delphi 2.
-
-  $jrsoftware: issrc/Components/PasswordEdit.pas,v 1.3 2007/12/10 18:28:53 jr Exp $
+  This unit provides a true password edit.
 }
 
 interface
@@ -26,6 +24,7 @@ type
   public
     constructor Create(AOwner: TComponent); override;
   published
+    property Anchors;
     property AutoSelect;
     property AutoSize;
     property BorderStyle;