paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-07 18:40:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

Printers, fix printer dialgos titles (win), modified patch from Boguslaw Brandys, issue #14186

Browse Source 
git-svn-id: trunk@41082 -
This commit is contained in:
jesus 2013-05-09 05:47:33 +00:00
parent ae587f01ff
commit 5e53bcfafa
1 changed files with 79 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

105
components/printers/win32/winprndialogs.inc
View File

@ -1,40 +1,69 @@
{%MainUnit ../printersdlgs.pp}
function PrintHookProc(hdlg: HWND; uiMsg: UINT; wParam: WPARAM; lParam: LPARAM): UINT_PTR; stdcall;
// update from win32wsdialogs.pp
procedure Reposition(ADialogWnd: Handle);
var
Left, Top: Integer;
ABounds, DialogRect: TRect;
begin
// Btw, setting width and height of dialog doesnot reposition child controls :(
// So no way to set another height and width at least here
// update from win32wsdialogs.pp
procedure Reposition(ADialogWnd: Handle);
var
Left, Top: Integer;
ABounds, DialogRect: TRect;
if (GetParent(ADialogWnd) = Widgetset.AppHandle) then
begin
// Btw, setting width and height of dialog doesnot reposition child controls :(
// So no way to set another height and width at least here
if (GetParent(ADialogWnd) = Widgetset.AppHandle) then
begin
if Screen.ActiveCustomForm <> nil then
ABounds := Screen.ActiveCustomForm.Monitor.BoundsRect
else
if Application.MainForm <> nil then
ABounds := Application.MainForm.Monitor.BoundsRect
else
ABounds := Screen.PrimaryMonitor.BoundsRect;
end
if Screen.ActiveCustomForm <> nil then
ABounds := Screen.ActiveCustomForm.Monitor.BoundsRect
else
ABounds := Screen.MonitorFromWindow(GetParent(ADialogWnd)).BoundsRect;
GetWindowRect(ADialogWnd, DialogRect);
Left := (ABounds.Right - DialogRect.Right + DialogRect.Left) div 2;
Top := (ABounds.Bottom - DialogRect.Bottom + DialogRect.Top) div 2;
SetWindowPos(ADialogWnd, HWND_TOP, Left, Top, 0, 0, SWP_NOSIZE);
end;
if Application.MainForm <> nil then
ABounds := Application.MainForm.Monitor.BoundsRect
else
ABounds := Screen.PrimaryMonitor.BoundsRect;
end
else
ABounds := Screen.MonitorFromWindow(GetParent(ADialogWnd)).BoundsRect;
GetWindowRect(ADialogWnd, DialogRect);
Left := (ABounds.Right - DialogRect.Right + DialogRect.Left) div 2;
Top := (ABounds.Bottom - DialogRect.Bottom + DialogRect.Top) div 2;
SetWindowPos(ADialogWnd, HWND_TOP, Left, Top, 0, 0, SWP_NOSIZE);
end;
function PrintHookProc(hdlg: HWND; uiMsg: UINT; wParam: WPARAM; lParam: LPARAM): UINT_PTR; stdcall;
var
lpp: PtagPD;
begin
if uiMsg = WM_INITDIALOG then
begin
lpp := PtagPD(lParam);
if (lParam<>0) and (lpp^.lCustData<>0) then
{$IFDEF USEUNICODE}
SetWindowTextW(hdlg, pwidechar(lpp^.lCustData));
{$ELSE}
SetWindowText(hdlg,pChar(lpp^.lCustData));
{$ENDIF}
Reposition(hdlg);
end;
Result := 0;
end;
function PageSetupHookProc(hdlg: HWND; uiMsg: UINT; wParam: WPARAM; lParam: LPARAM): PtrUInt; stdcall;
var
lpp : PtagPSD;
begin
if uiMsg = WM_INITDIALOG then
begin
lpp := PtagPSD(lParam);
if (lParam<>0) and (lpp^.lCustData<>0) then
{$IFDEF USEUNICODE}
SetWindowTextW(hdlg, pwidechar(lpp^.lCustData));
{$ELSE}
SetWindowText(hdlg,pChar(lpp^.lCustData));
{$ENDIF}
Reposition(hdlg);
end;
Result := 0;
end;
{ TPageSetupDialog }
function TPageSetupDialog.Execute: Boolean;
@ -60,7 +89,15 @@ begin
begin
lStructSize := SizeOf(lpp);
hInstance := System.HInstance;
lpfnPageSetupHook := @PrintHookProc;
lpfnPageSetupHook := @PageSetupHookProc;
if Title<>'' then
{$IFDEF USEUNICODE}
lCustData := LPARAM(pWideChar(UTF8Decode(Title)))
{$ELSE}
lCustData := LPARAM(pChar(Utf8ToAnsi(Title)))
{$ENDIF}
else
lCustData := 0;
Flags := PSD_MARGINS or PSD_ENABLEPAGESETUPHOOK;
hWndOwner := Widgetset.AppHandle;
rtMargin := fMargins;
@ -152,6 +189,14 @@ begin
lStructSize := SizeOf(lpp);
hInstance := System.HInstance;
lpfnSetupHook := @PrintHookProc;
if Title<>'' then
{$IFDEF USEUNICODE}
lCustData := LPARAM(pWideChar(UTF8Decode(Title)))
{$ELSE}
lCustData := LPARAM(pChar(Utf8ToAnsi(Title)))
{$ENDIF}
else
lCustData := 0;
Flags := PD_PRINTSETUP or PD_RETURNDC or PD_ENABLESETUPHOOK;
hWndOwner := Widgetset.AppHandle;
PDev := TPrinterDevice(Printer.Printers.Objects[Printer.PrinterIndex]);
@ -240,6 +285,14 @@ begin
hInstance := System.HInstance;
lpfnPrintHook := @PrintHookProc;
lpfnSetupHook := @PrintHookProc;
if Title<>'' then
{$IFDEF USEUNICODE}
lCustData := LPARAM(pWideChar(UTF8Decode(Title)))
{$ELSE}
lCustData := LPARAM(pChar(Utf8ToAnsi(Title)))
{$ENDIF}
else
lCustData := 0;
Flags := PD_ENABLEPRINTHOOK or PD_ENABLESETUPHOOK;
if not Printer.RawMode then
Flags := Flags or PD_RETURNDC;