|
Gracias por tu sugerencia.
Sin embargo, la nueva versión tampoco funciona:
unit DBGridPlus;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Grids, DBGrids, DB;
type
TDBGridPlus = class(TDBGrid)
private
protected
procedure DefaultDrawColumnCell
(const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
public
{ Public declarations }
property InplaceEditor;
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure MiDefaultDrawColumnCell
(const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
end;
implementation
uses DBTables;
constructor TDBGridPlus.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
end;
destructor TDBGridPlus.Destroy;
begin
inherited Destroy;
end;
procedure TDBGridPlus.MiDefaultDrawColumnCell(const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
P:array [0..50] of char;
BS:tBlobStream;
S:String;
begin
if Column.Field is TMemoField then begin
with Self.Canvas do begin
BS:=tBlobStream.Create(TMemoField(Column.Field), bmRead);
FillChar(P,SizeOf(P),#0); {termina la cadena nula}
BS.Read(P, 50); {Lee 50 caracteres del memo dentro del blobStream}
BS.Free;
S:=StrPas(P);
while Pos(#13, S) > 0 do {remueve caracteres retornos de carro y nueva linea}
S[Pos(#13, S)]:=' '; {Retorno de carro}
while Pos(#10, S) > 0 do
S[Pos(#10, S)]:=' '; {Nueva linea}
FillRect(Rect); {Limpia la celda}
TextOut(Rect.Left, Rect.Top, S); {Llena celda con dato memo}
end;
end;
end;
procedure TDBGridPlus.DefaultDrawColumnCell(const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
MiDefaultDrawColumnCell
(Rect, DataCol, Column, State);
inherited DefaultDrawColumnCell
(Rect, DataCol, Column, State);
//if Assigned(FOnDrawDataCell) then
// FOnDrawDataCell(Rect, Field, State);
end;
end.
Notarás que cambie el método a 'DefaultDrawColumnCell' porque Delphi 7 sugiere que trabaje con este, pues el otro es obsoleto.
El código que pretendo ejecutar escribe un memo en una rejilla. Este algoritmo funciona si lo coloco en el evento OnDrawColumCell del TDBGrid del formulario. Mi idea es que este pueda ejecutarse siempre que use TDBGridPlus que es heredado de TDBGrid. Pero ni siquiero logro que se ejecute !!
Deje el construct y el destructor por si acaso los necesito, en otra versión modificada del código.
DE nuevo acepto sugerencias.
Gracias de antemano
__________________
SigmaMan
|