دخول

CMT-10 · 26-02-2012, 05:19 PM

وعليكم السلام

ان هذا الاجراء موجود بالوحدة SpUtils

كود :
procedure SPDrawText3(Cnvs: TCanvas; S: String; R: TRect; HorOffset: Integer);
var
  TX, TY: Integer;
begin
  if S = '' then Exit;
 // TX := R.Left + 2 + HorOffset;
  TX := R.Left  + ((R.Right - R.Left)- Cnvs.TextWidth(S))  + HorOffset;
  TY := R.Top + RectHeight(R) div 2 - Cnvs.TextHeight(S) div 2;
  //
  if (Cnvs.Font.Height div 2) <> (Cnvs.Font.Height / 2) then Dec(TY, 1);
  //
  Cnvs.TextRect(R, TX, TY, S);
end;

وحتى الاجراء الثاني موجود بنفس الوحدة وهو ليس موجود بالوحدة SkinMenus

كود :
procedure SPDrawText2(Cnvs: TCanvas; S: String; R: TRect);
var
  TX, TY: Integer;
begin
  if S = '' then Exit;
 // TX := R.Left + 2;
    TX := R.Left + (R.Right - R.Left)- Cnvs.TextWidth(S);
  TY := R.Top + RectHeight(R) div 2 - Cnvs.TextHeight(S) div 2;
  //
  if (Cnvs.Font.Height div 2) <> (Cnvs.Font.Height / 2) then Dec(TY, 1);
  //
  Cnvs.TextRect(R, TX, TY, S);
end;

ولاحظ التغييرات بكل اجراء ولقد نسختهما مباشرة من الملف وبشكل كامل

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة