(решено) PrintDialog1 по центру родительского окна, как?

[pupsik]

Да посмотрел, там системные функции ..

вам как мёд так и ложку? Разница у них почти сомнительная.

Это, возможно, интереснее...
http://stackoverflow.com/questions/5381188/how-do-i-position-a-topendialog

п.с.
всё равно считаю - сомнительное удовольствие "принуждения" диалогов. Т.е. системы бывают разные, настройки и "реакции" систем разные. Если уж идти выбраным вами путём то... всё свое и руками.

[vitaly_l]

Это, возможно, интереснее...
http://stackoverflow.com/questions/5381 ... opendialog

Похоже, на то... сейчас попробую переделать под принт диалог. спасибо.

[pupsik]

Вам сложно модифицировать исходник?

Код: Выделить всё

TPrintDialogPos = class(Dialogs.TPrintDialog)
  private
     Pt : TPThread;
  public
     function Execute(X,Y : integer):boolean; reintroduce;
  end;
 

Код: Выделить всё

function TPrintDialogPos.Execute(X,Y : integer):boolean;
begin
  Pt:= TPThread.Create(False);
  Pt.XPos := X;
  Pt.YPos := Y;
  if Self.Title <> '' then
     Pt.Title := Self.Title
  else begin
    Self.Title := 'ily tyta ^)';
    Pt.Title := Self.Title;
  end;
  Result:= inherited Execute;
  Pt.Free;
end;  

и вызывать как то так:

Код: Выделить всё

dlgPrint:=TPrintDialogPos.Create(self);

...
 with dlgPrint do begin
    Title :='found meee, pleaz';
....
 end;
 ...
 if dlgPrint.Execute(Left+Width div 2, Top+Height div 2) then begin
    // your code
 end;
 ...
 dlgPrint.Free

Добавлено спустя 1 минуту 48 секунд:
Re: разместить PrintDialog1 по центру родительского окна, как?
п.с.
пока писал вы походу подправили сообщение. Или глюк?

[vitaly_l]

пока писал вы походу подправили сообщение. Или глюк?

Да, просто я там топик не до конца прочитал. А когда дочитал до конца увидел искорку надежды на возможность адаптировать хак под принтдиалог. Завтра попробую. спасибо.

[pupsik]

адаптировать хак под принтдиалог

адаптировать там надо расчёт положения диалога.

п.с.
В лине проще будет диалогом двигать. Через Screen нашёл диалог. И можно координаты "пихать".
Но это только со "своими" окнами.

[vitaly_l]

адаптировать

Адаптировал, хак - фурычит. Естественно только с english названиями, т.к. буржуйский FindWindow, на других языках - ни бельмеса не понимает, а так всё работает.

И ещё вот эта пара функций вызывает недоумение, потому что, вторая функция дублирует и перекрывает первую:

Код: Выделить всё

       MoveWindow(PrHandle, XPos, YPos,Right-Left,Bottom-Top,True);
       SetWindowPos(PrHandle, HWND_TOP, XPos, YPos, 0, 0, SWP_NOSIZE);    

Если любую из них убрать, то результат неизменно верный. Смысл такого дубляжа непонятен т.к. если вторая функция отсутствует в системе, то будет сбой, а если она есть везде то, зачем нужна первая? Всё тоже самое касается и первой функции.
Интересно: Какая из этих двух функций, более древняя и есть во всех версиях window-вз?

В любом случае Бородатому Пупсику - БОЛЬШУЩЕЕ СПАСИБО!!!


.

[pupsik]

т.к. буржуйский FindWindow, на других языках

понимает... Приведите его в адекватную строку понятную винде.
п.с.

В любом случае...

это не мой код... И его можно применять. Но желательно подправить. Уж очень как то не правильно "дергать" окно без необходимости.

Смысл такого дубляжа непонятен

простой пример, без наворотов.
Просто намечалось "искать виновного" :

Получается что, этот баг (точнее недоделку) - невозможно исправить?

. Вот и пришлось у гугла спросить.

[vitaly_l]

Вот и пришлось у гугла спросить.

Всё равно непонятно: зачем они отключили onShow? <== Странно всё это.
Если бы onShow работало как полагается, то всё бы закончилось, без хаков - одной функцией: MoveWindow

.

[pupsik]

onShow

оно работает. Только вот зачем оно?
Вы думаете что оно в момент показа окна должно сработать?
Посмотрите код:

Код: Выделить всё

 if FDoShowCalled then Exit;
  FDoShowCalled := True;
  if Assigned(FOnShow) then FOnShow(Self);
 

Т.е. вы что то там инициализировать или ещё чего захотели. Вот и заполнили событие. Перед Dialog.Execute "сказали" Dialog.DoShow. И будет выполнен код из onShow.
А то что вы хотите - перехват показанного окна, а не момент инициализации. И без потока сложновато это сделать. В принципе можно руками тащить из длл. Но там песец прячется (маленький но муторный).

И кто не работает? Где баг? Кто виноват?
Я знаю ответы: лазарь или система

п.с.
все же сделайте себе принтдиалог на основе формы или фрейма и будет кросс..

[vitaly_l]

все же сделайте себе принтдиалог на основе формы или фрейма и будет кросс..

Это самое мудрое решение. Потом сделаю.

[Лекс Айрин]

Если любую из них убрать, то результат неизменно верный.

Это разные функции. Первая передвигает окно, а вторая располагает координаты окна окно на указанную позицию. Разница в том, что, для MoveWindow окно должно быть показано, а для SetWindowPos (теоретически) окно может быть и скрыто.

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

[vitaly_l]

Первая передвигает окно, а вторая располагает координаты окна окно на указанную позицию.

Суть от этого не меняется, обе функции ставят окно в одно и тоже положение. Соответственно, любую из них можно смело убрать из кода.

[Лекс Айрин]

vitaly_l,
Вот пример кода

Код: Выделить всё

frame.Free;//? стоит ли?  С ним ошибка при повторном нажатии исчезает.))
...    
Frame := TFrameFolders.Create(PanelFolders);
    Frame.Align:=alClient;
    Frame.Parent := PanelFolders;

    Form1.Caption:='Папки';
   
    PanelFolders.Visible:=true; 
...
 

Вопрос на засыпку.... зачем первая строчка?
Это я к тому, что любое, даже самое странное решение может быть введено из-за совсем непонятных с первого взгляда причин. И убранная строчка может аукнуться неизвестно где.

Вообще, по логике работы, MoveWindow должна вызывать SetWindowsPos для установки координат, но тогда непонятно их использование в одном и том же куске кода. По манам разница между ними только в том, что вторая может поднять/опустить окно относительно других (изменить его Z-индекс).

В winAPI, к сожалению, как я понял, по историческим причинам такого дублирования функций полно. Судя по всему, лучше убрать MoveWindow.
А насчет того у какой больше шансов выжить в перспективе, так это не скажет никто.

Добавлено спустя 5 минут 10 секунд:
Ах да... вот еще одна разница.

SetWindowPos работает в экранных координатах. А MoveWindow в обычных.

[pupsik]

Вопрос на засыпку.... зачем первая строчка?

для вашего велика.
С другой стороны: если вы на одном frame "держите" разные формы то вполне нормально. Иначе: храните frames в контейнере.

[Лекс Айрин]

pupsik, хотел, но сначала раскидал по разным. При повторном отображении без освобождения программа ругалась. Потом, скорее всего, перенесу в более подходящее место.