delphi4arab منتديات دلفي للعرب

السلام عليكم.
في تطبيقاتي المبرمجة على دلفي 7 ، استعمل المكون   TFreeButton  وهو مكون جد رائع و أنيق.  

لكن بعد ثبيته على الاصدار الأخير دلفي   10.4 و عند إرادة تغيير نمط الكتابة Font يتجمد البرنامج .

هل من توجيه بارك الله فيكم.

السلام عليكم

ممكن صورة للمكون ربما تجد له بديل في مكونات اخرى...

(23-10-2020, 01:25 PM)S.FATEH كتب : [ -> ]السلام عليكم

ممكن صورة للمكون ربما تجد له بديل في مكونات اخرى...

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

علما أنني لا أبحث عن بديل هذا المكون ، بل أريد تحديثه ليصبح متوافقا مع الإصدار الأخير.

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

والقديم لا تفرط فيه

[attachment=4367]

جزاك الله خيرا على المتابعة.
لكن ما زالت نفس المشكلة ، وهي عند تغيير حجم الخط و لونه يتجمد البرنامج.

وهذي صورة الخطأ:



وهذه رسالة الخطأ :

إقتباس :[5006011C]{rtl270.bpl  } System.TObject.InheritsFrom (Line 18726, "System.pas" + 6) + $0
[50CD7F0E]{vcl270.bpl  } Vcl.Graphics.CopyBitmap (Line 7999, "Vcl.Graphics.pas" + 184) + $A
[50CD3447]{vcl270.bpl  } Vcl.Graphics.TGraphic.Changed (Line 5425, "Vcl.Graphics.pas" + 2) + $4
[5005FF6E]{rtl270.bpl  } System.@IsClass (Line 18429, "System.pas" + 1) + $8
[50CCFC9E]{vcl270.bpl  } Vcl.Graphics.TFont.Assign (Line 2521, "Vcl.Graphics.pas" + 1) + $9
[05924C8E]{FreeButtonPackage270.bpl} Freebutton.TFreeButton.GetTextPosition + $26
[059232FE]{FreeButtonPackage270.bpl} Freebutton.TFreeButton.Paint + $13E
[50CD1B9E]{vcl270.bpl  } Vcl.Graphics.TCanvas.SetPenPos (Line 4202, "Vcl.Graphics.pas" + 1) + $9
[50D01B65]{vcl270.bpl  } Vcl.Controls.TGraphicControl.WMPaint (Line 14009, "Vcl.Controls.pas" + 7) + $5
[50CF6F46]{vcl270.bpl  } Vcl.Controls.TControl.WndProc (Line 7480, "Vcl.Controls.pas" + 91) + $6
[5005FC48]{rtl270.bpl  } System.TObject.Free (Line 17909, "System.pas" + 1) + $4
[50CD726C]{vcl270.bpl  } Vcl.Graphics.TSharedImage.Release (Line 7478, "Vcl.Graphics.pas" + 7) + $2
[50CD9572]{vcl270.bpl  } Vcl.Graphics.TBitmap.NewImage (Line 9162, "Vcl.Graphics.pas" + 36) + $5
[5005A2AF]{rtl270.bpl  } System.@ReallocMem (Line 5032, "System.pas" + 91) + $0
[5017D9E0]{rtl270.bpl  } System.Classes.TThread.GetCurrentThread (Line 15757, "System.Classes.pas" + 7) + $0
[50CF6B80]{vcl270.bpl  } Vcl.Controls.TControl.Perform (Line 7258, "Vcl.Controls.pas" + 10) + $8
[528A442F]{vcldesigner270.bpl} VCLSurface.TDragImage.Create (Line 5163, "VCLSurface.pas" + 15) + $1B
[5289B4C4]{vcldesigner270.bpl} VCLSurface.TControlItem.GetDragImage (Line 1121, "VCLSurface.pas" + 1) + $E
[21051791]{designide270.bpl} Designer.TDesigner.DragBoxesOn (Line 953, "Designer.pas" + 24) + $F
[528A587C]{vcldesigner270.bpl} VCLSurface.TGuidelinePainter.EndUpdate (Line 5628, "VCLSurface.pas" + 7) + $C
[50068540]{rtl270.bpl  } System.@IntfClear (Line 38788, "System.pas" + 10) + $0
[210514D3]{designide270.bpl} Designer.TDesigner.DragBegin (Line 897, "Designer.pas" + 38) + $2
[21053EF7]{designide270.bpl} Designer.TDesigner.MouseDown (Line 1760, "Designer.pas" + 86) + $9
[5289FF6A]{vcldesigner270.bpl} VCLSurface.MouseEvent (Line 3316, "VCLSurface.pas" + 36) + $2B
[50060916]{rtl270.bpl  } System.TMonitor.Exit (Line 19694, "System.pas" + 2) + $7
[528A0BBD]{vcldesigner270.bpl} VCLSurface.TVclDesignSurface.IsDesignMsg (Line 3586, "VCLSurface.pas" + 48) + $6
[5005FF6E]{rtl270.bpl  } System.@IsClass (Line 18429, "System.pas" + 1) + $8
[50CF6CCB]{vcl270.bpl  } Vcl.Controls.TControl.WndProc (Line 7393, "Vcl.Controls.pas" + 4) + $21
[5006F16B]{rtl270.bpl  } System.Types.TRect.Contains (Line 1675, "System.Types.pas" + 1) + $3
[50CFB444]{vcl270.bpl  } Vcl.Controls.GetControlAtPos (Line 10137, "Vcl.Controls.pas" + 2) + $13
[50CFB57A]{vcl270.bpl  } Vcl.Controls.InternalControlAtPos (Line 10161, "Vcl.Controls.pas" + 15) + $E
[50CF6B80]{vcl270.bpl  } Vcl.Controls.TControl.Perform (Line 7258, "Vcl.Controls.pas" + 10) + $8
[50CFB660]{vcl270.bpl  } Vcl.Controls.TWinControl.IsControlMouseMsg (Line 10190, "Vcl.Controls.pas" + 15) + $29
[50CFBCAF]{vcl270.bpl  } Vcl.Controls.TWinControl.WndProc (Line 10368, "Vcl.Controls.pas" + 113) + $6
[50CFB3B0]{vcl270.bpl  } Vcl.Controls.TWinControl.MainWndProc (Line 10113, "Vcl.Controls.pas" + 3) + $6
[50181450]{rtl270.bpl  } System.Classes.StdWndProc (Line 18021, "System.Classes.pas" + 8) + $0
[50E5B23F]{vcl270.bpl  } Vcl.Forms.TApplication.ProcessMessage (Line 11028, "Vcl.Forms.pas" + 23) + $1
[50E5B282]{vcl270.bpl  } Vcl.Forms.TApplication.HandleMessage (Line 11058, "Vcl.Forms.pas" + 1) + $4
[50E5B5B5]{vcl270.bpl  } Vcl.Forms.TApplication.Run (Line 11196, "Vcl.Forms.pas" + 26) + $3
[0051E178]{bds.exe    } bds.bds (Line 222, "" + 13) + $2

تم التصحيح

تحميل
[attachment=4366]

قمة في الروعة.
جزاك الله خير الجزاء و أوفاه.