PDA

View Full Version : مشکل در oletree



javad_1349
سه شنبه 03 شهریور 1394, 10:14 صبح
با سلام خدمت تمامی عزیزان
سئوال یک : یک فرمی دارم که از treeview استفاده کردم که فرم نیز از بانک اطلاعاتی که دارای سه عدد فیلد می باشد می توانیم استفاده کنیم من به بانک اطلاعاتی دوفیلد دیگر اضافه نمودم که زمانیکه خواسته باشیم روی گزینه های treeview کلیک نماییم فرم مورد نظر هر گزینه را اجرا نماید حالا در قسمت oletree زمانیکه از this.selecteditem استفاده می کنیم سه فیلد اول با تایپ دات می آید و می توانیم تغییراتی اعمال نماییم ولی دوفیلد دیگر را فرا خوانی نمی کند آیا میشود به این آبجکت اضافه نمود یا راه حل ساده تر است یا نه
سئوال دو : در ضمن treeview از چپ به راست نمیشه توی سایت کدهای نوشته شده بود وقتی توی Init قرار می دادم کل حروف حتی تکست ها را هم راست چین میکرد
لطفا راهنمایی نمایید ممنون

javad_1349
سه شنبه 03 شهریور 1394, 10:31 صبح
سئوال دوم با این کد که توسط استاد توکل نوشته شده بود حل شد

DECLARE long GetWindowLong IN "user32" long hwnd,long nIndex
DECLARE long SetWindowLong IN "user32" long hwnd, long nIndex, long dwNewLong
DECLARE long InvalidateRect IN "user32" long hwnd, long lpRect,long bErase
DECLARE long FindWindowEx IN "user32" long hWnd1,Long hWnd2,STRING lpsz1,string lpsz2
DECLARE long GetWindow IN "user32" long hwnd,long wCmd
#DEFINE GW_CHILD 5
#DEFINE WS_EX_LAYOUTRTL 0x400000
#DEFINE GWL_EXSTYLE (-20)

OldLong = GetWindowLong(THIS.oletree.hwnd, GWL_EXSTYLE)
SetWindowLong(THIS.oletree.hwnd, GWL_EXSTYLE, BITOR(OldLong,WS_EX_LAYOUTRTL))
InvalidateRect(THIS.hwnd, 0, .F.)