Автор | Сообщение |
|
| постоянный участник
|
Пост N: 2034
Зарегистрирован: 12.09.06
|
|
Отправлено: 01.02.12 23:21. Заголовок: Что то новенькое ?
|
|
|
Ответов - 6
[только новые]
|
|
|
| moderator
|
Пост N: 318
Зарегистрирован: 11.02.10
|
|
Отправлено: 02.02.12 15:00. Заголовок: Andrey Коммерческий..
Andrey, Коммерческий NTK проект появился в сети в конце 2006 г. и основан исключительно на компиляторе xHarbour. При написании кода активно используются обертки для winapi-функций, которые для удобства названы также, как их winapi-аналоги с добавлением приставки NTK_. Пример кода: цитата: | * Name.........: SHLABOUT.PRG * Compil.......: MKRAD SHLABOUT * Aim..........: Shows how to wrap and reach the Win32 API SHellAbout() function directly from NTK's embedded dll call commands * Date.........: 10.03.2006 * Author(s)....: Jn Dechereux * Copyright : (c) 2006 - Jn DECHEREUX. Tous droits r‚serv‚s/All Rights Reserved. ******************************************************************************** // Usage: // ShellAbout( hWnd, cTitleBarText, cInboxText, hIncon ) -> nRet ( 1=Success OR 0=fail ) // // Have look to Win32 SDK HLP file // OR // MSDN WebSite at : // http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/reference/functions/shellexecute.asp // // -- Manifest Windows XP //#define ISOLATION_AWARE_ENABLED 1 // remove remarks if you want fancy XP Theme buttons. #include "windows.ch" #include "ntkcctrl.ch" #include "ntkgdi.ch" #include "ntkmsg.ch" #include "ntkacc.ch" #include "ntkcmd.ch" #include "wNtk.ch" #include "wNtkKeys.ch" #include "ntkbtn.ch" #include "ntkimg.ch" #include "ntkdll.ch" #define ID_BTN0 8000 #define ID_BTN1 8001 #define CR CHR(13) FUNCTION MAIN() LOCAL hWndDemo LOCAL cWinTitle := "NTK Demo of Win32 ShellAbout() function..." PRIVATE aBtnList := {} // Do not forget it! CREATE WINDOW hWndDemo ; TITLE cWinTitle ; // Minimum declaration AT 0,0 SIZE 550,300 ; Style WS_SYSMENU ; // We just want the close Btn ON PAINT DoRePaint() ; ON EXIT DoExit() @ 180,150 BUTTON "Click &Here (F1)" SIZE 40,250 ; ID ID_BTN1 ; SUPER ACCEL KEY K_F1 ; ACTION DoShAbout(hWndDemo) ; STATE NTK_BT_ENABLE ; FONT NTK_GetStockObject(SYSTEM_FONT) ; MESSAGE "Click here or press F1 key to see the ShellAbout dialog box..." ; OF hWndDemo ACTIVATE WINDOW hWndDemo NORMAL // Display window AUTO HANDLE EVENTS OF WINDOW hWndDemo USING ; // Start background processing BUTTON LIST aBtnList CLOSE WINDOW hWndDemo RETURN ****** ****** ****** FUNCTION DoExit(hWnd, message, nwParam, nlParam) IF NTK_MsgBox( hWnd,; "Do you really want to quit ?",; "ShellAbout Demo",; MB_OKCANCEL+MB_ICONQUESTION ) == IDOK //NTK_PostQuitMessage(0) // tell OS to terminate the application. Do not forget! //RETURN(.T.) // Quit RETURN( NTK_SendQuitEvent() ) // Same as both to previous lines : Terminate current app. ENDIF RETURN(.F.) // Do not quit, keep on current task ****** ****** ****** FUNCTION DOREPAINT(hWnd, message, nwParam, nlParam, hDC) //------ Old Style/fashion way to code ... more xBase-console like // Note that we can also use/mix Windows enhanced capabilities if // more power is needed... SET COLOR TO R+/W+ @ 080,050 SAY "How to reach Win32 ShellAbout() function using NTK's DLL commands..." ; INTO CONTEXT hDC ; SIZE 30,450 ; STYLE DT_CENTER+DT_VCENTER RETURN Nil ****** ****** ****** FUNCTION DOSHABOUT(hWnd) local nShellAbout nShellAbout := ShellAbout( hWnd,; "FIRST PART (Title bar Text)#SECOND PART (String to be placed after M$ TradeMark)",; "THIS IS THE INBOX TEXT."+CR+; "Note: Only about 2 lines of text can be inserted....",; NTK_LoadIcon(Nil, IDI_EXCLAMATION) ) IF nShellAbout != 1 NTK_MsgBox( hWnd, NTK_GetLastError(), "ERROR" ) ELSE NTK_MsgBox( hWnd, STR(nShellAbout), "The call to ShellAbout() returns :" ) ENDIF RETURN(Nil) ****** ****** ****** ****** ****** ShellAbout() WRAPPER. ****** Usage : ShellAbout( hWnd, cTitleBarText, cInboxText, hIcon ) -> nRet ( 1=Success OR 0=fail ) ****** Inluded: In Shell32.DLL ****** // --------- NTK declaration style... Declare function ShellAbout Lib Shell32.ShellAboutA ; ( hWnd As HWND, cApp As string, cOtherStuff As string, hIcon As HICON ) AS int |
| Текущее состояние проекта: демка версии 1.10 датирована августом 2009 г. Второй проект с громким названием xBase-Dev не вышел даже из pre-alpha стадии и не имеет на SourceForge ни строчки кода
|
|
|
|
| постоянный участник
|
Пост N: 2035
Зарегистрирован: 12.09.06
|
|
Отправлено: 02.02.12 15:56. Заголовок: gfilatov2002 А что..
gfilatov2002 А что по вашему мнению представляет интерес по Харбору ? Куда смотреть и двигаться дальше, после терминалки ?
|
|
|
|
| moderator
|
Пост N: 319
Зарегистрирован: 11.02.10
|
|
Отправлено: 02.02.12 18:45. Заголовок: Andrey пишет: Куда ..
Andrey пишет: цитата: | Куда смотреть и двигаться дальше, после терминалки ? |
| Это зависит от того, какой софт предпочтителен для Вас - коммерческий, имеющий платную поддержку на постоянной основе, или бесплатный, предполагающий собственные усилия по исправлению любых обнаруженных ляпов в коде Лидер в 1-й группе - это библиотека FiveWin, выбор во второй группе зависит от личных предпочтений и доступности авторов софта
|
|
|
|
| постоянный участник
|
Пост N: 2036
Зарегистрирован: 12.09.06
|
|
Отправлено: 02.02.12 20:53. Заголовок: А для библиотеки Fiv..
А для библиотеки FiveWin появился свой IDE ?
|
|
|
|
| moderator
|
Пост N: 320
Зарегистрирован: 11.02.10
|
|
Отправлено: 02.02.12 21:45. Заголовок: Andrey пишет: для б..
|
|
|
|
| постоянный участник
|
Пост N: 2037
Зарегистрирован: 12.09.06
|
|
Отправлено: 02.02.12 22:27. Заголовок: А кто им из наших по..
А кто им из наших пользуется ? Народ откликнись.... Кто на FiveWin работает, пробовали этот IDE ? Чем формы рисуете ???
|
|
|
|