مشکل با DBRichEdit

[shaghayegh_6113]

سلام
چه طور می تونم متنی رو که در DataBase در یک فیلد Blob با Stream ذخیره کردم رو در یک DBRichEdit با فونت و فرمت دلخواه خودم نمایش بدم .
برنامه با فونتی که برای DBRichEdit ام تعیین کردم کاری نداره و متن رو با هر سایز و فونتی که در DataBase ذخیره شده به من نشون می ده
ممنون

[shaghayegh_6113]

کسی جواب سوال منو نمی دونه ؟؟
کارم خیلی گیره

[vcldeveloper]

نحوه استفاده از فیلدهای BLOB قبلا در سایت توضیح داده شده. برای مورد شما بهتره از یک RichEdit بجای DBRichEdit استفاده کنید و در رویدادهای OnGetText و OnSetText فیلد مورد نظر داده های موجود در فیلد را بصورت Stream بخونید و در RichEdit لود کنید و بالعکس.

[shaghayegh_6113]

سلام
آقای کشاورز من کد زیر رو نوشتم ولی RichEdit ام هیچی نشون نمی ده :

procedure TFrm_Qr.ADOTable1TextGetText(Sender: TField; var Text: String;
DisplayText: Boolean);
Var
St : TMemoryStream ;
begin
St := TMemoryStream.Create ;
TBlobField(ADOTable1.FieldByName('Text')).SaveToSt ream(St);
RichEdit1.Lines.LoadFromStream(St);
St.Free ;
end;

میشه بگید چرا ؟؟

[vcldeveloper]

procedure TForm1.ADOTable1DataGetText(Sender: TField; var Text: String;
DisplayText: Boolean);
var
MS : TADOBlobStream;
begin
Ms := TADOBlobStream.Create(Sender as TBlobField, bmRead);
try
RichEdit1.Lines.LoadFromStream(MS);
//Text := RichEdit1.Lines.Text;
DisplayText := True;
finally
MS.Free;
end;
end;

[Sohrab_Tapar]

richedit یک property داره به نام DefAttributes توی property های rich edit جستجو کن مثال هم داره


This example requires a TRichEdit and a TButton. Leave the default text, usually "RichEdit1", in the lines property. The DefAttributes will apply to this text.

procedure TForm1.Button1Click(Sender: TObject);

begin
with RichEdit1.SelAttributes do
begin
Color := clRed;
Height := Height + 5;
end;
RichEdit1.Lines.Add('This line of text will be red.');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
RichEdit1.DefAttributes.Color := clBlue;
RichEdit1.DefAttributes.Style := [fsBold, fsItalic];
end;

نمیدونم فکر کنم منظورتون یه چنین چیزی باشه