كيف اظهر memo في DBGrid

[Med-01]

السلام عليكم ورحمىة الله وبركاته


لدي قاعدة بينات بها حقل من نوع memo عندما اعرض البينات في dbgrid جميع الحقول تظهر ماعدى حقل Memo بيناته لا تظهر كل حقل يبقى مكتوب فيه
memo

صورة من dbgrid




جزاكم الله خيرا

[Delphi4Us]

PHP كود :

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState);
var
 Left: Integer;
 Text : string;
begin
  if (Field.DataType = ftMemo) or
     (Field.DataType = ftFmtMemo) then
  begin
    Text := Field.AsString;

    case Field.Alignment of
      taLeftJustify:
        Left := Rect.Left + 2;
      taRightJustify:
        Left := Rect.Right - TDBGrid(Sender).Canvas.TextWidth(Text) - 3;
    else // center
      Left := Rect.Left + (Rect.Right - Rect.Left) shr 1 - (TDBGrid(Sender).Canvas.TextWidth(Text) shr 1);
    end;
    TDBGrid(Sender).Canvas.TextRect(Rect, Left, Rect.Top + 2, Text);
    
  end;
end; 


[Med-01]

اهلا Delphi4Us الكود لم يظهر اي خطا كما انه لم يشتغل لم تعرض memo في dbgrid
عموما انا اخطا انا استخدم DBMemo وليس memo هل لهذا السبب لم يعمل !!!

وشكرا وجزاك الله خيراااا

[Delphi4Us]

كيف لم يعمل ، هل وضعته بالحدث المناسب له وربطته بالاداة DBgrid
انا لم اجرب شيئا وانما بحتث لك عن المعلومة فقط ، مثال أخر

PHP كود :

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const 
                 Rect: TRect; Field: TField; State: 
                 TGridDrawState);

var
  P: array [0..50] of char; {array size is number of   
                             characters needed}
  bs: TBlobStream;          {from the memo field}
  hStr: String;

begin
  if Field is TMemoField then
  begin
    with (Sender as TDBGrid).Canvas do
    begin   {Table1Notes is the TMemoField}
      bs := TBlobStream.Create(Table1Notes, bmRead);
      FillChar(P,SizeOf(P),#0); {terminate the null string}
      bs.Read(P, 50); {read 50 chars from memo into blobStream}
      bs.Free;
      hStr := StrPas(P);
      while Pos(#13, hStr)  0 do  {remove carriage returns and}
        hStr[Pos(#13, hStr)] := ' '; 
      while Pos(#10, hStr)  0 do  {line feeds}
        S[Pos(#10, hStr)] := ' ';

      FillRect(Rect);  {clear the cell}
      TextOut(Rect.Left, Rect.Top, hStr);  {fill cell with memo 
                                            data}
    end;
  end;
end; 


[Med-01]

بانسة للكود الاول قمت بوضعه في الحدث المناسب ل dbgrid ماذا تقصد بربطه مع dbgrid ! كيف اربطه


النتيجة


-----------------
الكود الثاني يعطي خطا



شكرا وجزاك الله خيراا على محاولة المساعدة

[Ben.Ja]

السلام عليكم, اضف الحقول, ثم إختر الحقل المراد اظهاره, في الغالب يكون من نوع "Text" في SQL لذا يظهر هكذا, ثم من خلال خاصية Display Value, غير dvClass الى dvClip لاظهار نقاط آخر النص أو dvfull لاظهار القيمة كلها

[Med-01]

انا اتعامل مع ACCESS وهذه الخاصية غير موجودة
شكرا وجزاك الله خيراا

[Ben.Ja]

انقر على الحدث OnGetText الخاص بالحقل, ثم أكتب:

PHP كود :

Text:= Sender.AsWideString; 


سيبدو هكذا:

PHP كود :

procedure TForm1.ADOTable1infoGetText(Sender: TField; var Text: string;
  DisplayText: Boolean);
begin
Text:= Sender.AsWideString;
end; 


[Delphi4Us]

راجع هذا المثال سيفيدك

http://delphi4arab.net/forum/showthread.php?tid=9502

[Med-01]

تم بواسطة Ben.Ja و Delphi4Us جزاك الله خيراا في ميزان حسناتكم

Ben.Ja حركة حلوة
Delphi4Us اضافتك رائعة