paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 05:59:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: fixed typo and formatting

Browse Source 
git-svn-id: trunk@53967 -
This commit is contained in:
mattias 2017-01-18 11:36:17 +00:00
parent f33a1a9151
commit de4b901bdd
1 changed files with 73 additions and 73 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

146
lcl/grids.pas
View File

@ -1194,7 +1194,7 @@ type
property OnAfterSelection: TOnSelectEvent read FOnAfterSelection write FOnAfterSelection; property OnAfterSelection: TOnSelectEvent read FOnAfterSelection write FOnAfterSelection;
property OnBeforeSelection: TOnSelectEvent read FOnBeforeSelection write FOnBeforeSelection; property OnBeforeSelection: TOnSelectEvent read FOnBeforeSelection write FOnBeforeSelection;
property OnCheckboxToggled: TToggledcheckboxEvent read FOnCheckboxToggled write FOnCheckboxToggled; property OnCheckboxToggled: TToggledCheckboxEvent read FOnCheckboxToggled write FOnCheckboxToggled;
property OnCompareCells: TOnCompareCells read FOnCompareCells write FOnCompareCells; property OnCompareCells: TOnCompareCells read FOnCompareCells write FOnCompareCells;
property OnPrepareCanvas: TOnPrepareCanvasEvent read FOnPrepareCanvas write FOnPrepareCanvas; property OnPrepareCanvas: TOnPrepareCanvasEvent read FOnPrepareCanvas write FOnPrepareCanvas;
property OnDrawCell: TOnDrawCell read FOnDrawCell write FOnDrawCell; property OnDrawCell: TOnDrawCell read FOnDrawCell write FOnDrawCell;
@ -1207,7 +1207,7 @@ type
property OnTopLeftChanged: TNotifyEvent read FOnTopLeftChanged write FOnTopLeftChanged; property OnTopLeftChanged: TNotifyEvent read FOnTopLeftChanged write FOnTopLeftChanged;
property OnUserCheckboxBitmap: TUserCheckboxBitmapEvent read FOnUserCheckboxBitmap write FOnUserCheckboxBitmap; property OnUserCheckboxBitmap: TUserCheckboxBitmapEvent read FOnUserCheckboxBitmap write FOnUserCheckboxBitmap;
property OnValidateEntry: TValidateEntryEvent read FOnValidateEntry write FOnValidateEntry; property OnValidateEntry: TValidateEntryEvent read FOnValidateEntry write FOnValidateEntry;
//Bidi functions // Bidi functions
function FlipRect(ARect: TRect): TRect; function FlipRect(ARect: TRect): TRect;
function FlipPoint(P: TPoint): TPoint; function FlipPoint(P: TPoint): TPoint;
function FlipX(X: Integer): Integer; function FlipX(X: Integer): Integer;
@ -1605,80 +1605,80 @@ type
{ TCustomStringGrid } { TCustomStringGrid }
TCustomStringGrid = class(TCustomDrawGrid) TCustomStringGrid = class(TCustomDrawGrid)
private private
FModified: boolean; FModified: boolean;
FColsMap,FRowsMap: TMap; FColsMap,FRowsMap: TMap;
fOnCellProcess: TCellProcessEvent; fOnCellProcess: TCellProcessEvent;
function GetCols(index: Integer): TStrings; function GetCols(index: Integer): TStrings;
function GetObjects(ACol, ARow: Integer): TObject; function GetObjects(ACol, ARow: Integer): TObject;
function GetRows(index: Integer): TStrings; function GetRows(index: Integer): TStrings;
procedure MapFree(var aMap: TMap); procedure MapFree(var aMap: TMap);
function MapGetColsRows(IsCols: boolean; Index:Integer; var AMap:TMap):TStrings; function MapGetColsRows(IsCols: boolean; Index:Integer; var AMap:TMap):TStrings;
procedure ReadCells(Reader: TReader); procedure ReadCells(Reader: TReader);
procedure SetCols(index: Integer; const AValue: TStrings); procedure SetCols(index: Integer; const AValue: TStrings);
procedure SetObjects(ACol, ARow: Integer; AValue: TObject); procedure SetObjects(ACol, ARow: Integer; AValue: TObject);
procedure SetRows(index: Integer; const AValue: TStrings); procedure SetRows(index: Integer; const AValue: TStrings);
procedure WriteCells(Writer: TWriter); procedure WriteCells(Writer: TWriter);
procedure CopyCellRectToClipboard(const R:TRect); procedure CopyCellRectToClipboard(const R:TRect);
protected protected
procedure AssignTo(Dest: TPersistent); override; procedure AssignTo(Dest: TPersistent); override;
procedure AutoAdjustColumn(aCol: Integer); override; procedure AutoAdjustColumn(aCol: Integer); override;
procedure CalcCellExtent(acol, aRow: Integer; var aRect: TRect); override; procedure CalcCellExtent(acol, aRow: Integer; var aRect: TRect); override;
procedure DefineProperties(Filer: TFiler); override; procedure DefineProperties(Filer: TFiler); override;
procedure DefineCellsProperty(Filer: TFiler); virtual; procedure DefineCellsProperty(Filer: TFiler); virtual;
function DoCompareCells(Acol,ARow,Bcol,BRow: Integer): Integer; override; function DoCompareCells(Acol,ARow,Bcol,BRow: Integer): Integer; override;
procedure DoCopyToClipboard; override; procedure DoCopyToClipboard; override;
procedure DoCutToClipboard; override; procedure DoCutToClipboard; override;
procedure DoPasteFromClipboard; override; procedure DoPasteFromClipboard; override;
procedure DoCellProcess(aCol, aRow: Integer; processType: TCellProcessType; var aValue: string); virtual; procedure DoCellProcess(aCol, aRow: Integer; processType: TCellProcessType; var aValue: string); virtual;
procedure DrawTextInCell(aCol,aRow: Integer; aRect: TRect; aState: TGridDrawState); override; procedure DrawTextInCell(aCol,aRow: Integer; aRect: TRect; aState: TGridDrawState); override;
procedure DrawCellAutonumbering(aCol,aRow: Integer; aRect: TRect; const aValue: string); override; procedure DrawCellAutonumbering(aCol,aRow: Integer; aRect: TRect; const aValue: string); override;
//procedure EditordoGetValue; override; //procedure EditordoGetValue; override;
//procedure EditordoSetValue; override; //procedure EditordoSetValue; override;
function GetCells(ACol, ARow: Integer): string; override; function GetCells(ACol, ARow: Integer): string; override;
procedure GetCheckBoxState(const aCol, aRow:Integer; var aState:TCheckboxState); override; procedure GetCheckBoxState(const aCol, aRow:Integer; var aState:TCheckboxState); override;
function GetEditText(aCol, aRow: Integer): string; override; function GetEditText(aCol, aRow: Integer): string; override;
procedure LoadContent(cfg: TXMLConfig; Version: Integer); override; procedure LoadContent(cfg: TXMLConfig; Version: Integer); override;
procedure Loaded; override; procedure Loaded; override;
procedure SaveContent(cfg: TXMLConfig); override; procedure SaveContent(cfg: TXMLConfig); override;
//procedure DrawInteriorCells; override; //procedure DrawInteriorCells; override;
//procedure SelectEditor; override; //procedure SelectEditor; override;
procedure SelectionSetText(TheText: String); procedure SelectionSetText(TheText: String);
procedure SetCells(ACol, ARow: Integer; const AValue: string); virtual; procedure SetCells(ACol, ARow: Integer; const AValue: string); virtual;
procedure SetCheckboxState(const aCol, aRow:Integer; const aState: TCheckboxState); override; procedure SetCheckboxState(const aCol, aRow:Integer; const aState: TCheckboxState); override;
procedure SetEditText(aCol, aRow: Longint; const aValue: string); override; procedure SetEditText(aCol, aRow: Longint; const aValue: string); override;
property Modified: boolean read FModified write FModified; property Modified: boolean read FModified write FModified;
property OnCellProcess: TCellProcessEvent read fOnCellProcess write fOnCellProcess; property OnCellProcess: TCellProcessEvent read fOnCellProcess write fOnCellProcess;
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
destructor Destroy; override; destructor Destroy; override;
procedure AutoSizeColumn(aCol: Integer); procedure AutoSizeColumn(aCol: Integer);
procedure AutoSizeColumns; procedure AutoSizeColumns;
procedure Clean; overload; procedure Clean; overload;
procedure Clean(CleanOptions: TGridZoneSet); overload; procedure Clean(CleanOptions: TGridZoneSet); overload;
procedure Clean(aRect: TRect; CleanOptions: TGridZoneSet); overload; procedure Clean(aRect: TRect; CleanOptions: TGridZoneSet); overload;
procedure Clean(StartCol,StartRow,EndCol,EndRow: integer; CleanOptions: TGridZoneSet); overload; procedure Clean(StartCol,StartRow,EndCol,EndRow: integer; CleanOptions: TGridZoneSet); overload;
procedure CopyToClipboard(AUseSelection: boolean = false); procedure CopyToClipboard(AUseSelection: boolean = false);
procedure InsertRowWithValues(Index: Integer; Values: array of String); procedure InsertRowWithValues(Index: Integer; Values: array of String);
procedure LoadFromCSVStream(AStream: TStream; ADelimiter: Char=','; procedure LoadFromCSVStream(AStream: TStream; ADelimiter: Char=',';
UseTitles: boolean=true; FromLine: Integer=0; SkipEmptyLines: Boolean=true); UseTitles: boolean=true; FromLine: Integer=0; SkipEmptyLines: Boolean=true);
procedure LoadFromCSVFile(AFilename: string; ADelimiter: Char=','; procedure LoadFromCSVFile(AFilename: string; ADelimiter: Char=',';
UseTitles: boolean=true; FromLine: Integer=0; SkipEmptyLines: Boolean=true); UseTitles: boolean=true; FromLine: Integer=0; SkipEmptyLines: Boolean=true);
procedure SaveToCSVStream(AStream: TStream; ADelimiter: Char=','; procedure SaveToCSVStream(AStream: TStream; ADelimiter: Char=',';
WriteTitles: boolean=true; VisibleColumnsOnly: boolean=false); WriteTitles: boolean=true; VisibleColumnsOnly: boolean=false);
procedure SaveToCSVFile(AFileName: string; ADelimiter: Char=','; procedure SaveToCSVFile(AFileName: string; ADelimiter: Char=',';
WriteTitles: boolean=true; VisibleColumnsOnly: boolean=false); WriteTitles: boolean=true; VisibleColumnsOnly: boolean=false);
property Cells[ACol, ARow: Integer]: string read GetCells write SetCells; property Cells[ACol, ARow: Integer]: string read GetCells write SetCells;
property Cols[index: Integer]: TStrings read GetCols write SetCols; property Cols[index: Integer]: TStrings read GetCols write SetCols;
property DefaultTextStyle; property DefaultTextStyle;
property EditorMode; property EditorMode;
property ExtendedSelect; property ExtendedSelect;
property Objects[ACol, ARow: Integer]: TObject read GetObjects write SetObjects; property Objects[ACol, ARow: Integer]: TObject read GetObjects write SetObjects;
property Rows[index: Integer]: TStrings read GetRows write SetRows; property Rows[index: Integer]: TStrings read GetRows write SetRows;
property UseXORFeatures; property UseXORFeatures;
end; end;