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

TColumn.ReadOnly is now checked when using cbsCheckboxColumn, from Lagunov

Browse Source 
git-svn-id: trunk@7971 -
This commit is contained in:
jesus 2005-10-17 20:32:17 +00:00
parent a3bb9a9d74
commit 418158b975
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
lcl/dbgrids.pas
View File

@ -1419,24 +1419,24 @@ end;
procedure TCustomDbGrid.SwapCheckBox;
var
TempColumn: TColumn;
SelField: TField;
TempColumn: TColumn;
begin
if not GridCanModify then
exit; // raise exception?
exit;
SelField := SelectedField;
if SelField.DataType=ftBoolean then
TempColumn := TColumn(ColumnFromGridColumn(Col));
if (TempColumn<>nil) and not TempColumn.ReadOnly then
begin
SelField.Dataset.Edit;
SelField.AsBoolean := not SelField.AsBoolean
end else
begin
TempColumn := TColumn(ColumnFromGridColumn(Col));
if not TempColumn.ReadOnly then
if SelField.DataType=ftBoolean then
begin
SelField.Dataset.Edit;
SelField.DataSet.Edit;
SelField.AsBoolean := not SelField.AsBoolean
end
else
begin
SelField.DataSet.Edit;
if ValueMatch(TempColumn.ValueChecked, SelField.AsString) then
SelField.AsString := TempColumn.ValueUnchecked
else