paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-08 10:39:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: don't capitalize keywords (e.g Property -> property)

Browse Source 
git-svn-id: trunk@11043 -
This commit is contained in:
vincents 2007-05-01 17:32:12 +00:00
parent f3acaa1f79
commit a168e7a228
4 changed files with 27 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/colorbox.pas
View File

@ -48,7 +48,7 @@ type
constructor Create(AOwner: TComponent); override;
procedure SetColorList;
property Selection: TColor read GetSelection write SetSelection;
Property Colors[Index : Integer] : TColor Read GetColor;
property Colors[Index : Integer] : TColor Read GetColor;
published
property Align;
property Anchors;
@ -122,7 +122,7 @@ type
constructor Create(AOwner: TComponent); override;
procedure SetColorList;
property Selection: TColor read GetSelection write SetSelection;
Property Colors[Index : Integer] : TColor Read GetColor;
property Colors[Index : Integer] : TColor Read GetColor;
published
property Align;
property Anchors;

8
lcl/dbgrids.pas
View File

@ -176,8 +176,8 @@ type
function MoveBy(Distance: Integer): Integer; override;
property Modified: Boolean read FModified write FModified;
public
Property OnRecordChanged: TFieldNotifyEvent read FOnRecordChanged write FOnRecordChanged;
Property OnDataSetChanged: TDatasetNotifyEvent read FOnDatasetChanged write FOnDataSetChanged;
property OnRecordChanged: TFieldNotifyEvent read FOnRecordChanged write FOnRecordChanged;
property OnDataSetChanged: TDatasetNotifyEvent read FOnDatasetChanged write FOnDataSetChanged;
property OnNewDataSet: TDataSetNotifyEvent read fOnNewDataSet write fOnNewDataSet;
property OnDataSetOpen: TDataSetNotifyEvent read fOnDataSetOpen write fOnDataSetOpen;
property OnInvalidDataSet: TDataSetNotifyEvent read fOnInvalidDataSet write fOnInvalidDataSet;
@ -188,8 +188,8 @@ type
property OnEditingChanged: TDataSetNotifyEvent read FOnEditingChanged write FOnEditingChanged;
property OnUpdateData: TDataSetNotifyEvent read FOnUpdateData write FOnUpdateData;
property DataSetName:string read GetDataSetName write SetDataSetName;
Property Fields[Index: Integer]: TField read GetFields;
Property VisualControl;
property Fields[Index: Integer]: TField read GetFields;
property VisualControl;
end;
{ TColumn }

14
lcl/extdlgs.pas
View File

@ -146,7 +146,7 @@ type
property BeepOnError: Boolean read FBeepOnError write FBeepOnError default True;
property Ctl3D: Boolean read FCtl3D write FCtl3D default True;
property HelpContext: THelpContext read FHelpContext write FHelpContext default 0;
Property CalculatorLayout : TCalculatorLayout Read FLayout Write Flayout;
property CalculatorLayout : TCalculatorLayout Read FLayout Write Flayout;
property Precision: Byte read FPrecision write FPrecision default DefCalcPrecision;
property Title: string read GetTitle write SetTitle stored TitleStored;
property Value: Double read FValue write FValue;
@ -173,15 +173,15 @@ type
procedure CancelClick(Sender: TObject);
procedure CalcKey(Sender: TObject; var Key: char);
procedure DisplayChange(Sender: TObject);
Procedure InitForm(ALayout : TCalculatorLayout); virtual;
Property MainPanel: TPanel Read FMainPanel;
Property CalcPanel: TPanel Read FCalcPanel;
Property DisplayPanel: TPanel Read FDisplayPanel;
Property DisplayLabel: TLabel Read FDisplayLabel;
procedure InitForm(ALayout : TCalculatorLayout); virtual;
property MainPanel: TPanel read FMainPanel;
property CalcPanel: TPanel read FCalcPanel;
property DisplayPanel: TPanel read FDisplayPanel;
property DisplayLabel: TLabel read FDisplayLabel;
public
constructor Create(AOwner: TComponent); override;
constructor CreateLayout(AOwner: TComponent;ALayout : TCalculatorLayout);
Property Value : Double Read GetValue Write SetValue;
property Value : Double read GetValue write SetValue;
end;
function CreateCalculatorForm(AOwner: TComponent; ALayout : TCalculatorLayout; AHelpContext: THelpContext): TCalculatorForm;

28
lcl/inipropstorage.pas
View File

@ -22,38 +22,38 @@ interface
uses
Classes, SysUtils, Forms, IniFiles, PropertyStorage;
Type
type
{ TCustomIniPropStorage }
TIniFileClass = Class of TCustomIniFile;
TIniFileClass = class of TCustomIniFile;
TCustomIniPropStorage = Class(TFormPropertyStorage)
TCustomIniPropStorage = class(TFormPropertyStorage)
private
FCount : Integer;
FReadOnly : Boolean;
FIniFile: TCustomIniFile;
FIniFileName: String;
FIniSection: String;
FIniFileName: string;
FIniSection: string;
protected
Function IniFileClass: TIniFileClass; virtual;
Function GetIniFileName: string; virtual;
Function RootSection: String; Override;
Property IniFile: TCustomIniFile Read FIniFile;
function IniFileClass: TIniFileClass; virtual;
function GetIniFileName: string; virtual;
function RootSection: string; override;
property IniFile: TCustomIniFile read FIniFile;
public
procedure StorageNeeded(ReadOnly: Boolean); override;
procedure FreeStorage; override;
function DoReadString(const Section, Ident, Default: string): string; override;
function DoReadString(const Section, Ident, default: string): string; override;
procedure DoWriteString(const Section, Ident, Value: string); override;
procedure DoEraseSections(const ARootSection : String);override;
procedure DoEraseSections(const ARootSection : string);override;
public
property IniFileName: String Read FIniFileName Write FIniFileName;
property IniSection: String Read FIniSection Write FIniSection;
property IniFileName: string read FIniFileName write FIniFileName;
property IniSection: string read FIniSection write FIniSection;
end;
{ TIniPropStorage }
TIniPropStorage = class(TCustomIniPropStorage)
Published
published
Property StoredValues;
property IniFileName;
property IniSection;