تويت
السلام عليكم ورحمة الله وبركاته
مررت يوما ببرنامج منظم كتابة أبيات الشعر ... أعجبك
ففكرت أن تنجزه في هذه الدقائق وقتلا للرتابة لنحاول معا
01 - نفتح مشروعا جديدا نضمنه العناصر التالية :
- انبوت 1 و سنخصصه لكتابة الابيات سطرا تحت سطر أو الصدر و تحته العجز وهكذا ....
على أن يكون هذا الانبوت متعدد الاسطر
- أنبوت 2 بنفس الخصائص و يكون أكبر حجما من حيث الطول مع التركيز أن تكون فيه الكتابة من اليمين لليسار + متعدد الاسطر
- عنصرComboBox نحقق فيه
وندخل في الحدث on select ونكتب :
02 - انتهى عاين مشروعك و اذ كان ناجحا ارفع ملفا مفتوحا موضحا أكثر بإضافات من اختيارك .
أكتب الابيات تحت بعضها في الانبوت 1 و اختر من ComboBox كيفية التنظيم
سلام
لنسخ الناتج وظف اضافة الكيبورد
مررت يوما ببرنامج منظم كتابة أبيات الشعر ... أعجبك
ففكرت أن تنجزه في هذه الدقائق وقتلا للرتابة لنحاول معا
01 - نفتح مشروعا جديدا نضمنه العناصر التالية :
- انبوت 1 و سنخصصه لكتابة الابيات سطرا تحت سطر أو الصدر و تحته العجز وهكذا ....
على أن يكون هذا الانبوت متعدد الاسطر
- أنبوت 2 بنفس الخصائص و يكون أكبر حجما من حيث الطول مع التركيز أن تكون فيه الكتابة من اليمين لليسار + متعدد الاسطر
- عنصرComboBox نحقق فيه
وندخل في الحدث on select ونكتب :
كود PHP:
TextFile.WriteFromString("AutoPlay\\Docs\\Text-value.txt", Input.GetText("Input1"), false);
p = TextFile.ReadToTable("AutoPlay\\Docs\\Text-value.txt");
h = Table.Count(p);
tamer=""
tamer2=""
for i = 1 , h ,2 do
tamer = tamer ..p[i].."\r\n"..p[i+1]..String.Repeat(" ", String.Length(p[i])*2).."\r\n"
tamer2 = tamer2..p[i]..String.Repeat(" ", String.Length(p[i])/2)..p[i+1].."\r\n"
end
if ComboBox.GetText("ComboBox1")=="متدرج" then
Input.SetText("Input2",tamer);
else
Input.SetText("Input2",tamer2);
end
02 - انتهى عاين مشروعك و اذ كان ناجحا ارفع ملفا مفتوحا موضحا أكثر بإضافات من اختيارك .
أكتب الابيات تحت بعضها في الانبوت 1 و اختر من ComboBox كيفية التنظيم
سلام
لنسخ الناتج وظف اضافة الكيبورد
موفق بإذن الله ... لك مني أجمل تحية .
تعليق