paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 02:29:21 +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
F := GetFieldFromGridColumn(aCol);
if F<>nil then begin
S := F.DisplayText;
if F.dataType <> ftBlob then
S := F.DisplayText
else
S := '(blob)';
end else
S := '';
FixRectangle;
@ -1725,7 +1728,10 @@ begin
end else begin
F := GetFieldFromGridColumn(DataCol);
if F<>nil then begin
S := F.DisplayText;
if F.dataType <> ftBlob then
S := F.DisplayText
else
S := '(blob)';
end else
S := '';
R := FixRectangle();
@ -2045,6 +2051,9 @@ end.
{
$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
BorderStyle for TCustomEdit in win32 intf from Jesus