Помощь - Поиск - Пользователи - Календарь
Полная версия: Не восстанавливается рамка окна
Форум «Всё о Паскале» > Современный Паскаль и другие языки > Делфи
TarasBer
По моему замыслу окно должно раскрываться на весь экран по альт+ентер, оно раскрывается, но обратно схлопывается при повторном нажатии альт+ентер неправильно.

uses
Windows, Messages;

var
C: TWndClass;
H: hWnd;
A: THandle;
M: TMsg;

const acc: array [0 .. 2] of word = (fVirtKey or fAlt, vk_Return, 1);

function WP(H: hWnd; M: uInt; W: wParam; L: lParam): longint; stdcall;
begin
Result := 0;
case M of
wm_Command: begin
case LoWord(W) of
1: begin
if IsZoomed(H) then begin
ShowWindow(H, sw_Restore);
SetWindowLong(H, gwl_Style, ws_OverlappedWindow or ws_Visible); вот в этом месте!!!
end else begin
SetWindowLong(H, gwl_Style, integer(ws_PopUp or ws_Visible));
ShowWindow(H, sw_ShowMaximized);
end;
end;
end;
end;
wm_Destroy: begin
PostQuitMessage(0);
Exit;
end;
end;
Result := DefWindowProc(H, M, W, L);
end;

begin
with C do begin
Style := cs_HRedraw or cs_VRedraw or cs_OwnDC;
lpfnWndProc := @WP;
cbClsExtra := 0;
cbWndExtra := 0;
hInstance := MainInstance;
hIcon := 0;
hCursor := LoadCursor(0, idc_Arrow);
hbrBackground := Color_BtnFace + 1;
lpszMenuName := nil;
lpszClassName := 'test';
end;
RegisterClass©;
A := CreateAcceleratorTable(acc, 1);
H := CreateWindow('test', 'test', ws_OverlappedWindow or ws_Visible, 100, 100, 400, 300, 0, 0, MainInstance, nil);
ShowWindow(H, cmdShow);
UpdateWindow(H);
while GetMessage(M, 0, 0, 0) do begin
if TranslateAccelerator(H, A, M) = 0 then begin
TranslateMessage(M);
DispatchMessage(M);
end;
end;
end.

Client
развернулось во весь экран и без рамки, вернулось с рамкой и кнопками закрыть, развернуть.
а надо как? чтобы маленькое окно тоже было без рамки? или у большого была рамка?
TarasBer
> вернулось с рамкой и кнопками закрыть, развернуть.

Блин, почему тогда у меня вернулось без рамки...

Добавлено через 2 мин.
А, оно только рисуется без рамки, а если его свернуть-развернуть, то рамка появляется.
Короче, надо какую-то перерисовку добавить походу.
Посылка wm_Paint не помогла, UpdateWindow не помогает, что такое...
volvo
Используй RedrawWindow для перерисовки окна. Обязательно в последнем параметре укажи RDW_FRAME...
TarasBer
> Обязательно в последнем параметре укажи RDW_FRAME...

А во втором и третьем?
Ну в первом я указал H, а вот дальше...
nil и 0 не прокатывают.
Client
h,0,0,RDW_FRAME
отработало
volvo
RedrawWindow(H, nil, 0, RDW_FRAME or RDW_INVALIDATE);
должно восстановить рамку. Трудно вслепую советовать, я сейчас под Семеркой, тут рамка появляется сразу, без перерисовки окна...
TarasBer
InvalidateRect(H, nil, False); тоже не помог...

Добавлено через 2 мин.
> h,0,0,RDW_FRAME
отработало

Ну у тебя и так работало.

> RedrawWindow(H, nil, 0, RDW_FRAME or RDW_INVALIDATE)

Нифига...

Если что, у меня классическая тема, всё выключено, кроме галочки "отображать содержимое при перетаскивании", она мне нужна для отладки интерфейса. Выключение галочки не помогло.
volvo
SetWindowPos(H, 0, 0, 0, 0, 0,
SWP_FRAMECHANGED or SWP_NOZORDER or SWP_NOMOVE or SWP_NOSIZE);
после смены стиля - тоже не помогает? SWP_FRAMECHANGED как бы должно намекнуть системе, что надо перерисовать заголовок...
TarasBer
О, а вот через SetWindowPos заработало.
Проверю дома заодно. Просто прикол из 1го поста проявился на двух хрюшах, настроенных одинаково. Только у одной сервис-пак второй, у другой третий.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.