paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 04:29:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

blob fields for TDBGrid from Jose A. Rimon

Browse Source 
git-svn-id: trunk@7014 -
This commit is contained in:
mattias 2005-03-23 15:59:33 +00:00
parent f8ed3d2400
commit 244f70823e
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lcl/dbgrids.pas
View File

@ -1136,7 +1136,10 @@ begin
end else begin end else begin
F := GetFieldFromGridColumn(aCol); F := GetFieldFromGridColumn(aCol);
if F<>nil then begin if F<>nil then begin
S := F.DisplayText; if F.dataType <> ftBlob then
S := F.DisplayText
else
S := '(blob)';
end else end else
S := ''; S := '';
FixRectangle; FixRectangle;
@ -1725,7 +1728,10 @@ begin
end else begin end else begin
F := GetFieldFromGridColumn(DataCol); F := GetFieldFromGridColumn(DataCol);
if F<>nil then begin if F<>nil then begin
S := F.DisplayText; if F.dataType <> ftBlob then
S := F.DisplayText
else
S := '(blob)';
end else end else
S := ''; S := '';
R := FixRectangle(); R := FixRectangle();
@ -2045,6 +2051,9 @@ end.
{ {
$Log$ $Log$
Revision 1.36 2005/03/23 15:59:33 mattias
blob fields for TDBGrid from Jose A. Rimon
Revision 1.35 2005/03/08 10:32:47 mattias Revision 1.35 2005/03/08 10:32:47 mattias
BorderStyle for TCustomEdit in win32 intf from Jesus BorderStyle for TCustomEdit in win32 intf from Jesus