مباحث متفرقه

موضوعات متفرقه را در این قسمت مطرح کنید

این کد رو امتحان کنید

PUBLIC frm 

frm = CreateObject("TForm") 

frm.Visible = .T. 



DEFINE CLASS TForm As Form 

    PROTECTED mClip 

    ADD OBJECT cmdClip As TCommand 

    ADD OBJECT cmdRestore As TCommand 



PROCEDURE  Load 

    THIS.decl    && declare external functions 

ENDPROC 



PROCEDURE  Init 

    STORE .F. TO THIS.MaxButton, THIS.MinButton 

    STORE 300 TO THIS.Width, THIS.Height 

    THIS.Caption = "Clipping mouse cursor area" 

    THIS.BorderStyle = 2 

    THIS.AutoCenter = .T. 

    THIS.cmdClip.Caption = "Clip" 

    THIS.cmdRestore.Caption = "Restore" 



    * saving initial clipping area 

    lpRect = REPLI (Chr(0), 16) 

    = GetClipCursor (@lpRect) 

    THIS.mClip = lpRect 



    THIS.Resize 

ENDPROC 



PROCEDURE  Destroy 

    THIS.restoreInitStatus 

ENDPROC 



PROCEDURE  Resize 

    lnTop = MAX(5, THIS.Height - THIS.cmdClip.Height - 5) 

    STORE lnTop TO THIS.cmdClip.Top, THIS.cmdRestore.Top 

    THIS.cmdRestore.Left = THIS.Width - THIS.cmdRestore.Width - 10 

    THIS.cmdClip.Left = THIS.cmdRestore.Left - THIS.cmdClip.Width - 2 

ENDPROC 



PROCEDURE  clip 

* lock the mouse cursor within the form area 

    MOUSE AT THIS.top, THIS.left PIXELS  && put cursor inside the form 

    * give VFP a moment to update mouse position in its internal data 

    = INKEY (0.1) 



    lpPoint = REPLI (Chr(0), 8)    && buffer for a POINT structure 

    = GetCursorPos (@lpPoint)  && retrieve absolute mouse position 



    LOCAL absX, absY, lcCaptionHeight, lcFrameWidth,; 

        lcFrameHeight, lcRect 



    absX = ThisForm.buf2dword (SUBSTR(lpPoint, 1,4)) 

    absY = ThisForm.buf2dword (SUBSTR(lpPoint, 5,4)) 



    * retrieve some sizes to be used in calculating the area 

    lcCaptionHeight = GetSystemMetrics ( 4)  && size of normal caption area 

    lcFrameWidth    = GetSystemMetrics (32)  && resiz.window frame width 

    lcFrameHeight   = GetSystemMetrics (33)  && resiz.window frame height 



    lcRect = REPLI (Chr(0), 16)        && buffer for RECT structure 

    * set the RECT by the form position, and size 

    THIS.num2rect (absX, absY,; 

        absX + THIS.Width + lcFrameWidth,; 

        absY + THIS.Height + lcCaptionHeight + lcFrameHeight,; 

        @lcRect) 



    = ClipCursor (lcRect)  && locked! 

ENDPROC 



PROCEDURE  restoreInitStatus 

    = ClipCursor (THIS.mClip) 

ENDPROC 



PROCEDURE  cmdClip.Click 

    ThisForm.clip 

ENDPROC 



PROCEDURE  cmdRestore.Click 

    ThisForm.restoreInitStatus 

ENDPROC 



FUNCTION  buf2dword (lcBuffer) 

#DEFINE m0       256 

#DEFINE m1     65536 

#DEFINE m2  16777216 

RETURN; 

    Asc(SUBSTR(lcBuffer, 1,1)) + ; 

    Asc(SUBSTR(lcBuffer, 2,1)) * m0 +; 

    Asc(SUBSTR(lcBuffer, 3,1)) * m1 +; 

    Asc(SUBSTR(lcBuffer, 4,1)) * m2 

ENDFUNC 



FUNCTION  num2buf 

PARAMETERS  lnValue 

#DEFINE m0       256 

#DEFINE m1     65536 

#DEFINE m2  16777216 

    LOCAL b0, b1, b2, b3 

    b3 = Int(lnValue/m2) 

    b2 = Int((lnValue - b3 * m2)/m1) 

    b1 = Int((lnValue - b3*m2 - b2*m1)/m0) 

    b0 = Mod(lnValue, m0) 

RETURN Chr(b0)+Chr(b1)+Chr(b2)+Ch  r(b3) 



PROCEDURE  num2rect (lnLeft, lnTop, lnRight, lnBottom, lcBuffer) 

    lcBuffer = THIS.num2buf(lnLeft) + THIS.num2buf(lnTop)+; 

        THIS.num2buf(lnRight) + THIS.num2buf(lnBottom) 

ENDFUNC 



PROCEDURE  decl 

    DECLARE INTEGER ClipCursor       IN user32   STRING lpRect 

    DECLARE INTEGER GetCursorPos     IN user32   STRING @ lpPoint 

    DECLARE INTEGER GetClipCursor    IN user32   STRING @ lpRect 

    DECLARE INTEGER GetSystemMetrics IN user32   INTEGER nIndex 

ENDPROC 

ENDDEFINE 



DEFINE CLASS TCommand As CommandButton 

    Width = 60 

    Height = 25 

ENDDEFINE 

اینم یکی دیگه

LOCAL oForm 

oForm = CreateObject("Tform") 

oForm.Show(1) 

* end of main 



DEFINE CLASS Tform As Form 

    Width=350 

    Height=160 

    BorderStyle=2 

    MaxButton=.F. 

    MinButton=.F. 

    Autocenter=.T. 

    Caption="Magnifier" 

    hForm=0 

    hDC=0 

     

    ADD OBJECT chMagnify As CheckBox WITH Value=.F.,; 

    Left=20, Top=20, Autosize=.T., Caption="Activate Magnifier" 



    ADD OBJECT chInvert As CheckBox WITH Value=.F.,; 

    Left=20, Top=56, Autosize=.T., Caption="Invert colors" 

     

    ADD OBJECT lbl1 As Label WITH; 

    Left=190, Top=20, Autosize=.T., Caption="Scale:" 

     

    ADD OBJECT cmbScale As ComboBox WITH Style=2,; 

    Left=240, Top=20, Width=70, Height=21 

     

    ADD OBJECT cmdClose As CommandButton WITH Cancel=.T.,; 

    Left=140, Top=112, Width=70, Height=27, Caption="Close" 



PROCEDURE Init 

    ThisForm.decl 



PROCEDURE Activate 

    IF THIS.hForm = 0 

        THIS.hForm = GetFocus() 

        THIS.hDC = GetDC(THIS.hForm) 

    ENDIF 



PROCEDURE Release 

    IF THIS.hDC <> 0 

        = ReleaseDC(THIS.hForm, THIS.hDC) 

    ENDIF 



PROCEDURE cmdClose.Click 

    ThisForm.Release 



PROCEDURE cmbScale.Init 

    WITH THIS 

        .AddItem("Normal") 

        .AddItem("x 2") 

        .AddItem("x 3") 

        .AddItem("x 4") 

        .ListIndex=3 

    ENDWITH 



PROCEDURE MouseMove 

LPARAMETERS nButton, nShift, nXCoord, nYCoord 

    ThisForm.Magnify 



PROCEDURE chMagnify.MouseMove 

LPARAMETERS nButton, nShift, nXCoord, nYCoord 

    ThisForm.Magnify 



PROCEDURE chInvert.MouseMove 

LPARAMETERS nButton, nShift, nXCoord, nYCoord 

    ThisForm.Magnify 



PROCEDURE lbl1.MouseMove 

LPARAMETERS nButton, nShift, nXCoord, nYCoord 

    ThisForm.Magnify 



PROCEDURE cmbScale.MouseMove 

LPARAMETERS nButton, nShift, nXCoord, nYCoord 

    ThisForm.Magnify 



PROCEDURE cmdClose.MouseMove 

LPARAMETERS nButton, nShift, nXCoord, nYCoord 

    ThisForm.Magnify 



PROCEDURE Magnify 

#DEFINE SRCCOPY     0xCC0020 

#DEFINE NOTSRCCOPY  0x00330008 



#DEFINE cnDstWidth  600 

#DEFINE cnDstHeight 140 



    IF ThisForm.chMagnify.Value 

        LOCAL cBuffer, nX, nY, hDstWin, hDstDC,; 

            nMode, nSrcWidth, nSrcHeight, nScale 



        hDstWin = GetActiveWindow() 

        hDstDC = GetWindowDC(hDstWin) 



        cBuffer = Repli(Chr(0), 8) 

        = GetCursorPos(@cBuffer) 

        = ScreenToClient(THIS.hForm, @cBuffer) 



        nX = buf2dword(SUBSTR(cBuffer, 1,4)) 

        nY = buf2dword(SUBSTR(cBuffer, 5,4)) 

         

        nScale = ThisForm.cmbScale.ListIndex 

        nSrcWidth = INT(cnDstWidth/nScale) 

        nSrcHeight = INT(cnDstHeight/nScale) 



        nMode = Iif(ThisForm.chInvert.Value, NOTSRCCOPY,SRCCOPY) 



        = StretchBlt(hDstDC, 10, 100, cnDstWidth, cnDstHeight,; 

            THIS.hDC,; 

            nX-nSrcWidth/2,; 

            nY-nSrcHeight/2,; 

            nSrcWidth, nSrcHeight, nMode) 

         

        ReleaseDC(hDstWin, hDstDC) 

    ENDIF 



PROCEDURE decl 

    DECLARE INTEGER GetActiveWindow IN user32 

    DECLARE INTEGER GetCursorPos IN user32 STRING @lpPoint 

    DECLARE INTEGER GetWindowDC IN user32 INTEGER hwnd 

    DECLARE INTEGER GetDC IN user32 INTEGER hwnd 

    DECLARE INTEGER ReleaseDC IN user32 INTEGER hwnd, INTEGER hdc 

    DECLARE INTEGER ScreenToClient IN user32 INTEGER hWnd, STRING @lpPoint 

    DECLARE INTEGER GetFocus IN user32 



    DECLARE INTEGER StretchBlt IN gdi32; 

        INTEGER hdcDest, INTEGER nXOriginDest, INTEGER nYOriginDest,; 

        INTEGER nWidthDest, INTEGER nHeightDest,; 

        INTEGER hdcSrc, INTEGER nXOriginSrc, INTEGER nYOriginSrc,; 

        INTEGER nWidthSrc, INTEGER nHeightSrc, INTEGER dwRop 

ENDDEFINE 



FUNCTION buf2dword(lcBuffer) 

RETURN Asc(SUBSTR(lcBuffer, 1,1)) + ; 

    BitLShift(Asc(SUBSTR(lcBuffer, 2,1)),  8) +; 

    BitLShift(Asc(SUBSTR(lcBuffer, 3,1)), 16) +; 

    BitLShift(Asc(SUBSTR(lcBuffer, 4,1)), 24) 

اینم برای ارتباط با سایت news2news.com
البته باید online باشید

PUBLIC objForm 

objForm = CreateObject("Tform") 

objForm.Visible = .T. 

* end of main 



DEFINE CLASS Tform As Form 

#DEFINE ccBaseAddr "http://www.news2news.com/vfp/" 

#DEFINE ccCgiAddr  "http://www.news2news.com/cgi-bin/w32query.php?quser=guest&" 

    Caption=" VFP code samples on " + ccBaseAddr 

    Width=760 

    Height=500 

    Autocenter=.T. 

    ShowTips=.T. 

    csList="cs" + SUBSTR(SYS(2015),3,10) 

     

    ADD OBJECT pframe As Tframe WITH Left=6, Top=5, Width=748, Height=440 

    ADD OBJECT lblUrl As Label WITH Left=12, Top=460, Autosize=.T.,; 

        ForeColor=Rgb(0,0,192), FontUnderline=.T.,; 

        TooltipText="Click to open" 



PROCEDURE Init 

    DECLARE INTEGER ShellExecute IN shell32; 

        INTEGER, STRING, STRING, STRING, STRING, INTEGER 

    DECLARE INTEGER URLDownloadToCacheFile IN urlmon; 

        INTEGER lpUnkcaller, STRING szURL, STRING @szFileName,; 

        INTEGER dwBufLength, INTEGER dwReserved, INTEGER pBSC 

    THIS.pframe.Resize 

    THIS.PopulateList 



PROCEDURE Destroy 

    THIS.pframe.pgList.lst.RowsourceType = 0 

    IF USED(THIS.csList) 

        USE IN (THIS.csList) 

    ENDIF 



procedure resize 

* Thanks Bruce :) 

    with this 

        stor .Width - 12 to .pframe.Width 

        stor .Height - 60 to .pframe.Height     

        stor .Height - 40 to .lblUrl.Top 

    endWith 



PROCEDURE pframe.pgList.lst.InteractiveChange 

    ThisForm.lblUrl.Caption = ThisForm.GetUrl() 



PROCEDURE lblUrl.MouseDown 

LPARAMETERS nButton, nShift, nXCoord, nYCoord 

    = ShellExecute(0, "open", ThisForm.GetUrl(), "", "", 3) 



PROCEDURE pframe.pgExample.Activate 

    ThisForm.DisplayExample 



PROCEDURE pframe.pglist.lst.DblClick 

    ThisForm.pframe.ActivePage = 2 



FUNCTION GetUrl 

RETURN ccBaseAddr + "?example=" + ALLT(THIS.pframe.pgList.lst.Value) 



PROCEDURE PopulateList 

    LOCAL cRequest, cTargetFile 

    cRequest = ccCgiAddr + "qtarget=examples&qmode=list" 

    cTargetFile = THIS.RemoteToLocal(cRequest) 



    IF Not EMPTY(cTargetFile) 

        CREATE CURSOR (THIS.csList) (id N(5), name C(200)) 

        APPEND FROM (cTargetFile) TYPE DELIM WITH , 

        WITH THIS.pframe.pgList.lst 

            .RowsourceType = 2 

            .Rowsource = THIS.csList 

            .ColumnWidths="40,500" 

            IF .listCount > 0 

                .listIndex = 1 

            ENDIF 

            .InteractiveChange 

        ENDWITH 

    ENDIF 



PROCEDURE DisplayExample 

    LOCAL cRequest, cTargetFile 

    cRequest = ccCgiAddr + "qtarget=examples&qmode=source&qindex=" +; 

        ALLTRIM(ThisForm.pframe.pgList.lst.Value) 

    cTargetFile = THIS.RemoteToLocal(cRequest) 



    IF Not EMPTY(cTargetFile) 

        WITH ThisForm.pframe.pgExample.txtSource 

            .Value = FILETOSTR(cTargetFile) 

            .Refresh 

        ENDWITH 

    ENDIF 



FUNCTION RemoteToLocal(cRequest) 

    LOCAL nResult, cTargetFile 

    cTargetFile = Repli(Chr(0), 250) 

    WAIT WINDOW NOWAIT "Downloading remote file..." 

    nResult = URLDownloadToCacheFile(0, cRequest, @cTargetFile,; 

        Len(cTargetFile), 0,0) 

    WAIT CLEAR 

    DOEVENTS 

RETURN STRTRAN(cTargetFile, Chr(0), "") 

ENDDEFINE 



DEFINE CLASS Tframe As PageFrame 

    ADD OBJECT pgList As TpageList WITH Caption="List of examples" 

    ADD OBJECT pgExample As TpageExample WITH Caption="Source Code" 



PROCEDURE Resize 

    WITH THIS.pgList 

        .lst.Width = THIS.Width - 14 

        .lst.Height = THIS.height - .lst.Top - 50 

    ENDWITH 

    WITH THIS.pgExample 

        .txtSource.Width = THIS.Width - 14 

        .txtSource.Height = THIS.height - .txtSource.Top - 50 

    ENDWITH 

ENDDEFINE 



DEFINE CLASS TpageList As Page  && Page object 

    ADD OBJECT lst As ListBox WITH Left=5, Top=5, FontName="Arial",; 

        FontSize=10, ColumnCount=2, BoundColumn=1 

ENDDEFINE 



DEFINE CLASS TpageExample As Page  && Page object 

    ADD OBJECT txtSource As EditBox WITH Left=5, Top=5,; 

        FontName="Courier New", FontSize=9, ForeColor = RGB(0,96,128) 

ENDDEFINE 

:تشویق: :تشویق: :cake: :gift: :flower: :flower: :flower: :kiss: :kiss: :kiss: :kiss:

:kiss:

ضمن سلام
من میخواستم از داخل برنامه regional setting و number را number style بصورت فارسی (hindi) درآورم
چون برای ثبت اطلاعات و چاپ آن به اعداد فارسی نیاز دارم
البته از فونتهای فارسی نیز استفاده کرده ام ولی متاسفانه اعداد نمایش جالبی ندارد
و از right to left=.T. ولی در ورود اعداد در textbox از وسط شروع به ثبت میشود
و چون در بعضی از ویندوز ها 98 که بصورت دستی این کار انجام نیشود با یکبار خاموش و روشن شدن بصورت اولیه برمیگردد

اساتید جواب چی شد :cry:

من معمولا این کارو نمیکنم و از فونت badr در پارسا 99 یا B badr در فارسی ساز پارسا 2001 استفاده میکنم

برای این فونت بعضی از اعداد جالب نیست مثلا عدد صفر و ....
واگر که این کار انجام گیرد از فونتهای بین المللی استفاده میکنیم و در ورودی و گزارشات جالبتر خواهد بود
اگر امکانی هست همکاری فرمائید

اعداد فارسی اصلا حالب نیستند متاسفانه!

شما می تونید با یک فونت ادیتور به جای عددهای انگلیسی فارسیش رو بگذارید و استفاده کنید که فکر کنم قبلا یکی از دوستان این کار رو کرده بود و یک فایل به اسم kodak درست یادم نیست گذاشته همینجا برایس استفاده :wink:

با سلام و تشکر
میفرماپید که برای این موضوع راهی نیست
اگر برایتان امکان دارد ادرسهایی که بشود اینگونه موارد را بدست اورد را بدهید چون اینگونه موارد باعث کارایی بهتر فاکس برای کاربران میگردد
یا اینکه شماها که میتوانید موضوع را از منابع تامین کننده اینگونه موارد بخواهید

متاسفانه من هم چند وقتی است بدنبال این موضوع هستم ولی پیدا نکرده ام . البته به تازگی یکنفر قطعه کدی برایم فرستاده که اگر تست کردم و جواب داد در همین قسمت قرارش میدهم. البته خیلی تکنیکی نیست ولی اگر جواب بدهد شاید چاره دیگری نباشد.

سلام
یک راهی هست ولی امتحانش نکردم چون من بیشتر از فونتهای استاندارد ویندوز استفاده میکنم و بیشتر در xp کار می کنم
میشه از نرم افزارهای مثلا font Editor استفاده کنید و فونتهای مورد نظرتان را ویرایش کنید و صفر را به هر شکلی که بخواهید می توانید ان را تغییر دهید

مشکل من اینجاست که من میخواهم هم در ورود و هم در گزارشات عدد فارسی باشد و همانطوریکه میدانید حجم اعداد فارسی مقداری کوچکتر از اعداد انگلیسی است مثلا اگر یک تکست باکس برای پنج رقم فارسی در نظر بگیریم
زمانی که عدد فارسی است که کاملا درست ولی وقتی که انگلیسی میشود فضا کم است

با سلام خدمت شما اقا کیا
اگر فضولی نباشد میشود بپرسم که چرا این موضوعات ؛موضوع مهم؛ را باز کردید
و فرموده اید که فقط در همین فرومها سپوال و جواب صورت گیرد

این دسته بندی برای سهولت دسترسی همه دوستان به اطلاعات این فروم بوده و بنا به تقاضای دوستان به این شکل دسته بندی شده
البته من از دوستان راجع به دسته بندی موضوعات سوال کردم و کسی از دوستان نسبت به این نوع طبقه بندی (فعلی)انتقادی نداشت
درج کلمه "موضوع مهم" در کنار مباحث هم به این خاطر است که این قسمتها همیشه در دسته بندی موضوعات بعنوان موضوعات مهم تر در قسمت بالائی فروم قرار بگیرند تا دسترسی دوستان به آنها آسانتر باشد
البته باب انتقاد و پیشنهاد برای تمام دوستان و اساتید باز است و هرکس نظری داشته باشد با دیده منت و بعد از کسب نظر موافق سایر دوستان در این قسمت لحاظ میشود
شاید باور نکنید من خودم چند وقته که دنبال یکی از موضوعاتی میگردم که برای یکی از دوستان پست کردم ولی هنوز نتونستم بفهمم که اونو توی چه قسمتی پست کردم
و این فقط به خاطر آشفتگی بود که با ایجاد کردن موضوعات مختلف و بعضا بی ربط به متن سوال حاصل شده بود و بنا به پیشنهادات دوستان مقررشد تا تمام مباحث موضوع بندی شوند
البته من هم سعی کردم تا نحوه انتخاب موضوعات و چیدمان و آرایش آنها را از سایت universalthread الگو برداری کنم تا خطای کمتری به چشم بخورد

با سلام و تشکر
تمام مواردی که ذکر میکنم فقط جنبه پیشنهادی دارد
ببینید شما اگر بعنوان یک فرد معمولی وارد صفحه اصلی برنامه نویس شوید سرگروه موضوعات مثلا ویژوال بیسیک با مثلا چند مبحث دلفی با چند مبحث یا فاکس با 310 مبحث و .............
متوجه میشوید که دلفی تعداد مباحث بیشتری دارد و از آن میشود تغریبا نتیجه گرفت که پس تعداد افرادی که حداقل برنامه نویسی را دوست دارند و دنبال طرح سپوال و جواب هستند در مبحث دلفی بیشترند و همانطویکه میدانید با این اقدام جدید تعداد مباحث فاکس ثابت میماند

موضوع بعدی اگر ما در یک زمینه خاص سپوالی داشته باشیم سپوالات مطرح شده را مرور و بعضا به جواب مورد نظر خود میرسیم و اگر مورد نیازمان پیدا نشد انگاه اقدام به طرح آن مینماپیم
همانطوریکه میدانید تعداد مباحث قابل روپیت در هر صفحه چندین برابر تعداد سپوال و جوابهایی است که در یک صفحه جا میگیرد البته اگر جوابها فقط چند خط باشد نه چند صفحه و .......
و با گذشت زمان و مطرح نمودن سپوال و جوابها بر تعداد صفحات هر مبحث افزوده و این خود مشکلات خاص خودش را دارد

حال اگر شما بتوانید این موارد را در موضوعات جدید طوری بگنجانید که حداقل در هر مبحث بشود مبحث جدیدی مرتبط با همان مبحث اصلی را مطرح کرد خیلی عالی خواهد بود

در نگاه اول نظر شما قابل تعمق است ولی این را عرض کنم که پراکندگی موضوعات و تعدد موضوعات دلیل بر این نیست که تعداد بیشتری به آن زبان برنامه نویسی علاقه بیشتری دارند و بعضا مشاهده میشود که بعضی از پستها فقط یک جواب دارند و اونهم جوابی نیست که علمی بوده باشد بلکه اصطلاحا یک آف تاپیک است که اصلا ارزش علمی ندارد و سایر کاربران برای خالی نبودن عریضه اقدام به پست آنها میکنند
توضیحا عرض کنم که روزانه تعداد زیادی از پستهای نامربوط . تکراری. آف تاپیک. غیر علمی . غیر اخلاقی .و ...... توسط مدیران بخشها به بخش "مدیران" و بخش "سطل آشغال" منتقل میشود که تاکنون این مورد در این فروم مشاهده نشده است و هر کدام از دوستان این فروم خود به منزله یک مدیر نظارت کامل بر پستهای خود دارند

هر چند بنده اعتقاد دارم که تعداد کاربران محیطهای برنامه نویسی vb و delphi از فاکس پرو بیشتر است(که دلایل این موضوع قبلا در همین فروم مورد بحث قرار گرفته) لکن هر زبان برنامه نویسی موضوعات متمرکزی دارد که بعنوان قابلیتهای همان زبان مورد بحث میباشد و کم و بیش در تمام زبان های نسل سوم مشاهده میگردد
موضوعاتی از قبیل برنامه نویسی وب بیس . تهیه ریپورت . کلاسها . اکتیویکسها . فرمها . و ... اغلب از موضوعات رایج و بحث بر انگیز هر زبان برنامه نویسی است که ب کرات مورد سوال و جواب قرار میگیرد

به هر حال بنده از نظر جنابعالی نهایت استفاده را خواهم برد و خیلی دوست دارم تا کلیه دوستان این فروم هم در مورد پیشنهاد جنابعالی اظهار نظر نمایند تا تغییرات احتمالی مورد نظر دوستان را اعمال نمائیم

نکته آخر اینکه باب انتقاد و پیشنهاد در این فروم و صد البته مجموعه برنامه نویس کاملا باز بوده و هریک از مدیران میبایست از نظرات سازنده تمام اعضا (کمال استفاده برای پربارتر کردن مجموعه) استفاده نمایند
و اینکه بنده هیچگونه ارجحیتی نسبت به سایر دوستان ندارم مگر سابقه قبلی که باعث گردیده تا از طرف مدیریت محترم سایت (حاج مهدی گل) به این مسئولیت گماشته شوم

نقل قول:

---

متوجه میشوید که دلفی تعداد مباحث بیشتری دارد و از آن میشود تغریبا نتیجه گرفت که پس تعداد افرادی که حداقل برنامه نویسی را دوست دارند و دنبال طرح سپوال و جواب هستند در مبحث دلفی بیشترند و همانطویکه میدانید با این اقدام جدید تعداد مباحث فاکس ثابت میماند

---

دوست گرامی
ببینید در بخش … مشاهده شده که یک موضوع چندین بار تکرار شده است و این امر باعث افزایش مباحث شده که نتیجه ان نارضایتی کاربران و عدم دسترسی به موضوعات مورد نظر می شود اگر نظم خاصی به بخش ها سرایت شود قطعا دسرسی و بهره برداری بیشتر خواهد شد و امار پستها و ایجاد موضوعات تکراری هم نسبتا کاهش می شود
یک سوال ایا در بخشی که 56 صفحه یا بیشتر داشته باشد می توان موضوع مورد نظر در کمترین زمان دسترسی داشته باشید :?:
اگرکل بخشها بهمین سبک ایجاد شوند دسترسی و استفاده از موضوعات خیلی راحت تر و پرثمرترخواهد بود :)
ما ایرانیا همیشه به ظاهر نگاه میکنیم نه به باطن :wink:
امیدوارم دوستان نارحت نشده باشند :oops:
با تشکر

اگر تعداد پستها دراین طرح جدید بسیار زیاد شود مثلا 20 یا حتی 100 صفحه
واگر فردی تازه به این بخش سر بزند یعنی قبلا موضوعات را دنبال نکرده باشد به نظر شما جالب است 100 صفحه را مطالعه کند تا مبحث مورد نظر خود را پیدا کند ؟؟؟؟
این طرح به شرطی قابلیت که مدنظر آقای حیدر کیا را دارد که بتواند درداخل مبحث موضوعات مهم یک طبقه جدید هم ایجاد گردد تازیر مجموعه موضوعات اصلی شود که فکر نمی کنم فعلا دراین سایت امکان پذیر باشد
قبلا هم گفته بودم نظر شخصی من این است که این موضوعات مهم به نکات کلیدی وتازه ها پرداخته شود تا تعداد پستها کمتر ومطالعه آنها مفید تر باشد یعنی بخش جهت خبرهاونتایج بحثهای معمولی گردد.
با تشکر از استاد محترم جناب آقای حیدرکیا

با سلام
من برنامه ای نوشته ام با کپی نمودن آن در برخی از کامپیوتر ها اجرا نمیگردد خطای program error
میگیرد و با نصب office آن خطا بر طرف میگردد
البته سه فایل dll مورد نیاز اجرای فاکس را نیز در همان شاخه کپی نموده ام
چه فایلی کسر میباشد

فکر کنم باید فایل کتابخانه ویژوال سی را هم کپی کنید . یعنی msvcrt.dll

ببخشید msvcr70.dll :oops:

با تشکر
من میخواهم اطلاعات ویندوز را به داس تبدیل کنم
ابزاری برای این موضوع دارید

بنده خیر

با سلام
من از فایل dll برای اجرا استفاده کردم که این مشکل در بعضی از کامپیوترها هست
فایلهای dll به شرح زیر میباشد
Msvcr70.dll
Vfp7r.dll
Vfp7renu.dll
فایل کسری که با نصب office نصب میگردد چیست

بستگی داره به اینکه در برنامه شما چی وجود داشته باشه مثلا Rtf یا MsGraph یا ... همه با نصب Office انجام میشه.

البته یادم رفت Office فایلهای Runtime بیسیک را هم نصب میکند. ولی فایلهای شما برای فاکس کامله.

با سلام و تشکر
فعلا با نصب office این مشکل را حل میکنم
ولی برای تبدیل اطلاعات ویندوز به داس ابزاری هست :kaf:

میخواهم بانکهای دلفی را به فاکس تبیل نمایم ولی با import ویژوال فاکس ورژنهای 7و8و9 همگی فایلهای دلفی 3.5 و 4 را تبدیل منماید و بالاتر از انرا خطا میگیرد
لطفا راهنماپی فرماپید

با استفاده از InterBase و خود دلفی چرا انجام نمیدهید؟

با سلام و تشکر
متاسفانه با دلفی و interbase کار نکردم
اگر امکان دارد توضیحاتی در باره ان بفرماپید

با سلام و عرض تبریک عید فطر
یک موضوع جالب(حداقل برای من)
چرا و برای چی اسم این برنامه ما رو فاکس(روباه) گزاشتن؟؟؟؟؟؟

چون روباه باهوشترین و زیرکترین حبوانات مشهوره و فاکس پرو از از پدرش Foxbase اسم خودشو به ارث برده. و اگه یه نگاهی به فاکس پرو بیاندازید می بینید خیلی هم باهوشه واقعاً!!! شاید به خاطر تکنولوژی Rushmore. اصلا کسی سرعت هاردش را توی داس و ویندوز مقایسه کرده؟ ببینه چقدر داس توی حافظه مخفی هارد بد عمل میکنه نسبت به ویندوز؟ البته تقصیر هم نداره فقط 640 کیلوبایت در اختیار داره. خب توی اون زمان با این امکانات کم فقط فاکس پرو بود که خوب کار میکرد و هنوز هم به نظر من از خیلی نرم افزارهای دیگه بهتر و ارحجتره.
یکی از خوبیهای فاکس هم اینه که احتیاج به ODBC نداره! و همین باعث سرعتش در پردازش بانکها میشه.

هر کاری رو در کوتاهترین زمان و با کمترین پیچیدگی و بهترین شکل ممکن انجام میده

با سلام
من میخواهم سایز فایل pdf را توسط فاکس بدست آورم البته بدون استفاده از ()fopen

خب با تابع Adir انجام بده.

با سلام خدمت دوستان من می خواهم لیست ابجکت استفاده شده در یک فرم را بدست آورم (مثلا لیست label ها را داشته باشم که به هنگام تغییر فونت فرم بتوان اتوماتیک نام و تعداد label ها را بدست آورد و فونت آنها را نیز تغییر داد) و یا امکان این مطلب در فاکس وجود دارد که همانند دلفی به هنگام تغییر فونت و بقیه مشخصات از خاصیت وراثت استفاده کرد و خصلت فونت کلیه آبجکت ها ی استفاده شده در فرم تغییر پیدا کنند