ورود

View Full Version : سوال: اضافه کردن نمودار به main screen


akbar_2020
یک شنبه 31 فروردین 1393, 16:44 عصر
سلام

می خواهم به محدوده ای از mainscreen یه نمودار اضافه کنم از کجا باید شروع کنم؟

متشکرم.
binyaz2003
دوشنبه 01 اردیبهشت 1393, 03:42 صبح
با متد AddObject میتونید به screen_ شئ اضافه کنید.
akbar_2020
دوشنبه 01 اردیبهشت 1393, 07:58 صبح
ممنون از راهنمایی تون اگر ممکن یه نمونه کد برام بفرستین.

مرسی
binyaz2003
دوشنبه 01 اردیبهشت 1393, 08:26 صبح
راهنمای متد AddObject رو مطالعه کنید.
akbar_2020
دوشنبه 01 اردیبهشت 1393, 16:24 عصر
مطالعه کردم کد پایینم نوشتم اما خطا میگیرم میشه بیشتر راهنمایی کنید

Public dsh1,_container
dsh1= Newobject("dshscreen")
Bindevent(_Screen,"RightClick",dsh1,"myRightClick")
Bindevent(_Screen,"init",dsh1,"myinit")
DEFINE CLASS a as Container
ENDDEFINE
DEFINE CLASS dshscreen AS custom
PROCEDURE myRightClick
DO dsh_menu.mpr
ENDPROC
PROCEDURE myinit
DO dsh_sale WITH 'amount','4'
ENDPROC
ENDDEFINE
　
_container=createobject("a")
_container.addobject('dsh_chart ','dshscreen')
　
DEFINE CLASS a as Container
ENDDEFINE
binyaz2003
چهارشنبه 03 اردیبهشت 1393, 12:00 عصر
کدتون که ناخواناست و متوجه خطا نشدم. کد زیر بعنوان یک مثال ساده از اضافه کردن یک شئ به screen


_Screen.AddObject("testobj","mylabel")
Define Class mylabel As Label
Caption="This is a test"
Visible=.T.

Procedure Click
Messagebox('clicked')
Endproc
Enddefine