View Issue Details

IDProjectCategoryView StatusLast Update
0026061LazarusLCLpublic2014-11-06 12:28
ReporterPetr-KAssigned ToJesus Reyes 
PrioritynormalSeverityminorReproducibilityalways
Status closedResolutionfixed 
Product Version1.3 (SVN)Product Buildtrunk #43585 
Target Version1.4Fixed in Version1.3 (SVN) 
Summary0026061: DBGrid shows '(blob)' on all Blob fields
DescriptionAfter TField.GetClassDesc was implemented, this hack:

TCustomDBGrid.DefaultDrawCell:
...
  if F.dataType <> ftBlob then
    S := F.DisplayText
  else
    S := '(blob)';

is now obsolete

Patch is included.
TagsNo tags attached.
Fixed in Revision44795
LazTarget1.4
Widgetset
Attached Files
  • dbgrids.patch (489 bytes)
    Index: dbgrids.pas
    ===================================================================
    --- dbgrids.pas	(revision 43585)
    +++ dbgrids.pas	(working copy)
    @@ -1907,10 +1907,7 @@
               {$ifdef dbgGridPaint}
               DbgOut(' Field=%s',[F.FieldName]);
               {$endif}
    -          if F.dataType <> ftBlob then
    -            S := F.DisplayText
    -          else
    -            S := '(blob)';
    +          S := F.DisplayText;
             end else
               S := '';
             {$ifdef dbggridpaint}
    
    dbgrids.patch (489 bytes)

Activities

Petr-K

2014-04-23 15:06

reporter  

dbgrids.patch (489 bytes)
Index: dbgrids.pas
===================================================================
--- dbgrids.pas	(revision 43585)
+++ dbgrids.pas	(working copy)
@@ -1907,10 +1907,7 @@
           {$ifdef dbgGridPaint}
           DbgOut(' Field=%s',[F.FieldName]);
           {$endif}
-          if F.dataType <> ftBlob then
-            S := F.DisplayText
-          else
-            S := '(blob)';
+          S := F.DisplayText;
         end else
           S := '';
         {$ifdef dbggridpaint}
dbgrids.patch (489 bytes)

Jesus Reyes

2014-04-23 20:56

developer   ~0074544

Applied, thanks.

Issue History

Date Modified Username Field Change
2014-04-23 15:06 Petr-K New Issue
2014-04-23 15:06 Petr-K File Added: dbgrids.patch
2014-04-23 20:28 Jesus Reyes Assigned To => Jesus Reyes
2014-04-23 20:28 Jesus Reyes Status new => assigned
2014-04-23 20:56 Jesus Reyes Fixed in Revision => 44795
2014-04-23 20:56 Jesus Reyes LazTarget => 1.4
2014-04-23 20:56 Jesus Reyes Note Added: 0074544
2014-04-23 20:56 Jesus Reyes Status assigned => resolved
2014-04-23 20:56 Jesus Reyes Fixed in Version => 1.3 (SVN)
2014-04-23 20:56 Jesus Reyes Resolution open => fixed
2014-04-23 20:56 Jesus Reyes Target Version => 1.4
2014-11-06 12:28 Petr-K Status resolved => closed