├── Pics ├── 1.png ├── 2.png ├── 3.png ├── 4.png ├── 5.png └── add_units_folder_to_project_dpr.png ├── LICENSE ├── Demos ├── Project1.dpr ├── Readme.txt ├── Arabic_Units │ ├── Readme.txt │ ├── Vcl.BandActn.pas │ ├── Data.Win.ADOConst.pas │ ├── Data.DBConsts.pas │ └── System.SysConst.pas ├── README.md └── Unit1.pas ├── Delphi10.1_Berline ├── Readme.txt ├── Data.Win.ADOConst.pas ├── Vcl.BandActn.pas ├── Data.DBConsts.pas ├── System.SysConst.pas └── Vcl.CustomizeDlg.dfm ├── .gitignore ├── Delphi10.2_Tokyo ├── Data.Win.ADOConst.pas ├── Readme.txt ├── Vcl.BandActn.pas ├── FireDAC.VCLUI.OptsBase.pas ├── FireDAC.inc ├── Data.DBConsts.pas ├── FireDAC.VCLUI.OptsBase.dfm ├── System.SysConst.pas └── FireDAC.VCLUI.Error.dfm ├── Delphi10.3_Rio ├── Readme.txt ├── Vcl.BandActn.pas ├── Data.Win.ADOConst.pas ├── README.md ├── FireDAC.VCLUI.OptsBase.pas ├── FireDAC.inc ├── Data.DBConsts.pas ├── FireDAC.VCLUI.OptsBase.dfm ├── System.SysConst.pas ├── FireDAC.VCLUI.Error.dfm └── Vcl.CustomizeDlg.dfm └── README.md /Pics/1.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/orwah/Arabic-Delphi-VCL-Units/HEAD/Pics/1.png -------------------------------------------------------------------------------- /Pics/2.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/orwah/Arabic-Delphi-VCL-Units/HEAD/Pics/2.png -------------------------------------------------------------------------------- /Pics/3.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/orwah/Arabic-Delphi-VCL-Units/HEAD/Pics/3.png -------------------------------------------------------------------------------- /Pics/4.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/orwah/Arabic-Delphi-VCL-Units/HEAD/Pics/4.png -------------------------------------------------------------------------------- /Pics/5.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/orwah/Arabic-Delphi-VCL-Units/HEAD/Pics/5.png -------------------------------------------------------------------------------- /Pics/add_units_folder_to_project_dpr.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/orwah/Arabic-Delphi-VCL-Units/HEAD/Pics/add_units_folder_to_project_dpr.png -------------------------------------------------------------------------------- /LICENSE: -------------------------------------------------------------------------------- 1 | MIT License 2 | 3 | Copyright (c) 2016 sy-it 4 | 5 | Permission is hereby granted, free of charge, to any person obtaining a copy 6 | of this software and associated documentation files (the "Software"), to deal 7 | in the Software without restriction, including without limitation the rights 8 | to use, copy, modify, merge, publish, distribute, sublicense, and/or sell 9 | copies of the Software, and to permit persons to whom the Software is 10 | furnished to do so, subject to the following conditions: 11 | 12 | The above copyright notice and this permission notice shall be included in all 13 | copies or substantial portions of the Software. 14 | 15 | THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR 16 | IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, 17 | FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE 18 | AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER 19 | LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, 20 | OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE 21 | SOFTWARE. 22 | -------------------------------------------------------------------------------- /Demos/Project1.dpr: -------------------------------------------------------------------------------- 1 | program Project1; 2 | 3 | uses 4 | Vcl.Forms, 5 | System.Classes, 6 | Vcl.Themes, 7 | Vcl.Styles, 8 | Unit1 in 'Unit1.pas' {Form1}, 9 | Vcl.Dialogs in 'Arabic_Units/Vcl.Dialogs.pas', 10 | Vcl.Consts in 'Arabic_Units/Vcl.Consts.pas', 11 | Vcl.ComCtrls in 'Arabic_Units/Vcl.ComCtrls.pas', 12 | Vcl.DBCtrls in 'Arabic_Units/Vcl.DBCtrls.pas', 13 | System.SysConst in 'Arabic_Units/System.SysConst.pas', 14 | System.RTLConsts in 'Arabic_Units/System.RTLConsts.pas', 15 | Data.DBConsts in 'Arabic_Units/Data.DBConsts.pas', 16 | Data.Win.ADOConst in 'Arabic_Units/Data.Win.ADOConst.pas', 17 | Vcl.BandActn in 'Arabic_Units/Vcl.BandActn.pas', 18 | Vcl.CustomizeDlg in 'Arabic_Units/Vcl.CustomizeDlg.pas', 19 | Vcl.SysStyles in 'Arabic_Units/Vcl.SysStyles.pas', 20 | Vcl.ThemedActnCtrls in 'Arabic_Units/Vcl.ThemedActnCtrls.pas'; 21 | 22 | {$R *.res} 23 | 24 | begin 25 | Application.Initialize; 26 | Application.MainFormOnTaskbar := True; 27 | Application.Title := ' برنامج تجريبي'; 28 | Application.BiDiMode:=bdRightToLeft; 29 | Application.CreateForm(TForm1, Form1); 30 | Application.Run; 31 | end. 32 | -------------------------------------------------------------------------------- /Delphi10.1_Berline/Readme.txt: -------------------------------------------------------------------------------- 1 | # Arabic-Delphi-VCL-Units 2 | وحدات مكتبة أدوات دلفي الداعمة للغة العربية 3 | 4 | 5 | - دعم صناديق الرسائل العربية 6 | - تحويل مكونات هامة إلى اليمين 7 | - تعريب الكثير من الرسائل التي قد تظهر في زمن التشغيل 8 | - لايحتاج استخدامها لإضافة أي كود 9 | 10 | _______________ 11 | طريقة التشغيل : 12 | فقط قم بارفقات ملفات الوحدات مع برنامجك 13 | ضعها بنفس المجلد مع بقية ملفات برنامجك 14 | وسيتم التعامل معها اليا من دون تغير اي سطر في الكود 15 | 16 | 17 | _______________ 18 | البيئات المدعومة حاليا : 19 | - Delphi 10.1 Berline 20 | 21 | 22 | _______________ 23 | المشاكل المعروفة : 24 | - ToolBar DrawingStyle = dsNormal : 25 | يتسبب بانقلاب الصور , يمكن تلافي ذلك باختيار 26 | DrawingStyle = dsGradient 27 | 28 | 29 | _______________ 30 | روابط : 31 | 32 | - سيتم تطوير هذه الملفات بشكل دوري وتوفير نسخ احدث منها 33 | لمتابعة تطوير الملفات : 34 | https://github.com/orwah/Arabic-Delphi-VCL-Units/ 35 | 36 | - للحصول على آخر نسخة من الملفات : 37 | https://github.com/orwah/Arabic-Delphi-VCL-Units/archive/master.zip 38 | 39 | - للمزيد من المعلومات والشروحات : 40 | https://github.com/orwah/Arabic-Delphi-VCL-Units/wiki 41 | 42 | _______________ 43 | عروة علي عيسى 44 | www.orwah.net 45 | www.orwah.net 46 | -------------------------------------------------------------------------------- /.gitignore: -------------------------------------------------------------------------------- 1 | # Uncomment these types if you want even more clean repository. But be careful. 2 | # It can make harm to an existing project source. Read explanations below. 3 | # 4 | # Resource files are binaries containing manifest, project icon and version info. 5 | # They can not be viewed as text or compared by diff-tools. Consider replacing them with .rc files. 6 | #*.res 7 | # 8 | # Type library file (binary). In old Delphi versions it should be stored. 9 | # Since Delphi 2009 it is produced from .ridl file and can safely be ignored. 10 | #*.tlb 11 | # 12 | # Diagram Portfolio file. Used by the diagram editor up to Delphi 7. 13 | # Uncomment this if you are not using diagrams or use newer Delphi version. 14 | #*.ddp 15 | # 16 | # Visual LiveBindings file. Added in Delphi XE2. 17 | # Uncomment this if you are not using LiveBindings Designer. 18 | #*.vlb 19 | # 20 | # Deployment Manager configuration file for your project. Added in Delphi XE2. 21 | # Uncomment this if it is not mobile development and you do not use remote debug feature. 22 | #*.deployproj 23 | # 24 | # C++ object files produced when C/C++ Output file generation is configured. 25 | # Uncomment this if you are not using external objects (zlib library for example). 26 | #*.obj 27 | # 28 | 29 | # Delphi compiler-generated binaries (safe to delete) 30 | *.exe 31 | *.dll 32 | *.bpl 33 | *.bpi 34 | *.dcp 35 | *.so 36 | *.apk 37 | *.drc 38 | *.map 39 | *.dres 40 | *.rsm 41 | *.tds 42 | *.dcu 43 | *.lib 44 | *.a 45 | *.o 46 | *.ocx 47 | 48 | # Delphi autogenerated files (duplicated info) 49 | *.cfg 50 | *.hpp 51 | *Resource.rc 52 | 53 | # Delphi local files (user-specific info) 54 | *.local 55 | *.identcache 56 | *.projdata 57 | *.tvsconfig 58 | *.dsk 59 | 60 | # Delphi history and backups 61 | __history/ 62 | __recovery/ 63 | *.~* 64 | 65 | # Castalia statistics file (since XE7 Castalia is distributed with Delphi) 66 | *.stat 67 | -------------------------------------------------------------------------------- /Delphi10.2_Tokyo/Data.Win.ADOConst.pas: -------------------------------------------------------------------------------- 1 | {*******************************************************} 2 | { } 3 | { Delphi Runtime Library } 4 | { } 5 | { Copyright(c) 1995-2017 Embarcadero Technologies, Inc. } 6 | { All rights reserved } 7 | { } 8 | {*******************************************************} 9 | 10 | unit Data.Win.ADOConst; 11 | 12 | interface 13 | 14 | resourcestring 15 | SInvalidEnumValue = 'قيمة ترتيب غير صالحة'; 16 | SMissingConnection = 'لم يتم ضبط إعدادات الاتصال بالقاعدة بشكل صحيح : ConnectionString'; 17 | SNoDetailFilter = 'لايمكن استخدام خاصية الفلترة مع جدول نفصيلي مرتبط بجدول رئيسي'; 18 | SBookmarksRequired = 'مجموعة البيانات لاتدعم مؤشر bookmarks, وهي ضرورية للمكونات التي تتعامل مع السجلات المتعددة'; 19 | SMissingCommandText = 'الخاصية %s غير متوفرة'; 20 | SNoResultSet = 'نص الأمر لايرجع قيمة'; 21 | SADOCreateError = 'خطأ في إنشاء غرض. الرجاء التأكد أن مكونات الوصول للبيانات الخاصة بمايكروسوفت تم تنصيبها على جهازك :'+#13+ 'Microsoft Data Access Components 2.1 (or later) .'; 22 | SEventsNotSupported = 'Events are not supported with server side TableDirect cursors'; 23 | SUsupportedFieldType = 'نم بيانات غير مدعوم , من نوع (%s) في الحقل %s'; 24 | SNoMatchingADOType = 'لايوجد نمط مطابق من مكونات أدو : ADO data type من أجل %s'; 25 | SConnectionRequired = 'مكون الاتصال connection مطلوب من أجل خيارات التنفيذ المتزامنة'; 26 | SCantRequery = 'لايمكن إجراء إعادة الاستعلام بعد تغيير الاتصال'; 27 | SNoFilterOptions = 'خيارات الفلترة غير مدعومة'; 28 | SRecordsetNotOpen = 'مجموعة السجلات ليست مفتوحة'; 29 | sNameAttr = 'الاسم'; 30 | sValueAttr = 'القيمة'; 31 | 32 | implementation 33 | 34 | end. 35 | 36 | -------------------------------------------------------------------------------- /Delphi10.1_Berline/Data.Win.ADOConst.pas: -------------------------------------------------------------------------------- 1 | {*******************************************************} 2 | { } 3 | { Delphi Runtime Library } 4 | { } 5 | { Copyright(c) 2016 Embarcadero Technologies, Inc. } 6 | { All rights reserved } 7 | { } 8 | {*******************************************************} 9 | 10 | unit Data.Win.ADOConst; 11 | 12 | interface 13 | 14 | resourcestring 15 | SInvalidEnumValue = 'قيمة ترتيب غير صالحة'; 16 | SMissingConnection = 'لم يتم ضبط إعدادات الاتصال بالقاعدة بشكل صحيح : ConnectionString'; 17 | SNoDetailFilter = 'لايمكن استخدام خاصية الفلترة مع جدول نفصيلي مرتبط بجدول رئيسي'; 18 | SBookmarksRequired = 'مجموعة البيانات لاتدعم مؤشر bookmarks, وهي ضرورية للمكونات التي تتعامل مع السجلات المتعددة'; 19 | SMissingCommandText = 'الخاصية %s غير متوفرة'; 20 | SNoResultSet = 'نص الأمر لايرجع قيمة'; 21 | SADOCreateError = 'خطأ في إنشاء غرض. الرجاء التأكد أن مكونات الوصول للبيانات الخاصة بمايكروسوفت تم تنصيبها على جهازك :'+#13+ 'Microsoft Data Access Components 2.1 (or later) .'; 22 | SEventsNotSupported = 'Events are not supported with server side TableDirect cursors'; 23 | SUsupportedFieldType = 'نم بيانات غير مدعوم , من نوع (%s) في الحقل %s'; 24 | SNoMatchingADOType = 'لايوجد نمط مطابق من مكونات أدو : ADO data type من أجل %s'; 25 | SConnectionRequired = 'مكون الاتصال connection مطلوب من أجل خيارات التنفيذ المتزامنة'; 26 | SCantRequery = 'لايمكن إجراء إعادة الاستعلام بعد تغيير الاتصال'; 27 | SNoFilterOptions = 'خيارات الفلترة غير مدعومة'; 28 | SRecordsetNotOpen = 'مجموعة السجلات ليست مفتوحة'; 29 | sNameAttr = 'الاسم'; 30 | sValueAttr = 'القيمة'; 31 | 32 | implementation 33 | 34 | end. 35 | 36 | -------------------------------------------------------------------------------- /Demos/Readme.txt: -------------------------------------------------------------------------------- 1 | # Arabic-Delphi-VCL-Units 2 | وحدات مكتبة أدوات دلفي الداعمة للغة العربية 3 | 4 | 5 | - دعم صناديق الرسائل العربية 6 | - تحويل مكونات هامة إلى اليمين 7 | - تعريب الكثير من الرسائل التي قد تظهر في زمن التشغيل 8 | - لايحتاج استخدامها لإضافة أي كود 9 | 10 | _______________ 11 | طريقة التشغيل : 12 | فقط قم بارفقات ملفات الوحدات مع برنامجك 13 | ضعها بنفس المجلد مع بقية ملفات برنامجك 14 | وسيتم التعامل معها اليا من دون تغير اي سطر في الكود 15 | 16 | -يفضل ان تقوم بوضع السطر Application.BiDiMode:= bdRightToLeft; عند بدء تنفيذ المشروع لانه مفيد ببعض الحالات 17 | 18 | 19 | _______________ 20 | البيئات المدعومة حاليا : 21 | - Delphi 10.1 Berline 22 | - Delphi 10.2 Tokyo 23 | 24 | _______________ 25 | المشاكل المعروفة : 26 | ToolBar DrawingStyle = dsNormal : يتسبب بانقلاب الصور , يمكن تلافي ذلك باختيار DrawingStyle = dsGradient 27 | التلميحات : Hints لاتعمل بشكل صحيح 28 | عند استخدام الثيمات تنقلب بعض النصوص لإصلاح ذلك يتم الغاء خاصية styleElement : seClient مما قد يتسبب باختلاف شكل المكون قليلا عن شكل الثيم 29 | تم ازالة الضبط الالي للمشروع الى يمين لليسار باعتبار ان المستخدك قد يصمم مشاريع من اليسار لليمين ولا يحق للوحدات ان تضبط هذه الميزة افتراضيا . لذلك يجب ان تقوم يدويا بوضع السطر : Application.BiDiMode:= bdRightToLeft; عند بدء التنفيذ 30 | 31 | English : 32 | This is a replacement for VCL Standard Unites to make them support Right to Left RTL Alignment ( BidiMode = bdRightToLeft ) and Translate alot of Arabic Messages and Strings , including : RTL ToolBar RTL TreeView RTL PageControl RTL DateTimePicker RTL StatusBar RTL ListView etc ... 33 | 34 | _______________ 35 | روابط : 36 | 37 | - سيتم تطوير هذه الملفات بشكل دوري وتوفير نسخ احدث منها 38 | لمتابعة تطوير الملفات : 39 | https://github.com/orwah/Arabic-Delphi-VCL-Units/ 40 | 41 | - للحصول على آخر نسخة من الملفات : 42 | https://github.com/orwah/Arabic-Delphi-VCL-Units/archive/master.zip 43 | 44 | - للمزيد من المعلومات والشروحات : 45 | https://github.com/orwah/Arabic-Delphi-VCL-Units/wiki 46 | 47 | _______________ 48 | عروة علي عيسى 49 | www.orwah.net 50 | 51 | -------------------------------------------------------------------------------- /Delphi10.2_Tokyo/Readme.txt: -------------------------------------------------------------------------------- 1 | # Arabic-Delphi-VCL-Units 2 | وحدات مكتبة أدوات دلفي الداعمة للغة العربية 3 | 4 | 5 | - دعم صناديق الرسائل العربية 6 | - تحويل مكونات هامة إلى اليمين 7 | - تعريب الكثير من الرسائل التي قد تظهر في زمن التشغيل 8 | - لايحتاج استخدامها لإضافة أي كود 9 | 10 | _______________ 11 | طريقة التشغيل : 12 | فقط قم بارفقات ملفات الوحدات مع برنامجك 13 | ضعها بنفس المجلد مع بقية ملفات برنامجك 14 | وسيتم التعامل معها اليا من دون تغير اي سطر في الكود 15 | 16 | -يفضل ان تقوم بوضع السطر Application.BiDiMode:= bdRightToLeft; عند بدء تنفيذ المشروع لانه مفيد ببعض الحالات 17 | 18 | 19 | _______________ 20 | البيئات المدعومة حاليا : 21 | - Delphi 10.1 Berline 22 | - Delphi 10.2 Tokyo 23 | 24 | _______________ 25 | المشاكل المعروفة : 26 | ToolBar DrawingStyle = dsNormal : يتسبب بانقلاب الصور , يمكن تلافي ذلك باختيار DrawingStyle = dsGradient 27 | التلميحات : Hints لاتعمل بشكل صحيح 28 | عند استخدام الثيمات تنقلب بعض النصوص لإصلاح ذلك يتم الغاء خاصية styleElement : seClient مما قد يتسبب باختلاف شكل المكون قليلا عن شكل الثيم 29 | تم ازالة الضبط الالي للمشروع الى يمين لليسار باعتبار ان المستخدك قد يصمم مشاريع من اليسار لليمين ولا يحق للوحدات ان تضبط هذه الميزة افتراضيا . لذلك يجب ان تقوم يدويا بوضع السطر : Application.BiDiMode:= bdRightToLeft; عند بدء التنفيذ 30 | 31 | English : 32 | This is a replacement for VCL Standard Unites to make them support Right to Left RTL Alignment ( BidiMode = bdRightToLeft ) and Translate alot of Arabic Messages and Strings , including : RTL ToolBar RTL TreeView RTL PageControl RTL DateTimePicker RTL StatusBar RTL ListView etc ... 33 | 34 | _______________ 35 | روابط : 36 | 37 | - سيتم تطوير هذه الملفات بشكل دوري وتوفير نسخ احدث منها 38 | لمتابعة تطوير الملفات : 39 | https://github.com/orwah/Arabic-Delphi-VCL-Units/ 40 | 41 | - للحصول على آخر نسخة من الملفات : 42 | https://github.com/orwah/Arabic-Delphi-VCL-Units/archive/master.zip 43 | 44 | - للمزيد من المعلومات والشروحات : 45 | https://github.com/orwah/Arabic-Delphi-VCL-Units/wiki 46 | 47 | _______________ 48 | عروة علي عيسى 49 | www.orwah.net 50 | 51 | -------------------------------------------------------------------------------- /Delphi10.3_Rio/Readme.txt: -------------------------------------------------------------------------------- 1 | # Arabic-Delphi-VCL-Units 2 | وحدات مكتبة أدوات دلفي الداعمة للغة العربية 3 | 4 | 5 | - دعم صناديق الرسائل العربية 6 | - تحويل مكونات هامة إلى اليمين 7 | - تعريب الكثير من الرسائل التي قد تظهر في زمن التشغيل 8 | - لايحتاج استخدامها لإضافة أي كود 9 | 10 | _______________ 11 | طريقة التشغيل : 12 | فقط قم بارفقات ملفات الوحدات مع برنامجك 13 | ضعها بنفس المجلد مع بقية ملفات برنامجك 14 | وسيتم التعامل معها اليا من دون تغير اي سطر في الكود 15 | 16 | -يفضل ان تقوم بوضع السطر Application.BiDiMode:= bdRightToLeft; عند بدء تنفيذ المشروع لانه مفيد ببعض الحالات 17 | 18 | 19 | _______________ 20 | البيئات المدعومة حاليا : 21 | - Delphi 10.1 Berline 22 | - Delphi 10.2 Tokyo 23 | 24 | _______________ 25 | المشاكل المعروفة : 26 | ToolBar DrawingStyle = dsNormal : يتسبب بانقلاب الصور , يمكن تلافي ذلك باختيار DrawingStyle = dsGradient 27 | التلميحات : Hints لاتعمل بشكل صحيح 28 | عند استخدام الثيمات تنقلب بعض النصوص لإصلاح ذلك يتم الغاء خاصية styleElement : seClient مما قد يتسبب باختلاف شكل المكون قليلا عن شكل الثيم 29 | تم ازالة الضبط الالي للمشروع الى يمين لليسار باعتبار ان المستخدك قد يصمم مشاريع من اليسار لليمين ولا يحق للوحدات ان تضبط هذه الميزة افتراضيا . لذلك يجب ان تقوم يدويا بوضع السطر : Application.BiDiMode:= bdRightToLeft; عند بدء التنفيذ 30 | 31 | English : 32 | This is a replacement for VCL Standard Unites to make them support Right to Left RTL Alignment ( BidiMode = bdRightToLeft ) and Translate alot of Arabic Messages and Strings , including : RTL ToolBar RTL TreeView RTL PageControl RTL DateTimePicker RTL StatusBar RTL ListView etc ... 33 | 34 | _______________ 35 | روابط : 36 | 37 | - سيتم تطوير هذه الملفات بشكل دوري وتوفير نسخ احدث منها 38 | لمتابعة تطوير الملفات : 39 | https://github.com/orwah/Arabic-Delphi-VCL-Units/ 40 | 41 | - للحصول على آخر نسخة من الملفات : 42 | https://github.com/orwah/Arabic-Delphi-VCL-Units/archive/master.zip 43 | 44 | - للمزيد من المعلومات والشروحات : 45 | https://github.com/orwah/Arabic-Delphi-VCL-Units/wiki 46 | 47 | _______________ 48 | عروة علي عيسى 49 | www.orwah.net 50 | 51 | -------------------------------------------------------------------------------- /Demos/Arabic_Units/Readme.txt: -------------------------------------------------------------------------------- 1 | # Arabic-Delphi-VCL-Units 2 | وحدات مكتبة أدوات دلفي الداعمة للغة العربية 3 | 4 | 5 | - دعم صناديق الرسائل العربية 6 | - تحويل مكونات هامة إلى اليمين 7 | - تعريب الكثير من الرسائل التي قد تظهر في زمن التشغيل 8 | - لايحتاج استخدامها لإضافة أي كود 9 | 10 | _______________ 11 | طريقة التشغيل : 12 | فقط قم بارفقات ملفات الوحدات مع برنامجك 13 | ضعها بنفس المجلد مع بقية ملفات برنامجك 14 | وسيتم التعامل معها اليا من دون تغير اي سطر في الكود 15 | 16 | -يفضل ان تقوم بوضع السطر Application.BiDiMode:= bdRightToLeft; عند بدء تنفيذ المشروع لانه مفيد ببعض الحالات 17 | 18 | 19 | _______________ 20 | البيئات المدعومة حاليا : 21 | - Delphi 10.1 Berline 22 | - Delphi 10.2 Tokyo 23 | 24 | _______________ 25 | المشاكل المعروفة : 26 | ToolBar DrawingStyle = dsNormal : يتسبب بانقلاب الصور , يمكن تلافي ذلك باختيار DrawingStyle = dsGradient 27 | التلميحات : Hints لاتعمل بشكل صحيح 28 | عند استخدام الثيمات تنقلب بعض النصوص لإصلاح ذلك يتم الغاء خاصية styleElement : seClient مما قد يتسبب باختلاف شكل المكون قليلا عن شكل الثيم 29 | تم ازالة الضبط الالي للمشروع الى يمين لليسار باعتبار ان المستخدك قد يصمم مشاريع من اليسار لليمين ولا يحق للوحدات ان تضبط هذه الميزة افتراضيا . لذلك يجب ان تقوم يدويا بوضع السطر : Application.BiDiMode:= bdRightToLeft; عند بدء التنفيذ 30 | 31 | English : 32 | This is a replacement for VCL Standard Unites to make them support Right to Left RTL Alignment ( BidiMode = bdRightToLeft ) and Translate alot of Arabic Messages and Strings , including : RTL ToolBar RTL TreeView RTL PageControl RTL DateTimePicker RTL StatusBar RTL ListView etc ... 33 | 34 | _______________ 35 | روابط : 36 | 37 | - سيتم تطوير هذه الملفات بشكل دوري وتوفير نسخ احدث منها 38 | لمتابعة تطوير الملفات : 39 | https://github.com/orwah/Arabic-Delphi-VCL-Units/ 40 | 41 | - للحصول على آخر نسخة من الملفات : 42 | https://github.com/orwah/Arabic-Delphi-VCL-Units/archive/master.zip 43 | 44 | - للمزيد من المعلومات والشروحات : 45 | https://github.com/orwah/Arabic-Delphi-VCL-Units/wiki 46 | 47 | _______________ 48 | عروة علي عيسى 49 | www.orwah.net 50 | 51 | -------------------------------------------------------------------------------- /Delphi10.3_Rio/Vcl.BandActn.pas: -------------------------------------------------------------------------------- 1 | {*******************************************************} 2 | { } 3 | { Delphi Visual Component Library } 4 | { } 5 | { Copyright(c) 1995-2018 Embarcadero Technologies, Inc. } 6 | { All rights reserved } 7 | { } 8 | {*******************************************************} 9 | 10 | unit Vcl.BandActn; 11 | 12 | {$HPPEMIT LEGACYHPP} 13 | 14 | interface 15 | 16 | uses 17 | Vcl.Graphics, System.Classes, Winapi.Messages, Vcl.Controls, Vcl.ActnList, Vcl.ActnMan, Vcl.Forms, Vcl.CustomizeDlg; 18 | 19 | type 20 | TCustomizeActionBars = class(TAction) 21 | private 22 | FCustomizeDlg: TCustomizeDlg; 23 | FActionManager: TCustomActionManager; 24 | public 25 | constructor Create(AOwner: TComponent); override; 26 | procedure ExecuteTarget(Target: TObject); override; 27 | function HandlesTarget(Target: TObject): Boolean; override; 28 | published 29 | property ActionManager: TCustomActionManager read FActionManager 30 | write FActionManager; 31 | property CustomizeDlg: TCustomizeDlg read FCustomizeDlg; 32 | end; 33 | 34 | implementation 35 | 36 | uses Winapi.Windows, Vcl.Consts; 37 | 38 | { TCustomizeActionBars } 39 | 40 | constructor TCustomizeActionBars.Create(AOwner: TComponent); 41 | begin 42 | inherited Create(AOwner); 43 | Caption := SCustomize; 44 | FCustomizeDlg := TCustomizeDlg.Create(Self); 45 | FCustomizeDlg.Name := Copy(FCustomizeDlg.ClassName, 2, Length(FCustomizeDlg.ClassName)); 46 | FCustomizeDlg.SetSubComponent(True); 47 | end; 48 | 49 | procedure TCustomizeActionBars.ExecuteTarget(Target: TObject); 50 | begin 51 | if not Assigned(FCustomizeDlg.ActionManager) then 52 | begin 53 | if Assigned(FActionManager) then 54 | FCustomizeDlg.ActionManager := FActionManager 55 | else 56 | FCustomizeDlg.ActionManager := TCustomActionManager(ActionList); 57 | end; 58 | FCustomizeDlg.Show; 59 | end; 60 | 61 | function TCustomizeActionBars.HandlesTarget(Target: TObject): Boolean; 62 | begin 63 | Result := (ActionList is TCustomActionManager) or Assigned(ActionManager); 64 | end; 65 | 66 | end. 67 | -------------------------------------------------------------------------------- /Demos/Arabic_Units/Vcl.BandActn.pas: -------------------------------------------------------------------------------- 1 | {*******************************************************} 2 | { } 3 | { Delphi Visual Component Library } 4 | { } 5 | { Copyright(c) 1995-2018 Embarcadero Technologies, Inc. } 6 | { All rights reserved } 7 | { } 8 | {*******************************************************} 9 | 10 | unit Vcl.BandActn; 11 | 12 | {$HPPEMIT LEGACYHPP} 13 | 14 | interface 15 | 16 | uses 17 | Vcl.Graphics, System.Classes, Winapi.Messages, Vcl.Controls, Vcl.ActnList, Vcl.ActnMan, Vcl.Forms, Vcl.CustomizeDlg; 18 | 19 | type 20 | TCustomizeActionBars = class(TAction) 21 | private 22 | FCustomizeDlg: TCustomizeDlg; 23 | FActionManager: TCustomActionManager; 24 | public 25 | constructor Create(AOwner: TComponent); override; 26 | procedure ExecuteTarget(Target: TObject); override; 27 | function HandlesTarget(Target: TObject): Boolean; override; 28 | published 29 | property ActionManager: TCustomActionManager read FActionManager 30 | write FActionManager; 31 | property CustomizeDlg: TCustomizeDlg read FCustomizeDlg; 32 | end; 33 | 34 | implementation 35 | 36 | uses Winapi.Windows, Vcl.Consts; 37 | 38 | { TCustomizeActionBars } 39 | 40 | constructor TCustomizeActionBars.Create(AOwner: TComponent); 41 | begin 42 | inherited Create(AOwner); 43 | Caption := SCustomize; 44 | FCustomizeDlg := TCustomizeDlg.Create(Self); 45 | FCustomizeDlg.Name := Copy(FCustomizeDlg.ClassName, 2, Length(FCustomizeDlg.ClassName)); 46 | FCustomizeDlg.SetSubComponent(True); 47 | end; 48 | 49 | procedure TCustomizeActionBars.ExecuteTarget(Target: TObject); 50 | begin 51 | if not Assigned(FCustomizeDlg.ActionManager) then 52 | begin 53 | if Assigned(FActionManager) then 54 | FCustomizeDlg.ActionManager := FActionManager 55 | else 56 | FCustomizeDlg.ActionManager := TCustomActionManager(ActionList); 57 | end; 58 | FCustomizeDlg.Show; 59 | end; 60 | 61 | function TCustomizeActionBars.HandlesTarget(Target: TObject): Boolean; 62 | begin 63 | Result := (ActionList is TCustomActionManager) or Assigned(ActionManager); 64 | end; 65 | 66 | end. 67 | -------------------------------------------------------------------------------- /Delphi10.3_Rio/Data.Win.ADOConst.pas: -------------------------------------------------------------------------------- 1 | {*******************************************************} 2 | { } 3 | { Arabic Delphi VCL Units } 4 | { } 5 | { Modified by : Orwah Ali Issa (www.orwah.net) } 6 | { } 7 | { Delphi 10.3 Rio .. File Version 0.1 14/9/2019 } 8 | { } 9 | { Get Last Version From Here : } 10 | { https://github.com/orwah/Arabic-Delphi-VCL-Units } 11 | { } 12 | {*******************************************************} 13 | 14 | 15 | {*******************************************************} 16 | { } 17 | { Delphi Runtime Library } 18 | { } 19 | { Copyright(c) 1995-2018 Embarcadero Technologies, Inc. } 20 | { All rights reserved } 21 | { } 22 | {*******************************************************} 23 | 24 | unit Data.Win.ADOConst; 25 | 26 | interface 27 | 28 | resourcestring 29 | SInvalidEnumValue = 'قيمة ترتيب غير صالحة'; 30 | SMissingConnection = 'لم يتم ضبط إعدادات الاتصال بالقاعدة بشكل صحيح : ConnectionString'; 31 | SNoDetailFilter = 'لايمكن استخدام خاصية الفلترة مع جدول نفصيلي مرتبط بجدول رئيسي'; 32 | SBookmarksRequired = 'مجموعة البيانات لاتدعم مؤشر bookmarks, وهي ضرورية للمكونات التي تتعامل مع السجلات المتعددة'; 33 | SMissingCommandText = 'الخاصية %s غير متوفرة'; 34 | SNoResultSet = 'نص الأمر لايرجع قيمة'; 35 | SADOCreateError = 'خطأ في إنشاء غرض. الرجاء التأكد أن مكونات الوصول للبيانات الخاصة بمايكروسوفت تم تنصيبها على جهازك :'+#13+ 'Microsoft Data Access Components 2.1 (or later) .'; 36 | SEventsNotSupported = 'Events are not supported with server side TableDirect cursors'; 37 | SUsupportedFieldType = 'نم بيانات غير مدعوم , من نوع (%s) في الحقل %s'; 38 | SNoMatchingADOType = 'لايوجد نمط مطابق من مكونات أدو : ADO data type من أجل %s'; 39 | SConnectionRequired = 'مكون الاتصال connection مطلوب من أجل خيارات التنفيذ المتزامنة'; 40 | SCantRequery = 'لايمكن إجراء إعادة الاستعلام بعد تغيير الاتصال'; 41 | SNoFilterOptions = 'خيارات الفلترة غير مدعومة'; 42 | SRecordsetNotOpen = 'مجموعة السجلات ليست مفتوحة'; 43 | sNameAttr = 'الاسم'; 44 | sValueAttr = 'القيمة'; 45 | 46 | implementation 47 | 48 | end. 49 | 50 | -------------------------------------------------------------------------------- /Demos/Arabic_Units/Data.Win.ADOConst.pas: -------------------------------------------------------------------------------- 1 | {*******************************************************} 2 | { } 3 | { Arabic Delphi VCL Units } 4 | { } 5 | { Modified by : Orwah Ali Issa (www.orwah.net) } 6 | { } 7 | { Delphi 10.3 Rio .. File Version 0.1 14/9/2019 } 8 | { } 9 | { Get Last Version From Here : } 10 | { https://github.com/orwah/Arabic-Delphi-VCL-Units } 11 | { } 12 | {*******************************************************} 13 | 14 | 15 | {*******************************************************} 16 | { } 17 | { Delphi Runtime Library } 18 | { } 19 | { Copyright(c) 1995-2018 Embarcadero Technologies, Inc. } 20 | { All rights reserved } 21 | { } 22 | {*******************************************************} 23 | 24 | unit Data.Win.ADOConst; 25 | 26 | interface 27 | 28 | resourcestring 29 | SInvalidEnumValue = 'قيمة ترتيب غير صالحة'; 30 | SMissingConnection = 'لم يتم ضبط إعدادات الاتصال بالقاعدة بشكل صحيح : ConnectionString'; 31 | SNoDetailFilter = 'لايمكن استخدام خاصية الفلترة مع جدول نفصيلي مرتبط بجدول رئيسي'; 32 | SBookmarksRequired = 'مجموعة البيانات لاتدعم مؤشر bookmarks, وهي ضرورية للمكونات التي تتعامل مع السجلات المتعددة'; 33 | SMissingCommandText = 'الخاصية %s غير متوفرة'; 34 | SNoResultSet = 'نص الأمر لايرجع قيمة'; 35 | SADOCreateError = 'خطأ في إنشاء غرض. الرجاء التأكد أن مكونات الوصول للبيانات الخاصة بمايكروسوفت تم تنصيبها على جهازك :'+#13+ 'Microsoft Data Access Components 2.1 (or later) .'; 36 | SEventsNotSupported = 'Events are not supported with server side TableDirect cursors'; 37 | SUsupportedFieldType = 'نم بيانات غير مدعوم , من نوع (%s) في الحقل %s'; 38 | SNoMatchingADOType = 'لايوجد نمط مطابق من مكونات أدو : ADO data type من أجل %s'; 39 | SConnectionRequired = 'مكون الاتصال connection مطلوب من أجل خيارات التنفيذ المتزامنة'; 40 | SCantRequery = 'لايمكن إجراء إعادة الاستعلام بعد تغيير الاتصال'; 41 | SNoFilterOptions = 'خيارات الفلترة غير مدعومة'; 42 | SRecordsetNotOpen = 'مجموعة السجلات ليست مفتوحة'; 43 | sNameAttr = 'الاسم'; 44 | sValueAttr = 'القيمة'; 45 | 46 | implementation 47 | 48 | end. 49 | 50 | -------------------------------------------------------------------------------- /Delphi10.1_Berline/Vcl.BandActn.pas: -------------------------------------------------------------------------------- 1 | {*******************************************************} 2 | { } 3 | { Arabic Delphi VCL Units } 4 | { } 5 | { Modified by : Orwah Ali Issa (www.orwah.net) } 6 | { } 7 | { Delphi 10.1 Berline .. File Version 0.1 1/10/2016 } 8 | { } 9 | { Get Last Version From Here : } 10 | { https://github.com/orwah/Arabic-Delphi-VCL-Units } 11 | { } 12 | {*******************************************************} 13 | 14 | 15 | {*******************************************************} 16 | { } 17 | { Delphi Visual Component Library } 18 | { } 19 | { Copyright(c) 2016 Embarcadero Technologies, Inc. } 20 | { All rights reserved } 21 | { } 22 | {*******************************************************} 23 | 24 | unit Vcl.BandActn; 25 | 26 | interface 27 | 28 | //(*$HPPEMIT '#pragma link "dclact.lib"'*) 29 | 30 | uses 31 | Vcl.Graphics, System.Classes, Winapi.Messages, Vcl.Controls, Vcl.ActnList, Vcl.ActnMan, Vcl.Forms, Vcl.CustomizeDlg; 32 | 33 | type 34 | TCustomizeActionBars = class(TAction) 35 | private 36 | FCustomizeDlg: TCustomizeDlg; 37 | FActionManager: TCustomActionManager; 38 | public 39 | constructor Create(AOwner: TComponent); override; 40 | procedure ExecuteTarget(Target: TObject); override; 41 | function HandlesTarget(Target: TObject): Boolean; override; 42 | published 43 | property ActionManager: TCustomActionManager read FActionManager 44 | write FActionManager; 45 | property CustomizeDlg: TCustomizeDlg read FCustomizeDlg; 46 | end; 47 | 48 | implementation 49 | 50 | uses Winapi.Windows, Vcl.Consts; 51 | 52 | { TCustomizeActionBars } 53 | 54 | constructor TCustomizeActionBars.Create(AOwner: TComponent); 55 | begin 56 | inherited Create(AOwner); 57 | Caption := SCustomize; 58 | FCustomizeDlg := TCustomizeDlg.Create(Self); 59 | FCustomizeDlg.Name := Copy(FCustomizeDlg.ClassName, 2, Length(FCustomizeDlg.ClassName)); 60 | FCustomizeDlg.SetSubComponent(True); 61 | end; 62 | 63 | procedure TCustomizeActionBars.ExecuteTarget(Target: TObject); 64 | begin 65 | if not Assigned(FCustomizeDlg.ActionManager) then 66 | begin 67 | if Assigned(FActionManager) then 68 | FCustomizeDlg.ActionManager := FActionManager 69 | else 70 | FCustomizeDlg.ActionManager := TCustomActionManager(ActionList); 71 | end; 72 | FCustomizeDlg.Show; 73 | end; 74 | 75 | function TCustomizeActionBars.HandlesTarget(Target: TObject): Boolean; 76 | begin 77 | Result := (ActionList is TCustomActionManager) or Assigned(ActionManager); 78 | end; 79 | 80 | end. 81 | -------------------------------------------------------------------------------- /Delphi10.2_Tokyo/Vcl.BandActn.pas: -------------------------------------------------------------------------------- 1 | {*******************************************************} 2 | { } 3 | { Arabic Delphi VCL Units } 4 | { } 5 | { Modified by : Orwah Ali Issa (www.orwah.net) } 6 | { } 7 | { Delphi 10.1 Berline .. File Version 0.1 1/10/2016 } 8 | { } 9 | { Get Last Version From Here : } 10 | { https://github.com/orwah/Arabic-Delphi-VCL-Units } 11 | { } 12 | {*******************************************************} 13 | 14 | 15 | {*******************************************************} 16 | { } 17 | { Delphi Visual Component Library } 18 | { } 19 | { Copyright(c) 1995-2017 Embarcadero Technologies, Inc. } 20 | { All rights reserved } 21 | { } 22 | {*******************************************************} 23 | 24 | unit Vcl.BandActn; 25 | 26 | interface 27 | 28 | //(*$HPPEMIT '#pragma link "dclact.lib"'*) 29 | 30 | uses 31 | Vcl.Graphics, System.Classes, Winapi.Messages, Vcl.Controls, Vcl.ActnList, Vcl.ActnMan, Vcl.Forms, Vcl.CustomizeDlg; 32 | 33 | type 34 | TCustomizeActionBars = class(TAction) 35 | private 36 | FCustomizeDlg: TCustomizeDlg; 37 | FActionManager: TCustomActionManager; 38 | public 39 | constructor Create(AOwner: TComponent); override; 40 | procedure ExecuteTarget(Target: TObject); override; 41 | function HandlesTarget(Target: TObject): Boolean; override; 42 | published 43 | property ActionManager: TCustomActionManager read FActionManager 44 | write FActionManager; 45 | property CustomizeDlg: TCustomizeDlg read FCustomizeDlg; 46 | end; 47 | 48 | implementation 49 | 50 | uses Winapi.Windows, Vcl.Consts; 51 | 52 | { TCustomizeActionBars } 53 | 54 | constructor TCustomizeActionBars.Create(AOwner: TComponent); 55 | begin 56 | inherited Create(AOwner); 57 | Caption := SCustomize; 58 | FCustomizeDlg := TCustomizeDlg.Create(Self); 59 | FCustomizeDlg.Name := Copy(FCustomizeDlg.ClassName, 2, Length(FCustomizeDlg.ClassName)); 60 | FCustomizeDlg.SetSubComponent(True); 61 | end; 62 | 63 | procedure TCustomizeActionBars.ExecuteTarget(Target: TObject); 64 | begin 65 | if not Assigned(FCustomizeDlg.ActionManager) then 66 | begin 67 | if Assigned(FActionManager) then 68 | FCustomizeDlg.ActionManager := FActionManager 69 | else 70 | FCustomizeDlg.ActionManager := TCustomActionManager(ActionList); 71 | end; 72 | FCustomizeDlg.Show; 73 | end; 74 | 75 | function TCustomizeActionBars.HandlesTarget(Target: TObject): Boolean; 76 | begin 77 | Result := (ActionList is TCustomActionManager) or Assigned(ActionManager); 78 | end; 79 | 80 | end. 81 | -------------------------------------------------------------------------------- /README.md: -------------------------------------------------------------------------------- 1 | # Arabic-Delphi-VCL-Units 2 | # Delphi RTL BidiRightToLeft Arabic VCL Units 3 | وحدات مكتبة مكونات دلفي الداعمة للغة العربية 4 | 5 | آخر تعديل : 14/9/2019 6 | 7 | هي عبارة عن جهد متواضع الهدف منه تحديث وحدات ومكتبات دلفي القياسية بحيث تدعم اللغة العربية والرصف من اليمين لليسار , وبالتالي لاتحتاج تنصيب أي مكونات إضافية أو إجراء أي تعديلات على الكود . ويكفي إرفاقها ضمن ملفات المشروع وسيتم تعريب مكونات المشروع تلقائيا . 8 | 9 | الملفات مفيدة وطريقة استخدامها سهلة ولكنها لاتزال تحتاج إلى الكثير من العمل , وفيها أخطاء ومشاكل , لذلك تم وضعها هنا للمساعدة في تصحيحها وتحسينها من قبل عدد اكبر من المطورين وعلى فترات زمنية متلاحقة . 10 | 11 | _______________ 12 | الميزات الرئيسية 13 | 14 | - دعم صناديق الرسائل العربية 15 | - تحويل المكونات إلى اليمين 16 | - تعريب الكثير من النصوص التي تظهر في زمن التشغيل 17 | - لايحتاج استخدامها لإضافة أي كود 18 | - لايحتاج استخدامها لتنصيب أي مكون 19 | 20 | ![](https://github.com/orwah/Arabic-Delphi-VCL-Units/blob/master/Pics/1.png) 21 | 22 | _______________ 23 | طريقة التشغيل : 24 | - إذا اردت استخدام الوحدات في مشروع واحد فقط تستطيع إرفقات ملفات الوحدات مباشرة مع المشروع 25 | .ضعها بنفس المجلد مع بقية وحدات المشروع وسيتم التعامل معها اليا من دون تغير اي سطر في الكود 26 | - أو بإمكانك فصلها في مجلد منفصل عن ملفات المشروع , ووضع روابط لها من ملف المشروع 27 | Project.dpr : 28 | ![](https://github.com/orwah/Arabic-Delphi-VCL-Units/blob/master/Pics/add_units_folder_to_project_dpr.png) 29 | - لاستخدامها في كل المشاريع , وبدلا من اضافة الوحدات كل مرة , يكفي إضافة مسار الوحدات إلى لائحة مسارات مكتبة دلفي من خيار : 30 | 31 | tools -> Options -> Library -> Library Path 32 | وسيتم التعامل معها اليا بدل الملفات الافتراضية باعتبارها موجوده بعد الملفات الرئيسية في ترتيب الاستخدام 33 | 34 | _______________ 35 | البيئات المدعومة حاليا : 36 | - Delphi 10.1 Berline 37 | - Delphi 10.2 Tokyo 38 | - Delphi 10.3 Rio 39 | - قد تعمل الملفات نفسها على إصدارات أقدم ولكن لم يتم تجربتها 40 | 41 | 42 | _______________ 43 | بعض المشاكل المعروفة : 44 | 45 | - ToolBar DrawingStyle = dsNormal : 46 | يتسبب بانقلاب الصور , يمكن تلافي ذلك باختيار 47 | DrawingStyle = dsGradient 48 | - التلميحات : Hints قد لاتعمل بشكل صحيح 49 | - عند استخدام الثيمات قد تنقلب بعض النصوص 50 | ولإصلاح ذلك يتم الغاء خاصية 51 | styleElement : seClient 52 | مما قد يتسبب باختلاف شكل المكون قليلا عن شكل الثيم 53 | 54 | _______________ 55 | روابط : 56 | - سيتم تطوير هذه الملفات بشكل دوري وتوفير نسخ احدث منها 57 | لمتابعة تطوير الملفات : 58 | https://github.com/orwah/Arabic-Delphi-VCL-Units/ 59 | 60 | - للحصول على آخر نسخة من الملفات : 61 | https://github.com/orwah/Arabic-Delphi-VCL-Units/archive/master.zip 62 | 63 | - للمزيد من المعلومات والشروحات : 64 | https://github.com/orwah/Arabic-Delphi-VCL-Units/wiki 65 | 66 | 67 | 68 | 69 | _______________ 70 | English : 71 | - This is a replacement for VCL Standard Unites to make them support Right to Left RTL Alignment ( BidiMode = bdRightToLeft ) and Translate alot of Arabic Messages and Strings , 72 | including : 73 | RTL ToolBar 74 | RTL TreeView 75 | RTL PageControl 76 | RTL DateTimePicker 77 | RTL StatusBar 78 | RTL ListView 79 | etc ... 80 | 81 | _______________ 82 | عروة علي عيسى 83 | - www.orwah.net 84 | - www.sy-it.com 85 | -------------------------------------------------------------------------------- /Demos/README.md: -------------------------------------------------------------------------------- 1 | # Arabic-Delphi-VCL-Units 2 | # Delphi RTL BidiRightToLeft Arabic VCL Units 3 | وحدات مكتبة مكونات دلفي الداعمة للغة العربية 4 | 5 | آخر تعديل : 14/9/2019 6 | 7 | هي عبارة عن جهد متواضع الهدف منه تحديث وحدات ومكتبات دلفي القياسية بحيث تدعم اللغة العربية والرصف من اليمين لليسار , وبالتالي لاتحتاج تنصيب أي مكونات إضافية أو إجراء أي تعديلات على الكود . ويكفي إرفاقها ضمن ملفات المشروع وسيتم تعريب مكونات المشروع تلقائيا . 8 | 9 | الملفات مفيدة وطريقة استخدامها سهلة ولكنها لاتزال تحتاج إلى الكثير من العمل , وفيها أخطاء ومشاكل , لذلك تم وضعها هنا للمساعدة في تصحيحها وتحسينها من قبل عدد اكبر من المطورين وعلى فترات زمنية متلاحقة . 10 | 11 | _______________ 12 | الميزات الرئيسية 13 | 14 | - دعم صناديق الرسائل العربية 15 | - تحويل المكونات إلى اليمين 16 | - تعريب الكثير من النصوص التي تظهر في زمن التشغيل 17 | - لايحتاج استخدامها لإضافة أي كود 18 | - لايحتاج استخدامها لتنصيب أي مكون 19 | 20 | ![](https://github.com/orwah/Arabic-Delphi-VCL-Units/blob/master/Pics/1.png) 21 | 22 | _______________ 23 | طريقة التشغيل : 24 | - إذا اردت استخدام الوحدات في مشروع واحد فقط تستطيع إرفقات ملفات الوحدات مباشرة مع المشروع 25 | .ضعها بنفس المجلد مع بقية وحدات المشروع وسيتم التعامل معها اليا من دون تغير اي سطر في الكود 26 | - أو بإمكانك فصلها في مجلد منفصل عن ملفات المشروع , ووضع روابط لها من ملف المشروع 27 | Project.dpr : 28 | ![](https://github.com/orwah/Arabic-Delphi-VCL-Units/blob/master/Pics/add_units_folder_to_project_dpr.png) 29 | - لاستخدامها في كل المشاريع , وبدلا من اضافة الوحدات كل مرة , يكفي إضافة مسار الوحدات إلى لائحة مسارات مكتبة دلفي من خيار : 30 | 31 | tools -> Options -> Library -> Library Path 32 | وسيتم التعامل معها اليا بدل الملفات الافتراضية باعتبارها موجوده بعد الملفات الرئيسية في ترتيب الاستخدام 33 | 34 | _______________ 35 | البيئات المدعومة حاليا : 36 | - Delphi 10.1 Berline 37 | - Delphi 10.2 Tokyo 38 | - Delphi 10.3 Rio 39 | - قد تعمل الملفات نفسها على إصدارات أقدم ولكن لم يتم تجربتها 40 | 41 | 42 | _______________ 43 | بعض المشاكل المعروفة : 44 | 45 | - ToolBar DrawingStyle = dsNormal : 46 | يتسبب بانقلاب الصور , يمكن تلافي ذلك باختيار 47 | DrawingStyle = dsGradient 48 | - التلميحات : Hints قد لاتعمل بشكل صحيح 49 | - عند استخدام الثيمات قد تنقلب بعض النصوص 50 | ولإصلاح ذلك يتم الغاء خاصية 51 | styleElement : seClient 52 | مما قد يتسبب باختلاف شكل المكون قليلا عن شكل الثيم 53 | 54 | _______________ 55 | روابط : 56 | - سيتم تطوير هذه الملفات بشكل دوري وتوفير نسخ احدث منها 57 | لمتابعة تطوير الملفات : 58 | https://github.com/orwah/Arabic-Delphi-VCL-Units/ 59 | 60 | - للحصول على آخر نسخة من الملفات : 61 | https://github.com/orwah/Arabic-Delphi-VCL-Units/archive/master.zip 62 | 63 | - للمزيد من المعلومات والشروحات : 64 | https://github.com/orwah/Arabic-Delphi-VCL-Units/wiki 65 | 66 | 67 | 68 | 69 | _______________ 70 | English : 71 | - This is a replacement for VCL Standard Unites to make them support Right to Left RTL Alignment ( BidiMode = bdRightToLeft ) and Translate alot of Arabic Messages and Strings , 72 | including : 73 | RTL ToolBar 74 | RTL TreeView 75 | RTL PageControl 76 | RTL DateTimePicker 77 | RTL StatusBar 78 | RTL ListView 79 | etc ... 80 | 81 | _______________ 82 | عروة علي عيسى 83 | - www.orwah.net 84 | - www.sy-it.com 85 | -------------------------------------------------------------------------------- /Delphi10.3_Rio/README.md: -------------------------------------------------------------------------------- 1 | # Arabic-Delphi-VCL-Units 2 | # Delphi RTL BidiRightToLeft Arabic VCL Units 3 | وحدات مكتبة مكونات دلفي الداعمة للغة العربية 4 | 5 | آخر تعديل : 14/9/2019 6 | 7 | هي عبارة عن جهد متواضع الهدف منه تحديث وحدات ومكتبات دلفي القياسية بحيث تدعم اللغة العربية والرصف من اليمين لليسار , وبالتالي لاتحتاج تنصيب أي مكونات إضافية أو إجراء أي تعديلات على الكود . ويكفي إرفاقها ضمن ملفات المشروع وسيتم تعريب مكونات المشروع تلقائيا . 8 | 9 | الملفات مفيدة وطريقة استخدامها سهلة ولكنها لاتزال تحتاج إلى الكثير من العمل , وفيها أخطاء ومشاكل , لذلك تم وضعها هنا للمساعدة في تصحيحها وتحسينها من قبل عدد اكبر من المطورين وعلى فترات زمنية متلاحقة . 10 | 11 | _______________ 12 | الميزات الرئيسية 13 | 14 | - دعم صناديق الرسائل العربية 15 | - تحويل المكونات إلى اليمين 16 | - تعريب الكثير من النصوص التي تظهر في زمن التشغيل 17 | - لايحتاج استخدامها لإضافة أي كود 18 | - لايحتاج استخدامها لتنصيب أي مكون 19 | 20 | ![](https://github.com/orwah/Arabic-Delphi-VCL-Units/blob/master/Pics/1.png) 21 | 22 | _______________ 23 | طريقة التشغيل : 24 | - إذا اردت استخدام الوحدات في مشروع واحد فقط تستطيع إرفقات ملفات الوحدات مباشرة مع المشروع 25 | .ضعها بنفس المجلد مع بقية وحدات المشروع وسيتم التعامل معها اليا من دون تغير اي سطر في الكود 26 | - أو بإمكانك فصلها في مجلد منفصل عن ملفات المشروع , ووضع روابط لها من ملف المشروع 27 | Project.dpr : 28 | ![](https://github.com/orwah/Arabic-Delphi-VCL-Units/blob/master/Pics/add_units_folder_to_project_dpr.png) 29 | - لاستخدامها في كل المشاريع , وبدلا من اضافة الوحدات كل مرة , يكفي إضافة مسار الوحدات إلى لائحة مسارات مكتبة دلفي من خيار : 30 | 31 | tools -> Options -> Library -> Library Path 32 | وسيتم التعامل معها اليا بدل الملفات الافتراضية باعتبارها موجوده بعد الملفات الرئيسية في ترتيب الاستخدام 33 | 34 | _______________ 35 | البيئات المدعومة حاليا : 36 | - Delphi 10.1 Berline 37 | - Delphi 10.2 Tokyo 38 | - Delphi 10.3 Rio 39 | - قد تعمل الملفات نفسها على إصدارات أقدم ولكن لم يتم تجربتها 40 | 41 | 42 | _______________ 43 | بعض المشاكل المعروفة : 44 | 45 | - ToolBar DrawingStyle = dsNormal : 46 | يتسبب بانقلاب الصور , يمكن تلافي ذلك باختيار 47 | DrawingStyle = dsGradient 48 | - التلميحات : Hints قد لاتعمل بشكل صحيح 49 | - عند استخدام الثيمات قد تنقلب بعض النصوص 50 | ولإصلاح ذلك يتم الغاء خاصية 51 | styleElement : seClient 52 | مما قد يتسبب باختلاف شكل المكون قليلا عن شكل الثيم 53 | 54 | _______________ 55 | روابط : 56 | - سيتم تطوير هذه الملفات بشكل دوري وتوفير نسخ احدث منها 57 | لمتابعة تطوير الملفات : 58 | https://github.com/orwah/Arabic-Delphi-VCL-Units/ 59 | 60 | - للحصول على آخر نسخة من الملفات : 61 | https://github.com/orwah/Arabic-Delphi-VCL-Units/archive/master.zip 62 | 63 | - للمزيد من المعلومات والشروحات : 64 | https://github.com/orwah/Arabic-Delphi-VCL-Units/wiki 65 | 66 | 67 | 68 | 69 | _______________ 70 | English : 71 | - This is a replacement for VCL Standard Unites to make them support Right to Left RTL Alignment ( BidiMode = bdRightToLeft ) and Translate alot of Arabic Messages and Strings , 72 | including : 73 | RTL ToolBar 74 | RTL TreeView 75 | RTL PageControl 76 | RTL DateTimePicker 77 | RTL StatusBar 78 | RTL ListView 79 | etc ... 80 | 81 | _______________ 82 | عروة علي عيسى 83 | - www.orwah.net 84 | - www.sy-it.com 85 | -------------------------------------------------------------------------------- /Demos/Unit1.pas: -------------------------------------------------------------------------------- 1 | unit Unit1; 2 | 3 | interface 4 | 5 | uses 6 | Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, 7 | Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ComCtrls, Vcl.StdCtrls, Vcl.ToolWin, 8 | Vcl.Menus, System.ImageList, Vcl.ImgList, Vcl.ActnPopup, AdvMemo, 9 | System.Actions, Vcl.ActnList, Vcl.PlatformDefaultStyleActnCtrls, Vcl.ActnMan, 10 | Vcl.BandActn, Vcl.ActnCtrls, Vcl.ActnMenus, Vcl.ExtActns, Vcl.StdActns; 11 | 12 | type 13 | TForm1 = class(TForm) 14 | TreeView1: TTreeView; 15 | PageControl1: TPageControl; 16 | TabSheet1: TTabSheet; 17 | StatusBar1: TStatusBar; 18 | ToolBar1: TToolBar; 19 | ToolButton1: TToolButton; 20 | ToolButton2: TToolButton; 21 | ToolButton3: TToolButton; 22 | ToolButton4: TToolButton; 23 | ToolButton6: TToolButton; 24 | Button2: TButton; 25 | ImageList1: TImageList; 26 | ToolButton8: TToolButton; 27 | PopupMenu1: TPopupMenu; 28 | N11: TMenuItem; 29 | N21: TMenuItem; 30 | N31: TMenuItem; 31 | DateTimePicker1: TDateTimePicker; 32 | TabSheet3: TTabSheet; 33 | Button1: TButton; 34 | Button3: TButton; 35 | Button4: TButton; 36 | ListView1: TListView; 37 | TrackBar1: TTrackBar; 38 | ProgressBar1: TProgressBar; 39 | TabSheet2: TTabSheet; 40 | ActionMainMenuBar1: TActionMainMenuBar; 41 | ActionToolBar1: TActionToolBar; 42 | ActionManager1: TActionManager; 43 | PopupActionBar1: TPopupActionBar; 44 | MenuItem1: TMenuItem; 45 | N1: TMenuItem; 46 | N2: TMenuItem; 47 | N3: TMenuItem; 48 | N4: TMenuItem; 49 | N5: TMenuItem; 50 | N12: TMenuItem; 51 | CustomizeActionBars1: TCustomizeActionBars; 52 | TabControl1: TTabControl; 53 | MonthCalendar1: TMonthCalendar; 54 | HeaderControl1: THeaderControl; 55 | N6: TMenuItem; 56 | N41: TMenuItem; 57 | ComboBox1: TComboBox; 58 | Button6: TButton; 59 | Button5: TButton; 60 | FormatRichEditBold1: TRichEditBold; 61 | FormatRichEditItalic1: TRichEditItalic; 62 | FormatRichEditUnderline1: TRichEditUnderline; 63 | RichEdit1: TRichEdit; 64 | procedure TrackBar1Change(Sender: TObject); 65 | procedure Button2Click(Sender: TObject); 66 | procedure Button1Click(Sender: TObject); 67 | procedure Button3Click(Sender: TObject); 68 | procedure Button4Click(Sender: TObject); 69 | procedure Button5Click(Sender: TObject); 70 | procedure FormCreate(Sender: TObject); 71 | procedure ComboBox1Change(Sender: TObject); 72 | procedure Button6Click(Sender: TObject); 73 | private 74 | { Private declarations } 75 | public 76 | { Public declarations } 77 | end; 78 | 79 | var 80 | Form1: TForm1; 81 | 82 | implementation 83 | 84 | {$R *.dfm} 85 | 86 | uses vcl.themes; 87 | 88 | 89 | procedure TForm1.Button1Click(Sender: TObject); 90 | 91 | begin 92 | ShowMessage('رسالة عربية'); 93 | 94 | end; 95 | 96 | procedure TForm1.Button2Click(Sender: TObject); 97 | var b:tbitmap; 98 | begin 99 | if Form1.BiDiMode=bdLeftToRight then 100 | Form1.BiDiMode:=bdRightToLeft 101 | else 102 | Form1.BiDiMode:=bdLeftToRight; 103 | end; 104 | 105 | procedure TForm1.Button3Click(Sender: TObject); 106 | begin 107 | MessageDlg('صندوق رسالة عربي',mtInformation,mbYesNoCancel,0) 108 | end; 109 | 110 | procedure TForm1.Button4Click(Sender: TObject); 111 | begin 112 | // Div By Zero 113 | Left:= left div (left-left); 114 | end; 115 | 116 | procedure TForm1.Button5Click(Sender: TObject); 117 | begin 118 | PageControl1.Pages[500].SetFocus; 119 | end; 120 | 121 | procedure TForm1.Button6Click(Sender: TObject); 122 | begin 123 | InputBox('العنوان','أدخل القيمة','القيمة'); 124 | end; 125 | 126 | procedure TForm1.ComboBox1Change(Sender: TObject); 127 | begin 128 | TStyleManager.SetStyle(ComboBox1.Text); 129 | end; 130 | 131 | procedure TForm1.FormCreate(Sender: TObject); 132 | var StyleName:string; 133 | begin 134 | for StyleName in TStyleManager.StyleNames do 135 | ComboBox1.Items.Add(StyleName); 136 | 137 | ComboBox1.ItemIndex := ComboBox1.Items.IndexOf(TStyleManager.ActiveStyle.Name); 138 | 139 | end; 140 | 141 | procedure TForm1.TrackBar1Change(Sender: TObject); 142 | begin 143 | ProgressBar1.Position:=TrackBar1.Position; 144 | 145 | end; 146 | 147 | end. 148 | -------------------------------------------------------------------------------- /Delphi10.3_Rio/FireDAC.VCLUI.OptsBase.pas: -------------------------------------------------------------------------------- 1 | {*******************************************************} 2 | { } 3 | { Delphi FireDAC Framework } 4 | { FireDAC Base dialog form } 5 | { } 6 | { Copyright(c) 2004-2017 Embarcadero Technologies, Inc. } 7 | { All rights reserved } 8 | { } 9 | {*******************************************************} 10 | {$I FireDAC.inc} 11 | 12 | unit FireDAC.VCLUI.OptsBase; 13 | 14 | interface 15 | 16 | uses 17 | Winapi.Messages, 18 | System.SysUtils, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.StdCtrls, Vcl.ExtCtrls, System.IniFiles; 19 | 20 | type 21 | TfrmFDGUIxFormsOptsBase = class(TForm) 22 | pnlTop: TPanel; 23 | Image2: TImage; 24 | lblPrompt: TLabel; 25 | pnlButtons: TPanel; 26 | btnOk: TButton; 27 | btnCancel: TButton; 28 | Bevel2: TBevel; 29 | Bevel3: TBevel; 30 | protected 31 | procedure LoadFormState(AIni: TCustomIniFile); virtual; 32 | procedure SaveFormState(AIni: TCustomIniFile); virtual; 33 | public 34 | procedure LoadState; 35 | procedure SaveState; 36 | constructor Create(AOwner: TComponent); override; 37 | end; 38 | 39 | var 40 | frmFDGUIxFormsOptsBase: TfrmFDGUIxFormsOptsBase; 41 | 42 | implementation 43 | 44 | {$R *.dfm} 45 | 46 | uses 47 | Winapi.Windows, Vcl.Consts, System.Math, 48 | {$IFDEF MSWINDOWS} 49 | System.Win.Registry, 50 | {$ENDIF} 51 | FireDAC.Stan.Consts, FireDAC.Stan.Util; 52 | 53 | {------------------------------------------------------------------------------} 54 | { TfrmFDGUIxFormsOptsBase } 55 | {------------------------------------------------------------------------------} 56 | constructor TfrmFDGUIxFormsOptsBase.Create(AOwner: TComponent); 57 | begin 58 | inherited Create(AOwner); 59 | btnOk.Caption := '&' + SOKButton; 60 | if btnCancel.Caption = '&Cancel' then 61 | btnCancel.Caption := '&' + SCancelButton; 62 | end; 63 | 64 | {------------------------------------------------------------------------------} 65 | procedure TfrmFDGUIxFormsOptsBase.LoadFormState(AIni: TCustomIniFile); 66 | var 67 | eWinState: TWindowState; 68 | rArea: TRect; 69 | iTop: Integer; 70 | iLeft: Integer; 71 | begin 72 | eWinState := TWindowState(AIni.ReadInteger(Name, 'State', Integer(WindowState))); 73 | if eWinState = wsNormal then begin 74 | Position := poDesigned; 75 | Width := AIni.ReadInteger(Name, 'Width', Width); 76 | Height := AIni.ReadInteger(Name, 'Height', Height); 77 | iTop := AIni.ReadInteger(Name, 'Top', Top); 78 | iLeft := AIni.ReadInteger(Name, 'Left', Left); 79 | rArea := Monitor.WorkareaRect; 80 | if iTop > rArea.Bottom then 81 | iTop := Max(rArea.Bottom - Height, rArea.Top); 82 | if iLeft > rArea.Right then 83 | iLeft := Max(rArea.Right - Width, rArea.Left); 84 | Top := iTop; 85 | Left := iLeft; 86 | end 87 | else if eWinState = wsMaximized then 88 | WindowState := wsMaximized; 89 | end; 90 | 91 | {------------------------------------------------------------------------------} 92 | procedure TfrmFDGUIxFormsOptsBase.SaveFormState(AIni: TCustomIniFile); 93 | begin 94 | AIni.WriteInteger(Name, 'State', Integer(WindowState)); 95 | if WindowState = wsNormal then begin 96 | AIni.WriteInteger(Name, 'Width', Width); 97 | AIni.WriteInteger(Name, 'Height', Height); 98 | AIni.WriteInteger(Name, 'Top', Top); 99 | AIni.WriteInteger(Name, 'Left', Left); 100 | end; 101 | end; 102 | 103 | {------------------------------------------------------------------------------} 104 | procedure TfrmFDGUIxFormsOptsBase.LoadState; 105 | var 106 | oIni: TCustomIniFile; 107 | begin 108 | oIni := TFDConfigFile.Create(True); 109 | try 110 | Position := poMainFormCenter; 111 | if oIni.SectionExists(Name) then 112 | LoadFormState(oIni); 113 | except 114 | end; 115 | FDFree(oIni); 116 | end; 117 | 118 | {------------------------------------------------------------------------------} 119 | procedure TfrmFDGUIxFormsOptsBase.SaveState; 120 | var 121 | oIni: TCustomIniFile; 122 | begin 123 | oIni := TFDConfigFile.Create(False); 124 | try 125 | SaveFormState(oIni); 126 | except 127 | end; 128 | FDFree(oIni); 129 | end; 130 | 131 | end. 132 | -------------------------------------------------------------------------------- /Delphi10.2_Tokyo/FireDAC.VCLUI.OptsBase.pas: -------------------------------------------------------------------------------- 1 | {*******************************************************} 2 | { } 3 | { Delphi FireDAC Framework } 4 | { FireDAC Base dialog form } 5 | { } 6 | { Copyright(c) 2004-2017 Embarcadero Technologies, Inc. } 7 | { All rights reserved } 8 | { } 9 | {*******************************************************} 10 | {$I FireDAC.inc} 11 | 12 | unit FireDAC.VCLUI.OptsBase; 13 | 14 | interface 15 | 16 | uses 17 | Winapi.Messages, 18 | System.SysUtils, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.StdCtrls, Vcl.ExtCtrls, System.IniFiles; 19 | 20 | type 21 | TfrmFDGUIxFormsOptsBase = class(TForm) 22 | pnlTop: TPanel; 23 | Image2: TImage; 24 | lblPrompt: TLabel; 25 | pnlButtons: TPanel; 26 | btnOk: TButton; 27 | btnCancel: TButton; 28 | Bevel2: TBevel; 29 | Bevel3: TBevel; 30 | protected 31 | procedure LoadFormState(AIni: TCustomIniFile); virtual; 32 | procedure SaveFormState(AIni: TCustomIniFile); virtual; 33 | public 34 | procedure LoadState; 35 | procedure SaveState; 36 | constructor Create(AOwner: TComponent); override; 37 | end; 38 | 39 | var 40 | frmFDGUIxFormsOptsBase: TfrmFDGUIxFormsOptsBase; 41 | 42 | implementation 43 | 44 | {$R *.dfm} 45 | 46 | uses 47 | Winapi.Windows, Vcl.Consts, System.Math, 48 | {$IFDEF MSWINDOWS} 49 | System.Win.Registry, 50 | {$ENDIF} 51 | FireDAC.Stan.Consts, FireDAC.Stan.Util; 52 | 53 | {------------------------------------------------------------------------------} 54 | { TfrmFDGUIxFormsOptsBase } 55 | {------------------------------------------------------------------------------} 56 | constructor TfrmFDGUIxFormsOptsBase.Create(AOwner: TComponent); 57 | begin 58 | inherited Create(AOwner); 59 | btnOk.Caption := '&' + SOKButton; 60 | if btnCancel.Caption = '&Cancel' then 61 | btnCancel.Caption := '&' + SCancelButton; 62 | end; 63 | 64 | {------------------------------------------------------------------------------} 65 | procedure TfrmFDGUIxFormsOptsBase.LoadFormState(AIni: TCustomIniFile); 66 | var 67 | eWinState: TWindowState; 68 | rArea: TRect; 69 | iTop: Integer; 70 | iLeft: Integer; 71 | begin 72 | eWinState := TWindowState(AIni.ReadInteger(Name, 'State', Integer(WindowState))); 73 | if eWinState = wsNormal then begin 74 | Position := poDesigned; 75 | Width := AIni.ReadInteger(Name, 'Width', Width); 76 | Height := AIni.ReadInteger(Name, 'Height', Height); 77 | iTop := AIni.ReadInteger(Name, 'Top', Top); 78 | iLeft := AIni.ReadInteger(Name, 'Left', Left); 79 | rArea := Monitor.WorkareaRect; 80 | if iTop > rArea.Bottom then 81 | iTop := Max(rArea.Bottom - Height, rArea.Top); 82 | if iLeft > rArea.Right then 83 | iLeft := Max(rArea.Right - Width, rArea.Left); 84 | Top := iTop; 85 | Left := iLeft; 86 | end 87 | else if eWinState = wsMaximized then 88 | WindowState := wsMaximized; 89 | end; 90 | 91 | {------------------------------------------------------------------------------} 92 | procedure TfrmFDGUIxFormsOptsBase.SaveFormState(AIni: TCustomIniFile); 93 | begin 94 | AIni.WriteInteger(Name, 'State', Integer(WindowState)); 95 | if WindowState = wsNormal then begin 96 | AIni.WriteInteger(Name, 'Width', Width); 97 | AIni.WriteInteger(Name, 'Height', Height); 98 | AIni.WriteInteger(Name, 'Top', Top); 99 | AIni.WriteInteger(Name, 'Left', Left); 100 | end; 101 | end; 102 | 103 | {------------------------------------------------------------------------------} 104 | procedure TfrmFDGUIxFormsOptsBase.LoadState; 105 | var 106 | oIni: TCustomIniFile; 107 | begin 108 | oIni := TFDConfigFile.Create(True); 109 | try 110 | Position := poMainFormCenter; 111 | if oIni.SectionExists(Name) then 112 | LoadFormState(oIni); 113 | except 114 | end; 115 | FDFree(oIni); 116 | end; 117 | 118 | {------------------------------------------------------------------------------} 119 | procedure TfrmFDGUIxFormsOptsBase.SaveState; 120 | var 121 | oIni: TCustomIniFile; 122 | begin 123 | oIni := TFDConfigFile.Create(False); 124 | try 125 | SaveFormState(oIni); 126 | except 127 | end; 128 | FDFree(oIni); 129 | end; 130 | 131 | end. 132 | -------------------------------------------------------------------------------- /Delphi10.2_Tokyo/FireDAC.inc: -------------------------------------------------------------------------------- 1 | {*******************************************************} 2 | { } 3 | { Delphi FireDAC Framework } 4 | { FireDAC sources configuration file } 5 | { } 6 | { Copyright(c) 2004-2017 Embarcadero Technologies, Inc. } 7 | { All rights reserved } 8 | { } 9 | {*******************************************************} 10 | 11 | {$BOOLEVAL OFF} 12 | {$LONGSTRINGS ON} 13 | {$TYPEDADDRESS OFF} 14 | {$EXTENDEDSYNTAX ON} 15 | {$ALIGN 8} 16 | {$MINENUMSIZE 4} 17 | {$ZEROBASEDSTRINGS OFF} 18 | 19 | {$WARNINGS ON} 20 | {$HINTS ON} 21 | {$WARN UNSAFE_TYPE OFF} 22 | {$WARN UNSAFE_CODE OFF} 23 | {$WARN UNSAFE_CAST OFF} 24 | {$WARN EXPLICIT_STRING_CAST OFF} 25 | {$WARN EXPLICIT_STRING_CAST_LOSS OFF} 26 | 27 | {$IFDEF BCB} 28 | {$DEFINE FireDAC_SkipIUnk} 29 | {$OBJEXPORTALL ON} 30 | {$ENDIF} 31 | 32 | {$IF DEFINED(CPUX64) or DEFINED(CPUARM64)} 33 | {$DEFINE FireDAC_64} 34 | {$UNDEF FireDAC_32} 35 | {$ELSE} 36 | {$UNDEF FireDAC_64} 37 | {$DEFINE FireDAC_32} 38 | {$ENDIF} 39 | 40 | {$IF DEFINED(IOS) or DEFINED(ANDROID)} 41 | {$DEFINE FireDAC_Mobile} 42 | {$ENDIF} 43 | 44 | {------------------------------------------------------------------------------} 45 | { Common } 46 | {------------------------------------------------------------------------------} 47 | {.$DEFINE FireDAC_NOLOCALE_DATA} // define, to use binary data comparision 48 | {$DEFINE FireDAC_NOLOCALE_META} // define, to use binary metadata comparision 49 | {.$DEFINE FireDAC_DEBUG} // define, to enable profiling 50 | {$DEFINE FireDAC_MONITOR} // define, to enable FireDAC tracing 51 | {$IFDEF FireDAC_MONITOR} 52 | {$DEFINE FireDAC_MONITOR_Comp} // define, to enable FireDAC components tracing 53 | {$ENDIF} 54 | {.$DEFINE FireDAC_DesignTimeMenu} // define, to enable FireDAC IDE menu 55 | 56 | {------------------------------------------------------------------------------} 57 | { SynEdit } 58 | {------------------------------------------------------------------------------} 59 | {$IFDEF WIN32} // SynEdit is supported only for Win32 60 | {$DEFINE FireDAC_SynEdit} 61 | {$ENDIF} 62 | {$UNDEF FireDAC_SynEdit} // undefine, to disable SynEdit usage 63 | 64 | {------------------------------------------------------------------------------} 65 | { Oracle driver } 66 | {------------------------------------------------------------------------------} 67 | {.$DEFINE FireDAC_OCI_NLSParams} // define to output V$NLS_PARAMETERS to trace 68 | {.$DEFINE FireDAC_OCI_Versions} // define to output V$VERSION to trace 69 | 70 | {------------------------------------------------------------------------------} 71 | { SQLite driver } 72 | {------------------------------------------------------------------------------} 73 | {$IF DEFINED(MSWINDOWS) or DEFINED(MACOS) and not DEFINED(IOS) or DEFINED(IOS) and (DEFINED(CPUARM) or DEFINED(CPUARM64)) or DEFINED(ANDROID)} 74 | {$DEFINE FireDAC_SQLITE_STATIC} // Use SQLite3 static linking library 75 | {$IF DEFINED(MACOS) and not DEFINED(IOS) or DEFINED(IOS) and (DEFINED(CPUARM) or DEFINED(CPUARM64)) or DEFINED(ANDROID)} 76 | {$DEFINE FireDAC_SQLITE_EXTERNAL} // Link SQLite3 library using "external" keyword 77 | {$ENDIF} 78 | {$ENDIF} 79 | {.$UNDEF FireDAC_SQLITE_STATIC} // remove '.' to enable dynamic linking 80 | 81 | {------------------------------------------------------------------------------} 82 | { PostgreSQL driver } 83 | {------------------------------------------------------------------------------} 84 | {$UNDEF FireDAC_PGSQL_STATIC} // is not yet implemented 85 | 86 | {------------------------------------------------------------------------------} 87 | { ODBC driver } 88 | {------------------------------------------------------------------------------} 89 | {$DEFINE FireDAC_ODBC_ALLMETA} // define to link known DBMS metainfo's 90 | 91 | {------------------------------------------------------------------------------} 92 | { IB and FB drivers } 93 | {------------------------------------------------------------------------------} 94 | {$IF DEFINED(IOS) and (DEFINED(CPUARM) or DEFINED(CPUARM64)) or DEFINED(ANDROID)} 95 | {$DEFINE FireDAC_IB_STATIC} // Use IB driver static linking 96 | {$DEFINE FireDAC_IB_STATIC_IBBRAND} // Use IbTogo static linking library 97 | {$ENDIF} 98 | -------------------------------------------------------------------------------- /Delphi10.3_Rio/FireDAC.inc: -------------------------------------------------------------------------------- 1 | {*******************************************************} 2 | { } 3 | { Delphi FireDAC Framework } 4 | { FireDAC sources configuration file } 5 | { } 6 | { Copyright(c) 2004-2018 Embarcadero Technologies, Inc. } 7 | { All rights reserved } 8 | { } 9 | {*******************************************************} 10 | 11 | {$BOOLEVAL OFF} 12 | {$LONGSTRINGS ON} 13 | {$TYPEDADDRESS OFF} 14 | {$EXTENDEDSYNTAX ON} 15 | {$ALIGN 8} 16 | {$MINENUMSIZE 4} 17 | {$ZEROBASEDSTRINGS OFF} 18 | 19 | {$WARNINGS ON} 20 | {$HINTS ON} 21 | {$WARN UNSAFE_TYPE OFF} 22 | {$WARN UNSAFE_CODE OFF} 23 | {$WARN UNSAFE_CAST OFF} 24 | {$WARN EXPLICIT_STRING_CAST OFF} 25 | {$WARN EXPLICIT_STRING_CAST_LOSS OFF} 26 | 27 | {$IFDEF BCB} 28 | {$DEFINE FireDAC_SkipIUnk} 29 | {$OBJEXPORTALL ON} 30 | {$ENDIF} 31 | 32 | {$IF DEFINED(CPUX64) or DEFINED(CPUARM64)} 33 | {$DEFINE FireDAC_64} 34 | {$UNDEF FireDAC_32} 35 | {$ELSE} 36 | {$UNDEF FireDAC_64} 37 | {$DEFINE FireDAC_32} 38 | {$ENDIF} 39 | 40 | {$IF DEFINED(IOS) or DEFINED(ANDROID)} 41 | {$DEFINE FireDAC_Mobile} 42 | {$ENDIF} 43 | 44 | {------------------------------------------------------------------------------} 45 | { Common } 46 | {------------------------------------------------------------------------------} 47 | {.$DEFINE FireDAC_NOLOCALE_DATA} // define, to use binary data comparision 48 | {$DEFINE FireDAC_NOLOCALE_META} // define, to use binary metadata comparision 49 | {.$DEFINE FireDAC_DEBUG} // define, to enable profiling 50 | {$DEFINE FireDAC_MONITOR} // define, to enable FireDAC tracing 51 | {$IFDEF FireDAC_MONITOR} 52 | {$DEFINE FireDAC_MONITOR_Comp} // define, to enable FireDAC components tracing 53 | {$ENDIF} 54 | {.$DEFINE FireDAC_DesignTimeMenu} // define, to enable FireDAC IDE menu 55 | 56 | {------------------------------------------------------------------------------} 57 | { SynEdit } 58 | {------------------------------------------------------------------------------} 59 | {$IFDEF WIN32} // SynEdit is supported only for Win32 60 | {$DEFINE FireDAC_SynEdit} 61 | {$ENDIF} 62 | {$UNDEF FireDAC_SynEdit} // undefine, to disable SynEdit usage 63 | 64 | {------------------------------------------------------------------------------} 65 | { Oracle driver } 66 | {------------------------------------------------------------------------------} 67 | {.$DEFINE FireDAC_OCI_NLSParams} // define to output V$NLS_PARAMETERS to trace 68 | {.$DEFINE FireDAC_OCI_Versions} // define to output V$VERSION to trace 69 | 70 | {------------------------------------------------------------------------------} 71 | { SQLite driver } 72 | {------------------------------------------------------------------------------} 73 | {$IF DEFINED(MSWINDOWS) or DEFINED(MACOS) and not DEFINED(IOS) or DEFINED(IOS) and (DEFINED(CPUARM) or DEFINED(CPUARM64)) or DEFINED(ANDROID) or DEFINED(LINUX64)} 74 | {$DEFINE FireDAC_SQLITE_STATIC} // Use SQLite3 static linking library 75 | {$IF DEFINED(MACOS) and not DEFINED(IOS) or DEFINED(IOS) and (DEFINED(CPUARM) or DEFINED(CPUARM64)) or DEFINED(ANDROID) or DEFINED(LINUX64)} 76 | {$DEFINE FireDAC_SQLITE_EXTERNAL} // Link SQLite3 library using "external" keyword 77 | {$ENDIF} 78 | {$ENDIF} 79 | {.$UNDEF FireDAC_SQLITE_STATIC} // remove '.' to enable dynamic linking 80 | 81 | {------------------------------------------------------------------------------} 82 | { PostgreSQL driver } 83 | {------------------------------------------------------------------------------} 84 | {$UNDEF FireDAC_PGSQL_STATIC} // is not yet implemented 85 | 86 | {------------------------------------------------------------------------------} 87 | { ODBC driver } 88 | {------------------------------------------------------------------------------} 89 | {$DEFINE FireDAC_ODBC_ALLMETA} // define to link known DBMS metainfo's 90 | 91 | {------------------------------------------------------------------------------} 92 | { IB and FB drivers } 93 | {------------------------------------------------------------------------------} 94 | {$IF DEFINED(IOS) and (DEFINED(CPUARM) or DEFINED(CPUARM64)) or DEFINED(ANDROID)} 95 | {$DEFINE FireDAC_IB_STATIC} // Use IB driver static linking 96 | {$DEFINE FireDAC_IB_STATIC_IBBRAND} // Use IbTogo static linking library 97 | {$ENDIF} 98 | -------------------------------------------------------------------------------- /Delphi10.1_Berline/Data.DBConsts.pas: -------------------------------------------------------------------------------- 1 | {*******************************************************} 2 | { } 3 | { Arabic Delphi VCL Units } 4 | { } 5 | { Modified by : Orwah Ali Issa (www.orwah.net) } 6 | { } 7 | { Delphi 10.1 Berline .. File Version 0.1 1/10/2016 } 8 | { } 9 | { Get Last Version From Here : } 10 | { https://github.com/orwah/Arabic-Delphi-VCL-Units } 11 | { } 12 | {*******************************************************} 13 | 14 | 15 | {*******************************************************} 16 | { } 17 | { Delphi Runtime Library } 18 | { } 19 | { Copyright(c) 1995-2015 Embarcadero Technologies, Inc. } 20 | { } 21 | {*******************************************************} 22 | 23 | unit Data.DBConsts; 24 | 25 | interface 26 | 27 | resourcestring 28 | SInvalidFieldSize = 'حجم الحقل غير صحيح'; 29 | SInvalidFieldKind = 'نمط الحقل غير صحيح'; 30 | SInvalidFieldRegistration = 'تسجيل الحقل غير صحيح'; 31 | SUnknownFieldType = 'حقل ''%s'' من نمط غير معروف'; 32 | SFieldNameMissing = 'اسم الحقل غير مضبوط'; 33 | SDuplicateFieldName = 'اسم الحقل ''%s'' مكرر'; 34 | SFieldNotFound = 'لم يتم العثور على الحقل : ''%s'''; 35 | SFieldAccessError = 'لايمكن الوصول للحقل ''%s'' كنمط %s'; 36 | SFieldValueError = 'قيمة غير صالحة لحقل ''%s'''; 37 | SFieldRangeError = '%g ليست قيمة صالحة لحقل ''%s''. المجال المسموح هو من %g إلى %g'; 38 | SBcdFieldRangeError = '%s ليست قيمة صالحة لحقل ''%s''. المجال المسموح هو من %s إلى %s'; 39 | SInvalidIntegerValue = '''%s'' ليست قيمة عدد صحيح (بلا فاصلة) للحقل ''%s'''; 40 | SInvalidBoolValue = '''%s'' ليست قيمة بوليانية صحيحة للحقل ''%s'''; 41 | SInvalidFloatValue = '''%s'' ليست قيمة عدد حقيقي (فاصلة عائمة) للحقل ''%s'''; 42 | SFieldTypeMismatch = 'النمط غير مطابق للحقل ''%s'', المتوقع: %s المطبق: %s'; 43 | SFieldSizeMismatch = 'السعة أو الحجم غير مطابقة للحقل ''%s'', المتوقع: %d المطبق: %d'; 44 | SInvalidVarByteArray = 'نمط أو حجم غير صالح للحقل ''%s'''; 45 | SFieldOutOfRange = 'قيمة حقل ''%s'' خارج المجال المسموح'; 46 | // SBCDOverflow = '(Overflow)'; 47 | SCantAdjustPrecision = 'خطأ في ضبط دقة الترقيم العشري الثنائي BCD precision'; 48 | SFieldRequired = 'حقل ''%s'' يجب أن يحوي قيمة'; 49 | SDataSetMissing = 'حقل ''%s'' ليس له قاعدة داتاسيت'; 50 | SInvalidCalcType = 'حقل ''%s'' لايمكنه أن يكون من نمط حسابي أو بحث (لوك أب)'; 51 | SFieldReadOnly = 'حقل ''%s'' غير قابل للتعديل'; 52 | SFieldIndexError = 'رقم الحقل خارج المجال المسموح'; 53 | SNoFieldIndexes = 'لايوجد رقم حقل نشط حالياً'; 54 | SNotIndexField = 'حقل ''%s'' ليس مفهرس ولايمكن تعديله'; 55 | SIndexFieldMissing = 'لايمكن الوصول للحقل المفهرس ''%s'''; 56 | SDuplicateIndexName = 'اسم فهرس مكرر : ''%s'''; 57 | SNoIndexForFields = 'لافهرس للحقول : ''%s'''; 58 | SIndexNotFound = 'الفهرس ''%s'' غير موجود'; 59 | SDBDuplicateName = 'اسم ''%s'' مكرر في %s'; 60 | SCircularDataLink = 'وصلات البيانات تستدعي بعضها بشكل دائري (كل منها يستدعي الآخر) وهذا غير مسموح'; 61 | SLookupInfoError = 'معلومات البحث Lookup للحقل ''%s'' غير مكتملة'; 62 | SNewLookupFieldCaption = 'حقل بحث Lookup جديد'; 63 | SDataSourceChange = 'لايمكن تغيير منبع البيانات DataSource'; 64 | SNoNestedMasterSource = 'Nested datasets cannot have a MasterSource'; 65 | SDataSetOpen = 'لايمكن القيام بهذه العملية على داتاسيت مفتوحة'; 66 | SNotEditing = 'البيانات ليست في وضع الإدخال أو التعديل'; 67 | SDataSetClosed = 'لايمكن القيام بهذه العملية على قاعدة بيانات مغلقة'; 68 | SDataSetEmpty = 'لايمكن القيام بهذه العملية على جدول بيانات فارغ'; 69 | SDataSetReadOnly = 'لايمكن تعديل جدول بيانات مخصص للقراءة فقط'; 70 | SNestedDataSetClass = 'Nested dataset must inherit from %s'; 71 | SExprTermination = 'تعبير الفلترة انتهى بشكل غير مناسب'; 72 | SExprNameError = 'اسم الحقل غير منتهي Unterminated'; 73 | SExprStringError = 'ثابت نصي غير منتهي Unterminated'; 74 | SExprInvalidChar = 'تم استخدام محرف غير مناسب في تعبير الفلترة : ''%s'''; 75 | SExprNoLParen = '''('' متوقعه , لكن %s وجدت'; 76 | SExprNoRParen = ''')'' متوقعة , لكن %s وجدت'; 77 | SExprNoRParenOrComma = ''')'' أو '','' كانت متوقعه ولكن %s وجدت'; 78 | SExprExpected = 'تعبير متوقع وبدلا منه وجد %s '; 79 | SExprBadField = 'الحقل ''%s'' لايمكن استخدامه في تعبير الفلترة'; 80 | SExprBadNullTest = 'القيمة الخالية NULL مسموحة فقط مع ''='' و ''<>'''; 81 | SExprRangeError = 'الثابت الممر خارج المجال المسموح'; 82 | SExprNotBoolean = 'حقل ''%s'' ليس من نمط بولياني'; 83 | SExprIncorrect = 'تعبير الفلترة ليس مصاغ بشكل صحيح'; 84 | SExprNothing = 'لا شيء'; 85 | SExprTypeMis = 'النمط غير مطابق في التعبير المستخدم'; 86 | SExprBadScope = 'Operation cannot mix aggregate value with record-varying value'; 87 | SExprNoArith = 'القيام بالحسابات الرياضية في تعبير الفلترة غير مسموحة'; 88 | SExprNotAgg = 'Expression is not an aggregate expression'; 89 | SExprBadConst = 'الثابت ليس من نمط مناسب : %s'; 90 | SExprNoAggFilter = 'عبارات التجميع غير مسموحة بالفلاتر'; 91 | SExprEmptyInList = 'IN predicate list may not be empty'; 92 | SInvalidKeywordUse = 'استخدام خاطئ لكلمة مفتاحية'; 93 | STextFalse = 'لا'; 94 | STextTrue = 'نعم'; 95 | SParameterNotFound = 'البارامتر ''%s'' غير موجود'; 96 | SInvalidVersion = 'غير قادر على تحميل متغير الربط bind parameters'; 97 | SParamTooBig = 'البارامتر ''%s'', لايستطيع حفظ بيانات أكبر من %d بايت'; 98 | SBadFieldType = 'حقل ''%s'' من نمط غير مدعوم'; 99 | SAggActive = 'لايمكن تعديل الخاصية عندما يكون التجميع فعال'; 100 | SProviderSQLNotSupported = 'تعابير إس كيو إل غير مدعومة'; 101 | SProviderExecuteNotSupported = 'التنفيذ غير مدعوم'; 102 | SExprNoAggOnCalcs = 'الحقل ''%s'' ليس النمط الصحيح للحقول الحسابية الذي يستخدم في التجميع aggregate,استخدم internalcalc'; 103 | SRecordChanged = 'لم يتم العثور على السجل , ربما تم تعديله من مستخدم آخر'; 104 | SDataSetUnidirectional = 'العملية غير مسموحة على جدول بيانات من نمط غير اتجاهي'; 105 | SUnassignedVar = 'قيمة غير مهيأة من نوع variant'; 106 | SRecordNotFound = 'لم يتم العثور على السجل'; 107 | SFileNameBlank = 'خاصية اسم الملف لايجب ان تكون فارغة'; 108 | SFieldNameTooLarge = 'الحقل %s تخطى عدد محارف %d '; 109 | 110 | { For FMTBcd } 111 | 112 | SBcdOverflow = 'BCD overflow'; 113 | SInvalidBcdValue = '%s ليست قيمة ترقيم عشري ثنائي صالحة'; 114 | SInvalidFormatType = 'نمط التنسيق غير صالح للترقيم العشري الثنائي BCD'; 115 | 116 | { For SqlTimSt } 117 | 118 | SCouldNotParseTimeStamp = 'لا يمكن التعمل مع التاريخ ضمن الاستعلام'; 119 | SInvalidSqlTimeStamp = 'قيمة التاريخ والوقت المستخدمة في الاستعلام غير صالحة'; 120 | SCalendarTimeCannotBeRepresented = 'لايمكن تمثيل وعرض التوقيت في التقويم (الروزنامه)'; 121 | 122 | SDeleteRecordQuestion = 'هل تريد تأكيد حذف السجل ؟'; 123 | SDeleteMultipleRecordsQuestion = 'هل تريد حذف جميع السجلات المحددة؟'; 124 | STooManyColumns = 'يطلب من الشبكة ان تعرض أكثر من 256 عمود'; 125 | 126 | { For reconcile error } 127 | SSkip = 'تخطي'; 128 | SAbort = 'إحباط'; 129 | SMerge = 'دمج'; 130 | SCorrect = 'تصحيح'; 131 | SCancel = 'إلغاء'; 132 | SRefresh = 'تحديث'; 133 | SModified = 'تم تعديله'; 134 | SInserted = 'تم إضافته'; 135 | SDeleted = 'تم حذفه'; 136 | SCaption = 'خطأ في التحديث - %s'; 137 | SUnchanged = '<لم يعدل>'; 138 | SBinary = '(ثنائي)'; 139 | SAdt = '(مغلف)'; 140 | SArray = '(مصفوفة)'; 141 | SFieldName = 'اسم الحقل'; 142 | SOriginal = 'القيمة الأصلية'; 143 | SConflict = 'القيمة المتضاربة'; 144 | SValue = ' قيمة'; 145 | SNoData = '<لاسجلات>'; 146 | SNew = 'جديد'; 147 | 148 | implementation 149 | 150 | end. 151 | -------------------------------------------------------------------------------- /Delphi10.2_Tokyo/Data.DBConsts.pas: -------------------------------------------------------------------------------- 1 | {*******************************************************} 2 | { } 3 | { Arabic Delphi VCL Units } 4 | { } 5 | { Modified by : Orwah Ali Issa (www.orwah.net) } 6 | { } 7 | { Delphi 10.1 Berline .. File Version 0.1 1/10/2016 } 8 | { } 9 | { Get Last Version From Here : } 10 | { https://github.com/orwah/Arabic-Delphi-VCL-Units } 11 | { } 12 | {*******************************************************} 13 | 14 | 15 | {*******************************************************} 16 | { } 17 | { Delphi Runtime Library } 18 | { } 19 | { Copyright(c) 1995-2017 Embarcadero Technologies, Inc. } 20 | { All rights reserved } 21 | { } 22 | {*******************************************************} 23 | 24 | unit Data.DBConsts; 25 | 26 | interface 27 | 28 | resourcestring 29 | SInvalidFieldSize = 'حجم الحقل غير صحيح'; 30 | SInvalidFieldKind = 'نمط الحقل غير صحيح'; 31 | SInvalidFieldRegistration = 'تسجيل الحقل غير صحيح'; 32 | SUnknownFieldType = 'حقل ''%s'' من نمط غير معروف'; 33 | SFieldNameMissing = 'اسم الحقل غير مضبوط'; 34 | SDuplicateFieldName = 'اسم الحقل ''%s'' مكرر'; 35 | SFieldNotFound = 'لم يتم العثور على الحقل : ''%s'''; 36 | SFieldAccessError = 'لايمكن الوصول للحقل ''%s'' كنمط %s'; 37 | SFieldValueError = 'قيمة غير صالحة لحقل ''%s'''; 38 | SFieldRangeError = '%g ليست قيمة صالحة لحقل ''%s''. المجال المسموح هو من %g إلى %g'; 39 | SBcdFieldRangeError = '%s ليست قيمة صالحة لحقل ''%s''. المجال المسموح هو من %s إلى %s'; 40 | SInvalidIntegerValue = '''%s'' ليست قيمة عدد صحيح (بلا فاصلة) للحقل ''%s'''; 41 | SInvalidBoolValue = '''%s'' ليست قيمة بوليانية صحيحة للحقل ''%s'''; 42 | SInvalidFloatValue = '''%s'' ليست قيمة عدد حقيقي (فاصلة عائمة) للحقل ''%s'''; 43 | SFieldTypeMismatch = 'النمط غير مطابق للحقل ''%s'', المتوقع: %s المطبق: %s'; 44 | SFieldSizeMismatch = 'السعة أو الحجم غير مطابقة للحقل ''%s'', المتوقع: %d المطبق: %d'; 45 | SInvalidVarByteArray = 'نمط أو حجم غير صالح للحقل ''%s'''; 46 | SFieldOutOfRange = 'قيمة حقل ''%s'' خارج المجال المسموح'; 47 | // SBCDOverflow = '(Overflow)'; 48 | SCantAdjustPrecision = 'خطأ في ضبط دقة الترقيم العشري الثنائي BCD precision'; 49 | SFieldRequired = 'حقل ''%s'' يجب أن يحوي قيمة'; 50 | SDataSetMissing = 'حقل ''%s'' ليس له قاعدة داتاسيت'; 51 | SInvalidCalcType = 'حقل ''%s'' لايمكنه أن يكون من نمط حسابي أو بحث (لوك أب)'; 52 | SFieldReadOnly = 'حقل ''%s'' غير قابل للتعديل'; 53 | SFieldIndexError = 'رقم الحقل خارج المجال المسموح'; 54 | SNoFieldIndexes = 'لايوجد رقم حقل نشط حالياً'; 55 | SNotIndexField = 'حقل ''%s'' ليس مفهرس ولايمكن تعديله'; 56 | SIndexFieldMissing = 'لايمكن الوصول للحقل المفهرس ''%s'''; 57 | SDuplicateIndexName = 'اسم فهرس مكرر : ''%s'''; 58 | SNoIndexForFields = 'لافهرس للحقول : ''%s'''; 59 | SIndexNotFound = 'الفهرس ''%s'' غير موجود'; 60 | SDBDuplicateName = 'اسم ''%s'' مكرر في %s'; 61 | SCircularDataLink = 'وصلات البيانات تستدعي بعضها بشكل دائري (كل منها يستدعي الآخر) وهذا غير مسموح'; 62 | SLookupInfoError = 'معلومات البحث Lookup للحقل ''%s'' غير مكتملة'; 63 | SNewLookupFieldCaption = 'حقل بحث Lookup جديد'; 64 | SDataSourceChange = 'لايمكن تغيير منبع البيانات DataSource'; 65 | SNoNestedMasterSource = 'Nested datasets cannot have a MasterSource'; 66 | SDataSetOpen = 'لايمكن القيام بهذه العملية على داتاسيت مفتوحة'; 67 | SNotEditing = 'البيانات ليست في وضع الإدخال أو التعديل'; 68 | SDataSetClosed = 'لايمكن القيام بهذه العملية على قاعدة بيانات مغلقة'; 69 | SDataSetEmpty = 'لايمكن القيام بهذه العملية على جدول بيانات فارغ'; 70 | SDataSetReadOnly = 'لايمكن تعديل جدول بيانات مخصص للقراءة فقط'; 71 | SNestedDataSetClass = 'Nested dataset must inherit from %s'; 72 | SExprTermination = 'تعبير الفلترة انتهى بشكل غير مناسب'; 73 | SExprNameError = 'اسم الحقل غير منتهي Unterminated'; 74 | SExprStringError = 'ثابت نصي غير منتهي Unterminated'; 75 | SExprInvalidChar = 'تم استخدام محرف غير مناسب في تعبير الفلترة : ''%s'''; 76 | SExprNoLParen = '''('' متوقعه , لكن %s وجدت'; 77 | SExprNoRParen = ''')'' متوقعة , لكن %s وجدت'; 78 | SExprNoRParenOrComma = ''')'' أو '','' كانت متوقعه ولكن %s وجدت'; 79 | SExprExpected = 'تعبير متوقع وبدلا منه وجد %s '; 80 | SExprBadField = 'الحقل ''%s'' لايمكن استخدامه في تعبير الفلترة'; 81 | SExprBadNullTest = 'القيمة الخالية NULL مسموحة فقط مع ''='' و ''<>'''; 82 | SExprRangeError = 'الثابت الممر خارج المجال المسموح'; 83 | SExprNotBoolean = 'حقل ''%s'' ليس من نمط بولياني'; 84 | SExprIncorrect = 'تعبير الفلترة ليس مصاغ بشكل صحيح'; 85 | SExprNothing = 'لا شيء'; 86 | SExprTypeMis = 'النمط غير مطابق في التعبير المستخدم'; 87 | SExprBadScope = 'Operation cannot mix aggregate value with record-varying value'; 88 | SExprNoArith = 'القيام بالحسابات الرياضية في تعبير الفلترة غير مسموحة'; 89 | SExprNotAgg = 'Expression is not an aggregate expression'; 90 | SExprBadConst = 'الثابت ليس من نمط مناسب : %s'; 91 | SExprNoAggFilter = 'عبارات التجميع غير مسموحة بالفلاتر'; 92 | SExprEmptyInList = 'IN predicate list may not be empty'; 93 | SInvalidKeywordUse = 'استخدام خاطئ لكلمة مفتاحية'; 94 | STextFalse = 'لا'; 95 | STextTrue = 'نعم'; 96 | SParameterNotFound = 'البارامتر ''%s'' غير موجود'; 97 | SInvalidVersion = 'غير قادر على تحميل متغير الربط bind parameters'; 98 | SParamTooBig = 'البارامتر ''%s'', لايستطيع حفظ بيانات أكبر من %d بايت'; 99 | SBadFieldType = 'حقل ''%s'' من نمط غير مدعوم'; 100 | SAggActive = 'لايمكن تعديل الخاصية عندما يكون التجميع فعال'; 101 | SProviderSQLNotSupported = 'تعابير إس كيو إل غير مدعومة'; 102 | SProviderExecuteNotSupported = 'التنفيذ غير مدعوم'; 103 | SExprNoAggOnCalcs = 'الحقل ''%s'' ليس النمط الصحيح للحقول الحسابية الذي يستخدم في التجميع aggregate,استخدم internalcalc'; 104 | SRecordChanged = 'لم يتم العثور على السجل , ربما تم تعديله من مستخدم آخر'; 105 | SDataSetUnidirectional = 'العملية غير مسموحة على جدول بيانات من نمط غير اتجاهي'; 106 | SUnassignedVar = 'قيمة غير مهيأة من نوع variant'; 107 | SRecordNotFound = 'لم يتم العثور على السجل'; 108 | SFileNameBlank = 'خاصية اسم الملف لايجب ان تكون فارغة'; 109 | SFieldNameTooLarge = 'الحقل %s تخطى عدد محارف %d '; 110 | 111 | { For FMTBcd } 112 | 113 | SBcdOverflow = 'BCD overflow'; 114 | SInvalidBcdValue = '%s ليست قيمة ترقيم عشري ثنائي صالحة'; 115 | SInvalidFormatType = 'نمط التنسيق غير صالح للترقيم العشري الثنائي BCD'; 116 | 117 | { For SqlTimSt } 118 | 119 | SCouldNotParseTimeStamp = 'لا يمكن التعمل مع التاريخ ضمن الاستعلام'; 120 | SInvalidSqlTimeStamp = 'قيمة التاريخ والوقت المستخدمة في الاستعلام غير صالحة'; 121 | SCalendarTimeCannotBeRepresented = 'لايمكن تمثيل وعرض التوقيت في التقويم (الروزنامه)'; 122 | 123 | SDeleteRecordQuestion = 'هل تريد تأكيد حذف السجل ؟'; 124 | SDeleteMultipleRecordsQuestion = 'هل تريد حذف جميع السجلات المحددة؟'; 125 | STooManyColumns = 'يطلب من الشبكة ان تعرض أكثر من 256 عمود'; 126 | 127 | { For reconcile error } 128 | SSkip = 'تخطي'; 129 | SAbort = 'إحباط'; 130 | SMerge = 'دمج'; 131 | SCorrect = 'تصحيح'; 132 | SCancel = 'إلغاء'; 133 | SRefresh = 'تحديث'; 134 | SModified = 'تم تعديله'; 135 | SInserted = 'تم إضافته'; 136 | SDeleted = 'تم حذفه'; 137 | SCaption = 'خطأ في التحديث - %s'; 138 | SUnchanged = '<لم يعدل>'; 139 | SBinary = '(ثنائي)'; 140 | SAdt = '(مغلف)'; 141 | SArray = '(مصفوفة)'; 142 | SFieldName = 'اسم الحقل'; 143 | SOriginal = 'القيمة الأصلية'; 144 | SConflict = 'القيمة المتضاربة'; 145 | SValue = ' قيمة'; 146 | SNoData = '<لاسجلات>'; 147 | SNew = 'جديد'; 148 | 149 | implementation 150 | 151 | end. 152 | -------------------------------------------------------------------------------- /Delphi10.3_Rio/Data.DBConsts.pas: -------------------------------------------------------------------------------- 1 | {*******************************************************} 2 | { } 3 | { Arabic Delphi VCL Units } 4 | { } 5 | { Modified by : Orwah Ali Issa (www.orwah.net) } 6 | { } 7 | { Delphi 10.3 Rio .. File Version 0.1 14/9/2019 } 8 | { } 9 | { Get Last Version From Here : } 10 | { https://github.com/orwah/Arabic-Delphi-VCL-Units } 11 | { } 12 | {*******************************************************} 13 | 14 | 15 | {*******************************************************} 16 | { } 17 | { Delphi Runtime Library } 18 | { } 19 | { Copyright(c) 1995-2018 Embarcadero Technologies, Inc. } 20 | { All rights reserved } 21 | { } 22 | {*******************************************************} 23 | 24 | unit Data.DBConsts; 25 | 26 | interface 27 | 28 | resourcestring 29 | SInvalidFieldSize = 'حجم الحقل غير صحيح'; 30 | SInvalidFieldKind = 'نمط الحقل غير صحيح'; 31 | SInvalidFieldRegistration = 'تسجيل الحقل غير صحيح'; 32 | SUnknownFieldType = 'حقل ''%s'' من نمط غير معروف'; 33 | SFieldNameMissing = 'اسم الحقل غير مضبوط'; 34 | SDuplicateFieldName = 'اسم الحقل ''%s'' مكرر'; 35 | SFieldNotFound = 'لم يتم العثور على الحقل : ''%s'''; 36 | SFieldAccessError = 'لايمكن الوصول للحقل ''%s'' كنمط %s'; 37 | SFieldValueError = 'قيمة غير صالحة لحقل ''%s'''; 38 | SFieldRangeError = '%g ليست قيمة صالحة لحقل ''%s''. المجال المسموح هو من %g إلى %g'; 39 | SBcdFieldRangeError = '%s ليست قيمة صالحة لحقل ''%s''. المجال المسموح هو من %s إلى %s'; 40 | SInvalidIntegerValue = '''%s'' ليست قيمة عدد صحيح (بلا فاصلة) للحقل ''%s'''; 41 | SInvalidBoolValue = '''%s'' ليست قيمة بوليانية صحيحة للحقل ''%s'''; 42 | SInvalidFloatValue = '''%s'' ليست قيمة عدد حقيقي (فاصلة عائمة) للحقل ''%s'''; 43 | SFieldTypeMismatch = 'النمط غير مطابق للحقل ''%s'', المتوقع: %s المطبق: %s'; 44 | SFieldSizeMismatch = 'السعة أو الحجم غير مطابقة للحقل ''%s'', المتوقع: %d المطبق: %d'; 45 | SInvalidVarByteArray = 'نمط أو حجم غير صالح للحقل ''%s'''; 46 | SFieldOutOfRange = 'قيمة حقل ''%s'' خارج المجال المسموح'; 47 | // SBCDOverflow = '(Overflow)'; 48 | SCantAdjustPrecision = 'خطأ في ضبط دقة الترقيم العشري الثنائي BCD precision'; 49 | SFieldRequired = 'حقل ''%s'' يجب أن يحوي قيمة'; 50 | SDataSetMissing = 'حقل ''%s'' ليس له قاعدة داتاسيت'; 51 | SInvalidCalcType = 'حقل ''%s'' لايمكنه أن يكون من نمط حسابي أو بحث (لوك أب)'; 52 | SFieldReadOnly = 'حقل ''%s'' غير قابل للتعديل'; 53 | SFieldIndexError = 'رقم الحقل خارج المجال المسموح'; 54 | SNoFieldIndexes = 'لايوجد رقم حقل نشط حالياً'; 55 | SNotIndexField = 'حقل ''%s'' ليس مفهرس ولايمكن تعديله'; 56 | SIndexFieldMissing = 'لايمكن الوصول للحقل المفهرس ''%s'''; 57 | SDuplicateIndexName = 'اسم فهرس مكرر : ''%s'''; 58 | SNoIndexForFields = 'لافهرس للحقول : ''%s'''; 59 | SIndexNotFound = 'الفهرس ''%s'' غير موجود'; 60 | SDBDuplicateName = 'اسم ''%s'' مكرر في %s'; 61 | SCircularDataLink = 'وصلات البيانات تستدعي بعضها بشكل دائري (كل منها يستدعي الآخر) وهذا غير مسموح'; 62 | SLookupInfoError = 'معلومات البحث Lookup للحقل ''%s'' غير مكتملة'; 63 | SNewLookupFieldCaption = 'حقل بحث Lookup جديد'; 64 | SDataSourceChange = 'لايمكن تغيير منبع البيانات DataSource'; 65 | SNoNestedMasterSource = 'Nested datasets cannot have a MasterSource'; 66 | SDataSetOpen = 'لايمكن القيام بهذه العملية على داتاسيت مفتوحة'; 67 | SNotEditing = 'البيانات ليست في وضع الإدخال أو التعديل'; 68 | SDataSetClosed = 'لايمكن القيام بهذه العملية على قاعدة بيانات مغلقة'; 69 | SDataSetEmpty = 'لايمكن القيام بهذه العملية على جدول بيانات فارغ'; 70 | SDataSetReadOnly = 'لايمكن تعديل جدول بيانات مخصص للقراءة فقط'; 71 | SNestedDataSetClass = 'Nested dataset must inherit from %s'; 72 | SExprTermination = 'تعبير الفلترة انتهى بشكل غير مناسب'; 73 | SExprNameError = 'اسم الحقل غير منتهي Unterminated'; 74 | SExprStringError = 'ثابت نصي غير منتهي Unterminated'; 75 | SExprInvalidChar = 'تم استخدام محرف غير مناسب في تعبير الفلترة : ''%s'''; 76 | SExprNoLParen = '''('' متوقعه , لكن %s وجدت'; 77 | SExprNoRParen = ''')'' متوقعة , لكن %s وجدت'; 78 | SExprNoRParenOrComma = ''')'' أو '','' كانت متوقعه ولكن %s وجدت'; 79 | SExprExpected = 'تعبير متوقع وبدلا منه وجد %s '; 80 | SExprBadField = 'الحقل ''%s'' لايمكن استخدامه في تعبير الفلترة'; 81 | SExprBadNullTest = 'القيمة الخالية NULL مسموحة فقط مع ''='' و ''<>'''; 82 | SExprRangeError = 'الثابت الممر خارج المجال المسموح'; 83 | SExprNotBoolean = 'حقل ''%s'' ليس من نمط بولياني'; 84 | SExprIncorrect = 'تعبير الفلترة ليس مصاغ بشكل صحيح'; 85 | SExprNothing = 'لا شيء'; 86 | SExprTypeMis = 'النمط غير مطابق في التعبير المستخدم'; 87 | SExprBadScope = 'Operation cannot mix aggregate value with record-varying value'; 88 | SExprNoArith = 'القيام بالحسابات الرياضية في تعبير الفلترة غير مسموحة'; 89 | SExprNotAgg = 'Expression is not an aggregate expression'; 90 | SExprBadConst = 'الثابت ليس من نمط مناسب : %s'; 91 | SExprNoAggFilter = 'عبارات التجميع غير مسموحة بالفلاتر'; 92 | SExprEmptyInList = 'IN predicate list may not be empty'; 93 | SInvalidKeywordUse = 'استخدام خاطئ لكلمة مفتاحية'; 94 | STextFalse = 'لا'; 95 | STextTrue = 'نعم'; 96 | SParameterNotFound = 'البارامتر ''%s'' غير موجود'; 97 | SInvalidVersion = 'غير قادر على تحميل متغير الربط bind parameters'; 98 | SParamTooBig = 'البارامتر ''%s'', لايستطيع حفظ بيانات أكبر من %d بايت'; 99 | SBadFieldType = 'حقل ''%s'' من نمط غير مدعوم'; 100 | SAggActive = 'لايمكن تعديل الخاصية عندما يكون التجميع فعال'; 101 | SProviderSQLNotSupported = 'تعابير إس كيو إل غير مدعومة'; 102 | SProviderExecuteNotSupported = 'التنفيذ غير مدعوم'; 103 | SExprNoAggOnCalcs = 'الحقل ''%s'' ليس النمط الصحيح للحقول الحسابية الذي يستخدم في التجميع aggregate,استخدم internalcalc'; 104 | SRecordChanged = 'لم يتم العثور على السجل , ربما تم تعديله من مستخدم آخر'; 105 | SDataSetUnidirectional = 'العملية غير مسموحة على جدول بيانات من نمط غير اتجاهي'; 106 | SUnassignedVar = 'قيمة غير مهيأة من نوع variant'; 107 | SRecordNotFound = 'لم يتم العثور على السجل'; 108 | SFileNameBlank = 'خاصية اسم الملف لايجب ان تكون فارغة'; 109 | SFieldNameTooLarge = 'الحقل %s تخطى عدد محارف %d '; 110 | 111 | { For FMTBcd } 112 | 113 | SBcdOverflow = 'BCD overflow'; 114 | SInvalidBcdValue = '%s ليست قيمة ترقيم عشري ثنائي صالحة'; 115 | SInvalidFormatType = 'نمط التنسيق غير صالح للترقيم العشري الثنائي BCD'; 116 | 117 | { For SqlTimSt } 118 | 119 | SCouldNotParseTimeStamp = 'لا يمكن التعمل مع التاريخ ضمن الاستعلام'; 120 | SInvalidSqlTimeStamp = 'قيمة التاريخ والوقت المستخدمة في الاستعلام غير صالحة'; 121 | SCalendarTimeCannotBeRepresented = 'لايمكن تمثيل وعرض التوقيت في التقويم (الروزنامه)'; 122 | 123 | SDeleteRecordQuestion = 'هل تريد تأكيد حذف السجل ؟'; 124 | SDeleteMultipleRecordsQuestion = 'هل تريد حذف جميع السجلات المحددة؟'; 125 | STooManyColumns = 'يطلب من الشبكة ان تعرض أكثر من 256 عمود'; 126 | 127 | { For reconcile error } 128 | SSkip = 'تخطي'; 129 | SAbort = 'إحباط'; 130 | SMerge = 'دمج'; 131 | SCorrect = 'تصحيح'; 132 | SCancel = 'إلغاء'; 133 | SRefresh = 'تحديث'; 134 | SModified = 'تم تعديله'; 135 | SInserted = 'تم إضافته'; 136 | SDeleted = 'تم حذفه'; 137 | SCaption = 'خطأ في التحديث - %s'; 138 | SUnchanged = '<لم يعدل>'; 139 | SBinary = '(ثنائي)'; 140 | SAdt = '(مغلف)'; 141 | SArray = '(مصفوفة)'; 142 | SFieldName = 'اسم الحقل'; 143 | SOriginal = 'القيمة الأصلية'; 144 | SConflict = 'القيمة المتضاربة'; 145 | SValue = ' قيمة'; 146 | SNoData = '<لاسجلات>'; 147 | SNew = 'جديد'; 148 | 149 | implementation 150 | 151 | end. 152 | -------------------------------------------------------------------------------- /Demos/Arabic_Units/Data.DBConsts.pas: -------------------------------------------------------------------------------- 1 | {*******************************************************} 2 | { } 3 | { Arabic Delphi VCL Units } 4 | { } 5 | { Modified by : Orwah Ali Issa (www.orwah.net) } 6 | { } 7 | { Delphi 10.3 Rio .. File Version 0.1 14/9/2019 } 8 | { } 9 | { Get Last Version From Here : } 10 | { https://github.com/orwah/Arabic-Delphi-VCL-Units } 11 | { } 12 | {*******************************************************} 13 | 14 | 15 | {*******************************************************} 16 | { } 17 | { Delphi Runtime Library } 18 | { } 19 | { Copyright(c) 1995-2018 Embarcadero Technologies, Inc. } 20 | { All rights reserved } 21 | { } 22 | {*******************************************************} 23 | 24 | unit Data.DBConsts; 25 | 26 | interface 27 | 28 | resourcestring 29 | SInvalidFieldSize = 'حجم الحقل غير صحيح'; 30 | SInvalidFieldKind = 'نمط الحقل غير صحيح'; 31 | SInvalidFieldRegistration = 'تسجيل الحقل غير صحيح'; 32 | SUnknownFieldType = 'حقل ''%s'' من نمط غير معروف'; 33 | SFieldNameMissing = 'اسم الحقل غير مضبوط'; 34 | SDuplicateFieldName = 'اسم الحقل ''%s'' مكرر'; 35 | SFieldNotFound = 'لم يتم العثور على الحقل : ''%s'''; 36 | SFieldAccessError = 'لايمكن الوصول للحقل ''%s'' كنمط %s'; 37 | SFieldValueError = 'قيمة غير صالحة لحقل ''%s'''; 38 | SFieldRangeError = '%g ليست قيمة صالحة لحقل ''%s''. المجال المسموح هو من %g إلى %g'; 39 | SBcdFieldRangeError = '%s ليست قيمة صالحة لحقل ''%s''. المجال المسموح هو من %s إلى %s'; 40 | SInvalidIntegerValue = '''%s'' ليست قيمة عدد صحيح (بلا فاصلة) للحقل ''%s'''; 41 | SInvalidBoolValue = '''%s'' ليست قيمة بوليانية صحيحة للحقل ''%s'''; 42 | SInvalidFloatValue = '''%s'' ليست قيمة عدد حقيقي (فاصلة عائمة) للحقل ''%s'''; 43 | SFieldTypeMismatch = 'النمط غير مطابق للحقل ''%s'', المتوقع: %s المطبق: %s'; 44 | SFieldSizeMismatch = 'السعة أو الحجم غير مطابقة للحقل ''%s'', المتوقع: %d المطبق: %d'; 45 | SInvalidVarByteArray = 'نمط أو حجم غير صالح للحقل ''%s'''; 46 | SFieldOutOfRange = 'قيمة حقل ''%s'' خارج المجال المسموح'; 47 | // SBCDOverflow = '(Overflow)'; 48 | SCantAdjustPrecision = 'خطأ في ضبط دقة الترقيم العشري الثنائي BCD precision'; 49 | SFieldRequired = 'حقل ''%s'' يجب أن يحوي قيمة'; 50 | SDataSetMissing = 'حقل ''%s'' ليس له قاعدة داتاسيت'; 51 | SInvalidCalcType = 'حقل ''%s'' لايمكنه أن يكون من نمط حسابي أو بحث (لوك أب)'; 52 | SFieldReadOnly = 'حقل ''%s'' غير قابل للتعديل'; 53 | SFieldIndexError = 'رقم الحقل خارج المجال المسموح'; 54 | SNoFieldIndexes = 'لايوجد رقم حقل نشط حالياً'; 55 | SNotIndexField = 'حقل ''%s'' ليس مفهرس ولايمكن تعديله'; 56 | SIndexFieldMissing = 'لايمكن الوصول للحقل المفهرس ''%s'''; 57 | SDuplicateIndexName = 'اسم فهرس مكرر : ''%s'''; 58 | SNoIndexForFields = 'لافهرس للحقول : ''%s'''; 59 | SIndexNotFound = 'الفهرس ''%s'' غير موجود'; 60 | SDBDuplicateName = 'اسم ''%s'' مكرر في %s'; 61 | SCircularDataLink = 'وصلات البيانات تستدعي بعضها بشكل دائري (كل منها يستدعي الآخر) وهذا غير مسموح'; 62 | SLookupInfoError = 'معلومات البحث Lookup للحقل ''%s'' غير مكتملة'; 63 | SNewLookupFieldCaption = 'حقل بحث Lookup جديد'; 64 | SDataSourceChange = 'لايمكن تغيير منبع البيانات DataSource'; 65 | SNoNestedMasterSource = 'Nested datasets cannot have a MasterSource'; 66 | SDataSetOpen = 'لايمكن القيام بهذه العملية على داتاسيت مفتوحة'; 67 | SNotEditing = 'البيانات ليست في وضع الإدخال أو التعديل'; 68 | SDataSetClosed = 'لايمكن القيام بهذه العملية على قاعدة بيانات مغلقة'; 69 | SDataSetEmpty = 'لايمكن القيام بهذه العملية على جدول بيانات فارغ'; 70 | SDataSetReadOnly = 'لايمكن تعديل جدول بيانات مخصص للقراءة فقط'; 71 | SNestedDataSetClass = 'Nested dataset must inherit from %s'; 72 | SExprTermination = 'تعبير الفلترة انتهى بشكل غير مناسب'; 73 | SExprNameError = 'اسم الحقل غير منتهي Unterminated'; 74 | SExprStringError = 'ثابت نصي غير منتهي Unterminated'; 75 | SExprInvalidChar = 'تم استخدام محرف غير مناسب في تعبير الفلترة : ''%s'''; 76 | SExprNoLParen = '''('' متوقعه , لكن %s وجدت'; 77 | SExprNoRParen = ''')'' متوقعة , لكن %s وجدت'; 78 | SExprNoRParenOrComma = ''')'' أو '','' كانت متوقعه ولكن %s وجدت'; 79 | SExprExpected = 'تعبير متوقع وبدلا منه وجد %s '; 80 | SExprBadField = 'الحقل ''%s'' لايمكن استخدامه في تعبير الفلترة'; 81 | SExprBadNullTest = 'القيمة الخالية NULL مسموحة فقط مع ''='' و ''<>'''; 82 | SExprRangeError = 'الثابت الممر خارج المجال المسموح'; 83 | SExprNotBoolean = 'حقل ''%s'' ليس من نمط بولياني'; 84 | SExprIncorrect = 'تعبير الفلترة ليس مصاغ بشكل صحيح'; 85 | SExprNothing = 'لا شيء'; 86 | SExprTypeMis = 'النمط غير مطابق في التعبير المستخدم'; 87 | SExprBadScope = 'Operation cannot mix aggregate value with record-varying value'; 88 | SExprNoArith = 'القيام بالحسابات الرياضية في تعبير الفلترة غير مسموحة'; 89 | SExprNotAgg = 'Expression is not an aggregate expression'; 90 | SExprBadConst = 'الثابت ليس من نمط مناسب : %s'; 91 | SExprNoAggFilter = 'عبارات التجميع غير مسموحة بالفلاتر'; 92 | SExprEmptyInList = 'IN predicate list may not be empty'; 93 | SInvalidKeywordUse = 'استخدام خاطئ لكلمة مفتاحية'; 94 | STextFalse = 'لا'; 95 | STextTrue = 'نعم'; 96 | SParameterNotFound = 'البارامتر ''%s'' غير موجود'; 97 | SInvalidVersion = 'غير قادر على تحميل متغير الربط bind parameters'; 98 | SParamTooBig = 'البارامتر ''%s'', لايستطيع حفظ بيانات أكبر من %d بايت'; 99 | SBadFieldType = 'حقل ''%s'' من نمط غير مدعوم'; 100 | SAggActive = 'لايمكن تعديل الخاصية عندما يكون التجميع فعال'; 101 | SProviderSQLNotSupported = 'تعابير إس كيو إل غير مدعومة'; 102 | SProviderExecuteNotSupported = 'التنفيذ غير مدعوم'; 103 | SExprNoAggOnCalcs = 'الحقل ''%s'' ليس النمط الصحيح للحقول الحسابية الذي يستخدم في التجميع aggregate,استخدم internalcalc'; 104 | SRecordChanged = 'لم يتم العثور على السجل , ربما تم تعديله من مستخدم آخر'; 105 | SDataSetUnidirectional = 'العملية غير مسموحة على جدول بيانات من نمط غير اتجاهي'; 106 | SUnassignedVar = 'قيمة غير مهيأة من نوع variant'; 107 | SRecordNotFound = 'لم يتم العثور على السجل'; 108 | SFileNameBlank = 'خاصية اسم الملف لايجب ان تكون فارغة'; 109 | SFieldNameTooLarge = 'الحقل %s تخطى عدد محارف %d '; 110 | 111 | { For FMTBcd } 112 | 113 | SBcdOverflow = 'BCD overflow'; 114 | SInvalidBcdValue = '%s ليست قيمة ترقيم عشري ثنائي صالحة'; 115 | SInvalidFormatType = 'نمط التنسيق غير صالح للترقيم العشري الثنائي BCD'; 116 | 117 | { For SqlTimSt } 118 | 119 | SCouldNotParseTimeStamp = 'لا يمكن التعمل مع التاريخ ضمن الاستعلام'; 120 | SInvalidSqlTimeStamp = 'قيمة التاريخ والوقت المستخدمة في الاستعلام غير صالحة'; 121 | SCalendarTimeCannotBeRepresented = 'لايمكن تمثيل وعرض التوقيت في التقويم (الروزنامه)'; 122 | 123 | SDeleteRecordQuestion = 'هل تريد تأكيد حذف السجل ؟'; 124 | SDeleteMultipleRecordsQuestion = 'هل تريد حذف جميع السجلات المحددة؟'; 125 | STooManyColumns = 'يطلب من الشبكة ان تعرض أكثر من 256 عمود'; 126 | 127 | { For reconcile error } 128 | SSkip = 'تخطي'; 129 | SAbort = 'إحباط'; 130 | SMerge = 'دمج'; 131 | SCorrect = 'تصحيح'; 132 | SCancel = 'إلغاء'; 133 | SRefresh = 'تحديث'; 134 | SModified = 'تم تعديله'; 135 | SInserted = 'تم إضافته'; 136 | SDeleted = 'تم حذفه'; 137 | SCaption = 'خطأ في التحديث - %s'; 138 | SUnchanged = '<لم يعدل>'; 139 | SBinary = '(ثنائي)'; 140 | SAdt = '(مغلف)'; 141 | SArray = '(مصفوفة)'; 142 | SFieldName = 'اسم الحقل'; 143 | SOriginal = 'القيمة الأصلية'; 144 | SConflict = 'القيمة المتضاربة'; 145 | SValue = ' قيمة'; 146 | SNoData = '<لاسجلات>'; 147 | SNew = 'جديد'; 148 | 149 | implementation 150 | 151 | end. 152 | -------------------------------------------------------------------------------- /Delphi10.2_Tokyo/FireDAC.VCLUI.OptsBase.dfm: -------------------------------------------------------------------------------- 1 | object frmFDGUIxFormsOptsBase: TfrmFDGUIxFormsOptsBase 2 | Left = 504 3 | Top = 160 4 | BiDiMode = bdRightToLeft 5 | BorderIcons = [] 6 | BorderStyle = bsDialog 7 | Caption = 'Options' 8 | ClientHeight = 318 9 | ClientWidth = 355 10 | Color = clBtnFace 11 | Font.Charset = DEFAULT_CHARSET 12 | Font.Color = clWindowText 13 | Font.Height = -11 14 | Font.Name = 'Tahoma' 15 | Font.Style = [] 16 | OldCreateOrder = False 17 | ParentBiDiMode = False 18 | Position = poMainFormCenter 19 | PixelsPerInch = 96 20 | TextHeight = 13 21 | object pnlTop: TPanel 22 | Left = 0 23 | Top = 0 24 | Width = 355 25 | Height = 39 26 | Align = alTop 27 | BevelOuter = bvNone 28 | BorderWidth = 3 29 | TabOrder = 0 30 | DesignSize = ( 31 | 355 32 | 39) 33 | object Bevel2: TBevel 34 | Left = 5 35 | Top = 0 36 | Width = 345 37 | Height = 36 38 | Anchors = [akLeft, akTop, akRight] 39 | Shape = bsBottomLine 40 | end 41 | object Image2: TImage 42 | Left = 318 43 | Top = 2 44 | Width = 32 45 | Height = 32 46 | Anchors = [akTop, akRight] 47 | AutoSize = True 48 | Picture.Data = { 49 | 07544269746D6170360C0000424D360C00000000000036000000280000002000 50 | 0000200000000100180000000000000C00000000000000000000000000000000 51 | 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 52 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 53 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 54 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 55 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 56 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 57 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 58 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 59 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 60 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 61 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 62 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 63 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 64 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 65 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 66 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 67 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 68 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 69 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 70 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 71 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 72 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFF1F1F2E2E1E1A09FA08C8C8C838382828282 73 | 8887878D8C8C929292999899A09FA0A7A6A7B3B3B3C7C5C4D0CFCDDAD9D7E6E4 74 | E3E8E7E6DDDCDBC8C7C5BBB9B7AFADAAAEACABE2E1E1FFFFFFFFFFFFFFFFFFFF 75 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFF1F1F2B6B6B78A8A8B7373746A6A696B6C6C 76 | 7474747D7C7D8585878F8F9199999AA3A3A5B3B3B4CDCCCBD9D8D7D9DCE19BB0 77 | E0F5F4F3E5E4E3C6C6C4B2AFAE9E9C99908D8BE2E1E1FFFFFFFFFFFFFFFFFFFF 78 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFF1F1F2B6B6B78A8A8B7373746A6A696B6C6C 79 | 7474747D7C7D8585878F8F9199999AA3A3A5B3B3B4CDCCCBACB8D33F70D25C85 80 | D8F5F4F3E5E4E3C6C6C4B2AFAE9E9C99908D8BE2E1E1FFFFFFFFFFFFFFFFFFFF 81 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFF1F1F2B6B6B78A8A8B7373746A6A696B6C6C 82 | 7474747D7C7D8585878F8F9199999AA3A3A5B3B3B47A95CC2963D42969DA5C86 83 | DAF5F4F3E5E4E3C6C6C4B2AFAE9E9C99908D8BE2E1E1FFFFFFFFFFFFFFFFFFFF 84 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFF8F8F7B6B6B78A8A8B7373746A6A696B6C6C 85 | 7474747D7C7D8585878F8F9199999A9B9FA74A74C92C68D92D6BDC2D6BDC4375 86 | D78FAAE1B6C3DEBCBFC4B2AFAE9E9C99918E8CE5E5E5FFFFFFFFFFFFFFFFFFFF 87 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFBFBFBD3D3D3ABABAB9595968C8C8D8E8E8E 88 | 9696969E9E9FA6A6A8AEAEB08798BD346AD42F6CDE306DDF306DDF306DDF306D 89 | DF306DDF2E6ADB2D67D85E81C7989FACA4A4A3FFFFFFFFFFFFFFFFFFFFFFFFFF 90 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFBFBFBC6C6C68C8B8C6F6F70626362626262 91 | 6A6A6A7372737B7B7D4F6EAE366EDE336FE0336FE0336FE0336FE0336FE0336F 92 | E0336FE0336FE0336FE0336FE02F6ADA7891C2FFFFFFFFFFFFFFFFFFFFFFFFFF 93 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFF1F1F2B6B6B78A8A8B7373746A6A696B6C6C 94 | 7474747D7C7D7F838B4973C85481EE4379E83772E33772E33772E33772E33772 95 | E33772E33772E33772E33772E33772E3346FE094B2EBFFFFFFFFFFFFFFFFFFFF 96 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFF1F1F2B6B6B78A8A8B7373746A6A696B6C6C 97 | 7474747D7C7D8585878F8F916883B5497BE95281EF3E75E63B74E53B74E54E7E 98 | ED4E7EED4E7EED497CEB4077E73B74E53B74E53670E1C9D9F5FFFFFFFFFFFFFF 99 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFF1F1F2B6B6B78A8A8B7373746A6A696B6C6C 100 | 7474747D7C7D8585878F8F9199999A8B98AF4B7CDF5784F1477BE94178E7497F 101 | E3749BE96691E55282E44C7EED5985F24C7EEC4178E76392E7FFFFFFFFFFFFFF 102 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFF8F8F7B8B8B98A8A8B7373746A6A696B6C6C 103 | 7474747D7C7D8585878F8F9199999AA3A3A5A9AEB6638EDC5181F05280EE6493 104 | E8F5F4F3E5E4E3C6C6C4A1A8B56887BF4C7EE65783F13A75E6FFFFFFFFFFFFFF 105 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFCFCFCD5D5D5ABABAB9595968C8C8D8E8E8E 106 | 9696969E9E9FA6A6A8AEAEB0B7B7B9BFC0C1C9C9CAD4D3D39BB5E15184EE6797 107 | EDF8F8F8ECECEBD0D0D0BBBBBBA9A9A8959EAB6694F04E80EFC9DBF8FFFFFFFF 108 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFF8F8F8C2C2C38C8B8C6F6F70626362626262 109 | 6A6A6A7372737B7B7D8585878F9091999A9CA9A9AABFBEBECBCACABAC7DD8BAF 110 | EAE6E5E5CECECDADACAB96949382807EA5A3A2CFDDF33B7AEEC9DBF9FFFFFFFF 111 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFF1F1F2B6B6B78A8A8B7373746A6A696B6C6C 112 | 7474747D7C7D8585878F8F9199999AA3A3A5B3B3B4CDCCCBD9D8D7E5E5E3F3F2 113 | F1F5F4F3E5E4E3C6C6C4B2AFAE9E9C99908D8BE2E1E15F97F1C9DCFAFFFFFFFF 114 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFF1F1F2B6B6B78A8A8B7373746A6A696B6C6C 115 | 7474747D7C7D8585878F8F9199999AA3A3A5B3B3B4CDCCCBD9D8D7E5E5E3F3F2 116 | F1F5F4F3E5E4E3C6C6C4B2AFAE9E9C99908D8BE2E1E17AA8F3FFFFFFFFFFFFFF 117 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFF1F1F2B6B6B78A8A8B7373746A6A696B6C6C 118 | 7474747D7C7D8585878F8F9199999AA3A3A5B3B3B4CDCCCBD9D8D7E5E5E3F3F2 119 | F1F5F4F3E5E4E3C6C6C4B2AFAE9E9C99908D8BE2E1E194B9F5FFFFFFFFFFFFFF 120 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFF8F8F7B8B8B98A8A8B7373746A6A696B6C6C 121 | 7474747D7C7D8585878F8F9199999AA3A3A5B3B3B4CDCCCBD9D8D7E5E5E3F3F2 122 | F1F5F4F3E5E4E3C6C6C4B2AFAE9E9C99918E8CE5E5E5FFFFFFFFFFFFFFFFFFFF 123 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFCFCFCDADADAABABAB9595968C8C8D8E8E8E 124 | 9696969E9E9FA6A6A8AEAEB0B7B7B9BFC0C1C9C9CBD7D6D7E0E0E0EBEAEAF4F4 125 | F4FAFAFAEEEEEED0D0D0BBBBBBA9A9A8ABABAAF2F2F2FFFFFFFFFFFFFFFFFFFF 126 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 127 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 128 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 129 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 130 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 131 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 132 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 133 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 134 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 135 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 136 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 137 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 138 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 139 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 140 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 141 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 142 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 143 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 144 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 145 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 146 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 147 | FFFF} 148 | Transparent = True 149 | end 150 | object lblPrompt: TLabel 151 | Left = 242 152 | Top = 11 153 | Width = 68 154 | Height = 13 155 | Anchors = [akTop, akRight] 156 | Caption = #1571#1583#1582#1604' '#1605#1593#1604#1608#1605#1575#1578#1603 157 | end 158 | end 159 | object pnlButtons: TPanel 160 | Left = 0 161 | Top = 280 162 | Width = 355 163 | Height = 38 164 | Align = alBottom 165 | BevelOuter = bvNone 166 | BorderWidth = 3 167 | TabOrder = 1 168 | DesignSize = ( 169 | 355 170 | 38) 171 | object Bevel3: TBevel 172 | Left = 5 173 | Top = 3 174 | Width = 345 175 | Height = 34 176 | Anchors = [akLeft, akTop, akRight] 177 | Shape = bsTopLine 178 | end 179 | object btnOk: TButton 180 | Left = 92 181 | Top = 10 182 | Width = 75 183 | Height = 23 184 | Anchors = [akLeft, akBottom] 185 | Caption = '&'#1605#1608#1575#1601#1602 186 | Default = True 187 | ModalResult = 1 188 | TabOrder = 0 189 | end 190 | object btnCancel: TButton 191 | Left = 5 192 | Top = 10 193 | Width = 75 194 | Height = 23 195 | Anchors = [akLeft, akBottom] 196 | Cancel = True 197 | Caption = '&'#1573#1604#1594#1575#1569 198 | ModalResult = 2 199 | TabOrder = 1 200 | end 201 | end 202 | end 203 | -------------------------------------------------------------------------------- /Delphi10.3_Rio/FireDAC.VCLUI.OptsBase.dfm: -------------------------------------------------------------------------------- 1 | object frmFDGUIxFormsOptsBase: TfrmFDGUIxFormsOptsBase 2 | Left = 504 3 | Top = 160 4 | BiDiMode = bdRightToLeft 5 | BorderIcons = [] 6 | BorderStyle = bsDialog 7 | Caption = 'Options' 8 | ClientHeight = 318 9 | ClientWidth = 355 10 | Color = clBtnFace 11 | Font.Charset = DEFAULT_CHARSET 12 | Font.Color = clWindowText 13 | Font.Height = -11 14 | Font.Name = 'Tahoma' 15 | Font.Style = [] 16 | OldCreateOrder = False 17 | ParentBiDiMode = False 18 | Position = poMainFormCenter 19 | PixelsPerInch = 96 20 | TextHeight = 13 21 | object pnlTop: TPanel 22 | Left = 0 23 | Top = 0 24 | Width = 355 25 | Height = 39 26 | Align = alTop 27 | BevelOuter = bvNone 28 | BorderWidth = 3 29 | TabOrder = 0 30 | DesignSize = ( 31 | 355 32 | 39) 33 | object Bevel2: TBevel 34 | Left = 5 35 | Top = 0 36 | Width = 345 37 | Height = 36 38 | Anchors = [akLeft, akTop, akRight] 39 | Shape = bsBottomLine 40 | end 41 | object Image2: TImage 42 | Left = 318 43 | Top = 2 44 | Width = 32 45 | Height = 32 46 | Anchors = [akTop, akRight] 47 | AutoSize = True 48 | Picture.Data = { 49 | 07544269746D6170360C0000424D360C00000000000036000000280000002000 50 | 0000200000000100180000000000000C00000000000000000000000000000000 51 | 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 52 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 53 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 54 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 55 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 56 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 57 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 58 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 59 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 60 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 61 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 62 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 63 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 64 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 65 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 66 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 67 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 68 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 69 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 70 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 71 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 72 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFF1F1F2E2E1E1A09FA08C8C8C838382828282 73 | 8887878D8C8C929292999899A09FA0A7A6A7B3B3B3C7C5C4D0CFCDDAD9D7E6E4 74 | E3E8E7E6DDDCDBC8C7C5BBB9B7AFADAAAEACABE2E1E1FFFFFFFFFFFFFFFFFFFF 75 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFF1F1F2B6B6B78A8A8B7373746A6A696B6C6C 76 | 7474747D7C7D8585878F8F9199999AA3A3A5B3B3B4CDCCCBD9D8D7D9DCE19BB0 77 | E0F5F4F3E5E4E3C6C6C4B2AFAE9E9C99908D8BE2E1E1FFFFFFFFFFFFFFFFFFFF 78 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFF1F1F2B6B6B78A8A8B7373746A6A696B6C6C 79 | 7474747D7C7D8585878F8F9199999AA3A3A5B3B3B4CDCCCBACB8D33F70D25C85 80 | D8F5F4F3E5E4E3C6C6C4B2AFAE9E9C99908D8BE2E1E1FFFFFFFFFFFFFFFFFFFF 81 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFF1F1F2B6B6B78A8A8B7373746A6A696B6C6C 82 | 7474747D7C7D8585878F8F9199999AA3A3A5B3B3B47A95CC2963D42969DA5C86 83 | DAF5F4F3E5E4E3C6C6C4B2AFAE9E9C99908D8BE2E1E1FFFFFFFFFFFFFFFFFFFF 84 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFF8F8F7B6B6B78A8A8B7373746A6A696B6C6C 85 | 7474747D7C7D8585878F8F9199999A9B9FA74A74C92C68D92D6BDC2D6BDC4375 86 | D78FAAE1B6C3DEBCBFC4B2AFAE9E9C99918E8CE5E5E5FFFFFFFFFFFFFFFFFFFF 87 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFBFBFBD3D3D3ABABAB9595968C8C8D8E8E8E 88 | 9696969E9E9FA6A6A8AEAEB08798BD346AD42F6CDE306DDF306DDF306DDF306D 89 | DF306DDF2E6ADB2D67D85E81C7989FACA4A4A3FFFFFFFFFFFFFFFFFFFFFFFFFF 90 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFBFBFBC6C6C68C8B8C6F6F70626362626262 91 | 6A6A6A7372737B7B7D4F6EAE366EDE336FE0336FE0336FE0336FE0336FE0336F 92 | E0336FE0336FE0336FE0336FE02F6ADA7891C2FFFFFFFFFFFFFFFFFFFFFFFFFF 93 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFF1F1F2B6B6B78A8A8B7373746A6A696B6C6C 94 | 7474747D7C7D7F838B4973C85481EE4379E83772E33772E33772E33772E33772 95 | E33772E33772E33772E33772E33772E3346FE094B2EBFFFFFFFFFFFFFFFFFFFF 96 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFF1F1F2B6B6B78A8A8B7373746A6A696B6C6C 97 | 7474747D7C7D8585878F8F916883B5497BE95281EF3E75E63B74E53B74E54E7E 98 | ED4E7EED4E7EED497CEB4077E73B74E53B74E53670E1C9D9F5FFFFFFFFFFFFFF 99 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFF1F1F2B6B6B78A8A8B7373746A6A696B6C6C 100 | 7474747D7C7D8585878F8F9199999A8B98AF4B7CDF5784F1477BE94178E7497F 101 | E3749BE96691E55282E44C7EED5985F24C7EEC4178E76392E7FFFFFFFFFFFFFF 102 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFF8F8F7B8B8B98A8A8B7373746A6A696B6C6C 103 | 7474747D7C7D8585878F8F9199999AA3A3A5A9AEB6638EDC5181F05280EE6493 104 | E8F5F4F3E5E4E3C6C6C4A1A8B56887BF4C7EE65783F13A75E6FFFFFFFFFFFFFF 105 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFCFCFCD5D5D5ABABAB9595968C8C8D8E8E8E 106 | 9696969E9E9FA6A6A8AEAEB0B7B7B9BFC0C1C9C9CAD4D3D39BB5E15184EE6797 107 | EDF8F8F8ECECEBD0D0D0BBBBBBA9A9A8959EAB6694F04E80EFC9DBF8FFFFFFFF 108 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFF8F8F8C2C2C38C8B8C6F6F70626362626262 109 | 6A6A6A7372737B7B7D8585878F9091999A9CA9A9AABFBEBECBCACABAC7DD8BAF 110 | EAE6E5E5CECECDADACAB96949382807EA5A3A2CFDDF33B7AEEC9DBF9FFFFFFFF 111 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFF1F1F2B6B6B78A8A8B7373746A6A696B6C6C 112 | 7474747D7C7D8585878F8F9199999AA3A3A5B3B3B4CDCCCBD9D8D7E5E5E3F3F2 113 | F1F5F4F3E5E4E3C6C6C4B2AFAE9E9C99908D8BE2E1E15F97F1C9DCFAFFFFFFFF 114 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFF1F1F2B6B6B78A8A8B7373746A6A696B6C6C 115 | 7474747D7C7D8585878F8F9199999AA3A3A5B3B3B4CDCCCBD9D8D7E5E5E3F3F2 116 | F1F5F4F3E5E4E3C6C6C4B2AFAE9E9C99908D8BE2E1E17AA8F3FFFFFFFFFFFFFF 117 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFF1F1F2B6B6B78A8A8B7373746A6A696B6C6C 118 | 7474747D7C7D8585878F8F9199999AA3A3A5B3B3B4CDCCCBD9D8D7E5E5E3F3F2 119 | F1F5F4F3E5E4E3C6C6C4B2AFAE9E9C99908D8BE2E1E194B9F5FFFFFFFFFFFFFF 120 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFF8F8F7B8B8B98A8A8B7373746A6A696B6C6C 121 | 7474747D7C7D8585878F8F9199999AA3A3A5B3B3B4CDCCCBD9D8D7E5E5E3F3F2 122 | F1F5F4F3E5E4E3C6C6C4B2AFAE9E9C99918E8CE5E5E5FFFFFFFFFFFFFFFFFFFF 123 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFCFCFCDADADAABABAB9595968C8C8D8E8E8E 124 | 9696969E9E9FA6A6A8AEAEB0B7B7B9BFC0C1C9C9CBD7D6D7E0E0E0EBEAEAF4F4 125 | F4FAFAFAEEEEEED0D0D0BBBBBBA9A9A8ABABAAF2F2F2FFFFFFFFFFFFFFFFFFFF 126 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 127 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 128 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 129 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 130 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 131 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 132 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 133 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 134 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 135 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 136 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 137 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 138 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 139 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 140 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 141 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 142 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 143 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 144 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 145 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 146 | FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 147 | FFFF} 148 | Transparent = True 149 | end 150 | object lblPrompt: TLabel 151 | Left = 242 152 | Top = 11 153 | Width = 68 154 | Height = 13 155 | Anchors = [akTop, akRight] 156 | Caption = #1571#1583#1582#1604' '#1605#1593#1604#1608#1605#1575#1578#1603 157 | end 158 | end 159 | object pnlButtons: TPanel 160 | Left = 0 161 | Top = 280 162 | Width = 355 163 | Height = 38 164 | Align = alBottom 165 | BevelOuter = bvNone 166 | BorderWidth = 3 167 | TabOrder = 1 168 | DesignSize = ( 169 | 355 170 | 38) 171 | object Bevel3: TBevel 172 | Left = 5 173 | Top = 3 174 | Width = 345 175 | Height = 34 176 | Anchors = [akLeft, akTop, akRight] 177 | Shape = bsTopLine 178 | end 179 | object btnOk: TButton 180 | Left = 92 181 | Top = 10 182 | Width = 75 183 | Height = 23 184 | Anchors = [akLeft, akBottom] 185 | Caption = '&'#1605#1608#1575#1601#1602 186 | Default = True 187 | ModalResult = 1 188 | TabOrder = 0 189 | end 190 | object btnCancel: TButton 191 | Left = 5 192 | Top = 10 193 | Width = 75 194 | Height = 23 195 | Anchors = [akLeft, akBottom] 196 | Cancel = True 197 | Caption = '&'#1573#1604#1594#1575#1569 198 | ModalResult = 2 199 | TabOrder = 1 200 | end 201 | end 202 | end 203 | -------------------------------------------------------------------------------- /Delphi10.1_Berline/System.SysConst.pas: -------------------------------------------------------------------------------- 1 | {*******************************************************} 2 | { } 3 | { Arabic Delphi VCL Units } 4 | { } 5 | { Modified by : Orwah Ali Issa (www.orwah.net) } 6 | { } 7 | { Delphi 10.1 Berline .. File Version 0.1 1/10/2016 } 8 | { } 9 | { Get Last Version From Here : } 10 | { https://github.com/orwah/Arabic-Delphi-VCL-Units } 11 | { } 12 | {*******************************************************} 13 | 14 | 15 | {*******************************************************} 16 | { } 17 | { CodeGear Delphi Runtime Library } 18 | { } 19 | { Copyright(c) 2016 Embarcadero Technologies, Inc. } 20 | { All rights reserved } 21 | { } 22 | {*******************************************************} 23 | 24 | unit System.SysConst; 25 | 26 | {$IFDEF ANDROID} 27 | {$define USE_LIBICU} 28 | {$ENDIF ANDROID} 29 | 30 | 31 | {$IFDEF LINUX64} 32 | // {$DEFINE USE_LIBICU} 33 | {$ENDIF LINUX64} 34 | 35 | interface 36 | {$HPPEMIT LEGACYHPP} 37 | 38 | resourcestring 39 | SUnknown = '<غير معروف>'; 40 | SInvalidInteger = '''%s'' ليست قيمة مناسبة لرقم صحيح (بلا فاصلة)'; 41 | SInvalidFloat = '''%s'' ليست قيمة مناسبة لرقم عشري (فاصلة عائمة)'; 42 | SInvalidCurrency = '''%s'' ليس قيمة مناسبة للدفعات النقدية'; 43 | SInvalidDate = '''%s'' ليس تاريخ صالح'; 44 | SInvalidTime = '''%s'' ليس وقت صالح'; 45 | SInvalidDateTime = '''%s'' ليست قيمة مناسبة للتاريخ'; 46 | SInvalidDateTimeFloat = '''%g'' ليست قيمة مناسبة للتاريخ والوقت'; 47 | SInvalidTimeStamp = '''%d.%d'' ليست قيمة منطقة زمنية مناسبة'; 48 | SInvalidGUID = '''%s'' ليست قيمة GUID صالحة'; 49 | SInvalidBoolean = '''%s'' ليست قيمة بوليانية مناسبة'; 50 | STimeEncodeError = 'معامل تنسيق الوقت غير مسموح'; 51 | SDateEncodeError = 'معامل تنسيق التاريخ غير مسموح'; 52 | SOutOfMemory = 'الذاكرة لاتكفي'; 53 | SInOutError = 'خطأ من نوع إدخال /إخراج %d'; 54 | SFileNotFound = 'الملف غير موجود'; 55 | SInvalidFilename = 'اسم ملف غير صالح'; 56 | STooManyOpenFiles = 'الملفات المفتوحة أكثر من المتوقع'; 57 | SAccessDenied = 'تم رفض الوصول للملف'; 58 | SEndOfFile = 'تجري القراءة خلف نهاية بيانات الملف'; 59 | SDiskFull = 'القرص ممتلئ'; 60 | SInvalidInput = 'إدخال قيمة رقمية غير صالحة'; 61 | SDivByZero = 'التقسيم على صفر'; 62 | SRangeError = 'خطأ في فحص المجال المسموح'; 63 | SIntOverflow = 'قيمة عدد صحيح فائضة'; 64 | SInvalidOp = 'عملية عشرية غير مسموحة'; 65 | SZeroDivide = 'قسمة عدد عشري على الصفر'; 66 | SOverflow = 'قيمة عدد عشري فائضة'; 67 | SUnderflow = 'قيمة عدد عشري دون المسموح'; 68 | SInvalidPointer = 'عملية مؤشرات غير مسموحة'; 69 | SInvalidCast = 'تحويل غير صالح للأصناف'; 70 | {$IFDEF MSWINDOWS} 71 | SAccessViolationArg3 = 'دخول انتهاكي للعنوان %p. %s من العنوان %p'; 72 | {$ENDIF MSWINDOWS} 73 | {$IF Defined(LINUX) or Defined(MACOS) or Defined(ANDROID)} 74 | SAccessViolationArg2 = 'دخول انتهاكي للعنوان %p, عنوان الدخول %p'; 75 | {$ENDIF LINUX or MACOS or ANDROID} 76 | SAccessViolationNoArg = 'دخول انتهاكي'; 77 | SStackOverflow = 'فيض في المكدس'; 78 | SControlC = 'إضغط Control-C'; 79 | SQuit = 'إضغط زر الخروج Quit'; 80 | SPrivilege = 'التعليمة تحتاج صلاحيات'; 81 | SOperationAborted = 'تم انهاء العملية'; 82 | SException = 'استثناء %s في وحدة %s في %p.' + sLineBreak + '%s%s' + sLineBreak; 83 | SExceptTitle = 'خطأ في التطبيق '; 84 | {$IF Defined(LINUX) or Defined(MACOS) or Defined(ANDROID)} 85 | SSigactionFailed = 'sigaction call failed'; 86 | SOSExceptionHandlingFailed = 'OS exception handling initialization failed'; 87 | {$ENDIF LINUX or MACOS or ANDROID} 88 | SInvalidFormat = 'التنسيق ''%s'' غير صالح أو غير متوافق مع المعامل'; 89 | SArgumentMissing = 'لامعامل من أجل التنسيق ''%s'''; 90 | SDispatchError = 'استدعاءات المناهج من نوع Variant غير مدعومة'; 91 | SReadAccess = 'قراءة'; 92 | SWriteAccess = 'كتابة'; 93 | SExecuteAccess = 'تنفيذ'; 94 | SInvalidAccess = 'دخول غير مسموح'; 95 | SResultTooLong = 'نتيجة التنسيق أكبر من 4096 محرف'; 96 | SFormatTooLong = 'نص التنسيق طويل جدا'; 97 | {$IFDEF MACOS} 98 | SCFStringFailed = 'خطأ في إنشاء CFString'; 99 | {$ENDIF MACOS} 100 | {$IF defined(USE_LIBICU)} 101 | SICUError = 'خطأ ICU : %d, %s'; 102 | SICUErrorOverflow = 'ICU Overflow Error: %d, %s, Needed Length=%d'; 103 | {$ENDIF defined(USE_LIBICU)} 104 | 105 | SVarArrayCreate = 'خطأ في إنشاء المتغير أو المصفوفة'; 106 | SVarArrayBounds = 'الفهرس المحدد خارج الحدود'; 107 | SVarArrayLocked = 'المتغير أو المصفوفة مقفلة'; 108 | SVarArrayWithHResult = 'خطأ غير متوقع في المتغير او المصفوفة : %s%.8x'; 109 | 110 | SInvalidVarCast = 'تغير غير صالح لنمط المتحول من نوع variant'; 111 | SInvalidVarOp = 'عملية غير صالحة على متحول من نمط variant'; 112 | SInvalidVarNullOp = 'عملية غير صالحة على متغير variant قيمته NULL'; 113 | SInvalidVarOpWithHResultWithPrefix = 'عملية غير صالحة على متغير من نمط variant (%s%.8x)'#10'%s'; 114 | SVarTypeRangeCheck1 = 'Range check error for variant of type (%s)'; 115 | SVarTypeRangeCheck2 = 'Range check error while converting variant of type (%s) into type (%s)'; 116 | SVarTypeOutOfRangeWithPrefix = 'Custom variant type (%s%.4x) is out of range'; 117 | SVarTypeAlreadyUsedWithPrefix = 'Custom variant type (%s%.4x) already used by %s'; 118 | SVarTypeNotUsableWithPrefix = 'Custom variant type (%s%.4x) is not usable'; 119 | SVarTypeTooManyCustom = 'Too many custom variant types have been registered'; 120 | 121 | SVarTypeCouldNotConvert = 'لايمكن تحويل متحول variant من نمط (%s) الى نمط (%s)'; 122 | SVarTypeConvertOverflow = 'حدثت حالة فيض عند تغيير متحول variant من نمط (%s) إلى نمط (%s)'; 123 | SVarOverflow = 'حدثت حالة فيض مع متحول من نوع Variant'; 124 | SVarInvalid = 'معامل غير صالح'; 125 | SVarBadType = 'نمط متحول variant غير صالح'; 126 | SVarNotImplemented = 'العملية غير مدعومة'; 127 | SVarOutOfMemory = 'العملية على متحول Variant خرجت عن الذاكرة المخصصة'; 128 | SVarUnexpected = 'خطأ غير معروف في متحول variant'; 129 | 130 | SVarDataClearRecursing = 'Recursion while doing a VarDataClear'; 131 | SVarDataCopyRecursing = 'Recursion while doing a VarDataCopy'; 132 | SVarDataCopyNoIndRecursing = 'Recursion while doing a VarDataCopyNoInd'; 133 | SVarDataInitRecursing = 'Recursion while doing a VarDataInit'; 134 | SVarDataCastToRecursing = 'Recursion while doing a VarDataCastTo'; 135 | SVarIsEmpty = 'المتحول Variant فارغ'; 136 | sUnknownFromType = 'لايمكن التحويل من النمط المحدد'; 137 | sUnknownToType = 'لايمكن التحويل إلى النمط المحدد'; 138 | SExternalException = 'استثناء خارجي %x'; 139 | SAssertionFailed = 'فشل في التوكيد'; 140 | SIntfCastError = 'الواجهة غير مدعومة'; 141 | SSafecallException = 'Exception in safecall method'; 142 | SMonitorLockException = 'Object lock not owned'; 143 | SNoMonitorSupportException = 'Monitor support function not initialized'; 144 | SNotImplemented = 'الميزة غير مدعومة'; 145 | SObjectDisposed = 'Method called on disposed object'; 146 | SAssertError = '%s (%s, السطر %d)'; 147 | SAbstractError = 'Abstract Error'; 148 | SModuleAccessViolation = 'انتهاك في الوصول للعنوان %p في الوحدة ''%s''. %s للعنوان %p'; 149 | SCannotReadPackageInfo = 'لايمكن الدخول الى معلومات الرزمة , للحزمة ''%s'''; 150 | sErrorLoadingPackage = 'لايمكن تحميل الحزمة %s.'+sLineBreak+'%s'; 151 | SInvalidPackageFile = 'ملف الحزمة غير صالح ''%s'''; 152 | SInvalidPackageHandle = 'رقم مقبض الحزمة غير صالح'; 153 | SDuplicatePackageUnit = 'لايمكن تحميل الحزمة ''%s.'' انها تحوي الوحدة ''%s'', ' + 154 | 'والتي هي ايضا محتواة في الحزمة ''%s'''; 155 | SOSError = 'خطأ في النظام. الكود: %d.'+sLineBreak+'%s%s'; 156 | SUnkOSError = 'فشل استدعاء وظيفة من النظام'; 157 | {$IFDEF MSWINDOWS} 158 | SWin32Error = 'خطأ ويندوز32 , الرمز: %d.'#10'%s' deprecated 'Use SOSError'; 159 | SUnkWin32Error = 'A Win32 API function failed' deprecated 'Use SUnkOSError'; 160 | {$ENDIF} 161 | SNL = 'التطبيق غير مرخص لاستخدام هذه الميزة'; 162 | 163 | SShortMonthNameJan = 'كا2'; 164 | SShortMonthNameFeb = 'شبا'; 165 | SShortMonthNameMar = 'آذا'; 166 | SShortMonthNameApr = 'نيس'; 167 | SShortMonthNameMay = 'أيا'; 168 | SShortMonthNameJun = 'حزي'; 169 | SShortMonthNameJul = 'تمو'; 170 | SShortMonthNameAug = 'اب '; 171 | SShortMonthNameSep = 'ايل'; 172 | SShortMonthNameOct = 'تش1'; 173 | SShortMonthNameNov = 'تش2'; 174 | SShortMonthNameDec = 'كا1'; 175 | 176 | SLongMonthNameJan = 'كانون الثاني'; 177 | SLongMonthNameFeb = 'شباط'; 178 | SLongMonthNameMar = 'آذار'; 179 | SLongMonthNameApr = 'نيسان'; 180 | SLongMonthNameMay = 'أيار'; 181 | SLongMonthNameJun = 'حزيران'; 182 | SLongMonthNameJul = 'تموز'; 183 | SLongMonthNameAug = 'آب'; 184 | SLongMonthNameSep = 'أيلول'; 185 | SLongMonthNameOct = 'تشرين الأول'; 186 | SLongMonthNameNov = 'تشرين الثاني'; 187 | SLongMonthNameDec = 'كانون الأول'; 188 | 189 | SShortDayNameSun = 'احد'; 190 | SShortDayNameMon = 'إثن'; 191 | SShortDayNameTue = 'ثلا'; 192 | SShortDayNameWed = 'أرب'; 193 | SShortDayNameThu = 'خمي'; 194 | SShortDayNameFri = 'جمع'; 195 | SShortDayNameSat = 'سبت'; 196 | 197 | SLongDayNameSun = 'الأحد'; 198 | SLongDayNameMon = 'الإثنين'; 199 | SLongDayNameTue = 'الثلاثاء'; 200 | SLongDayNameWed = 'الأربعاء'; 201 | SLongDayNameThu = 'الخميس'; 202 | SLongDayNameFri = 'الجمعة'; 203 | SLongDayNameSat = 'السبت'; 204 | 205 | {$IFDEF POSIX} 206 | SEraEntries = ''; 207 | {$ENDIF} 208 | 209 | SCannotCreateDir = 'لايمكن إنشاء المجلد'; 210 | SCodesetConversionError = 'فشل في تحويل Codeset'; 211 | 212 | // Used by TEncoding 213 | SInvalidSourceArray = 'مصفوفة المصدر غير صالحة'; 214 | SInvalidDestinationArray = 'مصفوفة الوجهة غير صالحة'; 215 | SCharIndexOutOfBounds = 'فهرس المحرف خارج الحدود (%d)'; 216 | SByteIndexOutOfBounds = 'فهرس البداية خارج الحدود (%d)'; 217 | SInvalidCharCount = 'تعداد غير صالح (%d)'; 218 | SInvalidDestinationIndex = 'فهرس وجهة غير صالح (%d)'; 219 | SInvalidCodePage = 'صفحة الكود غير صالحة'; 220 | SInvalidEncodingName = 'اسم الترميز غير صالح'; 221 | SNoMappingForUnicodeCharacter = 'لايوجد تخطيط من اجل محارف يونيكود موجود في صفحة الكود الهدف multi-byte code page'; 222 | SOperationCancelled = 'العملية الغيت'; 223 | 224 | implementation 225 | 226 | end. 227 | -------------------------------------------------------------------------------- /Delphi10.2_Tokyo/System.SysConst.pas: -------------------------------------------------------------------------------- 1 | {*******************************************************} 2 | { } 3 | { Arabic Delphi VCL Units } 4 | { } 5 | { Modified by : Orwah Ali Issa (www.orwah.net) } 6 | { } 7 | { Delphi 10.1 Berline .. File Version 0.1 1/10/2016 } 8 | { } 9 | { Get Last Version From Here : } 10 | { https://github.com/orwah/Arabic-Delphi-VCL-Units } 11 | { } 12 | {*******************************************************} 13 | 14 | 15 | {*******************************************************} 16 | { } 17 | { CodeGear Delphi Runtime Library } 18 | { } 19 | { Copyright(c) 1995-2017 Embarcadero Technologies, Inc. } 20 | { All rights reserved } 21 | { } 22 | {*******************************************************} 23 | 24 | unit System.SysConst; 25 | 26 | {$IFDEF ANDROID} 27 | {$define USE_LIBICU} 28 | {$ENDIF ANDROID} 29 | 30 | 31 | {$IFDEF LINUX} 32 | {$DEFINE USE_LIBICU} 33 | {$ENDIF LINUX} 34 | 35 | interface 36 | {$HPPEMIT LEGACYHPP} 37 | 38 | resourcestring 39 | SUnknown = '<غير معروف>'; 40 | SInvalidInteger = '''%s'' ليست قيمة مناسبة لرقم صحيح (بلا فاصلة)'; 41 | SInvalidInteger2 = '''%s'' ليست قيمة مناسبة لرقم صحيح (بلا فاصلة) للنمط %s '; 42 | SInvalidFloat = '''%s'' ليست قيمة مناسبة لرقم عشري (فاصلة عائمة)'; 43 | SInvalidFloat2 = '''%s'' ست قيمة مناسبة لرقم عشري (فاصلة عائمة) للنمط %s '; 44 | SInvalidCurrency = '''%s'' ليس قيمة مناسبة للدفعات النقدية'; 45 | SInvalidDate = '''%s'' ليس تاريخ صالح'; 46 | SInvalidTime = '''%s'' ليس وقت صالح'; 47 | SInvalidDateTime = '''%s'' ليست قيمة مناسبة للتاريخ'; 48 | SInvalidDateTimeFloat = '''%g'' ليست قيمة مناسبة للتاريخ والوقت'; 49 | SInvalidTimeStamp = '''%d.%d'' ليست قيمة منطقة زمنية مناسبة'; 50 | SInvalidGUID = '''%s'' ليست قيمة GUID صالحة'; 51 | SInvalidBoolean = '''%s'' ليست قيمة بوليانية مناسبة'; 52 | STimeEncodeError = 'معامل تنسيق الوقت غير مسموح'; 53 | SDateEncodeError = 'معامل تنسيق التاريخ غير مسموح'; 54 | SOutOfMemory = 'الذاكرة لاتكفي'; 55 | SInOutError = 'خطأ من نوع إدخال /إخراج %d'; 56 | SFileNotFound = 'الملف غير موجود'; 57 | SInvalidFilename = 'اسم ملف غير صالح'; 58 | STooManyOpenFiles = 'الملفات المفتوحة أكثر من المتوقع'; 59 | SAccessDenied = 'تم رفض الوصول للملف'; 60 | SEndOfFile = 'تجري القراءة خلف نهاية بيانات الملف'; 61 | SDiskFull = 'القرص ممتلئ'; 62 | SInvalidInput = 'إدخال قيمة رقمية غير صالحة'; 63 | SDivByZero = 'التقسيم على صفر'; 64 | SRangeError = 'خطأ في فحص المجال المسموح'; 65 | SIntOverflow = 'قيمة عدد صحيح فائضة'; 66 | SInvalidOp = 'عملية عشرية غير مسموحة'; 67 | SZeroDivide = 'قسمة عدد عشري على الصفر'; 68 | SOverflow = 'قيمة عدد عشري فائضة'; 69 | SUnderflow = 'قيمة عدد عشري دون المسموح'; 70 | SInvalidPointer = 'عملية مؤشرات غير مسموحة'; 71 | SInvalidCast = 'تحويل غير صالح للأصناف'; 72 | {$IFDEF MSWINDOWS} 73 | SAccessViolationArg3 = 'دخول انتهاكي للعنوان %p. %s من العنوان %p'; 74 | {$ENDIF MSWINDOWS} 75 | {$IF Defined(LINUX) or Defined(MACOS) or Defined(ANDROID)} 76 | SAccessViolationArg2 = 'دخول انتهاكي للعنوان %p, عنوان الدخول %p'; 77 | {$ENDIF LINUX or MACOS or ANDROID} 78 | SAccessViolationNoArg = 'دخول انتهاكي'; 79 | SStackOverflow = 'فيض في المكدس'; 80 | SControlC = 'إضغط Control-C'; 81 | SQuit = 'إضغط زر الخروج Quit'; 82 | SPrivilege = 'التعليمة تحتاج صلاحيات'; 83 | SOperationAborted = 'تم انهاء العملية'; 84 | SException = 'استثناء %s في وحدة %s في %p.' + sLineBreak + '%s%s' + sLineBreak; 85 | SExceptTitle = 'خطأ في التطبيق '; 86 | {$IF Defined(LINUX) or Defined(MACOS) or Defined(ANDROID)} 87 | SSigactionFailed = 'sigaction call failed'; 88 | SOSExceptionHandlingFailed = 'OS exception handling initialization failed'; 89 | {$ENDIF LINUX or MACOS or ANDROID} 90 | SInvalidFormat = 'التنسيق ''%s'' غير صالح أو غير متوافق مع المعامل'; 91 | SArgumentMissing = 'لامعامل من أجل التنسيق ''%s'''; 92 | SDispatchError = 'استدعاءات المناهج من نوع Variant غير مدعومة'; 93 | SReadAccess = 'قراءة'; 94 | SWriteAccess = 'كتابة'; 95 | SExecuteAccess = 'تنفيذ'; 96 | SInvalidAccess = 'دخول غير مسموح'; 97 | SResultTooLong = 'نتيجة التنسيق أكبر من 4096 محرف'; 98 | SFormatTooLong = 'نص التنسيق طويل جدا'; 99 | {$IFDEF MACOS} 100 | SCFStringFailed = 'خطأ في إنشاء CFString'; 101 | {$ENDIF MACOS} 102 | {$IF defined(USE_LIBICU)} 103 | SICUError = 'خطأ ICU : %d, %s'; 104 | SICUErrorOverflow = 'ICU Overflow Error: %d, %s, Needed Length=%d'; 105 | {$ENDIF defined(USE_LIBICU)} 106 | 107 | SVarArrayCreate = 'خطأ في إنشاء المتغير أو المصفوفة'; 108 | SVarArrayBounds = 'الفهرس المحدد خارج الحدود'; 109 | SVarArrayLocked = 'المتغير أو المصفوفة مقفلة'; 110 | SVarArrayWithHResult = 'خطأ غير متوقع في المتغير او المصفوفة : %s%.8x'; 111 | 112 | SInvalidVarCast = 'تغير غير صالح لنمط المتحول من نوع variant'; 113 | SInvalidVarOp = 'عملية غير صالحة على متحول من نمط variant'; 114 | SInvalidVarNullOp = 'عملية غير صالحة على متغير variant قيمته NULL'; 115 | SInvalidVarOpWithHResultWithPrefix = 'عملية غير صالحة على متغير من نمط variant (%s%.8x)'#10'%s'; 116 | SVarTypeRangeCheck1 = 'Range check error for variant of type (%s)'; 117 | SVarTypeRangeCheck2 = 'Range check error while converting variant of type (%s) into type (%s)'; 118 | SVarTypeOutOfRangeWithPrefix = 'Custom variant type (%s%.4x) is out of range'; 119 | SVarTypeAlreadyUsedWithPrefix = 'Custom variant type (%s%.4x) already used by %s'; 120 | SVarTypeNotUsableWithPrefix = 'Custom variant type (%s%.4x) is not usable'; 121 | SVarTypeTooManyCustom = 'Too many custom variant types have been registered'; 122 | 123 | // the following are not used anymore 124 | SVarNotArray = 'Variant is not an array' deprecated; // not used, use SVarInvalid instead 125 | SVarTypeUnknown = 'Unknown custom variant type ($%.4x)' deprecated; // not used anymore 126 | SVarTypeOutOfRange = 'Custom variant type ($%.4x) is out of range' deprecated; 127 | SVarTypeAlreadyUsed = 'Custom variant type ($%.4x) already used by %s' deprecated; 128 | SVarTypeNotUsable = 'Custom variant type ($%.4x) is not usable' deprecated; 129 | SInvalidVarOpWithHResult = 'Invalid variant operation ($%.8x)' deprecated; 130 | 131 | SVarTypeCouldNotConvert = 'لايمكن تحويل متحول variant من نمط (%s) الى نمط (%s)'; 132 | SVarTypeConvertOverflow = 'حدثت حالة فيض عند تغيير متحول variant من نمط (%s) إلى نمط (%s)'; 133 | SVarOverflow = 'حدثت حالة فيض مع متحول من نوع Variant'; 134 | SVarInvalid = 'معامل غير صالح'; 135 | SVarBadType = 'نمط متحول variant غير صالح'; 136 | SVarNotImplemented = 'العملية غير مدعومة'; 137 | SVarOutOfMemory = 'العملية على متحول Variant خرجت عن الذاكرة المخصصة'; 138 | SVarUnexpected = 'خطأ غير معروف في متحول variant'; 139 | 140 | SVarDataClearRecursing = 'Recursion while doing a VarDataClear'; 141 | SVarDataCopyRecursing = 'Recursion while doing a VarDataCopy'; 142 | SVarDataCopyNoIndRecursing = 'Recursion while doing a VarDataCopyNoInd'; 143 | SVarDataInitRecursing = 'Recursion while doing a VarDataInit'; 144 | SVarDataCastToRecursing = 'Recursion while doing a VarDataCastTo'; 145 | SVarIsEmpty = 'المتحول Variant فارغ'; 146 | sUnknownFromType = 'لايمكن التحويل من النمط المحدد'; 147 | sUnknownToType = 'لايمكن التحويل إلى النمط المحدد'; 148 | SExternalException = 'استثناء خارجي %x'; 149 | SAssertionFailed = 'فشل في التوكيد'; 150 | SIntfCastError = 'الواجهة غير مدعومة'; 151 | SSafecallException = 'Exception in safecall method'; 152 | SMonitorLockException = 'Object lock not owned'; 153 | SNoMonitorSupportException = 'Monitor support function not initialized'; 154 | SNotImplemented = 'الميزة غير مدعومة'; 155 | SObjectDisposed = 'Method called on disposed object'; 156 | SAssertError = '%s (%s, السطر %d)'; 157 | SAbstractError = 'Abstract Error'; 158 | SModuleAccessViolation = 'انتهاك في الوصول للعنوان %p في الوحدة ''%s''. %s للعنوان %p'; 159 | SCannotReadPackageInfo = 'لايمكن الدخول الى معلومات الرزمة , للحزمة ''%s'''; 160 | sErrorLoadingPackage = 'لايمكن تحميل الحزمة %s.'+sLineBreak+'%s'; 161 | SInvalidPackageFile = 'ملف الحزمة غير صالح ''%s'''; 162 | SInvalidPackageHandle = 'رقم مقبض الحزمة غير صالح'; 163 | SDuplicatePackageUnit = 'لايمكن تحميل الحزمة ''%s.'' انها تحوي الوحدة ''%s'', ' + 164 | 'والتي هي ايضا محتواة في الحزمة ''%s'''; 165 | SOSError = 'خطأ في النظام. الكود: %d.'+sLineBreak+'%s%s'; 166 | SUnkOSError = 'فشل استدعاء وظيفة من النظام'; 167 | {$IFDEF MSWINDOWS} 168 | SWin32Error = 'خطأ ويندوز32 , الرمز: %d.'#10'%s' deprecated 'Use SOSError'; 169 | SUnkWin32Error = 'A Win32 API function failed' deprecated 'Use SUnkOSError'; 170 | {$ENDIF} 171 | SNL = 'التطبيق غير مرخص لاستخدام هذه الميزة'; 172 | 173 | SShortMonthNameJan = 'كا2'; 174 | SShortMonthNameFeb = 'شبا'; 175 | SShortMonthNameMar = 'آذا'; 176 | SShortMonthNameApr = 'نيس'; 177 | SShortMonthNameMay = 'أيا'; 178 | SShortMonthNameJun = 'حزي'; 179 | SShortMonthNameJul = 'تمو'; 180 | SShortMonthNameAug = 'اب '; 181 | SShortMonthNameSep = 'ايل'; 182 | SShortMonthNameOct = 'تش1'; 183 | SShortMonthNameNov = 'تش2'; 184 | SShortMonthNameDec = 'كا1'; 185 | 186 | SLongMonthNameJan = 'كانون الثاني'; 187 | SLongMonthNameFeb = 'شباط'; 188 | SLongMonthNameMar = 'آذار'; 189 | SLongMonthNameApr = 'نيسان'; 190 | SLongMonthNameMay = 'أيار'; 191 | SLongMonthNameJun = 'حزيران'; 192 | SLongMonthNameJul = 'تموز'; 193 | SLongMonthNameAug = 'آب'; 194 | SLongMonthNameSep = 'أيلول'; 195 | SLongMonthNameOct = 'تشرين الأول'; 196 | SLongMonthNameNov = 'تشرين الثاني'; 197 | SLongMonthNameDec = 'كانون الأول'; 198 | 199 | SShortDayNameSun = 'احد'; 200 | SShortDayNameMon = 'إثن'; 201 | SShortDayNameTue = 'ثلا'; 202 | SShortDayNameWed = 'أرب'; 203 | SShortDayNameThu = 'خمي'; 204 | SShortDayNameFri = 'جمع'; 205 | SShortDayNameSat = 'سبت'; 206 | 207 | SLongDayNameSun = 'الأحد'; 208 | SLongDayNameMon = 'الإثنين'; 209 | SLongDayNameTue = 'الثلاثاء'; 210 | SLongDayNameWed = 'الأربعاء'; 211 | SLongDayNameThu = 'الخميس'; 212 | SLongDayNameFri = 'الجمعة'; 213 | SLongDayNameSat = 'السبت'; 214 | 215 | {$IFDEF POSIX} 216 | SEraEntries = ''; 217 | {$ENDIF} 218 | 219 | SCannotCreateDir = 'لايمكن إنشاء المجلد'; 220 | SCodesetConversionError = 'فشل في تحويل Codeset'; 221 | 222 | // Used by TEncoding 223 | SInvalidSourceArray = 'مصفوفة المصدر غير صالحة'; 224 | SInvalidDestinationArray = 'مصفوفة الوجهة غير صالحة'; 225 | SCharIndexOutOfBounds = 'فهرس المحرف خارج الحدود (%d)'; 226 | SByteIndexOutOfBounds = 'فهرس البداية خارج الحدود (%d)'; 227 | SInvalidCharCount = 'تعداد غير صالح (%d)'; 228 | SInvalidDestinationIndex = 'فهرس وجهة غير صالح (%d)'; 229 | SInvalidCodePage = 'صفحة الكود غير صالحة'; 230 | SInvalidEncodingName = 'اسم الترميز غير صالح'; 231 | SNoMappingForUnicodeCharacter = 'لايوجد تخطيط من اجل محارف يونيكود موجود في صفحة الكود الهدف multi-byte code page'; 232 | SInvalidStringBaseIndex = 'Invalid StringBaseIndex'; 233 | SOperationCancelled = 'العملية الغيت'; 234 | 235 | implementation 236 | 237 | end. 238 | -------------------------------------------------------------------------------- /Delphi10.3_Rio/System.SysConst.pas: -------------------------------------------------------------------------------- 1 | {*******************************************************} 2 | { } 3 | { Arabic Delphi VCL Units } 4 | { } 5 | { Modified by : Orwah Ali Issa (www.orwah.net) } 6 | { } 7 | { Delphi 10.3 Rio .. File Version 0.1 14/9/2019 } 8 | { } 9 | { Get Last Version From Here : } 10 | { https://github.com/orwah/Arabic-Delphi-VCL-Units } 11 | { } 12 | {*******************************************************} 13 | 14 | 15 | {*******************************************************} 16 | { } 17 | { CodeGear Delphi Runtime Library } 18 | { } 19 | { Copyright(c) 1995-2018 Embarcadero Technologies, Inc. } 20 | { All rights reserved } 21 | { } 22 | {*******************************************************} 23 | 24 | unit System.SysConst; 25 | 26 | {$IFDEF ANDROID} 27 | {$define USE_LIBICU} 28 | {$ENDIF ANDROID} 29 | 30 | 31 | {$IFDEF LINUX} 32 | {$DEFINE USE_LIBICU} 33 | {$ENDIF LINUX} 34 | 35 | interface 36 | {$HPPEMIT LEGACYHPP} 37 | 38 | resourcestring 39 | SUnknown = '<غير معروف>'; 40 | SInvalidInteger = '''%s'' ليست قيمة مناسبة لرقم صحيح (بلا فاصلة)'; 41 | SInvalidInteger2 = '''%s'' ليست قيمة مناسبة لرقم صحيح (بلا فاصلة) للنمط %s '; 42 | SInvalidFloat = '''%s'' ليست قيمة مناسبة لرقم عشري (فاصلة عائمة)'; 43 | SInvalidFloat2 = '''%s'' ست قيمة مناسبة لرقم عشري (فاصلة عائمة) للنمط %s '; 44 | SInvalidCurrency = '''%s'' ليس قيمة مناسبة للدفعات النقدية'; 45 | SInvalidDate = '''%s'' ليس تاريخ صالح'; 46 | SInvalidTime = '''%s'' ليس وقت صالح'; 47 | SInvalidDateTime = '''%s'' ليست قيمة مناسبة للتاريخ'; 48 | SInvalidDateTimeFloat = '''%g'' ليست قيمة مناسبة للتاريخ والوقت'; 49 | SInvalidTimeStamp = '''%d.%d'' ليست قيمة منطقة زمنية مناسبة'; 50 | SInvalidGUID = '''%s'' ليست قيمة GUID صالحة'; 51 | SInvalidBoolean = '''%s'' ليست قيمة بوليانية مناسبة'; 52 | STimeEncodeError = 'معامل تنسيق الوقت غير مسموح'; 53 | SDateEncodeError = 'معامل تنسيق التاريخ غير مسموح'; 54 | SOutOfMemory = 'الذاكرة لاتكفي'; 55 | SInOutError = 'خطأ من نوع إدخال /إخراج %d'; 56 | SFileNotFound = 'الملف غير موجود'; 57 | SInvalidFilename = 'اسم ملف غير صالح'; 58 | SInvalidUnknownFilename = 'اسم ملف غير صالح'; 59 | STooManyOpenFiles = 'الملفات المفتوحة أكثر من المتوقع'; 60 | SAccessDenied = 'تم رفض الوصول للملف'; 61 | SEndOfFile = 'تجري القراءة خلف نهاية بيانات الملف'; 62 | SDiskFull = 'القرص ممتلئ'; 63 | SInvalidInput = 'إدخال قيمة رقمية غير صالحة'; 64 | SDivByZero = 'التقسيم على صفر'; 65 | SRangeError = 'خطأ في فحص المجال المسموح'; 66 | SIntOverflow = 'قيمة عدد صحيح فائضة'; 67 | SInvalidOp = 'عملية عشرية غير مسموحة'; 68 | SZeroDivide = 'قسمة عدد عشري على الصفر'; 69 | SOverflow = 'قيمة عدد عشري فائضة'; 70 | SUnderflow = 'قيمة عدد عشري دون المسموح'; 71 | SInvalidPointer = 'عملية مؤشرات غير مسموحة'; 72 | SInvalidCast = 'تحويل غير صالح للأصناف'; 73 | {$IFDEF MSWINDOWS} 74 | SAccessViolationArg3 = 'دخول انتهاكي للعنوان %p. %s من العنوان %p'; 75 | {$ENDIF MSWINDOWS} 76 | {$IF Defined(LINUX) or Defined(MACOS) or Defined(ANDROID)} 77 | SAccessViolationArg2 = 'دخول انتهاكي للعنوان %p, عنوان الدخول %p'; 78 | {$ENDIF LINUX or MACOS or ANDROID} 79 | SAccessViolationNoArg = 'دخول انتهاكي'; 80 | SStackOverflow = 'فيض في المكدس'; 81 | SControlC = 'إضغط Control-C'; 82 | SQuit = 'إضغط زر الخروج Quit'; 83 | SPrivilege = 'التعليمة تحتاج صلاحيات'; 84 | SOperationAborted = 'تم انهاء العملية'; 85 | SException = 'استثناء %s في وحدة %s في %p.' + sLineBreak + '%s%s' + sLineBreak; 86 | SExceptTitle = 'خطأ في التطبيق '; 87 | {$IF Defined(LINUX) or Defined(MACOS) or Defined(ANDROID)} 88 | SSigactionFailed = 'sigaction call failed'; 89 | SOSExceptionHandlingFailed = 'OS exception handling initialization failed'; 90 | {$ENDIF LINUX or MACOS or ANDROID} 91 | SInvalidFormat = 'التنسيق ''%s'' غير صالح أو غير متوافق مع المعامل'; 92 | SArgumentMissing = 'لامعامل من أجل التنسيق ''%s'''; 93 | SDispatchError = 'استدعاءات المناهج من نوع Variant غير مدعومة'; 94 | SReadAccess = 'قراءة'; 95 | SWriteAccess = 'كتابة'; 96 | SExecuteAccess = 'تنفيذ'; 97 | SInvalidAccess = 'دخول غير مسموح'; 98 | SResultTooLong = 'نتيجة التنسيق أكبر من 4096 محرف'; 99 | SFormatTooLong = 'نص التنسيق طويل جدا'; 100 | {$IFDEF MACOS} 101 | SCFStringFailed = 'خطأ في إنشاء CFString'; 102 | {$ENDIF MACOS} 103 | {$IF defined(USE_LIBICU)} 104 | SICUError = 'خطأ ICU : %d, %s'; 105 | SICUErrorOverflow = 'ICU Overflow Error: %d, %s, Needed Length=%d'; 106 | {$ENDIF defined(USE_LIBICU)} 107 | 108 | SVarArrayCreate = 'خطأ في إنشاء المتغير أو المصفوفة'; 109 | SVarArrayBounds = 'الفهرس المحدد خارج الحدود'; 110 | SVarArrayLocked = 'المتغير أو المصفوفة مقفلة'; 111 | SVarArrayWithHResult = 'خطأ غير متوقع في المتغير او المصفوفة : %s%.8x'; 112 | 113 | SInvalidVarCast = 'تغير غير صالح لنمط المتحول من نوع variant'; 114 | SInvalidVarOp = 'عملية غير صالحة على متحول من نمط variant'; 115 | SInvalidVarNullOp = 'عملية غير صالحة على متغير variant قيمته NULL'; 116 | SInvalidVarOpWithHResultWithPrefix = 'عملية غير صالحة على متغير من نمط variant (%s%.8x)'#10'%s'; 117 | SVarTypeRangeCheck1 = 'Range check error for variant of type (%s)'; 118 | SVarTypeRangeCheck2 = 'Range check error while converting variant of type (%s) into type (%s)'; 119 | SVarTypeOutOfRangeWithPrefix = 'Custom variant type (%s%.4x) is out of range'; 120 | SVarTypeAlreadyUsedWithPrefix = 'Custom variant type (%s%.4x) already used by %s'; 121 | SVarTypeNotUsableWithPrefix = 'Custom variant type (%s%.4x) is not usable'; 122 | SVarTypeTooManyCustom = 'Too many custom variant types have been registered'; 123 | 124 | // the following are not used anymore 125 | SVarNotArray = 'Variant is not an array' deprecated; // not used, use SVarInvalid instead 126 | SVarTypeUnknown = 'Unknown custom variant type ($%.4x)' deprecated; // not used anymore 127 | SVarTypeOutOfRange = 'Custom variant type ($%.4x) is out of range' deprecated; 128 | SVarTypeAlreadyUsed = 'Custom variant type ($%.4x) already used by %s' deprecated; 129 | SVarTypeNotUsable = 'Custom variant type ($%.4x) is not usable' deprecated; 130 | SInvalidVarOpWithHResult = 'Invalid variant operation ($%.8x)' deprecated; 131 | 132 | SVarTypeCouldNotConvert = 'لايمكن تحويل متحول variant من نمط (%s) الى نمط (%s)'; 133 | SVarTypeConvertOverflow = 'حدثت حالة فيض عند تغيير متحول variant من نمط (%s) إلى نمط (%s)'; 134 | SVarOverflow = 'حدثت حالة فيض مع متحول من نوع Variant'; 135 | SVarInvalid = 'معامل غير صالح'; 136 | SVarBadType = 'نمط متحول variant غير صالح'; 137 | SVarNotImplemented = 'العملية غير مدعومة'; 138 | SVarOutOfMemory = 'العملية على متحول Variant خرجت عن الذاكرة المخصصة'; 139 | SVarUnexpected = 'خطأ غير معروف في متحول variant'; 140 | 141 | SVarDataClearRecursing = 'Recursion while doing a VarDataClear'; 142 | SVarDataCopyRecursing = 'Recursion while doing a VarDataCopy'; 143 | SVarDataCopyNoIndRecursing = 'Recursion while doing a VarDataCopyNoInd'; 144 | SVarDataInitRecursing = 'Recursion while doing a VarDataInit'; 145 | SVarDataCastToRecursing = 'Recursion while doing a VarDataCastTo'; 146 | SVarIsEmpty = 'المتحول Variant فارغ'; 147 | sUnknownFromType = 'لايمكن التحويل من النمط المحدد'; 148 | sUnknownToType = 'لايمكن التحويل إلى النمط المحدد'; 149 | SExternalException = 'استثناء خارجي %x'; 150 | SAssertionFailed = 'فشل في التوكيد'; 151 | SIntfCastError = 'الواجهة غير مدعومة'; 152 | SSafecallException = 'Exception in safecall method'; 153 | SMonitorLockException = 'Object lock not owned'; 154 | SNoMonitorSupportException = 'Monitor support function not initialized'; 155 | SNotImplemented = 'الميزة غير مدعومة'; 156 | SObjectDisposed = 'Method called on disposed object'; 157 | SAssertError = '%s (%s, السطر %d)'; 158 | SAbstractError = 'Abstract Error'; 159 | SModuleAccessViolation = 'انتهاك في الوصول للعنوان %p في الوحدة ''%s''. %s للعنوان %p'; 160 | SCannotReadPackageInfo = 'لايمكن الدخول الى معلومات الرزمة , للحزمة ''%s'''; 161 | sErrorLoadingPackage = 'لايمكن تحميل الحزمة %s.'+sLineBreak+'%s'; 162 | SInvalidPackageFile = 'ملف الحزمة غير صالح ''%s'''; 163 | SInvalidPackageHandle = 'رقم مقبض الحزمة غير صالح'; 164 | SDuplicatePackageUnit = 'لايمكن تحميل الحزمة ''%s.'' انها تحوي الوحدة ''%s'', ' + 165 | 'والتي هي ايضا محتواة في الحزمة ''%s'''; 166 | SOSError = 'خطأ في النظام. الكود: %d.'+sLineBreak+'%s%s'; 167 | SUnkOSError = 'فشل استدعاء وظيفة من النظام'; 168 | {$IFDEF MSWINDOWS} 169 | SWin32Error = 'خطأ ويندوز32 , الرمز: %d.'#10'%s' deprecated 'Use SOSError'; 170 | SUnkWin32Error = 'A Win32 API function failed' deprecated 'Use SUnkOSError'; 171 | {$ENDIF} 172 | SNL = 'التطبيق غير مرخص لاستخدام هذه الميزة'; 173 | 174 | SShortMonthNameJan = 'كا2'; 175 | SShortMonthNameFeb = 'شبا'; 176 | SShortMonthNameMar = 'آذا'; 177 | SShortMonthNameApr = 'نيس'; 178 | SShortMonthNameMay = 'أيا'; 179 | SShortMonthNameJun = 'حزي'; 180 | SShortMonthNameJul = 'تمو'; 181 | SShortMonthNameAug = 'اب '; 182 | SShortMonthNameSep = 'ايل'; 183 | SShortMonthNameOct = 'تش1'; 184 | SShortMonthNameNov = 'تش2'; 185 | SShortMonthNameDec = 'كا1'; 186 | 187 | SLongMonthNameJan = 'كانون الثاني'; 188 | SLongMonthNameFeb = 'شباط'; 189 | SLongMonthNameMar = 'آذار'; 190 | SLongMonthNameApr = 'نيسان'; 191 | SLongMonthNameMay = 'أيار'; 192 | SLongMonthNameJun = 'حزيران'; 193 | SLongMonthNameJul = 'تموز'; 194 | SLongMonthNameAug = 'آب'; 195 | SLongMonthNameSep = 'أيلول'; 196 | SLongMonthNameOct = 'تشرين الأول'; 197 | SLongMonthNameNov = 'تشرين الثاني'; 198 | SLongMonthNameDec = 'كانون الأول'; 199 | 200 | SShortDayNameSun = 'احد'; 201 | SShortDayNameMon = 'إثن'; 202 | SShortDayNameTue = 'ثلا'; 203 | SShortDayNameWed = 'أرب'; 204 | SShortDayNameThu = 'خمي'; 205 | SShortDayNameFri = 'جمع'; 206 | SShortDayNameSat = 'سبت'; 207 | 208 | SLongDayNameSun = 'الأحد'; 209 | SLongDayNameMon = 'الإثنين'; 210 | SLongDayNameTue = 'الثلاثاء'; 211 | SLongDayNameWed = 'الأربعاء'; 212 | SLongDayNameThu = 'الخميس'; 213 | SLongDayNameFri = 'الجمعة'; 214 | SLongDayNameSat = 'السبت'; 215 | 216 | {$IFDEF POSIX} 217 | SEraEntries = ''; 218 | {$ENDIF} 219 | 220 | SCannotCreateDir = 'لايمكن إنشاء المجلد'; 221 | SCodesetConversionError = 'فشل في تحويل Codeset'; 222 | 223 | // Used by TEncoding 224 | SInvalidSourceArray = 'مصفوفة المصدر غير صالحة'; 225 | SInvalidDestinationArray = 'مصفوفة الوجهة غير صالحة'; 226 | SCharIndexOutOfBounds = 'فهرس المحرف خارج الحدود (%d)'; 227 | SByteIndexOutOfBounds = 'فهرس البداية خارج الحدود (%d)'; 228 | SInvalidCharCount = 'تعداد غير صالح (%d)'; 229 | SInvalidDestinationIndex = 'فهرس وجهة غير صالح (%d)'; 230 | SInvalidCodePage = 'صفحة الكود غير صالحة'; 231 | SInvalidEncodingName = 'اسم الترميز غير صالح'; 232 | SNoMappingForUnicodeCharacter = 'لايوجد تخطيط من اجل محارف يونيكود موجود في صفحة الكود الهدف multi-byte code page'; 233 | SInvalidStringBaseIndex = 'Invalid StringBaseIndex'; 234 | SOperationCancelled = 'العملية الغيت'; 235 | 236 | implementation 237 | 238 | end. 239 | -------------------------------------------------------------------------------- /Demos/Arabic_Units/System.SysConst.pas: -------------------------------------------------------------------------------- 1 | {*******************************************************} 2 | { } 3 | { Arabic Delphi VCL Units } 4 | { } 5 | { Modified by : Orwah Ali Issa (www.orwah.net) } 6 | { } 7 | { Delphi 10.3 Rio .. File Version 0.1 14/9/2019 } 8 | { } 9 | { Get Last Version From Here : } 10 | { https://github.com/orwah/Arabic-Delphi-VCL-Units } 11 | { } 12 | {*******************************************************} 13 | 14 | 15 | {*******************************************************} 16 | { } 17 | { CodeGear Delphi Runtime Library } 18 | { } 19 | { Copyright(c) 1995-2018 Embarcadero Technologies, Inc. } 20 | { All rights reserved } 21 | { } 22 | {*******************************************************} 23 | 24 | unit System.SysConst; 25 | 26 | {$IFDEF ANDROID} 27 | {$define USE_LIBICU} 28 | {$ENDIF ANDROID} 29 | 30 | 31 | {$IFDEF LINUX} 32 | {$DEFINE USE_LIBICU} 33 | {$ENDIF LINUX} 34 | 35 | interface 36 | {$HPPEMIT LEGACYHPP} 37 | 38 | resourcestring 39 | SUnknown = '<غير معروف>'; 40 | SInvalidInteger = '''%s'' ليست قيمة مناسبة لرقم صحيح (بلا فاصلة)'; 41 | SInvalidInteger2 = '''%s'' ليست قيمة مناسبة لرقم صحيح (بلا فاصلة) للنمط %s '; 42 | SInvalidFloat = '''%s'' ليست قيمة مناسبة لرقم عشري (فاصلة عائمة)'; 43 | SInvalidFloat2 = '''%s'' ست قيمة مناسبة لرقم عشري (فاصلة عائمة) للنمط %s '; 44 | SInvalidCurrency = '''%s'' ليس قيمة مناسبة للدفعات النقدية'; 45 | SInvalidDate = '''%s'' ليس تاريخ صالح'; 46 | SInvalidTime = '''%s'' ليس وقت صالح'; 47 | SInvalidDateTime = '''%s'' ليست قيمة مناسبة للتاريخ'; 48 | SInvalidDateTimeFloat = '''%g'' ليست قيمة مناسبة للتاريخ والوقت'; 49 | SInvalidTimeStamp = '''%d.%d'' ليست قيمة منطقة زمنية مناسبة'; 50 | SInvalidGUID = '''%s'' ليست قيمة GUID صالحة'; 51 | SInvalidBoolean = '''%s'' ليست قيمة بوليانية مناسبة'; 52 | STimeEncodeError = 'معامل تنسيق الوقت غير مسموح'; 53 | SDateEncodeError = 'معامل تنسيق التاريخ غير مسموح'; 54 | SOutOfMemory = 'الذاكرة لاتكفي'; 55 | SInOutError = 'خطأ من نوع إدخال /إخراج %d'; 56 | SFileNotFound = 'الملف غير موجود'; 57 | SInvalidFilename = 'اسم ملف غير صالح'; 58 | SInvalidUnknownFilename = 'اسم ملف غير صالح'; 59 | STooManyOpenFiles = 'الملفات المفتوحة أكثر من المتوقع'; 60 | SAccessDenied = 'تم رفض الوصول للملف'; 61 | SEndOfFile = 'تجري القراءة خلف نهاية بيانات الملف'; 62 | SDiskFull = 'القرص ممتلئ'; 63 | SInvalidInput = 'إدخال قيمة رقمية غير صالحة'; 64 | SDivByZero = 'التقسيم على صفر'; 65 | SRangeError = 'خطأ في فحص المجال المسموح'; 66 | SIntOverflow = 'قيمة عدد صحيح فائضة'; 67 | SInvalidOp = 'عملية عشرية غير مسموحة'; 68 | SZeroDivide = 'قسمة عدد عشري على الصفر'; 69 | SOverflow = 'قيمة عدد عشري فائضة'; 70 | SUnderflow = 'قيمة عدد عشري دون المسموح'; 71 | SInvalidPointer = 'عملية مؤشرات غير مسموحة'; 72 | SInvalidCast = 'تحويل غير صالح للأصناف'; 73 | {$IFDEF MSWINDOWS} 74 | SAccessViolationArg3 = 'دخول انتهاكي للعنوان %p. %s من العنوان %p'; 75 | {$ENDIF MSWINDOWS} 76 | {$IF Defined(LINUX) or Defined(MACOS) or Defined(ANDROID)} 77 | SAccessViolationArg2 = 'دخول انتهاكي للعنوان %p, عنوان الدخول %p'; 78 | {$ENDIF LINUX or MACOS or ANDROID} 79 | SAccessViolationNoArg = 'دخول انتهاكي'; 80 | SStackOverflow = 'فيض في المكدس'; 81 | SControlC = 'إضغط Control-C'; 82 | SQuit = 'إضغط زر الخروج Quit'; 83 | SPrivilege = 'التعليمة تحتاج صلاحيات'; 84 | SOperationAborted = 'تم انهاء العملية'; 85 | SException = 'استثناء %s في وحدة %s في %p.' + sLineBreak + '%s%s' + sLineBreak; 86 | SExceptTitle = 'خطأ في التطبيق '; 87 | {$IF Defined(LINUX) or Defined(MACOS) or Defined(ANDROID)} 88 | SSigactionFailed = 'sigaction call failed'; 89 | SOSExceptionHandlingFailed = 'OS exception handling initialization failed'; 90 | {$ENDIF LINUX or MACOS or ANDROID} 91 | SInvalidFormat = 'التنسيق ''%s'' غير صالح أو غير متوافق مع المعامل'; 92 | SArgumentMissing = 'لامعامل من أجل التنسيق ''%s'''; 93 | SDispatchError = 'استدعاءات المناهج من نوع Variant غير مدعومة'; 94 | SReadAccess = 'قراءة'; 95 | SWriteAccess = 'كتابة'; 96 | SExecuteAccess = 'تنفيذ'; 97 | SInvalidAccess = 'دخول غير مسموح'; 98 | SResultTooLong = 'نتيجة التنسيق أكبر من 4096 محرف'; 99 | SFormatTooLong = 'نص التنسيق طويل جدا'; 100 | {$IFDEF MACOS} 101 | SCFStringFailed = 'خطأ في إنشاء CFString'; 102 | {$ENDIF MACOS} 103 | {$IF defined(USE_LIBICU)} 104 | SICUError = 'خطأ ICU : %d, %s'; 105 | SICUErrorOverflow = 'ICU Overflow Error: %d, %s, Needed Length=%d'; 106 | {$ENDIF defined(USE_LIBICU)} 107 | 108 | SVarArrayCreate = 'خطأ في إنشاء المتغير أو المصفوفة'; 109 | SVarArrayBounds = 'الفهرس المحدد خارج الحدود'; 110 | SVarArrayLocked = 'المتغير أو المصفوفة مقفلة'; 111 | SVarArrayWithHResult = 'خطأ غير متوقع في المتغير او المصفوفة : %s%.8x'; 112 | 113 | SInvalidVarCast = 'تغير غير صالح لنمط المتحول من نوع variant'; 114 | SInvalidVarOp = 'عملية غير صالحة على متحول من نمط variant'; 115 | SInvalidVarNullOp = 'عملية غير صالحة على متغير variant قيمته NULL'; 116 | SInvalidVarOpWithHResultWithPrefix = 'عملية غير صالحة على متغير من نمط variant (%s%.8x)'#10'%s'; 117 | SVarTypeRangeCheck1 = 'Range check error for variant of type (%s)'; 118 | SVarTypeRangeCheck2 = 'Range check error while converting variant of type (%s) into type (%s)'; 119 | SVarTypeOutOfRangeWithPrefix = 'Custom variant type (%s%.4x) is out of range'; 120 | SVarTypeAlreadyUsedWithPrefix = 'Custom variant type (%s%.4x) already used by %s'; 121 | SVarTypeNotUsableWithPrefix = 'Custom variant type (%s%.4x) is not usable'; 122 | SVarTypeTooManyCustom = 'Too many custom variant types have been registered'; 123 | 124 | // the following are not used anymore 125 | SVarNotArray = 'Variant is not an array' deprecated; // not used, use SVarInvalid instead 126 | SVarTypeUnknown = 'Unknown custom variant type ($%.4x)' deprecated; // not used anymore 127 | SVarTypeOutOfRange = 'Custom variant type ($%.4x) is out of range' deprecated; 128 | SVarTypeAlreadyUsed = 'Custom variant type ($%.4x) already used by %s' deprecated; 129 | SVarTypeNotUsable = 'Custom variant type ($%.4x) is not usable' deprecated; 130 | SInvalidVarOpWithHResult = 'Invalid variant operation ($%.8x)' deprecated; 131 | 132 | SVarTypeCouldNotConvert = 'لايمكن تحويل متحول variant من نمط (%s) الى نمط (%s)'; 133 | SVarTypeConvertOverflow = 'حدثت حالة فيض عند تغيير متحول variant من نمط (%s) إلى نمط (%s)'; 134 | SVarOverflow = 'حدثت حالة فيض مع متحول من نوع Variant'; 135 | SVarInvalid = 'معامل غير صالح'; 136 | SVarBadType = 'نمط متحول variant غير صالح'; 137 | SVarNotImplemented = 'العملية غير مدعومة'; 138 | SVarOutOfMemory = 'العملية على متحول Variant خرجت عن الذاكرة المخصصة'; 139 | SVarUnexpected = 'خطأ غير معروف في متحول variant'; 140 | 141 | SVarDataClearRecursing = 'Recursion while doing a VarDataClear'; 142 | SVarDataCopyRecursing = 'Recursion while doing a VarDataCopy'; 143 | SVarDataCopyNoIndRecursing = 'Recursion while doing a VarDataCopyNoInd'; 144 | SVarDataInitRecursing = 'Recursion while doing a VarDataInit'; 145 | SVarDataCastToRecursing = 'Recursion while doing a VarDataCastTo'; 146 | SVarIsEmpty = 'المتحول Variant فارغ'; 147 | sUnknownFromType = 'لايمكن التحويل من النمط المحدد'; 148 | sUnknownToType = 'لايمكن التحويل إلى النمط المحدد'; 149 | SExternalException = 'استثناء خارجي %x'; 150 | SAssertionFailed = 'فشل في التوكيد'; 151 | SIntfCastError = 'الواجهة غير مدعومة'; 152 | SSafecallException = 'Exception in safecall method'; 153 | SMonitorLockException = 'Object lock not owned'; 154 | SNoMonitorSupportException = 'Monitor support function not initialized'; 155 | SNotImplemented = 'الميزة غير مدعومة'; 156 | SObjectDisposed = 'Method called on disposed object'; 157 | SAssertError = '%s (%s, السطر %d)'; 158 | SAbstractError = 'Abstract Error'; 159 | SModuleAccessViolation = 'انتهاك في الوصول للعنوان %p في الوحدة ''%s''. %s للعنوان %p'; 160 | SCannotReadPackageInfo = 'لايمكن الدخول الى معلومات الرزمة , للحزمة ''%s'''; 161 | sErrorLoadingPackage = 'لايمكن تحميل الحزمة %s.'+sLineBreak+'%s'; 162 | SInvalidPackageFile = 'ملف الحزمة غير صالح ''%s'''; 163 | SInvalidPackageHandle = 'رقم مقبض الحزمة غير صالح'; 164 | SDuplicatePackageUnit = 'لايمكن تحميل الحزمة ''%s.'' انها تحوي الوحدة ''%s'', ' + 165 | 'والتي هي ايضا محتواة في الحزمة ''%s'''; 166 | SOSError = 'خطأ في النظام. الكود: %d.'+sLineBreak+'%s%s'; 167 | SUnkOSError = 'فشل استدعاء وظيفة من النظام'; 168 | {$IFDEF MSWINDOWS} 169 | SWin32Error = 'خطأ ويندوز32 , الرمز: %d.'#10'%s' deprecated 'Use SOSError'; 170 | SUnkWin32Error = 'A Win32 API function failed' deprecated 'Use SUnkOSError'; 171 | {$ENDIF} 172 | SNL = 'التطبيق غير مرخص لاستخدام هذه الميزة'; 173 | 174 | SShortMonthNameJan = 'كا2'; 175 | SShortMonthNameFeb = 'شبا'; 176 | SShortMonthNameMar = 'آذا'; 177 | SShortMonthNameApr = 'نيس'; 178 | SShortMonthNameMay = 'أيا'; 179 | SShortMonthNameJun = 'حزي'; 180 | SShortMonthNameJul = 'تمو'; 181 | SShortMonthNameAug = 'اب '; 182 | SShortMonthNameSep = 'ايل'; 183 | SShortMonthNameOct = 'تش1'; 184 | SShortMonthNameNov = 'تش2'; 185 | SShortMonthNameDec = 'كا1'; 186 | 187 | SLongMonthNameJan = 'كانون الثاني'; 188 | SLongMonthNameFeb = 'شباط'; 189 | SLongMonthNameMar = 'آذار'; 190 | SLongMonthNameApr = 'نيسان'; 191 | SLongMonthNameMay = 'أيار'; 192 | SLongMonthNameJun = 'حزيران'; 193 | SLongMonthNameJul = 'تموز'; 194 | SLongMonthNameAug = 'آب'; 195 | SLongMonthNameSep = 'أيلول'; 196 | SLongMonthNameOct = 'تشرين الأول'; 197 | SLongMonthNameNov = 'تشرين الثاني'; 198 | SLongMonthNameDec = 'كانون الأول'; 199 | 200 | SShortDayNameSun = 'احد'; 201 | SShortDayNameMon = 'إثن'; 202 | SShortDayNameTue = 'ثلا'; 203 | SShortDayNameWed = 'أرب'; 204 | SShortDayNameThu = 'خمي'; 205 | SShortDayNameFri = 'جمع'; 206 | SShortDayNameSat = 'سبت'; 207 | 208 | SLongDayNameSun = 'الأحد'; 209 | SLongDayNameMon = 'الإثنين'; 210 | SLongDayNameTue = 'الثلاثاء'; 211 | SLongDayNameWed = 'الأربعاء'; 212 | SLongDayNameThu = 'الخميس'; 213 | SLongDayNameFri = 'الجمعة'; 214 | SLongDayNameSat = 'السبت'; 215 | 216 | {$IFDEF POSIX} 217 | SEraEntries = ''; 218 | {$ENDIF} 219 | 220 | SCannotCreateDir = 'لايمكن إنشاء المجلد'; 221 | SCodesetConversionError = 'فشل في تحويل Codeset'; 222 | 223 | // Used by TEncoding 224 | SInvalidSourceArray = 'مصفوفة المصدر غير صالحة'; 225 | SInvalidDestinationArray = 'مصفوفة الوجهة غير صالحة'; 226 | SCharIndexOutOfBounds = 'فهرس المحرف خارج الحدود (%d)'; 227 | SByteIndexOutOfBounds = 'فهرس البداية خارج الحدود (%d)'; 228 | SInvalidCharCount = 'تعداد غير صالح (%d)'; 229 | SInvalidDestinationIndex = 'فهرس وجهة غير صالح (%d)'; 230 | SInvalidCodePage = 'صفحة الكود غير صالحة'; 231 | SInvalidEncodingName = 'اسم الترميز غير صالح'; 232 | SNoMappingForUnicodeCharacter = 'لايوجد تخطيط من اجل محارف يونيكود موجود في صفحة الكود الهدف multi-byte code page'; 233 | SInvalidStringBaseIndex = 'Invalid StringBaseIndex'; 234 | SOperationCancelled = 'العملية الغيت'; 235 | 236 | implementation 237 | 238 | end. 239 | -------------------------------------------------------------------------------- /Delphi10.2_Tokyo/FireDAC.VCLUI.Error.dfm: -------------------------------------------------------------------------------- 1 | inherited frmFDGUIxFormsError: TfrmFDGUIxFormsError 2 | Left = 374 3 | Top = 372 4 | Caption = 'FireDAC Error' 5 | ClientHeight = 424 6 | ClientWidth = 445 7 | FormStyle = fsStayOnTop 8 | KeyPreview = True 9 | OldCreateOrder = True 10 | OnCreate = FormCreate 11 | OnDestroy = FormDestroy 12 | OnKeyDown = FormKeyDown 13 | OnResize = FormResize 14 | OnShow = FormShow 15 | ExplicitWidth = 451 16 | ExplicitHeight = 452 17 | PixelsPerInch = 96 18 | TextHeight = 13 19 | inherited pnlTop: TPanel 20 | Width = 445 21 | ExplicitWidth = 445 22 | inherited Bevel2: TBevel 23 | Width = 434 24 | ExplicitWidth = 434 25 | end 26 | inherited Image2: TImage 27 | Left = 405 28 | ExplicitLeft = 405 29 | end 30 | inherited lblPrompt: TLabel 31 | Left = 175 32 | Width = 226 33 | Caption = #1602#1575#1605' '#1575#1604#1576#1585#1606#1575#1605#1580' '#1576#1593#1605#1604#1610#1577' '#1594#1610#1585' '#1589#1575#1604#1581#1577' '#1601#1610' '#1602#1575#1593#1583#1577' '#1575#1604#1576#1610#1575#1606#1575#1578' :' 34 | ExplicitLeft = 175 35 | ExplicitWidth = 226 36 | end 37 | end 38 | inherited pnlButtons: TPanel 39 | Top = 123 40 | Width = 445 41 | Height = 35 42 | TabOrder = 2 43 | ExplicitTop = 123 44 | ExplicitWidth = 445 45 | ExplicitHeight = 35 46 | inherited Bevel3: TBevel 47 | Top = 0 48 | Width = 434 49 | Height = 31 50 | ExplicitTop = 0 51 | ExplicitWidth = 434 52 | ExplicitHeight = 31 53 | end 54 | inherited btnOk: TButton 55 | Left = 364 56 | Top = 6 57 | TabOrder = 1 58 | ExplicitLeft = 364 59 | ExplicitTop = 6 60 | end 61 | inherited btnCancel: TButton 62 | Left = 86 63 | Top = 6 64 | Cancel = False 65 | Caption = #1578#1601#1575#1589#1610#1604 66 | ModalResult = 0 67 | TabOrder = 2 68 | OnClick = DetailsBtnClick 69 | ExplicitLeft = 86 70 | ExplicitTop = 6 71 | end 72 | object btnCopy: TButton 73 | Left = 5 74 | Top = 6 75 | Width = 75 76 | Height = 23 77 | Caption = '&'#1606#1587#1582 78 | TabOrder = 0 79 | OnClick = btnCopyClick 80 | end 81 | end 82 | object pnlAdvanced: TPanel 83 | Left = 0 84 | Top = 158 85 | Width = 445 86 | Height = 266 87 | Align = alBottom 88 | BevelOuter = bvNone 89 | TabOrder = 1 90 | Visible = False 91 | DesignSize = ( 92 | 445 93 | 266) 94 | object pcAdvanced: TPageControl 95 | Left = 5 96 | Top = 0 97 | Width = 436 98 | Height = 261 99 | ActivePage = tsAdvanced 100 | Anchors = [akLeft, akTop, akRight, akBottom] 101 | TabOrder = 0 102 | object tsAdvanced: TTabSheet 103 | Caption = ' '#1575#1604#1582#1591#1571' ' 104 | DesignSize = ( 105 | 428 106 | 233) 107 | object Bevel1: TBevel 108 | Left = 5 109 | Top = 200 110 | Width = 418 111 | Height = 32 112 | Anchors = [akLeft, akRight, akBottom] 113 | Shape = bsTopLine 114 | end 115 | object NativeLabel: TLabel 116 | Left = 362 117 | Top = 30 118 | Width = 51 119 | Height = 13 120 | Anchors = [akTop, akRight] 121 | Caption = #1585#1602#1605' '#1575#1604#1582#1591#1571' :' 122 | end 123 | object Label1: TLabel 124 | Left = 355 125 | Top = 147 126 | Width = 68 127 | Height = 13 128 | Anchors = [akRight, akBottom] 129 | Caption = #1594#1585#1590' '#1575#1604#1605#1582#1583#1605' :' 130 | end 131 | object Label2: TLabel 132 | Left = 217 133 | Top = 30 134 | Width = 49 135 | Height = 13 136 | Anchors = [akTop, akRight] 137 | Caption = #1606#1608#1593' '#1575#1604#1582#1591#1571' :' 138 | end 139 | object Label3: TLabel 140 | Left = 334 141 | Top = 173 142 | Width = 89 143 | Height = 13 144 | Anchors = [akRight, akBottom] 145 | Caption = #1573#1586#1575#1581#1577' '#1606#1589' '#1575#1604#1578#1593#1604#1610#1605#1577' :' 146 | end 147 | object Label4: TLabel 148 | Left = 362 149 | Top = 52 150 | Width = 61 151 | Height = 13 152 | Anchors = [akTop, akRight] 153 | Caption = #1585#1587#1575#1604#1577' '#1575#1604#1582#1591#1571' :' 154 | end 155 | object Label8: TLabel 156 | Left = 320 157 | Top = 5 158 | Width = 103 159 | Height = 13 160 | Anchors = [akTop, akRight] 161 | Caption = #1605#1593#1604#1608#1605#1575#1578' '#1575#1604#1582#1591#1600#1571' '#1575#1604#1606#1575#1578#1580' :' 162 | end 163 | object edtErrorCode: TEdit 164 | Left = 285 165 | Top = 27 166 | Width = 72 167 | Height = 21 168 | TabStop = False 169 | Anchors = [akTop, akRight] 170 | BiDiMode = bdLeftToRight 171 | ParentBiDiMode = False 172 | ReadOnly = True 173 | TabOrder = 0 174 | Text = '00000' 175 | end 176 | object edtServerObject: TEdit 177 | Left = 5 178 | Top = 144 179 | Width = 316 180 | Height = 21 181 | TabStop = False 182 | Anchors = [akLeft, akRight, akBottom] 183 | BiDiMode = bdLeftToRight 184 | ParentBiDiMode = False 185 | ReadOnly = True 186 | TabOrder = 2 187 | Text = 'QWE' 188 | end 189 | object edtMessage: TMemo 190 | Left = 7 191 | Top = 71 192 | Width = 418 193 | Height = 66 194 | TabStop = False 195 | Anchors = [akLeft, akTop, akRight, akBottom] 196 | BiDiMode = bdLeftToRight 197 | Lines.Strings = ( 198 | 'DbMessageText') 199 | ParentBiDiMode = False 200 | ReadOnly = True 201 | ScrollBars = ssVertical 202 | TabOrder = 1 203 | end 204 | object edtErrorKind: TEdit 205 | Left = 93 206 | Top = 27 207 | Width = 117 208 | Height = 21 209 | TabStop = False 210 | Anchors = [akTop, akRight] 211 | BiDiMode = bdLeftToRight 212 | ParentBiDiMode = False 213 | ReadOnly = True 214 | TabOrder = 6 215 | Text = 'RecordLocked' 216 | end 217 | object edtCommandTextOffset: TEdit 218 | Left = 263 219 | Top = 170 220 | Width = 58 221 | Height = 21 222 | TabStop = False 223 | Anchors = [akRight, akBottom] 224 | BiDiMode = bdLeftToRight 225 | ParentBiDiMode = False 226 | ReadOnly = True 227 | TabOrder = 3 228 | Text = '00000' 229 | end 230 | object btnPrior: TButton 231 | Left = 81 232 | Top = 207 233 | Width = 75 234 | Height = 23 235 | Hint = #1575#1604#1587#1575#1576#1602 236 | Anchors = [akRight, akBottom] 237 | Caption = '&<<' 238 | ParentShowHint = False 239 | ShowHint = True 240 | TabOrder = 4 241 | OnClick = BackClick 242 | end 243 | object btnNext: TButton 244 | Left = 0 245 | Top = 207 246 | Width = 75 247 | Height = 23 248 | Hint = #1575#1604#1578#1575#1604#1610 249 | Anchors = [akLeft, akBottom] 250 | Caption = '>&>' 251 | ParentShowHint = False 252 | ShowHint = True 253 | TabOrder = 5 254 | OnClick = NextClick 255 | end 256 | end 257 | object tsQuery: TTabSheet 258 | Caption = ' '#1575#1604#1575#1587#1578#1593#1604#1575#1605' ' 259 | ImageIndex = 1 260 | DesignSize = ( 261 | 428 262 | 233) 263 | object Label9: TLabel 264 | Left = 360 265 | Top = 26 266 | Width = 63 267 | Height = 13 268 | Anchors = [akTop, akRight] 269 | Caption = #1606#1589' '#1575#1604#1578#1593#1604#1610#1605#1577' :' 270 | end 271 | object Label5: TLabel 272 | Left = 336 273 | Top = 131 274 | Width = 87 275 | Height = 13 276 | Anchors = [akRight, akBottom] 277 | Caption = #1576#1575#1585#1575#1605#1578#1585#1575#1578' '#1575#1604#1578#1593#1604#1610#1605#1577' :' 278 | end 279 | object Label10: TLabel 280 | Left = 283 281 | Top = 5 282 | Width = 140 283 | Height = 13 284 | Anchors = [akTop, akRight] 285 | Caption = #1605#1593#1604#1608#1605#1575#1578' '#1575#1604#1593#1605#1604#1610#1577' '#1575#1604#1578#1610' '#1601#1588#1604#1578' :' 286 | end 287 | object lvCommandParams: TListView 288 | Left = 5 289 | Top = 150 290 | Width = 418 291 | Height = 78 292 | Anchors = [akLeft, akRight, akBottom] 293 | BiDiMode = bdLeftToRight 294 | Columns = < 295 | item 296 | Caption = #1575#1604#1575#1587#1605 297 | Width = 150 298 | end 299 | item 300 | Caption = #1575#1604#1602#1610#1605#1577 301 | Width = 250 302 | end> 303 | ParentBiDiMode = False 304 | TabOrder = 0 305 | ViewStyle = vsReport 306 | end 307 | end 308 | object tsOther: TTabSheet 309 | Caption = ' '#1575#1604#1605#1586#1610#1583' ' 310 | ImageIndex = 2 311 | DesignSize = ( 312 | 428 313 | 233) 314 | object Label6: TLabel 315 | Left = 5 316 | Top = 29 317 | Width = 106 318 | Height = 13 319 | BiDiMode = bdLeftToRight 320 | Caption = 'Exception class name:' 321 | ParentBiDiMode = False 322 | end 323 | object Label7: TLabel 324 | Left = 5 325 | Top = 56 326 | Width = 96 327 | Height = 13 328 | BiDiMode = bdLeftToRight 329 | Caption = 'FireDAC error code:' 330 | ParentBiDiMode = False 331 | end 332 | object Label11: TLabel 333 | Left = 5 334 | Top = 5 335 | Width = 141 336 | Height = 13 337 | Caption = 'Exception Object Information' 338 | end 339 | object Label12: TLabel 340 | Left = 5 341 | Top = 83 342 | Width = 105 343 | Height = 13 344 | BiDiMode = bdLeftToRight 345 | Caption = 'FireDAC object name:' 346 | ParentBiDiMode = False 347 | end 348 | object edtClassName: TEdit 349 | Left = 191 350 | Top = 26 351 | Width = 160 352 | Height = 21 353 | TabStop = False 354 | BiDiMode = bdLeftToRight 355 | ParentBiDiMode = False 356 | ReadOnly = True 357 | TabOrder = 0 358 | Text = 'EODBCNativeException' 359 | end 360 | object edtADCode: TEdit 361 | Left = 191 362 | Top = 53 363 | Width = 160 364 | Height = 21 365 | TabStop = False 366 | BiDiMode = bdLeftToRight 367 | ParentBiDiMode = False 368 | ReadOnly = True 369 | TabOrder = 1 370 | Text = '12345' 371 | end 372 | object edtADObjName: TEdit 373 | Left = 191 374 | Top = 80 375 | Width = 234 376 | Height = 21 377 | TabStop = False 378 | Anchors = [akLeft, akTop, akRight] 379 | BiDiMode = bdLeftToRight 380 | ParentBiDiMode = False 381 | ReadOnly = True 382 | TabOrder = 2 383 | Text = 'FDQuery1' 384 | end 385 | end 386 | end 387 | end 388 | object pnlMsg: TPanel 389 | Left = 0 390 | Top = 39 391 | Width = 445 392 | Height = 84 393 | Align = alClient 394 | BevelOuter = bvNone 395 | TabOrder = 3 396 | object memMsg: TMemo 397 | Left = 5 398 | Top = 2 399 | Width = 434 400 | Height = 72 401 | BiDiMode = bdLeftToRight 402 | Lines.Strings = ( 403 | '1' 404 | '2' 405 | '3' 406 | '4' 407 | '5' 408 | '6') 409 | ParentBiDiMode = False 410 | ReadOnly = True 411 | ScrollBars = ssVertical 412 | TabOrder = 0 413 | end 414 | end 415 | end 416 | -------------------------------------------------------------------------------- /Delphi10.3_Rio/FireDAC.VCLUI.Error.dfm: -------------------------------------------------------------------------------- 1 | inherited frmFDGUIxFormsError: TfrmFDGUIxFormsError 2 | Left = 374 3 | Top = 372 4 | Caption = 'FireDAC Error' 5 | ClientHeight = 424 6 | ClientWidth = 445 7 | FormStyle = fsStayOnTop 8 | KeyPreview = True 9 | OldCreateOrder = True 10 | OnCreate = FormCreate 11 | OnDestroy = FormDestroy 12 | OnKeyDown = FormKeyDown 13 | OnResize = FormResize 14 | OnShow = FormShow 15 | ExplicitWidth = 451 16 | ExplicitHeight = 452 17 | PixelsPerInch = 96 18 | TextHeight = 13 19 | inherited pnlTop: TPanel 20 | Width = 445 21 | ExplicitWidth = 445 22 | inherited Bevel2: TBevel 23 | Width = 434 24 | ExplicitWidth = 434 25 | end 26 | inherited Image2: TImage 27 | Left = 405 28 | ExplicitLeft = 405 29 | end 30 | inherited lblPrompt: TLabel 31 | Left = 175 32 | Width = 226 33 | Caption = #1602#1575#1605' '#1575#1604#1576#1585#1606#1575#1605#1580' '#1576#1593#1605#1604#1610#1577' '#1594#1610#1585' '#1589#1575#1604#1581#1577' '#1601#1610' '#1602#1575#1593#1583#1577' '#1575#1604#1576#1610#1575#1606#1575#1578' :' 34 | ExplicitLeft = 175 35 | ExplicitWidth = 226 36 | end 37 | end 38 | inherited pnlButtons: TPanel 39 | Top = 123 40 | Width = 445 41 | Height = 35 42 | TabOrder = 2 43 | ExplicitTop = 123 44 | ExplicitWidth = 445 45 | ExplicitHeight = 35 46 | inherited Bevel3: TBevel 47 | Top = 0 48 | Width = 434 49 | Height = 31 50 | ExplicitTop = 0 51 | ExplicitWidth = 434 52 | ExplicitHeight = 31 53 | end 54 | inherited btnOk: TButton 55 | Left = 364 56 | Top = 6 57 | TabOrder = 1 58 | ExplicitLeft = 364 59 | ExplicitTop = 6 60 | end 61 | inherited btnCancel: TButton 62 | Left = 86 63 | Top = 6 64 | Cancel = False 65 | Caption = #1578#1601#1575#1589#1610#1604 66 | ModalResult = 0 67 | TabOrder = 2 68 | OnClick = DetailsBtnClick 69 | ExplicitLeft = 86 70 | ExplicitTop = 6 71 | end 72 | object btnCopy: TButton 73 | Left = 5 74 | Top = 6 75 | Width = 75 76 | Height = 23 77 | Caption = '&'#1606#1587#1582 78 | TabOrder = 0 79 | OnClick = btnCopyClick 80 | end 81 | end 82 | object pnlAdvanced: TPanel 83 | Left = 0 84 | Top = 158 85 | Width = 445 86 | Height = 266 87 | Align = alBottom 88 | BevelOuter = bvNone 89 | TabOrder = 1 90 | Visible = False 91 | DesignSize = ( 92 | 445 93 | 266) 94 | object pcAdvanced: TPageControl 95 | Left = 5 96 | Top = 0 97 | Width = 436 98 | Height = 261 99 | ActivePage = tsAdvanced 100 | Anchors = [akLeft, akTop, akRight, akBottom] 101 | TabOrder = 0 102 | object tsAdvanced: TTabSheet 103 | Caption = ' '#1575#1604#1582#1591#1571' ' 104 | DesignSize = ( 105 | 428 106 | 233) 107 | object Bevel1: TBevel 108 | Left = 5 109 | Top = 200 110 | Width = 418 111 | Height = 32 112 | Anchors = [akLeft, akRight, akBottom] 113 | Shape = bsTopLine 114 | end 115 | object NativeLabel: TLabel 116 | Left = 362 117 | Top = 30 118 | Width = 51 119 | Height = 13 120 | Anchors = [akTop, akRight] 121 | Caption = #1585#1602#1605' '#1575#1604#1582#1591#1571' :' 122 | end 123 | object Label1: TLabel 124 | Left = 355 125 | Top = 147 126 | Width = 68 127 | Height = 13 128 | Anchors = [akRight, akBottom] 129 | Caption = #1594#1585#1590' '#1575#1604#1605#1582#1583#1605' :' 130 | end 131 | object Label2: TLabel 132 | Left = 217 133 | Top = 30 134 | Width = 49 135 | Height = 13 136 | Anchors = [akTop, akRight] 137 | Caption = #1606#1608#1593' '#1575#1604#1582#1591#1571' :' 138 | end 139 | object Label3: TLabel 140 | Left = 334 141 | Top = 173 142 | Width = 89 143 | Height = 13 144 | Anchors = [akRight, akBottom] 145 | Caption = #1573#1586#1575#1581#1577' '#1606#1589' '#1575#1604#1578#1593#1604#1610#1605#1577' :' 146 | end 147 | object Label4: TLabel 148 | Left = 362 149 | Top = 52 150 | Width = 61 151 | Height = 13 152 | Anchors = [akTop, akRight] 153 | Caption = #1585#1587#1575#1604#1577' '#1575#1604#1582#1591#1571' :' 154 | end 155 | object Label8: TLabel 156 | Left = 320 157 | Top = 5 158 | Width = 103 159 | Height = 13 160 | Anchors = [akTop, akRight] 161 | Caption = #1605#1593#1604#1608#1605#1575#1578' '#1575#1604#1582#1591#1600#1571' '#1575#1604#1606#1575#1578#1580' :' 162 | end 163 | object edtErrorCode: TEdit 164 | Left = 285 165 | Top = 27 166 | Width = 72 167 | Height = 21 168 | TabStop = False 169 | Anchors = [akTop, akRight] 170 | BiDiMode = bdLeftToRight 171 | ParentBiDiMode = False 172 | ReadOnly = True 173 | TabOrder = 0 174 | Text = '00000' 175 | end 176 | object edtServerObject: TEdit 177 | Left = 5 178 | Top = 144 179 | Width = 316 180 | Height = 21 181 | TabStop = False 182 | Anchors = [akLeft, akRight, akBottom] 183 | BiDiMode = bdLeftToRight 184 | ParentBiDiMode = False 185 | ReadOnly = True 186 | TabOrder = 2 187 | Text = 'QWE' 188 | end 189 | object edtMessage: TMemo 190 | Left = 7 191 | Top = 71 192 | Width = 418 193 | Height = 66 194 | TabStop = False 195 | Anchors = [akLeft, akTop, akRight, akBottom] 196 | BiDiMode = bdLeftToRight 197 | Lines.Strings = ( 198 | 'DbMessageText') 199 | ParentBiDiMode = False 200 | ReadOnly = True 201 | ScrollBars = ssVertical 202 | TabOrder = 1 203 | end 204 | object edtErrorKind: TEdit 205 | Left = 93 206 | Top = 27 207 | Width = 117 208 | Height = 21 209 | TabStop = False 210 | Anchors = [akTop, akRight] 211 | BiDiMode = bdLeftToRight 212 | ParentBiDiMode = False 213 | ReadOnly = True 214 | TabOrder = 6 215 | Text = 'RecordLocked' 216 | end 217 | object edtCommandTextOffset: TEdit 218 | Left = 263 219 | Top = 170 220 | Width = 58 221 | Height = 21 222 | TabStop = False 223 | Anchors = [akRight, akBottom] 224 | BiDiMode = bdLeftToRight 225 | ParentBiDiMode = False 226 | ReadOnly = True 227 | TabOrder = 3 228 | Text = '00000' 229 | end 230 | object btnPrior: TButton 231 | Left = 81 232 | Top = 207 233 | Width = 75 234 | Height = 23 235 | Hint = #1575#1604#1587#1575#1576#1602 236 | Anchors = [akRight, akBottom] 237 | Caption = '&<<' 238 | ParentShowHint = False 239 | ShowHint = True 240 | TabOrder = 4 241 | OnClick = BackClick 242 | end 243 | object btnNext: TButton 244 | Left = 0 245 | Top = 207 246 | Width = 75 247 | Height = 23 248 | Hint = #1575#1604#1578#1575#1604#1610 249 | Anchors = [akLeft, akBottom] 250 | Caption = '>&>' 251 | ParentShowHint = False 252 | ShowHint = True 253 | TabOrder = 5 254 | OnClick = NextClick 255 | end 256 | end 257 | object tsQuery: TTabSheet 258 | Caption = ' '#1575#1604#1575#1587#1578#1593#1604#1575#1605' ' 259 | ImageIndex = 1 260 | DesignSize = ( 261 | 428 262 | 233) 263 | object Label9: TLabel 264 | Left = 360 265 | Top = 26 266 | Width = 63 267 | Height = 13 268 | Anchors = [akTop, akRight] 269 | Caption = #1606#1589' '#1575#1604#1578#1593#1604#1610#1605#1577' :' 270 | end 271 | object Label5: TLabel 272 | Left = 336 273 | Top = 131 274 | Width = 87 275 | Height = 13 276 | Anchors = [akRight, akBottom] 277 | Caption = #1576#1575#1585#1575#1605#1578#1585#1575#1578' '#1575#1604#1578#1593#1604#1610#1605#1577' :' 278 | end 279 | object Label10: TLabel 280 | Left = 283 281 | Top = 5 282 | Width = 140 283 | Height = 13 284 | Anchors = [akTop, akRight] 285 | Caption = #1605#1593#1604#1608#1605#1575#1578' '#1575#1604#1593#1605#1604#1610#1577' '#1575#1604#1578#1610' '#1601#1588#1604#1578' :' 286 | end 287 | object lvCommandParams: TListView 288 | Left = 5 289 | Top = 150 290 | Width = 418 291 | Height = 78 292 | Anchors = [akLeft, akRight, akBottom] 293 | BiDiMode = bdLeftToRight 294 | Columns = < 295 | item 296 | Caption = #1575#1604#1575#1587#1605 297 | Width = 150 298 | end 299 | item 300 | Caption = #1575#1604#1602#1610#1605#1577 301 | Width = 250 302 | end> 303 | ParentBiDiMode = False 304 | TabOrder = 0 305 | ViewStyle = vsReport 306 | end 307 | end 308 | object tsOther: TTabSheet 309 | Caption = ' '#1575#1604#1605#1586#1610#1583' ' 310 | ImageIndex = 2 311 | DesignSize = ( 312 | 428 313 | 233) 314 | object Label6: TLabel 315 | Left = 5 316 | Top = 29 317 | Width = 106 318 | Height = 13 319 | BiDiMode = bdLeftToRight 320 | Caption = 'Exception class name:' 321 | ParentBiDiMode = False 322 | end 323 | object Label7: TLabel 324 | Left = 5 325 | Top = 56 326 | Width = 96 327 | Height = 13 328 | BiDiMode = bdLeftToRight 329 | Caption = 'FireDAC error code:' 330 | ParentBiDiMode = False 331 | end 332 | object Label11: TLabel 333 | Left = 5 334 | Top = 5 335 | Width = 141 336 | Height = 13 337 | Caption = 'Exception Object Information' 338 | end 339 | object Label12: TLabel 340 | Left = 5 341 | Top = 83 342 | Width = 105 343 | Height = 13 344 | BiDiMode = bdLeftToRight 345 | Caption = 'FireDAC object name:' 346 | ParentBiDiMode = False 347 | end 348 | object edtClassName: TEdit 349 | Left = 191 350 | Top = 26 351 | Width = 160 352 | Height = 21 353 | TabStop = False 354 | BiDiMode = bdLeftToRight 355 | ParentBiDiMode = False 356 | ReadOnly = True 357 | TabOrder = 0 358 | Text = 'EODBCNativeException' 359 | end 360 | object edtADCode: TEdit 361 | Left = 191 362 | Top = 53 363 | Width = 160 364 | Height = 21 365 | TabStop = False 366 | BiDiMode = bdLeftToRight 367 | ParentBiDiMode = False 368 | ReadOnly = True 369 | TabOrder = 1 370 | Text = '12345' 371 | end 372 | object edtADObjName: TEdit 373 | Left = 191 374 | Top = 80 375 | Width = 234 376 | Height = 21 377 | TabStop = False 378 | Anchors = [akLeft, akTop, akRight] 379 | BiDiMode = bdLeftToRight 380 | ParentBiDiMode = False 381 | ReadOnly = True 382 | TabOrder = 2 383 | Text = 'FDQuery1' 384 | end 385 | end 386 | end 387 | end 388 | object pnlMsg: TPanel 389 | Left = 0 390 | Top = 39 391 | Width = 445 392 | Height = 84 393 | Align = alClient 394 | BevelOuter = bvNone 395 | TabOrder = 3 396 | object memMsg: TMemo 397 | Left = 5 398 | Top = 2 399 | Width = 434 400 | Height = 72 401 | BiDiMode = bdLeftToRight 402 | Lines.Strings = ( 403 | '1' 404 | '2' 405 | '3' 406 | '4' 407 | '5' 408 | '6') 409 | ParentBiDiMode = False 410 | ReadOnly = True 411 | ScrollBars = ssVertical 412 | TabOrder = 0 413 | end 414 | end 415 | end 416 | -------------------------------------------------------------------------------- /Delphi10.1_Berline/Vcl.CustomizeDlg.dfm: -------------------------------------------------------------------------------- 1 | object CustomizeFrm: TCustomizeFrm 2 | Left = 8 3 | Top = 8 4 | BiDiMode = bdRightToLeft 5 | BorderIcons = [biSystemMenu] 6 | Caption = ' '#1578#1582#1589#1610#1589' .' 7 | ClientHeight = 334 8 | ClientWidth = 371 9 | Color = clBtnFace 10 | Constraints.MinHeight = 361 11 | Constraints.MinWidth = 379 12 | ParentFont = True 13 | FormStyle = fsStayOnTop 14 | OldCreateOrder = False 15 | ParentBiDiMode = False 16 | PopupMenu = CloseMenu 17 | Position = poMainFormCenter 18 | OnClose = FormClose 19 | OnCreate = FormCreate 20 | OnResize = FormResize 21 | DesignSize = ( 22 | 371 23 | 334) 24 | PixelsPerInch = 96 25 | TextHeight = 13 26 | object CloseBtn: TButton 27 | Left = 288 28 | Top = 304 29 | Width = 75 30 | Height = 25 31 | Anchors = [akRight, akBottom] 32 | Caption = #1573#1594#1604#1575#1602 33 | Default = True 34 | ModalResult = 1 35 | TabOrder = 0 36 | OnClick = CloseBtnClick 37 | end 38 | object Tabs: TPageControl 39 | Left = 6 40 | Top = 7 41 | Width = 358 42 | Height = 291 43 | ActivePage = ActionsTab 44 | Anchors = [akLeft, akTop, akRight, akBottom] 45 | MultiLine = True 46 | TabOrder = 1 47 | object ToolbarsTab: TTabSheet 48 | Caption = #1571#1588#1585#1591#1577' '#1575#1604#1571#1583#1608#1575#1578 49 | ExplicitLeft = 0 50 | ExplicitTop = 0 51 | ExplicitWidth = 0 52 | ExplicitHeight = 0 53 | DesignSize = ( 54 | 350 55 | 263) 56 | object ToolbarsLbl: TLabel 57 | Left = 230 58 | Top = 1 59 | Width = 85 60 | Height = 13 61 | HelpType = htKeyword 62 | AutoSize = False 63 | Caption = #1571#1588#1585#1591#1577' '#1575#1604#1571#1583#1608#1575#1578' :' 64 | FocusControl = ActionBarList 65 | end 66 | object Label2: TLabel 67 | Left = -101 68 | Top = 0 69 | Width = 257 70 | Height = 13 71 | HelpType = htKeyword 72 | Anchors = [akLeft, akTop, akRight] 73 | AutoSize = False 74 | Caption = #1576#1573#1605#1603#1575#1606#1603' '#1573#1586#1575#1604#1577' '#1575#1604#1575#1582#1578#1610#1575#1585' '#1604#1573#1604#1594#1575#1569' '#1575#1604#1573#1592#1607#1575#1585 75 | end 76 | object ActionBarList: TCheckListBox 77 | Left = 4 78 | Top = 19 79 | Width = 237 80 | Height = 150 81 | OnClickCheck = ActionBarListClickCheck 82 | Anchors = [akLeft, akTop, akRight, akBottom] 83 | ItemHeight = 13 84 | TabOrder = 0 85 | OnClick = ActionBarListClick 86 | end 87 | object ResetBtn: TButton 88 | Left = 249 89 | Top = 19 90 | Width = 97 91 | Height = 21 92 | Action = ResetActn 93 | Anchors = [akTop, akRight] 94 | Caption = #1573#1593#1575#1583#1577' '#1575#1604#1573#1601#1578#1585#1575#1590#1610#1575#1578 95 | TabOrder = 2 96 | end 97 | object CaptionOptionsGrp: TGroupBox 98 | Left = 4 99 | Top = 174 100 | Width = 333 101 | Height = 82 102 | Anchors = [akLeft, akRight, akBottom] 103 | Caption = #1582#1610#1575#1585#1575#1578' '#1593#1606#1575#1608#1610#1606' '#1575#1604#1571#1586#1585#1575#1585' ' 104 | TabOrder = 1 105 | DesignSize = ( 106 | 333 107 | 82) 108 | object ApplyToAllChk: TCheckBox 109 | Left = 20 110 | Top = 58 111 | Width = 279 112 | Height = 16 113 | Action = ApplyToAllActn 114 | Anchors = [akLeft, akTop, akRight] 115 | Caption = #1578#1591#1576#1610#1602' '#1575#1604#1582#1610#1575#1585#1575#1578' '#1604#1580#1605#1610#1593' '#1571#1588#1585#1591#1577' '#1575#1604#1571#1583#1608#1575#1578 116 | TabOrder = 0 117 | end 118 | object CaptionOptionsCombo: TComboBox 119 | Left = 154 120 | Top = 28 121 | Width = 145 122 | Height = 21 123 | Style = csDropDownList 124 | TabOrder = 1 125 | OnChange = CaptionOptionsComboChange 126 | Items.Strings = ( 127 | #1573#1582#1601#1575#1569' '#1575#1604#1593#1606#1575#1608#1610#1606 128 | #1575#1582#1578#1610#1575#1585#1610 129 | #1573#1592#1607#1575#1585' '#1575#1604#1603#1604) 130 | end 131 | end 132 | end 133 | object ActionsTab: TTabSheet 134 | Caption = #1575#1604#1571#1581#1583#1575#1579' ' 135 | ImageIndex = 1 136 | ExplicitLeft = 0 137 | ExplicitTop = 0 138 | ExplicitWidth = 0 139 | ExplicitHeight = 0 140 | DesignSize = ( 141 | 350 142 | 263) 143 | object InfoLbl: TLabel 144 | Left = 7 145 | Top = 226 146 | Width = 339 147 | Height = 38 148 | HelpType = htKeyword 149 | Anchors = [akLeft, akRight, akBottom] 150 | AutoSize = False 151 | Caption = 152 | #1604#1573#1590#1575#1601#1577' '#1575#1604#1571#1581#1583#1575#1579' '#1573#1604#1609' '#1578#1591#1576#1610#1602#1603' '#1602#1605' '#1576#1576#1587#1575#1591#1577' '#1576#1587#1581#1576' '#1608#1575#1601#1604#1575#1578' '#1607#1584#1607' '#1575#1604#1571#1581#1583#1575#1579' '#1571#1608' '#1575 + 153 | #1604#1578#1589#1606#1610#1601#1575#1578' '#1573#1604#1609' '#1575#1604#1578#1591#1576#1610#1602' , '#1608#1585#1578#1576#1607#1575' '#1581#1587#1576' '#1575#1604#1585#1594#1576#1577' .' 154 | WordWrap = True 155 | end 156 | object ListPanel: TPanel 157 | Left = 0 158 | Top = 32 159 | Width = 350 160 | Height = 135 161 | Align = alTop 162 | Anchors = [akLeft, akTop, akRight, akBottom] 163 | BevelOuter = bvNone 164 | TabOrder = 1 165 | DesignSize = ( 166 | 350 167 | 135) 168 | object ActionsCatLbl: TLabel 169 | Left = 225 170 | Top = 1 171 | Width = 116 172 | Height = 13 173 | HelpType = htKeyword 174 | AutoSize = False 175 | Caption = #1575#1604#1578#1589#1606#1610#1601#1575#1578' :' 176 | FocusControl = CatList 177 | end 178 | object ActionsActionsLbl: TLabel 179 | Left = 4 180 | Top = 1 181 | Width = 209 182 | Height = 13 183 | HelpType = htKeyword 184 | AutoSize = False 185 | Caption = #1575#1604#1571#1581#1583#1575#1579' :' 186 | FocusControl = ActionsList 187 | end 188 | object CatList: TListBox 189 | Left = 223 190 | Top = 18 191 | Width = 119 192 | Height = 117 193 | Anchors = [akTop, akRight, akBottom] 194 | DragMode = dmAutomatic 195 | ItemHeight = 13 196 | TabOrder = 0 197 | OnClick = CatListClick 198 | OnMeasureItem = ActionsListMeasureItem 199 | OnStartDrag = CatListStartDrag 200 | end 201 | object ActionsList: TListBox 202 | Left = 1 203 | Top = 18 204 | Width = 215 205 | Height = 117 206 | Style = lbOwnerDrawVariable 207 | Anchors = [akLeft, akTop, akRight, akBottom] 208 | Color = clBtnFace 209 | DragMode = dmAutomatic 210 | ItemHeight = 13 211 | MultiSelect = True 212 | TabOrder = 1 213 | OnClick = ActionsListClick 214 | OnData = ActionsListData 215 | OnDrawItem = ActionsListDrawItem 216 | OnMeasureItem = ActionsListMeasureItem 217 | OnStartDrag = ActionsListStartDrag 218 | end 219 | end 220 | object DescGroupBox: TGroupBox 221 | Left = 3 222 | Top = 171 223 | Width = 342 224 | Height = 48 225 | Anchors = [akLeft, akRight, akBottom] 226 | Caption = #1575#1604#1608#1589#1601 227 | TabOrder = 2 228 | DesignSize = ( 229 | 342 230 | 48) 231 | object HintLbl: TLabel 232 | Left = 8 233 | Top = 14 234 | Width = 326 235 | Height = 29 236 | HelpType = htKeyword 237 | Anchors = [akLeft, akRight, akBottom] 238 | AutoSize = False 239 | Caption = 'HintLbl' 240 | WordWrap = True 241 | end 242 | end 243 | object ComboPanel: TPanel 244 | Left = 0 245 | Top = 0 246 | Width = 350 247 | Height = 32 248 | Align = alTop 249 | BevelOuter = bvNone 250 | TabOrder = 0 251 | object ListCombo: TComboBox 252 | Left = 3 253 | Top = 4 254 | Width = 170 255 | Height = 21 256 | Style = csDropDownList 257 | TabOrder = 0 258 | OnSelect = ListComboSelect 259 | end 260 | end 261 | end 262 | object OptionsTab: TTabSheet 263 | Caption = #1575#1604#1582#1610#1575#1585#1575#1578 264 | ImageIndex = 2 265 | ExplicitLeft = 0 266 | ExplicitTop = 0 267 | ExplicitWidth = 0 268 | ExplicitHeight = 0 269 | DesignSize = ( 270 | 350 271 | 263) 272 | object PersonalizeLbl: TLabel 273 | Left = 183 274 | Top = 4 275 | Width = 145 276 | Height = 13 277 | HelpType = htKeyword 278 | Caption = #1578#1582#1589#1610#1589' '#1575#1604#1602#1608#1575#1574#1605' '#1608#1571#1588#1585#1591#1577' '#1575#1604#1571#1583#1608#1575#1578 279 | end 280 | object OptionsBevel2: TBevel 281 | Left = 16 282 | Top = 10 283 | Width = 158 284 | Height = 2 285 | HelpType = htKeyword 286 | Anchors = [akLeft, akTop, akRight] 287 | Shape = bsTopLine 288 | end 289 | object OptionsBevel1: TBevel 290 | Left = 16 291 | Top = 117 292 | Width = 312 293 | Height = 4 294 | HelpType = htKeyword 295 | Anchors = [akLeft, akTop, akRight] 296 | Shape = bsTopLine 297 | end 298 | object Label1: TLabel 299 | Left = 249 300 | Top = 215 301 | Width = 64 302 | Height = 13 303 | HelpType = htKeyword 304 | Caption = #1581#1585#1603#1577' '#1575#1604#1602#1608#1575#1574#1605' :' 305 | FocusControl = MenuAnimationStyles 306 | end 307 | object RecentlyUsedChk: TCheckBox 308 | Left = 86 309 | Top = 33 310 | Width = 242 311 | Height = 17 312 | Action = RecentlyUsedActn 313 | Caption = #1575#1604#1602#1608#1575#1574#1605' '#1578#1592#1607#1585' '#1575#1604#1593#1606#1575#1589#1585' '#1575#1604#1605#1587#1578#1582#1583#1605' '#1605#1572#1582#1585#1575#1611' '#1601#1610' '#1575#1604#1576#1583#1575#1610#1577 314 | TabOrder = 0 315 | end 316 | object ResetUsageBtn: TButton 317 | Left = 24 318 | Top = 67 319 | Width = 145 320 | Height = 21 321 | Action = ResetUsageDataActn 322 | TabOrder = 1 323 | end 324 | object LargeIconsChk: TCheckBox 325 | Left = 231 326 | Top = 142 327 | Width = 97 328 | Height = 17 329 | Action = LargeIconsActn 330 | Caption = #1571#1610#1602#1608#1606#1575#1578' '#1603#1576#1610#1585#1577 331 | TabOrder = 2 332 | end 333 | object ShowTipsChk: TCheckBox 334 | Left = 20 335 | Top = 164 336 | Width = 308 337 | Height = 17 338 | Action = ShowHintsActn 339 | Caption = #1570#1592#1607#1585' '#1575#1604#1578#1604#1605#1610#1581#1575#1578' '#1601#1610' '#1571#1588#1585#1591#1577' '#1575#1604#1571#1583#1608#1575#1578' ' 340 | TabOrder = 3 341 | end 342 | object ShortCutTipsChk: TCheckBox 343 | Left = 45 344 | Top = 185 345 | Width = 284 346 | Height = 17 347 | Action = ShowShortCutsInTipsActn 348 | Caption = #1571#1592#1607#1585' '#1605#1601#1575#1578#1610#1581' '#1575#1604#1573#1582#1578#1589#1575#1585' '#1601#1610' '#1575#1604#1578#1604#1605#1610#1581#1575#1578 349 | TabOrder = 4 350 | end 351 | object MenuAnimationStyles: TComboBox 352 | Left = 126 353 | Top = 212 354 | Width = 112 355 | Height = 21 356 | Style = csDropDownList 357 | ItemIndex = 1 358 | TabOrder = 5 359 | Text = #1575#1601#1578#1585#1575#1590#1610 360 | OnChange = MenuAnimationStylesChange 361 | Items.Strings = ( 362 | #1604#1575#1588#1610#1569 363 | #1575#1601#1578#1585#1575#1590#1610 364 | #1594#1610#1585' '#1605#1591#1608#1610 365 | #1573#1606#1586#1604#1575#1602 366 | #1578#1604#1575#1588#1610) 367 | end 368 | end 369 | end 370 | object SeparatorBtn: TButton 371 | Left = 7 372 | Top = 304 373 | Width = 147 374 | Height = 25 375 | Anchors = [akLeft, akBottom] 376 | Caption = #1575#1587#1581#1576' '#1604#1573#1606#1588#1575#1569' '#1601#1575#1589#1604 377 | DragMode = dmAutomatic 378 | TabOrder = 2 379 | OnStartDrag = SeparatorBtnStartDrag 380 | end 381 | object CloseMenu: TPopupMenu 382 | Left = 286 383 | Top = 4 384 | object CloseItem: TMenuItem 385 | Caption = '&Close' 386 | ShortCut = 27 387 | Visible = False 388 | OnClick = CloseBtnClick 389 | end 390 | end 391 | object ActionImages: TImageList 392 | Left = 314 393 | Top = 4 394 | end 395 | object ActionList1: TActionList 396 | Left = 258 397 | Top = 4 398 | object ResetActn: TAction 399 | Category = 'Toolbars' 400 | Caption = '&Reset...' 401 | OnExecute = ResetActnExecute 402 | OnUpdate = ResetActnUpdate 403 | end 404 | object CloseActn: TAction 405 | Category = 'Dialog' 406 | Caption = #1573#1594#1604#1575#1602 407 | end 408 | object ResetUsageDataActn: TAction 409 | Category = 'Options' 410 | Caption = #1573#1593#1575#1583#1577' '#1590#1576#1591' '#1576#1610#1575#1606#1575#1578' '#1575#1604#1575#1587#1578#1582#1583#1575#1605 411 | OnExecute = ResetUsageDataActnExecute 412 | end 413 | object RecentlyUsedActn: TAction 414 | Category = 'Options' 415 | Caption = 'Me&nu show recently used items first' 416 | OnExecute = RecentlyUsedActnExecute 417 | OnUpdate = RecentlyUsedActnUpdate 418 | end 419 | object FullMenusActn: TAction 420 | Category = 'Options' 421 | AutoCheck = True 422 | Caption = 'Show f&ull menus after a short delay' 423 | Enabled = False 424 | end 425 | object ShowHintsActn: TAction 426 | Category = 'Options' 427 | AutoCheck = True 428 | Caption = 'Show &tips on toolbars' 429 | OnExecute = ShowHintsActnExecute 430 | OnUpdate = ShowHintsActnUpdate 431 | end 432 | object ShowShortCutsInTipsActn: TAction 433 | Category = 'Options' 434 | AutoCheck = True 435 | Caption = 'Show shortcut keys in tips' 436 | OnExecute = ShowShortCutsInTipsActnExecute 437 | end 438 | object ApplyToAllActn: TAction 439 | Category = 'Toolbars' 440 | AutoCheck = True 441 | Caption = 'Apply caption &options to all toolbars' 442 | OnUpdate = ApplyToAllActnUpdate 443 | end 444 | object LargeIconsActn: TAction 445 | Category = 'Options' 446 | AutoCheck = True 447 | Caption = '&Large icons' 448 | OnExecute = LargeIconsActnExecute 449 | OnUpdate = LargeIconsActnUpdate 450 | end 451 | end 452 | end 453 | -------------------------------------------------------------------------------- /Delphi10.3_Rio/Vcl.CustomizeDlg.dfm: -------------------------------------------------------------------------------- 1 | object CustomizeFrm: TCustomizeFrm 2 | Left = 8 3 | Top = 8 4 | BiDiMode = bdRightToLeft 5 | BorderIcons = [biSystemMenu] 6 | Caption = ' '#1578#1582#1589#1610#1589' .' 7 | ClientHeight = 334 8 | ClientWidth = 371 9 | Color = clBtnFace 10 | Constraints.MinHeight = 361 11 | Constraints.MinWidth = 379 12 | ParentFont = True 13 | FormStyle = fsStayOnTop 14 | OldCreateOrder = False 15 | ParentBiDiMode = False 16 | PopupMenu = CloseMenu 17 | Position = poMainFormCenter 18 | OnClose = FormClose 19 | OnCreate = FormCreate 20 | OnResize = FormResize 21 | DesignSize = ( 22 | 371 23 | 334) 24 | PixelsPerInch = 96 25 | TextHeight = 13 26 | object CloseBtn: TButton 27 | Left = 288 28 | Top = 304 29 | Width = 75 30 | Height = 25 31 | Anchors = [akRight, akBottom] 32 | Caption = #1573#1594#1604#1575#1602 33 | Default = True 34 | ModalResult = 1 35 | TabOrder = 0 36 | OnClick = CloseBtnClick 37 | end 38 | object Tabs: TPageControl 39 | Left = 6 40 | Top = 7 41 | Width = 358 42 | Height = 291 43 | ActivePage = ActionsTab 44 | Anchors = [akLeft, akTop, akRight, akBottom] 45 | MultiLine = True 46 | TabOrder = 1 47 | object ToolbarsTab: TTabSheet 48 | Caption = #1571#1588#1585#1591#1577' '#1575#1604#1571#1583#1608#1575#1578 49 | ExplicitLeft = 0 50 | ExplicitTop = 0 51 | ExplicitWidth = 0 52 | ExplicitHeight = 0 53 | DesignSize = ( 54 | 350 55 | 263) 56 | object ToolbarsLbl: TLabel 57 | Left = 230 58 | Top = 1 59 | Width = 85 60 | Height = 13 61 | HelpType = htKeyword 62 | AutoSize = False 63 | Caption = #1571#1588#1585#1591#1577' '#1575#1604#1571#1583#1608#1575#1578' :' 64 | FocusControl = ActionBarList 65 | end 66 | object Label2: TLabel 67 | Left = -101 68 | Top = 0 69 | Width = 257 70 | Height = 13 71 | HelpType = htKeyword 72 | Anchors = [akLeft, akTop, akRight] 73 | AutoSize = False 74 | Caption = #1576#1573#1605#1603#1575#1606#1603' '#1573#1586#1575#1604#1577' '#1575#1604#1575#1582#1578#1610#1575#1585' '#1604#1573#1604#1594#1575#1569' '#1575#1604#1573#1592#1607#1575#1585 75 | end 76 | object ActionBarList: TCheckListBox 77 | Left = 4 78 | Top = 19 79 | Width = 237 80 | Height = 150 81 | OnClickCheck = ActionBarListClickCheck 82 | Anchors = [akLeft, akTop, akRight, akBottom] 83 | ItemHeight = 13 84 | TabOrder = 0 85 | OnClick = ActionBarListClick 86 | end 87 | object ResetBtn: TButton 88 | Left = 249 89 | Top = 19 90 | Width = 97 91 | Height = 21 92 | Action = ResetActn 93 | Anchors = [akTop, akRight] 94 | Caption = #1573#1593#1575#1583#1577' '#1575#1604#1573#1601#1578#1585#1575#1590#1610#1575#1578 95 | TabOrder = 2 96 | end 97 | object CaptionOptionsGrp: TGroupBox 98 | Left = 4 99 | Top = 174 100 | Width = 333 101 | Height = 82 102 | Anchors = [akLeft, akRight, akBottom] 103 | Caption = #1582#1610#1575#1585#1575#1578' '#1593#1606#1575#1608#1610#1606' '#1575#1604#1571#1586#1585#1575#1585' ' 104 | TabOrder = 1 105 | DesignSize = ( 106 | 333 107 | 82) 108 | object Label4: TLabel 109 | Left = 10 110 | Top = 17 111 | Width = 226 112 | Height = 13 113 | HelpType = htKeyword 114 | Anchors = [akLeft, akTop, akRight] 115 | AutoSize = False 116 | Caption = '&Caption Options' 117 | end 118 | object ApplyToAllChk: TCheckBox 119 | Left = 20 120 | Top = 58 121 | Width = 279 122 | Height = 16 123 | Action = ApplyToAllActn 124 | Anchors = [akLeft, akTop, akRight] 125 | Caption = #1578#1591#1576#1610#1602' '#1575#1604#1582#1610#1575#1585#1575#1578' '#1604#1580#1605#1610#1593' '#1571#1588#1585#1591#1577' '#1575#1604#1571#1583#1608#1575#1578 126 | TabOrder = 0 127 | end 128 | object CaptionOptionsCombo: TComboBox 129 | Left = 154 130 | Top = 28 131 | Width = 145 132 | Height = 21 133 | Style = csDropDownList 134 | TabOrder = 1 135 | OnChange = CaptionOptionsComboChange 136 | Items.Strings = ( 137 | #1573#1582#1601#1575#1569' '#1575#1604#1593#1606#1575#1608#1610#1606 138 | #1575#1582#1578#1610#1575#1585#1610 139 | #1573#1592#1607#1575#1585' '#1575#1604#1603#1604) 140 | end 141 | end 142 | end 143 | object ActionsTab: TTabSheet 144 | Caption = #1575#1604#1571#1581#1583#1575#1579' ' 145 | ImageIndex = 1 146 | ExplicitLeft = 0 147 | ExplicitTop = 0 148 | ExplicitWidth = 0 149 | ExplicitHeight = 0 150 | DesignSize = ( 151 | 350 152 | 263) 153 | object InfoLbl: TLabel 154 | Left = 7 155 | Top = 226 156 | Width = 339 157 | Height = 38 158 | HelpType = htKeyword 159 | Anchors = [akLeft, akRight, akBottom] 160 | AutoSize = False 161 | Caption = 162 | #1604#1573#1590#1575#1601#1577' '#1575#1604#1571#1581#1583#1575#1579' '#1573#1604#1609' '#1578#1591#1576#1610#1602#1603' '#1602#1605' '#1576#1576#1587#1575#1591#1577' '#1576#1587#1581#1576' '#1608#1575#1601#1604#1575#1578' '#1607#1584#1607' '#1575#1604#1571#1581#1583#1575#1579' '#1571#1608' '#1575 + 163 | #1604#1578#1589#1606#1610#1601#1575#1578' '#1573#1604#1609' '#1575#1604#1578#1591#1576#1610#1602' , '#1608#1585#1578#1576#1607#1575' '#1581#1587#1576' '#1575#1604#1585#1594#1576#1577' .' 164 | WordWrap = True 165 | end 166 | object ListPanel: TPanel 167 | Left = 0 168 | Top = 32 169 | Width = 350 170 | Height = 135 171 | Align = alTop 172 | Anchors = [akLeft, akTop, akRight, akBottom] 173 | BevelOuter = bvNone 174 | TabOrder = 1 175 | DesignSize = ( 176 | 350 177 | 135) 178 | object ActionsCatLbl: TLabel 179 | Left = 225 180 | Top = 1 181 | Width = 116 182 | Height = 13 183 | HelpType = htKeyword 184 | AutoSize = False 185 | Caption = #1575#1604#1578#1589#1606#1610#1601#1575#1578' :' 186 | FocusControl = CatList 187 | end 188 | object ActionsActionsLbl: TLabel 189 | Left = 4 190 | Top = 1 191 | Width = 209 192 | Height = 13 193 | HelpType = htKeyword 194 | AutoSize = False 195 | Caption = #1575#1604#1571#1581#1583#1575#1579' :' 196 | FocusControl = ActionsList 197 | end 198 | object CatList: TListBox 199 | Left = 223 200 | Top = 18 201 | Width = 119 202 | Height = 117 203 | Anchors = [akTop, akRight, akBottom] 204 | DragMode = dmAutomatic 205 | ItemHeight = 13 206 | TabOrder = 0 207 | OnClick = CatListClick 208 | OnMeasureItem = ActionsListMeasureItem 209 | OnStartDrag = CatListStartDrag 210 | end 211 | object ActionsList: TListBox 212 | Left = 1 213 | Top = 18 214 | Width = 215 215 | Height = 117 216 | Style = lbOwnerDrawVariable 217 | Anchors = [akLeft, akTop, akRight, akBottom] 218 | Color = clBtnFace 219 | DragMode = dmAutomatic 220 | ItemHeight = 13 221 | MultiSelect = True 222 | TabOrder = 1 223 | OnClick = ActionsListClick 224 | OnData = ActionsListData 225 | OnDrawItem = ActionsListDrawItem 226 | OnMeasureItem = ActionsListMeasureItem 227 | OnStartDrag = ActionsListStartDrag 228 | end 229 | end 230 | object DescGroupBox: TGroupBox 231 | Left = 3 232 | Top = 171 233 | Width = 342 234 | Height = 48 235 | Anchors = [akLeft, akRight, akBottom] 236 | Caption = #1575#1604#1608#1589#1601 237 | TabOrder = 2 238 | DesignSize = ( 239 | 342 240 | 48) 241 | object HintLbl: TLabel 242 | Left = 8 243 | Top = 14 244 | Width = 326 245 | Height = 29 246 | HelpType = htKeyword 247 | Anchors = [akLeft, akRight, akBottom] 248 | AutoSize = False 249 | Caption = 'HintLbl' 250 | WordWrap = True 251 | end 252 | end 253 | object ComboPanel: TPanel 254 | Left = 0 255 | Top = 0 256 | Width = 350 257 | Height = 32 258 | Align = alTop 259 | BevelOuter = bvNone 260 | TabOrder = 0 261 | object ListCombo: TComboBox 262 | Left = 3 263 | Top = 4 264 | Width = 170 265 | Height = 21 266 | Style = csDropDownList 267 | TabOrder = 0 268 | OnSelect = ListComboSelect 269 | end 270 | end 271 | end 272 | object OptionsTab: TTabSheet 273 | Caption = #1575#1604#1582#1610#1575#1585#1575#1578 274 | ImageIndex = 2 275 | ExplicitLeft = 0 276 | ExplicitTop = 0 277 | ExplicitWidth = 0 278 | ExplicitHeight = 0 279 | DesignSize = ( 280 | 350 281 | 263) 282 | object PersonalizeLbl: TLabel 283 | Left = 183 284 | Top = 4 285 | Width = 145 286 | Height = 13 287 | HelpType = htKeyword 288 | Caption = #1578#1582#1589#1610#1589' '#1575#1604#1602#1608#1575#1574#1605' '#1608#1571#1588#1585#1591#1577' '#1575#1604#1571#1583#1608#1575#1578 289 | end 290 | object OptionsBevel2: TBevel 291 | Left = 16 292 | Top = 10 293 | Width = 158 294 | Height = 2 295 | HelpType = htKeyword 296 | Anchors = [akLeft, akTop, akRight] 297 | Shape = bsTopLine 298 | end 299 | object OptionsBevel1: TBevel 300 | Left = 16 301 | Top = 117 302 | Width = 312 303 | Height = 4 304 | HelpType = htKeyword 305 | Anchors = [akLeft, akTop, akRight] 306 | Shape = bsTopLine 307 | end 308 | object OtherLbl: TLabel 309 | Left = 11 310 | Top = 111 311 | Width = 28 312 | Height = 13 313 | HelpType = htKeyword 314 | Caption = 'Other' 315 | end 316 | object Label1: TLabel 317 | Left = 249 318 | Top = 215 319 | Width = 64 320 | Height = 13 321 | HelpType = htKeyword 322 | Caption = #1581#1585#1603#1577' '#1575#1604#1602#1608#1575#1574#1605' :' 323 | FocusControl = MenuAnimationStyles 324 | end 325 | object RecentlyUsedChk: TCheckBox 326 | Left = 86 327 | Top = 33 328 | Width = 242 329 | Height = 17 330 | Action = RecentlyUsedActn 331 | Caption = #1575#1604#1602#1608#1575#1574#1605' '#1578#1592#1607#1585' '#1575#1604#1593#1606#1575#1589#1585' '#1575#1604#1605#1587#1578#1582#1583#1605' '#1605#1572#1582#1585#1575#1611' '#1601#1610' '#1575#1604#1576#1583#1575#1610#1577 332 | TabOrder = 0 333 | end 334 | object ResetUsageBtn: TButton 335 | Left = 24 336 | Top = 67 337 | Width = 145 338 | Height = 21 339 | Action = ResetUsageDataActn 340 | TabOrder = 1 341 | end 342 | object LargeIconsChk: TCheckBox 343 | Left = 231 344 | Top = 142 345 | Width = 97 346 | Height = 17 347 | Action = LargeIconsActn 348 | Caption = #1571#1610#1602#1608#1606#1575#1578' '#1603#1576#1610#1585#1577 349 | TabOrder = 2 350 | end 351 | object ShowTipsChk: TCheckBox 352 | Left = 20 353 | Top = 164 354 | Width = 308 355 | Height = 17 356 | Action = ShowHintsActn 357 | Caption = #1570#1592#1607#1585' '#1575#1604#1578#1604#1605#1610#1581#1575#1578' '#1601#1610' '#1571#1588#1585#1591#1577' '#1575#1604#1571#1583#1608#1575#1578' ' 358 | TabOrder = 3 359 | end 360 | object ShortCutTipsChk: TCheckBox 361 | Left = 45 362 | Top = 185 363 | Width = 284 364 | Height = 17 365 | Action = ShowShortCutsInTipsActn 366 | Caption = #1571#1592#1607#1585' '#1605#1601#1575#1578#1610#1581' '#1575#1604#1573#1582#1578#1589#1575#1585' '#1601#1610' '#1575#1604#1578#1604#1605#1610#1581#1575#1578 367 | TabOrder = 4 368 | end 369 | object MenuAnimationStyles: TComboBox 370 | Left = 126 371 | Top = 212 372 | Width = 112 373 | Height = 21 374 | Style = csDropDownList 375 | ItemIndex = 1 376 | TabOrder = 5 377 | Text = #1575#1601#1578#1585#1575#1590#1610 378 | OnChange = MenuAnimationStylesChange 379 | Items.Strings = ( 380 | #1604#1575#1588#1610#1569 381 | #1575#1601#1578#1585#1575#1590#1610 382 | #1594#1610#1585' '#1605#1591#1608#1610 383 | #1573#1606#1586#1604#1575#1602 384 | #1578#1604#1575#1588#1610) 385 | end 386 | end 387 | end 388 | object SeparatorBtn: TButton 389 | Left = 7 390 | Top = 304 391 | Width = 147 392 | Height = 25 393 | Anchors = [akLeft, akBottom] 394 | Caption = #1575#1587#1581#1576' '#1604#1573#1606#1588#1575#1569' '#1601#1575#1589#1604 395 | DragMode = dmAutomatic 396 | TabOrder = 2 397 | OnStartDrag = SeparatorBtnStartDrag 398 | end 399 | object CloseMenu: TPopupMenu 400 | Left = 286 401 | Top = 4 402 | object CloseItem: TMenuItem 403 | Caption = '&Close' 404 | ShortCut = 27 405 | Visible = False 406 | OnClick = CloseBtnClick 407 | end 408 | end 409 | object ActionImages: TImageList 410 | Left = 314 411 | Top = 4 412 | end 413 | object ActionList1: TActionList 414 | Left = 258 415 | Top = 4 416 | object ResetActn: TAction 417 | Category = 'Toolbars' 418 | Caption = '&Reset...' 419 | OnExecute = ResetActnExecute 420 | OnUpdate = ResetActnUpdate 421 | end 422 | object CloseActn: TAction 423 | Category = 'Dialog' 424 | Caption = #1573#1594#1604#1575#1602 425 | end 426 | object ResetUsageDataActn: TAction 427 | Category = 'Options' 428 | Caption = #1573#1593#1575#1583#1577' '#1590#1576#1591' '#1576#1610#1575#1606#1575#1578' '#1575#1604#1575#1587#1578#1582#1583#1575#1605 429 | OnExecute = ResetUsageDataActnExecute 430 | end 431 | object RecentlyUsedActn: TAction 432 | Category = 'Options' 433 | Caption = 'Me&nu show recently used items first' 434 | OnExecute = RecentlyUsedActnExecute 435 | OnUpdate = RecentlyUsedActnUpdate 436 | end 437 | object FullMenusActn: TAction 438 | Category = 'Options' 439 | AutoCheck = True 440 | Caption = 'Show f&ull menus after a short delay' 441 | Enabled = False 442 | end 443 | object ShowHintsActn: TAction 444 | Category = 'Options' 445 | AutoCheck = True 446 | Caption = 'Show &tips on toolbars' 447 | OnExecute = ShowHintsActnExecute 448 | OnUpdate = ShowHintsActnUpdate 449 | end 450 | object ShowShortCutsInTipsActn: TAction 451 | Category = 'Options' 452 | AutoCheck = True 453 | Caption = 'Show shortcut keys in tips' 454 | OnExecute = ShowShortCutsInTipsActnExecute 455 | end 456 | object ApplyToAllActn: TAction 457 | Category = 'Toolbars' 458 | AutoCheck = True 459 | Caption = 'Apply caption &options to all toolbars' 460 | OnUpdate = ApplyToAllActnUpdate 461 | end 462 | object LargeIconsActn: TAction 463 | Category = 'Options' 464 | AutoCheck = True 465 | Caption = '&Large icons' 466 | OnExecute = LargeIconsActnExecute 467 | OnUpdate = LargeIconsActnUpdate 468 | end 469 | end 470 | end 471 | --------------------------------------------------------------------------------