paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-15 11:49:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

added modified flag to StringGrid

Browse Source 
git-svn-id: trunk@9717 -
This commit is contained in:
jesus 2006-08-12 06:16:26 +00:00
parent 7bb113cec8
commit be5b78fb47
1 changed files with 16 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
lcl/grids.pas
View File

@ -938,17 +938,16 @@ type
procedure DrawCell(aCol,aRow: Integer; aRect: TRect; aState:TGridDrawState); override;
procedure DrawCellAutonumbering(aCol,aRow: Integer; aRect: TRect; const aValue: string); virtual;
procedure DrawFocusRect(aCol,aRow: Integer; ARect: TRect); override;
procedure HeaderClick(IsColumn: Boolean; index: Integer); override;
procedure HeaderSized(IsColumn: Boolean; index: Integer); override;
procedure GetAutoFillColumnInfo(const Index: Integer; var aMin,aMax,aPriority: Integer); override;
function GetEditMask(aCol, aRow: Longint): string; override;
function GetEditText(aCol, aRow: Longint): string; override;
procedure HeaderClick(IsColumn: Boolean; index: Integer); override;
procedure HeaderSized(IsColumn: Boolean; index: Integer); override;
procedure NotifyColRowChange(WasInsert,IsColumn:boolean; FromIndex,ToIndex:Integer);
function SelectCell(aCol,aRow: Integer): boolean; override;
procedure SetColor(Value: TColor); override;
procedure SetEditText(ACol, ARow: Longint; const Value: string); override;
procedure SizeChanged(OldColCount, OldRowCount: Integer); override;
public
@ -1175,7 +1174,7 @@ type
TCustomStringGrid = class(TCustomDrawGrid)
private
//FDefEditor: TStringCellEditor;
FModified: boolean;
function GetCells(ACol, ARow: Integer): string;
function GetCols(index: Integer): TStrings;
function GetObjects(ACol, ARow: Integer): TObject;
@ -1200,11 +1199,14 @@ type
//procedure EditordoSetValue; override;
function GetEditText(aCol, aRow: Integer): string; override;
procedure LoadContent(cfg: TXMLConfig; Version: Integer); override;
procedure Loaded; override;
procedure SaveContent(cfg: TXMLConfig); override;
//procedure DrawInteriorCells; override;
//procedure SelectEditor; override;
procedure SelectionSetText(TheText: String);
procedure SetEditText(aCol, aRow: Longint; const aValue: string); override;
property Modified: boolean read FModified write FModified;
public
constructor Create(AOwner: TComponent); override;
@ -1229,6 +1231,8 @@ type
{ TStringGrid }
TStringGrid = class(TCustomStringGrid)
public
property Modified;
published
property Align;
property AlternateColor;
@ -6831,6 +6835,7 @@ begin
if C^.Text<>nil then StrDispose(C^.Text);
C^.Text:=StrNew(pchar(aValue));
UpdateCell;
FModified := True;
end else begin
if AValue<>'' then begin
New(C);
@ -6839,6 +6844,7 @@ begin
C^.Data:=nil;
FGrid.Celda[aCol,aRow]:=C;
UpdateCell;
FModified := True;
end;
end;
end;
@ -7137,6 +7143,12 @@ begin
end;
end;
procedure TCustomStringGrid.Loaded;
begin
inherited Loaded;
FModified := False;
end;
procedure TCustomStringGrid.SetEditText(aCol, aRow: Longint; const aValue: string);
begin
Include(GridFlags, gfEditorUpdateLock);