From 7b1009fd1db786882a8c6839ef634a190cf01085 Mon Sep 17 00:00:00 2001 From: jujibo Date: Fri, 13 Jan 2017 15:27:33 +0000 Subject: [PATCH] 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 | 4 ---- components/jujiboutils/src/jdbenumcombo.pas | 3 --- components/jujiboutils/src/jdbgridcontrol.pas | 4 ---- components/jujiboutils/src/jdbimageblob.pas | 7 +------ components/jujiboutils/src/jdblabel.pas | 4 ---- components/jujiboutils/src/jdblabelededit.pas | 4 ---- components/jujiboutils/src/jdblabeledtimeedit.pas | 1 - components/jujiboutils/src/jlabel.pas | 4 ---- components/jujiboutils/src/jlabeleddateedit.pas | 3 --- components/jujiboutils/src/jlabeleddatetimeedit.pas | 4 ---- components/jujiboutils/src/jlabeledtimeedit.pas | 4 ---- 11 files changed, 1 insertion(+), 41 deletions(-) diff --git a/components/jujiboutils/src/jbutton.pas b/components/jujiboutils/src/jbutton.pas index 336b71b99..1cc49ac6f 100644 --- a/components/jujiboutils/src/jbutton.pas +++ b/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; diff --git a/components/jujiboutils/src/jdbenumcombo.pas b/components/jujiboutils/src/jdbenumcombo.pas index a134994b4..f111d3b10 100644 --- a/components/jujiboutils/src/jdbenumcombo.pas +++ b/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; diff --git a/components/jujiboutils/src/jdbgridcontrol.pas b/components/jujiboutils/src/jdbgridcontrol.pas index e67ef3282..efe4d0f83 100644 --- a/components/jujiboutils/src/jdbgridcontrol.pas +++ b/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; diff --git a/components/jujiboutils/src/jdbimageblob.pas b/components/jujiboutils/src/jdbimageblob.pas index a8f768c19..e616bf3e5 100644 --- a/components/jujiboutils/src/jdbimageblob.pas +++ b/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; diff --git a/components/jujiboutils/src/jdblabel.pas b/components/jujiboutils/src/jdblabel.pas index c5818c70e..af189d2c3 100644 --- a/components/jujiboutils/src/jdblabel.pas +++ b/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; diff --git a/components/jujiboutils/src/jdblabelededit.pas b/components/jujiboutils/src/jdblabelededit.pas index 78a2641d6..c089927ff 100644 --- a/components/jujiboutils/src/jdblabelededit.pas +++ b/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; diff --git a/components/jujiboutils/src/jdblabeledtimeedit.pas b/components/jujiboutils/src/jdblabeledtimeedit.pas index 503371035..28e2cb04e 100644 --- a/components/jujiboutils/src/jdblabeledtimeedit.pas +++ b/components/jujiboutils/src/jdblabeledtimeedit.pas @@ -11,7 +11,6 @@ uses type TJDBLabeledTimeEdit = class(TCustomLabeledEdit) private - { Private declarations } fFormat: string; FDataLink: TFieldDataLink; diff --git a/components/jujiboutils/src/jlabel.pas b/components/jujiboutils/src/jlabel.pas index cac1965db..59c4dfdd6 100644 --- a/components/jujiboutils/src/jlabel.pas +++ b/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; diff --git a/components/jujiboutils/src/jlabeleddateedit.pas b/components/jujiboutils/src/jlabeleddateedit.pas index aed15f2b5..62f94affa 100644 --- a/components/jujiboutils/src/jlabeleddateedit.pas +++ b/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; diff --git a/components/jujiboutils/src/jlabeleddatetimeedit.pas b/components/jujiboutils/src/jlabeleddatetimeedit.pas index c427e997d..0c3ad0a95 100644 --- a/components/jujiboutils/src/jlabeleddatetimeedit.pas +++ b/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; diff --git a/components/jujiboutils/src/jlabeledtimeedit.pas b/components/jujiboutils/src/jlabeledtimeedit.pas index 03bf7953c..5d0f23bcd 100644 --- a/components/jujiboutils/src/jlabeledtimeedit.pas +++ b/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;