دخول

Delphi4Us

لم يعمل معي مكون Tedit وبما انه يعمل معك لم يعد هناك مجال للشك ان هناك مشكلة عندي
وبما انني لعبت بالوحدة الرئيسية Tedit للتجربة قبل انشاء مكون جديد قمت بتثبيت دلفي EX7 للتأكد وعملت معه بشكل جيد ، ولهذا لم تنجح كل المحاولات التي اجريتها وحملتها من الانترنت سابقا .
على العموم لقد حللت مشكلة كبيرة ولترى حجم المشكلة فقط ابحث بالقوقل عن

إقتباس :delphi tedit center text vertically

للاخذ بعين الاعتبار ملاحظتك حول Canvas.Font.Height كتبت هذا الكود في حدث الانشاء

كود :
constructor TNewEdit.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);

  if FCanvas = nil then
  begin
   FCanvas := TControlCanvas.Create;
   TControlCanvas(FCanvas).Control := Self;
   FCanvas.Font := Font;
  end;

end;

ليتسنى استخدامه بحدث الرسم

كود :
procedure TNewEdit.UpdateClientRect;
var
  R: TRect;
  H, dlt:integer;
begin
   R := ClientRect;

   H := Abs(FCanvas.Font.Height) * 120 div 100;
   dlt := (R.Height - H) div 2;
   R.Top := R.Top + dlt;
   R.Height := H;
   Perform(EM_SETRECT, 0, Longint(@R));
end;

وطلما تم حل مشكلة هذه الوحدة من جذورها فكل المكونات الاخرى المصابة بالمرض سيتم شفائها لانها ترث هذا المكون ايضا ومنها
CompoBox و DBCompoBox وتقريبا المكون ListBox يواجه مشكلة في تحديد ارتفاع خلاياه

سوف اقوم باعادة تثبيت دلفي من جديد لترجع الوحدات الى اصلها لاني لا اعرف ما غيرت وما استبدلت وهي امور كثيرة للتجربة
وبعدها لنا عودة ان شاء الله

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