pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Remove auto generated comments

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5636 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
jujibo
2017-01-13 15:27:33 +00:00
parent 1976d94e64
commit 7b1009fd1d
11 changed files with 1 additions and 41 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/jujiboutils/src/jbutton.pas
View File

@ -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;

3
components/jujiboutils/src/jdbenumcombo.pas
View File

@ -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;

4
components/jujiboutils/src/jdbgridcontrol.pas
View File

@ -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;

5
components/jujiboutils/src/jdbimageblob.pas
View File

@ -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;

4
components/jujiboutils/src/jdblabel.pas
View File

@ -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;

4
components/jujiboutils/src/jdblabelededit.pas
View File

@ -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;

1
components/jujiboutils/src/jdblabeledtimeedit.pas
View File

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

4
components/jujiboutils/src/jlabel.pas
View File

@ -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;

3
components/jujiboutils/src/jlabeleddateedit.pas
View File

@ -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;

4
components/jujiboutils/src/jlabeleddatetimeedit.pas
View File

@ -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;

4
components/jujiboutils/src/jlabeledtimeedit.pas
View File

@ -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;