paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-18 07:29:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: formatting

Browse Source 
git-svn-id: trunk@34900 -
This commit is contained in:
juha 2012-01-24 14:10:19 +00:00
parent f6d28b06a1
commit 3e969373ef
7 changed files with 19 additions and 40 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
lcl/dbctrls.pp
View File

@ -87,7 +87,6 @@ Type
// Attached control
property Control: TComponent read FControl write FControl;
// Basic DB interfaces
property Field: TField read FField;
property FieldName: string read FFieldName write SetFieldName;
@ -149,8 +148,7 @@ Type
procedure SetLookupCache(const Value: boolean);
function HandleNullKey(var Key: Word; Shift: TShiftState): Boolean;
protected
procedure Notification(AComponent: TComponent;
Operation: TOperation); override;
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
@ -182,8 +180,6 @@ Type
function GetDataField: string;
function GetDataSource: TDataSource;
function GetField: TField;
procedure SetDataField(const Value: string);
procedure SetDataSource(Value: TDataSource);
procedure CMGetDataLink(var Message: TLMessage); message CM_GETDATALINK;
@ -193,8 +189,7 @@ Type
procedure KeyDown(var Key: Word; Shift: TShiftState); override;
procedure KeyPress(var Key: char); override;
procedure Notification(AComponent: TComponent;
Operation: TOperation); override;
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
function EditCanModify: Boolean; override;
function GetEditText: string; override;
@ -275,8 +270,7 @@ Type
procedure SetDataSource(Value: TDataSource);
procedure CMGetDataLink(var Message: TLMessage); message CM_GETDATALINK;
protected
procedure Notification(AComponent: TComponent;
Operation: TOperation); override;
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
class procedure WSRegisterClass; override;
public
constructor Create(AOwner: TComponent); override;
@ -346,8 +340,7 @@ Type
procedure DataChange(Sender: TObject); virtual; abstract;
procedure KeyDown(var Key: Word; Shift: TShiftState); override;
procedure Notification(AComponent: TComponent;
Operation: TOperation); override;
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
procedure UpdateData(Sender: TObject); virtual; abstract;
// we need to override the Items Write method for db aware.
procedure SetItems(Values : TStrings); override;
@ -521,8 +514,7 @@ Type
procedure CMGetDataLink(var Message: TLMessage); message CM_GETDATALINK;
protected
procedure Change; virtual;
procedure Notification(AComponent: TComponent;
Operation: TOperation); override;
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
procedure DataChange(Sender: TObject);
procedure UpdateData(Sender: TObject);
property DataLink: TFieldDataLink read FDataLink;
@ -590,8 +582,7 @@ Type
procedure DataChange(Sender: TObject);
procedure DoOnChange; override;
procedure UpdateData(Sender: TObject);
procedure Notification(AComponent: TComponent;
Operation: TOperation); override;
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
public
constructor Create(TheOwner: TComponent); override;
destructor Destroy; override;
@ -656,8 +647,7 @@ Type
procedure CMGetDataLink(var Message: TLMessage); message CM_GETDATALINK;
protected
procedure DataChange(Sender: TObject); virtual; abstract;
procedure Notification(AComponent: TComponent;
Operation: TOperation); override;
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
procedure Change; override;
procedure UpdateData(Sender: TObject); virtual; abstract;
procedure WndProc(var Message: TLMessage); override;
@ -674,7 +664,7 @@ Type
end;
{ TDBComboBox }
{ TDBComboBox }
TDBComboBox = class(TCustomDBComboBox)
protected
@ -853,8 +843,7 @@ Type
function GetReadOnly: Boolean; override;
procedure SetReadOnly(AValue: Boolean); override;
procedure DataChange(Sender: TObject);
procedure Notification(AComponent: TComponent;
Operation: TOperation); override;
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
procedure UpdateData(Sender: TObject);
procedure Change; override;
procedure KeyPress(var Key:Char); override;
@ -925,8 +914,7 @@ Type
procedure CMGetDataLink(var Message: TLMessage); message CM_GETDATALINK;
protected
procedure DataChange(Sender: TObject);
procedure Notification(AComponent: TComponent;
Operation: TOperation); override;
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
public
constructor Create(TheOwner: TComponent); override;
destructor Destroy; override;
@ -994,8 +982,7 @@ Type
procedure SetReadOnly(const AValue: Boolean);
procedure CMGetDataLink(var Message: TLMessage); message CM_GETDATALINK;
protected
procedure Notification(AComponent: TComponent;
Operation: TOperation); override;
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
procedure DataChange(Sender: TObject);
procedure UpdateData(Sender: TObject);
procedure PictureChanged(Sender: TObject); override;
@ -1057,8 +1044,7 @@ Type
procedure UpdateDate(const AValue: string);
procedure CMGetDataLink(var Message: TLMessage); message CM_GETDATALINK;
protected
procedure Notification(AComponent: TComponent;
Operation: TOperation); override;
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
public
constructor Create(TheOwner: TComponent); override;
destructor Destroy; override;
@ -1165,8 +1151,7 @@ type
procedure EditingChanged; virtual;
procedure ActiveChanged; virtual;
procedure Loaded; override;
procedure Notification(AComponent: TComponent;
Operation: TOperation); override;
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
procedure UpdateButtons; virtual;
procedure UpdateHints; virtual;
procedure HintsChanged(Sender: TObject); virtual;

3
lcl/include/customdblistbox.inc
View File

@ -97,8 +97,7 @@ begin
end;
end;
procedure TCustomDBListBox.Notification(AComponent: TComponent;
Operation: TOperation);
procedure TCustomDBListBox.Notification(AComponent: TComponent; Operation: TOperation);
begin
inherited Notification(AComponent, Operation);
// if the datasource is being removed then we need to make sure

3
lcl/include/dbcalendar.inc
View File

@ -93,8 +93,7 @@ begin
Message.Result := PtrUInt(FDataLink);
end;
procedure TDBCalendar.Notification(AComponent: TComponent;
Operation: TOperation);
procedure TDBCalendar.Notification(AComponent: TComponent; Operation: TOperation);
begin
inherited Notification(AComponent, Operation);
if (Operation=opRemove) then begin

3
lcl/include/dbcustomnavigator.inc
View File

@ -212,8 +212,7 @@ begin
ActiveChanged;
end;
procedure TDBCustomNavigator.Notification(AComponent: TComponent;
Operation: TOperation);
procedure TDBCustomNavigator.Notification(AComponent: TComponent; Operation: TOperation);
begin
inherited Notification(AComponent, Operation);
if (Operation=opRemove) then begin

3
lcl/include/dbedit.inc
View File

@ -158,8 +158,7 @@ begin
end;
end;
procedure TDBEdit.Notification(AComponent: TComponent;
Operation: TOperation);
procedure TDBEdit.Notification(AComponent: TComponent; Operation: TOperation);
begin
inherited Notification(AComponent, Operation);
// if the datasource is being removed then we need to make sure

3
lcl/include/dbradiogroup.inc
View File

@ -92,8 +92,7 @@ begin
if Assigned(FOnChange) then FOnChange(Self);
end;
procedure TDBRadioGroup.Notification(AComponent: TComponent;
Operation: TOperation);
procedure TDBRadioGroup.Notification(AComponent: TComponent; Operation: TOperation);
begin
inherited Notification(AComponent, Operation);
if (Operation=opRemove) then begin

3
lcl/include/dbtext.inc
View File

@ -66,8 +66,7 @@ begin
Message.Result := PtrUInt(FDataLink);
end;
procedure TDBText.Notification(AComponent: TComponent;
Operation: TOperation);
procedure TDBText.Notification(AComponent: TComponent; Operation: TOperation);
begin
inherited Notification(AComponent, Operation);
// if the datasource is being removed then we need to make sure