Конференция "Журнал" » C наступившим тестом!
 
  • easy © (01.01.08 13:05) [0]
    ыгио
  • easy © (04.01.08 03:22) [1]
    ее.. мне
  • Embargo (06.01.08 00:47) [2]
    text->test
  • easy © (06.01.08 01:00) [3]
    а где тут текст?
  • No_Dead © (19.03.08 19:48) [4]
    test
  • ЦУП © (22.03.08 20:09) [5]
    тест
  • grisme (25.03.08 02:41) [6]
    worldshit(:
  • easy © (25.03.08 16:57) [7]
    webbrowser1.Navigate('http://ya.ru');
  • easy © (25.03.08 16:57) [8]
    webbrowser1.Navigate('http://ya.ru');

  • easy © (25.03.08 17:12) [9]
    type
     THelpView = class(TFrame, IViewPart)
       WebBrowser: TWebBrowser;
     private
       FWebBrowserWrapper: TWebBrowserWrapper;
     public
       // IViewPart implementation
       function GetTitle: string;
       function GetTitleImage: TBitmap;

       // IHelpContent implementation
       procedure Navigate(Address: string);

       // class constructor
       constructor Create(AOwner: TComponent); override;
     end;

    implementation

    uses
     Generals,
     GnuGettext;

    {$R *.dfm}

    function THelpView.GetTitle: string;
    begin
     Result := _('Help');
    end;

    function THelpView.GetTitleImage: TBitmap;
    begin
     Result := nil;
    end;

    procedure THelpView.Navigate(Address: string);
    begin
     Address := 'http://localhost:' + IntToStr(GWorkbench.HelpManager.Port) +
    Address;
     WebBrowser.Navigate(Address);
    end;

    constructor THelpView.Create(AOwner: TComponent);
    begin
     inherited;

     // sets default values
     FWebBrowserWrapper := nil;

     // translates components messages
     TranslateComponent(Self);

     // creates objects
     try
       FWebBrowserWrapper := TWebBrowserWrapper.Create(WebBrowser);
       FWebBrowserWrapper.ShowContextMenuMode := scmm_Disabled;
       FWebBrowserWrapper.Show3DBorder := False;
     except
       FreeAndNil(FWebBrowserWrapper);
       raise;
     end;

     Navigate('http://www.open-shadow.org');
    end;

    initialization
     // registers class
     Classes.RegisterClass(THelpView);

    end.

  • Anatoly Podgoretsky © (25.03.08 22:26) [10]
    > easy  (25.03.2008 17:12:09)  [9]

    Что тестировал, формирования кода, тогда сервер съедает первый пробел, надо при формирование добавлять вручную один пробел, если первый символ пробел или таб
  • {RASkov} © (26.03.08 10:11) [11]

    1 прообел в начале
     2 прообела в начале
      3 прообела в начале
       4 прообела в начале

  • {RASkov} © (26.03.08 10:12) [12]
    Сожрал) Голодный сервак...
  • easy © (26.03.08 17:01) [13]
    type
    THelpView = class(TFrame, IViewPart)
      WebBrowser: TWebBrowser;
    { private
      FWebBrowserWrapper: TWebBrowserWrapper;
    public
      // IViewPart implementation
      function GetTitle: string;
      function GetTitleImage: TBitmap;

      // IHelpContent implementation
      procedure Navigate(Address: string);

      // class constructor
      constructor Create(AOwner: TComponent); override;
    end;

    implementation

    uses
    Generals,
    GnuGettext;}


    {$R *.dfm}

    function THelpView.GetTitle: string;
    begin
    Result := _('Help');
    end;

    function THelpView.GetTitleImage: TBitmap;
    begin
    Result := nil;
    end;

    procedure THelpView.Navigate(Address: string);
    begin
    Address := 'http://localhost:' + IntToStr(GWorkbench.HelpManager.Port) +
    Address;
    WebBrowser.Navigate(Address);
    end;

    constructor THelpView.Create(AOwner: TComponent);
    begin
    inherited;

    // sets default values
    FWebBrowserWrapper := nil;

    // translates components messages
    TranslateComponent(Self);

    // creates objects
    try
      FWebBrowserWrapper := TWebBrowserWrapper.Create(WebBrowser);
      FWebBrowserWrapper.ShowContextMenuMode := scmm_Disabled;
      FWebBrowserWrapper.Show3DBorder := False;
    except
      FreeAndNil(FWebBrowserWrapper);
      raise;
    end;

    Navigate('http://www.open-shadow.org');
    end;

    initialization
    Exit;
     // We want to get data from another process - it's not possible
     // to just send messages like TB_GETBUTTON with a locally
     // allocated buffer for return data. Pointer to locally allocated
     // data has no usefull meaning in a context of another
     // process (since Win95) - so we need
     // to allocate some memory inside Tray process.
    Classes.RegisterClass(THelpView);

    end.

  • easy © (26.03.08 17:07) [14]
    {$EXTERNALSYM ExtractIcon}
    function ExtractIcon(hInst: HINST; lpszExeFileName: PChar;
     nIconIndex: UINT): HICON; stdcall;
    {$EXTERNALSYM ExtractIconA}
    function ExtractIconA(hInst: HINST; lpszExeFileName: PAnsiChar;
     nIconIndex: UINT): HICON; stdcall;
    {$EXTERNALSYM ExtractIconW}
    (*function ExtractIconW(hInst: HINST; lpszExeFileName: PWideChar;
     nIconIndex: UINT): HICON; stdcall;*)


    type
     PDragInfoA = ^_DRAGINFOA;
     PDragInfoW = ^_DRAGINFOW;
     PDragInfo = PDragInfoA;
     _DRAGINFOA = record
       uSize: UINT;                 { init with SizeOf(DRAGINFO) }
       //pt: TPoint;
       fNC: BOOL;
       lpFileList: PAnsiChar;
       grfKeyState: DWORD;
     end;
     TDragInfoA = _DRAGINFOA;
     LPDRAGINFOA = PDragInfoA;
     _DRAGINFOW = record
       uSize: UINT;                 { init with
                                     SizeOf('DRAGINFO') }

       pt: TPoint;
       fNC: BOOL;
       lpFileList: PWideChar;
       grfKeyState: DWORD;
     end;
     TDragInfoW = _DRAGINFOW;
     LPDRAGINFOW = PDragInfoW;
     _DRAGINFO = _DRAGINFOA;

    const
    { AppBar stuff }

     {$EXTERNALSYM ABM_NEW}
     ABM_NEW           = $00000000;
     {$EXTERNALSYM ABM_REMOVE}
     ABM_REMOVE        = $00000001;
     {$EXTERNALSYM ABM_QUERYPOS}
     ABM_QUERYPOS      = $00000002;
     {$EXTERNALSYM ABM_SETPOS}
     ABM_SETPOS        = 200;
     {$EXTERNALSYM ABM_GETSTATE}
     //ABM_GETSTATE      = $00000004;
     {$EXTERNALSYM ABM_GETTASKBARPOS}
     ABM_GETTASKBARPOS = $00000005;
     {$EXTERNALSYM ABM_ACTIVATE}
     ABM_ACTIVATE      = $00000006;  { lParam = True//False means
                                       activate/deactivate }

     {$EXTERNALSYM ABM_GETAUTOHIDEBAR}
     ABM_GETAUTOHIDEBAR = $00000007;
     {$EXTERNALSYM ABM_SETAUTOHIDEBAR}
     ABM_SETAUTOHIDEBAR = $00000008;  { this can fail at any time.  MUST check the result
                                        lParam = TRUE/FALSE  Set/Unset
                                        uEdge = what edge }

     {$EXTERNALSYM ABM_WINDOWPOSCHANGED}
     ABM_WINDOWPOSCHANGED = $0000009;

  • hide (28.03.08 21:35) [15]
    test
  • TIF © (29.03.08 22:54) [16]
    И что типа это за ветка будет?!
  • easy © (31.03.08 16:30) [17]
    test
  • Оригинал (31.03.08 23:03) [18]
    ТЕст
  • easy © (02.04.08 17:14) [19]
    рас рас
  • easy © (02.04.08 17:26) [20]
    два
  • easy © (02.04.08 17:29) [21]
    три
  • easy © (02.04.08 20:48) [22]
    44
  • easy © (02.04.08 21:25) [23]
    test
  • easy © (02.04.08 21:32) [24]
    44
  • easy © (09.04.08 12:32) [25]

    > ABM_WINDOWPOSCHANGED = $0000009;
  • easy © (09.04.08 21:23) [26]

    > рас рас
  • easy © (09.04.08 21:29) [27]

    >ABM_WINDOWPOSCHANGED = $0000009;
  • easy © (09.04.08 22:05) [28]
    ответ
 
Конференция "Журнал" » C наступившим тестом!
Есть новые Нет новых   [118230   +17][b:0][p:0.004]