بسم الله الرحمن الرحيم
الصلاة السلام على رسول الله
كيف أجعل برنامجي يضيف اللغة العربية تلقائيا
عند تثبيته في أجهزة ذات نظام تشغيل أجنبي فرنسية أو غيره
هل هناك أستطيع أن أضيفها أم ماذا
وكيف ذلك
وأكون مضطر الى اضافة اللغة العربية يدويا فهل من حل شكرا
هذا مثال بسيط وهناك مرفق من يطلع عليه يعطينا رأيه شكرا
الصلاة السلام على رسول الله
كيف أجعل برنامجي يضيف اللغة العربية تلقائيا
عند تثبيته في أجهزة ذات نظام تشغيل أجنبي فرنسية أو غيره
هل هناك أستطيع أن أضيفها أم ماذا
وكيف ذلك
وأكون مضطر الى اضافة اللغة العربية يدويا فهل من حل شكرا
هذا مثال بسيط وهناك مرفق من يطلع عليه يعطينا رأيه شكرا
كود :
procedure TForm3.FormCreate(Sender: TObject);
begin
BiDiMode := bdRightToLeft;
Font.Charset := ARABIC_CHARSET;
Position := poScreenCenter;
button1.BiDiMode := bdRightToLeft;
button1.Font.Charset := ARABIC_CHARSET;
Panel1.BiDiMode := bdRightToLeft;
Panel1.Font.Charset := ARABIC_CHARSET;
GroupBox1.BiDiMode := bdRightToLeft;
GroupBox1.Font.Charset := ARABIC_CHARSET;
RadioGroup1.BiDiMode := bdRightToLeft;
RadioGroup1.Font.Charset := ARABIC_CHARSET;
RadioButton1.BiDiMode := bdRightToLeft;
RadioButton1.Font.Charset := ARABIC_CHARSET;
RadioButton2.BiDiMode := bdRightToLeft;
RadioButton2.Font.Charset := ARABIC_CHARSET;
CheckBox1.BiDiMode := bdRightToLeft;
CheckBox1.Font.Charset := ARABIC_CHARSET;
CheckBox2.BiDiMode := bdRightToLeft;
CheckBox2.Font.Charset := ARABIC_CHARSET;
Memo1.BiDiMode := bdRightToLeft;
Memo1.Font.Charset := ARABIC_CHARSET;
edit1.BiDiMode := bdRightToLeft;
edit1.Font.Charset := ARABIC_CHARSET;
label1.BiDiMode := bdRightToLeft;
label1.Font.Charset := ARABIC_CHARSET;
BitBtn1.BiDiMode := bdRightToLeft;
BitBtn1.Font.Charset := ARABIC_CHARSET;
caption := 'النافذة الثانية';
button1.Caption := 'رجوع الى النافذة الرئيسية';
Panel1.Caption := 'هذا بانال';
GroupBox1.Caption := 'هذا قروب بوكس';
RadioGroup1.Caption := 'هذا راديو قروب';
RadioButton1.Caption := 'هذا راديو بوتو';
RadioButton2.Caption := 'هذا راديو بوتو2';
CheckBox1.Caption := 'هذا شاك بوكس1';
CheckBox2.Caption := 'هذا شاك بوكس2';
Memo1.Lines.Add('هذه سطور ميمو');
Memo1.Text := 'هذا ميمو';
edit1.Text := 'هذا اديت';
label1.Caption := 'هذه لابل';
RadioGroup1.Items.Strings[0] := 'هذا أول اتام';
RadioGroup1.Items.Strings[1] := 'هذا ثاني اتام';
RadioGroup1.Items.Strings[2] := 'هذا ثالث اتام';
BitBtn1.Caption := 'هذا بيت تيتن';
end;