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

3
lcl/include/customdblistbox.inc
View File

@ -97,8 +97,7 @@ begin
end; end;
end; end;
procedure TCustomDBListBox.Notification(AComponent: TComponent; procedure TCustomDBListBox.Notification(AComponent: TComponent; Operation: TOperation);
Operation: TOperation);
begin begin
inherited Notification(AComponent, Operation); inherited Notification(AComponent, Operation);
// if the datasource is being removed then we need to make sure // 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); Message.Result := PtrUInt(FDataLink);
end; end;
procedure TDBCalendar.Notification(AComponent: TComponent; procedure TDBCalendar.Notification(AComponent: TComponent; Operation: TOperation);
Operation: TOperation);
begin begin
inherited Notification(AComponent, Operation); inherited Notification(AComponent, Operation);
if (Operation=opRemove) then begin if (Operation=opRemove) then begin

3
lcl/include/dbcustomnavigator.inc
View File

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

3
lcl/include/dbedit.inc
View File

@ -158,8 +158,7 @@ begin
end; end;
end; end;
procedure TDBEdit.Notification(AComponent: TComponent; procedure TDBEdit.Notification(AComponent: TComponent; Operation: TOperation);
Operation: TOperation);
begin begin
inherited Notification(AComponent, Operation); inherited Notification(AComponent, Operation);
// if the datasource is being removed then we need to make sure // 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); if Assigned(FOnChange) then FOnChange(Self);
end; end;
procedure TDBRadioGroup.Notification(AComponent: TComponent; procedure TDBRadioGroup.Notification(AComponent: TComponent; Operation: TOperation);
Operation: TOperation);
begin begin
inherited Notification(AComponent, Operation); inherited Notification(AComponent, Operation);
if (Operation=opRemove) then begin if (Operation=opRemove) then begin

3
lcl/include/dbtext.inc
View File

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