|
محرر النصوص
|
24-01-2024, 08:12 PM
السلام عليكم و رحمة الله :
الموضوع : كيف يمكن انشاء محرر نصوص بحيث أقوم بالتحكم في نوع و حجم و عرض الخط .... تقريبا مثل محرر النصوص هذا الخاص بالموقع . بحيث أحفظ الملف RTF
- لا شيء من لا شيء ............... ؟
25-01-2024, 10:25 AM
بالنسبة RichEdit استخدم SelAttributes للتغير لون او حجم او نوع الخط هذه اسهل طريقة
على كل حال يوجد مثال في النسخ القديمة من دالفي 
27-01-2024, 03:29 AM
(24-01-2024, 08:12 PM)bibill كتب : السلام عليكم و رحمة الله : السلام عليكم جرب: كود : 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;الخوف من أي محاولة جديدة طريق حتمي للفشل.
03-02-2024, 09:25 AM
هل يوجد طريقة لتعويض المتغيرات التي تسبقها علامة الدولار في النص التالي
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] قائمة ...
- لا شيء من لا شيء ............... ؟
03-02-2024, 09:54 AM
(03-02-2024, 09:25 AM)bibill كتب : هل يوجد طريقة لتعويض المتغيرات التي تسبقها علامة الدولار في النص التالي بالنسبة للطباعة إستعمل frxReport وأربطها بقاعدة البينات و أدرج معها frxRichObject بعدها أضف frxReport و منه إبحث على ![[صورة: 664907167.png]](https://www12.0zz0.com/2024/02/03/08/664907167.png) ونسق النص و أضف الحقول التي تريد
اللّهمّ فرّج أُموراً ضَاقت بها صُدورنا وعجزت بها حيلتنا وقلّ بها صَبرنا الّلهمّ أَسعِد قلوبنا بما أنتَ أعْلَمُ بِهِ مِنّا
03-02-2024, 10:06 AM
(03-02-2024, 09:54 AM)larbiparadox كتب : بالنسبة للطباعة إستعمل frxReport وأربطها بقاعدة البينات و أدرج معها frxRichObject بعدها أضف frxReport و منه إبحث على هل يوجد مثال يوضح أكثر ؟
- لا شيء من لا شيء ............... ؟
03-02-2024, 02:13 PM
إذا أردت مثال كيفية صنع محرر النصوص حمل هذا المثال
كود : https://codes-sources.commentcamarche.net/source/100499-demo-richeditوهذا الشرح كيفية إستعمال منصق النصوص Rich الخاص بالمكون FastReport كود : https://mega.nz/file/VOZTVD7Y#PoPhEdWHnqEMlDiEExiKTp2aV1BqWeMP6qq5ra0Z4wg
اللّهمّ فرّج أُموراً ضَاقت بها صُدورنا وعجزت بها حيلتنا وقلّ بها صَبرنا الّلهمّ أَسعِد قلوبنا بما أنتَ أعْلَمُ بِهِ مِنّا
![[-]](https://delphi4arab.net/forum/D4A2020/collapse.png)
كل من 3 users say قال شكرا ل larbiparadox على المشاركة المفيدة• Delphi2020, bibill, Intermediate Delphi programmer |
|
|
