Remove auto generated comments

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5636 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/jujiboutils/src/jbutton.pas

@@ -36,9 +36,7 @@ type
     FImage: TImage;
     FJLabel: TJLabel;
     //OldBevel: TPanelBevel;
-    { Private declarations }
   protected
-    { Protected declarations }
     procedure SetName(const Value: TComponentName); override;
     procedure JLabel1MouseDown(Sender: TObject; Button: TMouseButton;
       Shift: TShiftState; X, Y: integer);
@@ -46,10 +44,8 @@ type
       Shift: TShiftState; X, Y: integer);
     procedure JLabel1MouseClick(Sender: TObject);
   public
-    { Public declarations }
     constructor Create(TheOwner: TComponent); override;
   published
-    { Published declarations }
     property LCaption: TJLabel read FJLabel;
     property Image: TImage read FImage;
     property Align;

components/jujiboutils/src/jdbenumcombo.pas

@@ -42,14 +42,12 @@ type
     procedure SetReadOnly(const AValue: boolean);
     procedure CMGetDataLink(var Message: TLMessage); message CM_GETDATALINK;
   protected
-    { Protected declarations }
     procedure DataChange(Sender: TObject);
     procedure Notification(AComponent: TComponent; Operation: TOperation); override;
     procedure Change; override;
     procedure DropDown; override;
     procedure UpdateData(Sender: TObject);
   public
-    { Public declarations }
     constructor Create(TheOwner: TComponent); override;
     destructor Destroy; override;
     procedure EditingDone; override;
@@ -57,7 +55,6 @@ type
     property Text;
     property ItemIndex;
   published
-    { Published declarations }
     property Anchors;
     property ArrowKeysTraverseList;
     property AutoDropDown;

components/jujiboutils/src/jdbgridcontrol.pas

@@ -61,7 +61,6 @@ type
 
   TJDBGridControl = class(TDBGrid)
   private
-    { Private declarations }
     stringDbGridControl: TJDbGridStringCtrl;
     dateDbGridControl: TJDbGridDateCtrl;
     timeDbGridControl: TJDbGridTimeCtrl;
@@ -71,7 +70,6 @@ type
     function GetColumns: TJDBGridColumns;
     procedure SetColumns(AValue: TJDBGridColumns);
   protected
-    { Protected declarations }
     function CreateColumns: TGridColumns; override;
     function GetDefaultEditor(Column: integer): TWinControl; override;
     procedure UpdateData; override;
@@ -83,11 +81,9 @@ type
     procedure WMVScroll(var Message: TLMVScroll); message LM_VScroll;
     procedure KeyDown(var Key: word; Shift: TShiftState); override;
   public
-    { Public declarations }
     constructor Create(TheOwner: TComponent); override;
     destructor Destroy; override;
   published
-    { Published declarations }
 
   end;
 

components/jujiboutils/src/jdbimageblob.pas

@@ -32,7 +32,6 @@ type
   TJDBImageBlob = class(TCustomImage)
   private
     FAutoDisplay: boolean;
-    { Private declarations }
     FDataLink: TFieldDataLink;
 
     procedure DataChange(Sender: TObject);
@@ -46,17 +45,13 @@ type
     procedure SetDataSource(Value: TDataSource);
     procedure CMGetDataLink(var Message: TLMessage); message CM_GETDATALINK;
   protected
-    { Protected declarations }
     procedure Notification(AComponent: TComponent; Operation: TOperation); override;
     procedure LoadPicture; virtual;
   public
-    { Public declarations }
     constructor Create(TheOwner: TComponent); override;
     destructor Destroy; override;
     property Field: TField read GetField;
   published
-    { Published declarations }
-
     property DataField: string read GetDataField write SetDataField;
     property DataSource: TDataSource read GetDataSource write SetDataSource;
     property AutoDisplay: boolean read FAutoDisplay write SetAutoDisplay default True;
@@ -194,7 +189,7 @@ constructor TJDBImageBlob.Create(TheOwner: TComponent);
 begin
   inherited Create(TheOwner);
   ControlStyle := ControlStyle + [csReplicatable];
-  FAutoDisplay:=True;
+  FAutoDisplay := True;
   FDataLink := TFieldDataLink.Create;
   FDataLink.Control := Self;
   FDataLink.OnDataChange := @DataChange;

components/jujiboutils/src/jdblabel.pas

@@ -31,7 +31,6 @@ type
 
   TJDbLabel = class(TJCustomLabel)
   private
-    { Private declarations }
     FDataLink: TFieldDataLink;
 
     procedure DataChange(Sender: TObject);
@@ -43,16 +42,13 @@ type
     procedure SetDataSource(Value: TDataSource);
     procedure CMGetDataLink(var Message: TLMessage); message CM_GETDATALINK;
   protected
-    { Protected declarations }
     procedure Notification(AComponent: TComponent; Operation: TOperation); override;
     procedure Loaded; override;
   public
-    { Public declarations }
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
     property Field: TField read GetField;
   published
-    { Published declarations }
     property DataField: string read GetDataField write SetDataField;
     property DataSource: TDataSource read GetDataSource write SetDataSource;
 

components/jujiboutils/src/jdblabelededit.pas

@@ -31,7 +31,6 @@ type
 
   TJDBLabeledEdit = class(TCustomLabeledEdit)
   private
-    { Private declarations }
     FDataLink: TFieldDataLink;
 
     procedure DataChange(Sender: TObject);
@@ -49,7 +48,6 @@ type
     procedure CMGetDataLink(var Message: TLMessage); message CM_GETDATALINK;
 
   protected
-    { Protected declarations }
     procedure Loaded; override;
     procedure Notification(AComponent: TComponent; Operation: TOperation); override;
     procedure ActiveChange(Sender: TObject); virtual;
@@ -59,13 +57,11 @@ type
     function GetReadOnly: boolean; override;
     procedure SetReadOnly(Value: boolean); override;
   public
-    { Public declarations }
     constructor Create(TheOwner: TComponent); override;
     destructor Destroy; override;
     procedure EditingDone; override;
     property Field: TField read GetField;
   published
-    { Published declarations }
     property DataField: string read GetDataField write SetDataField;
     property DataSource: TDataSource read GetDataSource write SetDataSource;
     property ReadOnly: boolean read GetReadOnly write SetReadOnly default False;

components/jujiboutils/src/jdblabeledtimeedit.pas

@@ -11,7 +11,6 @@ uses
 type
   TJDBLabeledTimeEdit = class(TCustomLabeledEdit)
   private
-    { Private declarations }
     fFormat: string;
     FDataLink: TFieldDataLink;
 

components/jujiboutils/src/jlabel.pas

@@ -33,16 +33,13 @@ type
 
   TJCustomLabel = class(TCustomLabel)
   private
-    { Private declarations }
     FLabelStyle: TLabelStyle;
     FShadowColor: TColor;
     FShadowColor2: TColor;
     procedure SetLabelStyle(AValue: TLabelStyle);
     procedure SetShadowColor2(AValue: TColor);
   protected
-    { Protected declarations }
     procedure SetShadowColor(Value: TColor);
-
     property ShadowColor: TColor read FShadowColor write SetShadowColor;
     property ShadowColor2: TColor read FShadowColor2 write SetShadowColor2;
     property LabelStyle: TLabelStyle read FLabelStyle write SetLabelStyle;
@@ -88,7 +85,6 @@ type
     property OnStartDrag;
     property OptimalFill;
   public
-    { Public declarations }
     constructor Create(TheOwner: TComponent); override;
     procedure Paint; override;
   end;

components/jujiboutils/src/jlabeleddateedit.pas

@@ -46,7 +46,6 @@ type
     procedure WMSetFocus(var Message: TLMSetFocus); message LM_SETFOCUS;
     procedure WMKillFocus(var Message: TLMKillFocus); message LM_KILLFOCUS;
   protected
-    { Protected declarations }
     procedure DoEnter; override;
     procedure DoExit; override;
     procedure KeyDown(var Key: word; Shift: TShiftState); override;
@@ -62,11 +61,9 @@ type
     procedure ShowCalendar(Sender: TObject);
     procedure CalendarPopupReturnDate(Sender: TObject; const ADate: TDateTime);
   public
-    { Public declarations }
     constructor Create(TheOwner: TComponent); override;
     destructor Destroy; override;
   published
-    { Published declarations }
     function isNull: boolean;
     property DisplayFormat: string read getFormat write setFormat;
     property EditFormat: string read fEFormat write fEFormat;

components/jujiboutils/src/jlabeleddatetimeedit.pas

@@ -34,7 +34,6 @@ type
   TJLabeledDateTimeEdit = class(TCustomLabeledEdit)
   private
     fEFormat: string;
-    { Private declarations }
     theValue: TDateTime;
     fFormat: string;
     FButton: TSpeedButton;
@@ -49,7 +48,6 @@ type
     procedure WMSetFocus(var Message: TLMSetFocus); message LM_SETFOCUS;
     procedure WMKillFocus(var Message: TLMKillFocus); message LM_KILLFOCUS;
   protected
-    { Protected declarations }
     procedure DoEnter; override;
     procedure DoExit; override;
     procedure KeyDown(var Key: word; Shift: TShiftState); override;
@@ -66,11 +64,9 @@ type
     procedure CalendarPopupReturnDate(Sender: TObject; const ADate: TDateTime);
 
   public
-    { Public declarations }
     constructor Create(TheOwner: TComponent); override;
     destructor Destroy; override;
   published
-    { Published declarations }
     function isNull: boolean;
     property DisplayFormat: string read getFormat write setFormat;
     property EditFormat: string read fEFormat write fEFormat;

components/jujiboutils/src/jlabeledtimeedit.pas

@@ -28,7 +28,6 @@ uses
 type
   TJLabeledTimeEdit = class(TCustomLabeledEdit)
   private
-    { Private declarations }
     theValue: TTime;
     hasValue: boolean;
     fFormat: string;
@@ -38,16 +37,13 @@ type
     procedure setValue(const AValue: TTime);
     procedure FormatInput;
   protected
-    { Protected declarations }
     procedure DoEnter; override;
     procedure DoExit; override;
     procedure KeyPress(var Key: char); override;
   public
-    { Public declarations }
     constructor Create(TheOwner: TComponent); override;
     destructor Destroy; override;
   published
-    { Published declarations }
     function isNull: boolean;
     property DisplayFormat: string read getFormat write setFormat;
     property Value: TTime read getValue write setValue;