محرر النصوص - نسخة قابلة للطباعة

محرر النصوص - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : محرر النصوص (/showthread.php?tid=12494)

محرر النصوص - bibill - 24-01-2024

السلام عليكم و رحمة الله :
الموضوع : كيف يمكن انشاء محرر نصوص بحيث أقوم بالتحكم في نوع و حجم و عرض الخط ....
تقريبا مثل محرر النصوص هذا الخاص بالموقع .
بحيث أحفظ الملف RTF

RE: محرر النصوص - Ndagor - 25-01-2024

بالنسبة RichEdit استخدم SelAttributes للتغير لون او حجم او نوع الخط هذه اسهل طريقة
على كل حال يوجد مثال في النسخ القديمة من دالفي

RE: محرر النصوص - wadoud - 27-01-2024

(24-01-2024, 08:12 PM)bibill كتب : السلام عليكم و رحمة الله :
الموضوع : كيف يمكن انشاء محرر نصوص بحيث أقوم بالتحكم في نوع و حجم و عرض الخط ....
تقريبا مثل محرر النصوص هذا الخاص بالموقع .
بحيث أحفظ الملف RTF

السلام عليكم

جرب:

كود :
procedure TForm1.FormCreate(Sender: TObject);
begin
  // Configure the font type ComboBox with the available options
  ComboBoxFont.Items := Screen.Fonts;
  ComboBoxFont.ItemIndex := 0; // Default font

  // Configure the font size ComboBox with the available options
  ComboBoxSize.Items.Add('10');
  ComboBoxSize.Items.Add('12');
  ComboBoxSize.Items.Add('14');
  ComboBoxSize.ItemIndex := 0; // Default size

  // Configure the font width TrackBar
  TrackBarWidth.Min := 1;
  TrackBarWidth.Max := 10;
  TrackBarWidth.Position := 5; // Default width
end;

procedure TForm1.ComboBoxFontChange(Sender: TObject);
begin
  // Apply the font type change to the RichEdit component
  RichEdit1.SelAttributes.Name := ComboBoxFont.Text;
end;

procedure TForm1.ComboBoxSizeChange(Sender: TObject);
begin
  // Apply the font size change to the RichEdit component
  RichEdit1.SelAttributes.Size := StrToInt(ComboBoxSize.Text);
end;

procedure TForm1.TrackBarWidthChange(Sender: TObject);
begin
  // Apply the font width change to the RichEdit component
  RichEdit1.SelAttributes.Width := TrackBarWidth.Position;
end;

procedure TForm1.ButtonSaveClick(Sender: TObject);
var
  SaveDialog: TSaveDialog;
begin
  SaveDialog := TSaveDialog.Create(Self);
  try
    SaveDialog.Filter := 'RTF Files|*.rtf';
    if SaveDialog.Execute then
      RichEdit1.Lines.SaveToFile(SaveDialog.FileName);
  finally
    SaveDialog.Free;
  end;
end;

RE: محرر النصوص - bibill - 03-02-2024

هل يوجد طريقة لتعويض المتغيرات التي تسبقها علامة الدولار في النص التالي
reçu ce jour $sex[le patient|la patiente] $nom_prenom $sex[né|née] le $ddn pour une

مثل كتابة دالة تأخذ القيمة السابقة و ترجع لنا قيمة النص معدل بحيث تتعرف على $nom_prenom أنع متغير و على $sex[né|née] قائمة ...

RE: محرر النصوص - larbiparadox - 03-02-2024

(03-02-2024, 09:25 AM)bibill كتب : هل يوجد طريقة لتعويض المتغيرات التي تسبقها علامة الدولار في النص التالي
reçu ce jour $sex[le patient|la patiente] $nom_prenom $sex[né|née] le $ddn pour une

مثل كتابة دالة تأخذ القيمة السابقة و ترجع لنا قيمة النص معدل بحيث تتعرف على $nom_prenom أنع متغير و على $sex[né|née] قائمة ...

بالنسبة للطباعة إستعمل frxReport وأربطها بقاعدة البينات و أدرج معها frxRichObject بعدها أضف frxReport و منه إبحث على [صورة: 664907167.png]

[صورة: 664907167.png]

ونسق النص و أضف الحقول التي تريد

RE: محرر النصوص - bibill - 03-02-2024

(03-02-2024, 09:54 AM)larbiparadox كتب : بالنسبة للطباعة إستعمل frxReport وأربطها بقاعدة البينات و أدرج معها frxRichObject بعدها أضف frxReport و منه إبحث على ونسق النص و أضف الحقول التي تريد

هل يوجد مثال يوضح أكثر ؟

RE: محرر النصوص - larbiparadox - 03-02-2024

إذا أردت مثال كيفية صنع محرر النصوص حمل هذا المثال

كود :
https://codes-sources.commentcamarche.net/source/100499-demo-richedit

وهذا الشرح كيفية إستعمال منصق النصوص Rich الخاص بالمكون FastReport

كود :
https://mega.nz/file/VOZTVD7Y#PoPhEdWHnqEMlDiEExiKTp2aV1BqWeMP6qq5ra0Z4wg