Как вывести форму в верхнем левом углу?

[miklenew]

Может тема была уже.
Чё-то не нашёл.
1) Создаю форму пустую.
2) В design->left ставлю Auto (right) или Right edge.
3) Запускаю форму
Результат полное игнорирование.
Ax 3.0

[miklenew]

Сори, перепутал. В верхнем правом углу.

[petergunn]

Если других 'человеческих' вариантов не предложат, то можно попробовать 'поиграть' правым выравниваением формы средствами WinAPI.
Алгоритм не сложный: получить размеры клиентской области Ax и размеры текущей формы, после этого выставить координаты формы (formDesign.leftValue) таким образом что бы форма была 'прижата' к правой границе рабочей области Ax.

Обработку можно навесить на метод run():

public void run()
{
    //  --> FormAlignment
    container   rectCurForm ;
    container   rectAxClient;
    int         formWidth   ;
    int         formLeft    ;
    ;
    //  <-- FormAlignment

    super();

    //  --> FormAlignment
    switch( this.form().design().leftMode() )
    {
        case FormLeft::AutoRight :
        case FormLeft::RightEdge :
            rectCurForm = WinAPI::getWindowRect( this.hWnd() )   ;
            rectAxClient = WinAPI::getClientRect( WinAPI::findWindowEx( infolog.hWnd(), 0, 'MDIClient', '' ) ) ;
            formWidth = conpeek( rectCurForm, 3 ) - conpeek( rectCurForm, 1 ) ;
            formLeft = conpeek( rectAxClient, 3 ) - formWidth ;

            this.design().leftValue( formLeft ) ;
            break ;
    }
    //  <-- FormAlignment
}

В класс WinAPI добавить 'обертки' методов BOOL GetWindowRect( HWND hWnd, LPRECT lpRect ) и BOOL GetClientRect( HWND hWnd, LPRECT lpRect ):

client static container getWindowRect(HWND _hWnd)
{
    #define.sizeOfRectStruct(16)

    DLL         DLL = new DLL(#UserDLL) ;
    DLLFunction DLLFunction = new DLLFunction(DLL,'GetWindowRect');
    Binary      rect = new Binary( #sizeOfRectStruct );
    ;

    DLLFunction.arg( ExtTypes::DWord, ExtTypes::Pointer ) ;
    DLLFunction.returns( ExtTypes::DWord ) ;

    if( DLLFunction.call( _hWnd, rect ) == 0 )
        return connull() ;

    return [ rect.dWord( #offset0 ), rect.dWord( #offset4 ), rect.dWord( #offset8 ), rect.dWord( #offset12 ) ] ;
}

client static container getClientRect(HWND _HWND)
{
    #define.sizeOfRectStruct(16)

    DLL         DLL = new DLL(#UserDLL) ;
    DLLFunction DLLFunction = new DLLFunction(DLL,'GetClientRect');
    Binary      rect = new Binary( #sizeOfRectStruct );
    ;

    DLLFunction.arg( ExtTypes::DWord, ExtTypes::Pointer ) ;
    DLLFunction.returns( ExtTypes::DWord ) ;

    if( DLLFunction.call( _hWnd, rect ) == 0 )
        return connull() ;

    return [ rect.dWord( #offset0 ), rect.dWord( #offset4 ), rect.dWord( #offset8 ), rect.dWord( #offset12 ) ] ;
}

P.S. Набросал небольшой проект в качестве демонстрации (Ax 3.0 sp05 fp01 )

[miklenew]

Ну у меня что-то похожее получилось

int getRightPointer()
{
    Binary      data            = new Binary(32);
    DLL         _winApiDLL      = new DLL('user32');
    DLLFunction fun  = new DLLFunction(_winApiDLL, 'GetWindowRect');
;

    fun.returns(ExtTypes::DWord);

    fun.arg(ExtTypes::DWord, ExtTypes::Pointer);
    fun.call(infolog.hWnd(), data);

    return data.dWord(8);
}

int getWidth()
{
    Binary      data            = new Binary(32);
    DLL         _winApiDLL      = new DLL('user32');
    DLLFunction fun  = new DLLFunction(_winApiDLL, 'GetWindowRect');
    container con;
;

    fun.returns(ExtTypes::DWord);

    fun.arg(ExtTypes::DWord, ExtTypes::Pointer);
    fun.call(this.hWnd(), data);
    return data.dWord(8) - data.dWord(0);
}

public void run()
{
    super();
    this.design().left(this.getRightPointer() - this.getWidth()-4);
}

Всё равно. Как-то грустно это.

[petergunn]

Цитата:

Сообщение от miklenew

Ну у меня что-то похожее получилось

int getRightPointer()
{
    Binary      data            = new Binary(32);
    DLL         _winApiDLL      = new DLL('user32');
    DLLFunction fun  = new DLLFunction(_winApiDLL, 'GetWindowRect');
;

    fun.returns(ExtTypes::DWord);

    fun.arg(ExtTypes::DWord, ExtTypes::Pointer);
    fun.call(infolog.hWnd(), data);

    return data.dWord(8);
}

Хм... мне кажется логика getRightPointer() в текущей реализации (использование GetWindowRect вместо GetClientRect) может работать не совсем корректно.
2 момента на которые обратил внимание:

1. GetWindowRect() дает координаты окна относительно экрана в виде [left, top, right, bottom] - data.dWord(8) = right возвратит правую координату окна по горизонтали, а не ширину его. Если Ax открыта не в режиме 'на весь экран' (SW_MAXIMIZE), то открываемая форма должна уйти за правую границу рабочей области Ax - ровно на растояние от левого края экрана до левой границы Ax.
2. Если имеются открытые окна с правой стыковкой (окно свойств, например) - то это тоже повлияет правое выравнивание (координаты и размеры окна Ax не изменятся - а вот 'рабочая область' будет меньше).

[miklenew]

Цитата:

Сообщение от petergunn

Хм... мне кажется логика getRightPointer() в текущей реализации (использование GetWindowRect вместо GetClientRect) может работать не совсем корректно.

Спасибо за уточнение, но мне для узко-локальной задачи и так пойдёт.

[DSPIC]

А так не работает? (Ax40sp2)
\Classes\SysSetupFormRun\run:

public void run()
{
    super();

    //EVO: 09.02.09 #Form move test -->
    WinApi::setWindowPos(this.hWnd(), 0, 0, -1, -1, false, true);
    //EVO: 09.02.09 #Form move test <--
}

Warning: в целях эксперимента сделано глобально для всех форм

[miklenew]

Цитата:

Сообщение от DSPIC

А так не работает? (Ax40sp2)

Спасибо конечно. Но втором сообщение я написал, что перепутал.
Надо не слева, а с права.