pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

richmemo: win32, more generic handling of WM_PRINT

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7383 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2020-04-14 18:32:41 +00:00
parent 7b48e29ef4
commit fb17e650c0
1 changed files with 72 additions and 65 deletions
Download Patch File Download Diff File Expand all files Collapse all files

137
components/richmemo/win32/win32richmemo.pas
View File

@ -141,8 +141,6 @@ type
class function GetCanRedo(const AWinControl: TWinControl): Boolean; override; class function GetCanRedo(const AWinControl: TWinControl): Boolean; override;
class procedure ScrollBy(const AWinControl: TWinControl; DeltaX, DeltaY: integer); override; class procedure ScrollBy(const AWinControl: TWinControl; DeltaX, DeltaY: integer); override;
class procedure PaintTo(const AWinControl: TWinControl; ADC: HDC; X, Y: Integer); override;
end; end;
{ TWin32Inline } { TWin32Inline }
@ -202,6 +200,9 @@ function GetLangOptions(rm: TCustomRichMemo): TWinLangOptions; overload;
procedure SetLangOptions(hnd: THandle; const opts: TWinLangOptions); overload; procedure SetLangOptions(hnd: THandle; const opts: TWinLangOptions); overload;
procedure SetLangOptions(rm: TCustomRichMemo; const opts: TWinLangOptions); overload; procedure SetLangOptions(rm: TCustomRichMemo; const opts: TWinLangOptions); overload;
*) *)
procedure WMPrintRichMemo(const AWinControl: TWinControl; ADC: HDC);
implementation implementation
const const
@ -367,6 +368,68 @@ begin
if (GetKeyState(VK_LWIN) < 0) or (GetKeyState(VK_RWIN) < 0) then Include(Result, ssMeta); if (GetKeyState(VK_LWIN) < 0) or (GetKeyState(VK_RWIN) < 0) then Include(Result, ssMeta);
end; end;
procedure WMPrintRichMemo(const AWinControl: TWinControl; ADC: HDC);
var
fmt : TFormatRange;
cxPhysOffset : Integer;
cyPhysOffset : Integer;
cxPhys : Integer;
cyPhys : Integer;
r : TRect;
p : POINTL;
begin
// why would WinAPI make things easier if it can make them harder?!
// WM_PRINT doesn't seem to be fully functinoal for RICHEDIT
// EM_FORMATRANGE needs to be used
fmt.hdc:=ADC;
fmt.hdcTarget:=ADC;
p.x:=1;
p.y:=1;
fmt.chrg.cpMin:=SendMessage(AWinControl.Handle, EM_CHARFROMPOS, 0, LPARAM(@p));
fmt.chrg.cpMax:=TCustomRichMemo(AWinControl).GetTextLen;
case GetDeviceCaps(adc, TECHNOLOGY) of
DT_RASDISPLAY, DT_DISPFILE: begin
Windows.GetClientRect(AWinControl.Handle, r);
r:=Bounds(0,0,AWinControl.Width,AWinControl.Height);
//todo: to be properly read from the border settings
InflateRect(r, -4, -4);
fmt.rcPage.left := MulDiv(r.Left, 1440, GetDeviceCaps(adc, LOGPIXELSX));
fmt.rcPage.top := MulDiv(r.Top, 1440, GetDeviceCaps(adc, LOGPIXELSY));
fmt.rcPage.right := MulDiv(r.Right, 1440, GetDeviceCaps(adc, LOGPIXELSX));
fmt.rcPage.bottom := MulDiv(r.Bottom,1440, GetDeviceCaps(adc, LOGPIXELSY));
fmt.rc:=Bounds(
MulDiv(2,1440, GetDeviceCaps(adc, LOGPIXELSY)),
MulDiv(2,1440, GetDeviceCaps(adc, LOGPIXELSY)),
fmt.rcPage.Right-fmt.rcPage.Left, fmt.rcPage.Bottom-fmt.rcPage.top);;
end;
DT_RASPRINTER,DT_PLOTTER,DT_METAFILE: begin
cxPhysOffset := GetDeviceCaps(adc, PHYSICALOFFSETX);
cyPhysOffset := GetDeviceCaps(adc, PHYSICALOFFSETY);
cxPhys := GetDeviceCaps(adc, PHYSICALWIDTH);
cyPhys := GetDeviceCaps(adc, PHYSICALHEIGHT);
// Set page rect to physical page size in twips.
fmt.rcPage.top := 0;
fmt.rcPage.left := 0;
fmt.rcPage.right := MulDiv(cxPhys, 1440, GetDeviceCaps(adc, LOGPIXELSX));
fmt.rcPage.bottom := MulDiv(cyPhys, 1440, GetDeviceCaps(adc, LOGPIXELSY));
// Set the rendering rectangle to the pintable area of the page.
fmt.rc.left := cxPhysOffset;
fmt.rc.right := cxPhysOffset + cxPhys;
fmt.rc.top := cyPhysOffset;
fmt.rc.bottom := cyPhysOffset + cyPhys;
end;
end;
SendMessage(AWinControl.Handle, EM_FORMATRANGE, 1, LPARAM(@fmt));
// free mem. See MSDN
SendMessage(AWinControl.Handle, EM_FORMATRANGE, 0, 0);
end;
function RichEditProc(Window: HWnd; Msg: UInt; WParam: Windows.WParam; function RichEditProc(Window: HWnd; Msg: UInt; WParam: Windows.WParam;
LParam: Windows.LParam): LResult; stdcall; LParam: Windows.LParam): LResult; stdcall;
var var
@ -435,6 +498,13 @@ begin
else else
Result := WindowProc(Window, Msg, WParam, LParam); Result := WindowProc(Window, Msg, WParam, LParam);
end; end;
case msg of
WM_PRINT: begin
WindowInfo := GetWin32WindowInfo(Window);
WMPrintRichMemo(WindowInfo^.WinControl, HDC(WParam));
end;
end;
end; end;
{ TWin32Inline } { TWin32Inline }
@ -1549,69 +1619,6 @@ begin
RichEditManager.SetScroll(AWinControl.Handle, pt); RichEditManager.SetScroll(AWinControl.Handle, pt);
end; end;
class procedure TWin32WSCustomRichMemo.PaintTo(const AWinControl: TWinControl;
ADC: HDC; X, Y: Integer);
var
fmt : TFormatRange;
cxPhysOffset : Integer;
cyPhysOffset : Integer;
cxPhys : Integer;
cyPhys : Integer;
xx, yy: integer;
r : TRect;
begin
if not AWinControl.HandleAllocated then Exit;
// why would WinAPI make things easier if it can make them harder?!
// WM_PRINT doesn't seem to be fully functinoal for RICHEDIT
// EM_FORMATRANGE needs to be used
TWin32WSWinControl.PaintTo(AWinControl, ADC, X,Y);
fmt.hdc:=ADC;
fmt.hdcTarget:=ADC;
fmt.chrg.cpMin:=CharAtPos(AWinControl,1,1);
fmt.chrg.cpMax:=TCustomRichMemo(AWinControl).GetTextLen;
case GetDeviceCaps(adc, TECHNOLOGY) of
DT_RASDISPLAY, DT_DISPFILE: begin
Windows.GetClientRect(AWinControl.Handle, r);
r:=Bounds(0,0,AWinControl.Width,AWinControl.Height);
//todo: to be properly read from the border settings
InflateRect(r, -4, -4);
fmt.rcPage.left := MulDiv(r.Left, 1440, GetDeviceCaps(adc, LOGPIXELSX));
fmt.rcPage.top := MulDiv(r.Top, 1440, GetDeviceCaps(adc, LOGPIXELSY));
fmt.rcPage.right := MulDiv(r.Right, 1440, GetDeviceCaps(adc, LOGPIXELSX));
fmt.rcPage.bottom := MulDiv(r.Bottom,1440, GetDeviceCaps(adc, LOGPIXELSY));
fmt.rc:=Bounds(
MulDiv(X+2,1440, GetDeviceCaps(adc, LOGPIXELSY)),
MulDiv(Y+2,1440, GetDeviceCaps(adc, LOGPIXELSY)),
fmt.rcPage.Right-fmt.rcPage.Left, fmt.rcPage.Bottom-fmt.rcPage.top);;
end;
DT_RASPRINTER,DT_PLOTTER,DT_METAFILE: begin
cxPhysOffset := GetDeviceCaps(adc, PHYSICALOFFSETX);
cyPhysOffset := GetDeviceCaps(adc, PHYSICALOFFSETY);
cxPhys := GetDeviceCaps(adc, PHYSICALWIDTH);
cyPhys := GetDeviceCaps(adc, PHYSICALHEIGHT);
// Set page rect to physical page size in twips.
fmt.rcPage.top := 0;
fmt.rcPage.left := 0;
fmt.rcPage.right := MulDiv(cxPhys, 1440, GetDeviceCaps(adc, LOGPIXELSX));
fmt.rcPage.bottom := MulDiv(cyPhys, 1440, GetDeviceCaps(adc, LOGPIXELSY));
// Set the rendering rectangle to the pintable area of the page.
fmt.rc.left := cxPhysOffset;
fmt.rc.right := cxPhysOffset + cxPhys;
fmt.rc.top := cyPhysOffset;
fmt.rc.bottom := cyPhysOffset + cyPhys;
end;
end;
SendMessage(AWinControl.Handle, EM_FORMATRANGE, 1, LPARAM(@fmt));
// free mem. See MSDN
SendMessage(AWinControl.Handle, EM_FORMATRANGE, 0, 0);
end;
// The function doesn't use Windows 7 (Vista?) animations. And should. // The function doesn't use Windows 7 (Vista?) animations. And should.
function ThemedNCPaint(AWindow: Windows.HANDLE; RichMemo: TCustomRichMemo; WParam: WParam; LParam: LParam; var Handled: Boolean): LResult; function ThemedNCPaint(AWindow: Windows.HANDLE; RichMemo: TCustomRichMemo; WParam: WParam; LParam: LParam; var Handled: Boolean): LResult;
begin begin