تعريب ال Page Control

يمكنك تعريب ال pagecontol بواسطة كتابة التعليمة التالية

SetWindowLong(pagecontrol1.Handle,gwl_exstyle,$10410200);

وهي التعليمة الخاصة بتحويل نمط العنصر :)

السلام عليكم ورحمة الله وبركاته

بإمكانك أنت تعريبها

و سأحاول مساعدتك على قدر الاستطاعة

كان لي بعض البدايات ا مع تعريب تطبيقات الدلفي لكن للأسف لم يكن لدي الوقت المناسب لتتمة التطبيقات

على كل الأحوال هذه محاولة بسيطة لتعريب الpagcontrol

قمت باشتقاق العنصر السابق

unit redaPageControl1;


interface

uses
  Windows, Messages, SysUtils, Classes, Controls, ComCtrls;

type
  TredaPageControl1 = class(TPageControl)
  private
    { Private declarations }
  protected
    { Protected declarations }
  public
    { Public declarations }
  published
    { Published declarations }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('ActiveX', [TredaPageControl1]);
end;

end.

بعد الاشتقاق نقوم بإجراء التغيير التالي

type
  TredaPageControl1 = class(TPageControl)
  private
   Rarabic:boolean;
   procedure SetArcbic(const value:boolean);
    { Private declarations }
  protected
    { Protected declarations }
  public
    { Public declarations }
  published
  property Arabic:boolean read Rarabic write Setarabic
   default true;
    { Published declarations }
  end;

procedure Register;

implementation
procedure TredaPageControl1.SetArcbic(const value:boolean);
begin
if Rarabic<>value then
begin
Rarabic:=value;
recreatwnd;//to re great window
end;
end;
procedure Register;
begin
  RegisterComponents('ActiveX', [TredaPageControl1]);
end;

وحاولت إضاقة خاصية له سميتها Arabic

حيث أنني استعملت ex_style

Or Ms_exright

كان لي منذ فترة بدايات مع التعريب لكنني توقفت عنها نظرا للظروف

لكن لن أطيل إليك

أي توضيح أنا جاهز أرحب بأي ملاحظة(هادفة )القصد منها تطوير تقنيات التعريب

وهذا هو الترميز الكامل هنا

إن كان العنصر مفيد الرجاء إرفاقه مع مكتبة الفريق عله يكون مساهمة بسيطة مني وشكرا لكم

(f)

redapage_control.rar