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

richmemo: win32 surpress undesired on selection change notifications, correct line spacing adjustments

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3813 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2014-11-30 08:32:37 +00:00
parent 3764b37587
commit fa0c58f9da
2 changed files with 59 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -351,10 +351,12 @@ class procedure TWin32WSCustomRichMemo.SetTextAttributes(const AWinControl: TWin
var
OrigStart : Integer;
OrigLen : Integer;
NeedLock : Boolean;
NeedLock : Boolean;
eventmask : Integer;
begin
if not Assigned(RichEditManager) or not Assigned(AWinControl) then Exit;
eventmask := RichEditManager.SetEventMask(AWinControl.Handle, 0);
RichEditManager.GetSelection(AWinControl.Handle, OrigStart, OrigLen);
NeedLock := (OrigStart <> TextStart) or (OrigLen <> TextLen);
@ -366,6 +368,8 @@ begin
UnlockRedraw(AWinControl.Handle);
end else
RichEditManager.SetSelectedTextStyle(AWinControl.Handle, Params);
RichEditManager.SetEventMask(AWinControl.Handle, eventmask);
end;
class function TWin32WSCustomRichMemo.GetTextAttributes(const AWinControl: TWinControl;
@ -380,9 +384,8 @@ begin
Result := false;
Exit;
end;
eventmask := SendMessage(AWinControl.Handle, EM_GETEVENTMASK, 0, 0);
SendMessage(AWinControl.Handle, EM_SETEVENTMASK, 0, 0);
eventmask := RichEditManager.SetEventMask(AWinControl.Handle, 0);
RichEditManager.GetSelection(AWinControl.Handle, OrigStart, OrigLen);
@ -398,8 +401,8 @@ begin
Result := RichEditManager.GetSelectedTextStyle(AWinControl.Handle, Params);
UnlockRedraw(AWinControl.Handle, false);
end;
SendMessage(AWinControl.Handle, EM_SETEVENTMASK, 0, eventmask);
RichEditManager.SetEventMask(AWinControl.Handle,eventmask);
end;
@ -433,10 +436,9 @@ begin
Result := false;
Exit;
end;
eventmask := SendMessage(AWinControl.Handle, EM_GETEVENTMASK, 0, 0);
SendMessage(AWinControl.Handle, EM_SETEVENTMASK, 0, 0);
eventmask := RichEditManager.SetEventMask(AWinControl.Handle, 0);
RichEditManager.GetSelection(AWinControl.Handle, OrigStart, OrigLen);
LockRedraw(AWinControl.Handle);
InitScrollInfo(hInfo);
@ -457,7 +459,7 @@ begin
RichEditManager.SetSelection(AWinControl.Handle, OrigStart, OrigLen);
UnlockRedraw(AWinControl.Handle, false);
SendMessage(AWinControl.Handle, EM_SETEVENTMASK, 0, eventmask);
RichEditManager.SetEventMask(AWinControl.Handle, eventmask);
end;
class function TWin32WSCustomRichMemo.LoadRichText(
@ -481,9 +483,13 @@ class function TWin32WSCustomRichMemo.GetParaAlignment(
): Boolean;
var
para : PARAFORMAT2;
eventmask: Integer;
begin
Result:=false;
if not Assigned(RichEditManager) or not Assigned(AWinControl) then Exit;
eventmask:=RichEditManager.SetEventMask(AWinControl.Handle, 0);
RichEditManager.GetPara2(AWinControl.Handle, TextStart, para);
case para.wAlignment of
PFA_CENTER: AAlign:=paCenter;
@ -492,6 +498,8 @@ begin
else
AAlign:=paLeft;
end;
RichEditManager.SetEventMask(AWinControl.Handle, eventmask);
Result:=true;
end;
@ -499,15 +507,20 @@ class procedure TWin32WSCustomRichMemo.SetParaAlignment(
const AWinControl: TWinControl; TextStart, TextLen: Integer; const AAlign: TIntParaAlignment);
var
para : PARAFORMAT2;
eventmask: Integer;
const
WinPara : array [TIntParaAlignment] of word = (PFA_LEFT, PFA_RIGHT, PFA_CENTER, PFA_JUSTIFY);
begin
if not Assigned(RichEditManager) or not Assigned(AWinControl) then Exit;
eventmask:=RichEditManager.SetEventMask(AWinControl.Handle, 0);
FillChar(para, sizeof(para), 0);
para.cbSize:=sizeof(para);
para.dwMask:=PFM_ALIGNMENT;
para.wAlignment:=WinPara[AAlign];
RichEditManager.SetPara2(AWinControl.Handle, TextStart, TextLen, para);
RichEditManager.SetEventMask(AWinControl.Handle, eventmask);
end;
class function TWin32WSCustomRichMemo.GetParaMetric(
@ -515,9 +528,13 @@ class function TWin32WSCustomRichMemo.GetParaMetric(
var AMetrics: TIntParaMetric): Boolean;
var
para : PARAFORMAT2;
eventmask: Integer;
begin
Result:=false;
if not Assigned(RichEditManager) or not Assigned(AWinControl) then Exit;
eventmask:=RichEditManager.SetEventMask(AWinControl.Handle, 0);
RichEditManager.GetPara2(AWinControl.Handle, TextStart, para);
AMetrics.FirstLine:=para.dxStartIndent/20;
@ -525,7 +542,9 @@ begin
AMetrics.HeadIndent:=(para.dxStartIndent+para.dxOffset)/20;
AMetrics.SpaceAfter:=para.dySpaceAfter/20;
AMetrics.SpaceBefore:=para.dySpaceBefore/20;
AMetrics.LineSpacing:=para.dyLineSpacing/20;
AMetrics.LineSpacing:=para.dyLineSpacing*DefLineSpacing/20;
RichEditManager.SetEventMask(AWinControl.Handle, eventmask);
end;
class procedure TWin32WSCustomRichMemo.SetParaMetric(
@ -533,6 +552,7 @@ class procedure TWin32WSCustomRichMemo.SetParaMetric(
const AMetrics: TIntParaMetric);
var
para : PARAFORMAT2;
eventmask: Integer;
begin
if not Assigned(RichEditManager) or not Assigned(AWinControl) then Exit;
FillChar(para, SizeOf(para), 0);
@ -550,10 +570,13 @@ begin
para.dySpaceAfter:=round(AMetrics.SpaceAfter*20);
para.dySpaceBefore:=round(AMetrics.SpaceBefore*20);
if AMetrics.LineSpacing > 0 then begin
para.dyLineSpacing:=round(AMetrics.LineSpacing*20);
para.dyLineSpacing:=round(AMetrics.LineSpacing/DefLineSpacing*20);
para.bLineSpacingRule:=5; // always line spacing?
end;
eventmask:=RichEditManager.SetEventMask(AWinControl.Handle, 0);
RichEditManager.SetPara2(AWinControl.Handle, TextStart, TextLength, para);
RichEditManager.SetEventMask(AWinControl.Handle, eventmask);
end;
class function TWin32WSCustomRichMemo.GetParaRange(const AWinControl: TWinControl;
@ -580,11 +603,15 @@ class function TWin32WSCustomRichMemo.GetParaNumbering(
var ANumber: TIntParaNumbering): Boolean;
var
para : PARAFORMAT2;
eventmask: INteger;
begin
Result:=False;
if not Assigned(RichEditManager) or not Assigned(AWinControl) then Exit;
eventmask:=RichEditManager.SetEventMask(AWinControl.Handle, 0);
RichEditManager.GetPara2(AWinControl.Handle, TextStart, para);
RichEditManager.SetEventMask(AWinControl.Handle, eventmask);
case para.wNumbering of
PFN_BULLET: ANumber.Numbering:=pnBullet;
PFN_ARABIC: ANumber.Numbering:=pnNumber;
@ -608,6 +635,7 @@ class procedure TWin32WSCustomRichMemo.SetParaNumbering(
const ANumber: TIntParaNumbering);
var
para : PARAFORMAT2;
eventmask: INteger;
begin
if not Assigned(RichEditManager) or not Assigned(AWinControl) then Exit;
FillChar(para, SizeOf(para), 0);
@ -631,14 +659,20 @@ begin
end;
para.wNumberingTab:=round(ANumber.NumIndent*20);
eventmask:=RichEditManager.SetEventMask(AWinControl.Handle, 0);
RichEditManager.SetPara2(AWinControl.Handle, TextStart, TextLen, para);
RichEditManager.SetEventMask(AWinControl.Handle, eventmask)
end;
class procedure TWin32WSCustomRichMemo.InDelText(const AWinControl:TWinControl;
const TextUTF8:String;DstStart,DstLen:Integer);
var
eventmask : Integer;
begin
if not Assigned(RichEditManager) or not Assigned(AWinControl) then Exit;
eventmask:=RichEditManager.SetEventMask(AWinControl.Handle, 0);
RichEditManager.SetText(AWinControl.Handle,UTF8Decode(TextUTF8),DstStart,DstLen);
RichEditManager.SetEventMask(AWinControl.Handle, eventmask);
end;
class function TWin32WSCustomRichMemo.Search(const AWinControl: TWinControl;

12
components/richmemo/win32/win32richmemoproc.pas
View File

@ -148,6 +148,8 @@ type
TRichEditManager = class(TObject)
public
class function SetEventMask(RichEditWnd: Handle; eventmask: integer): Integer;
class function GetTextLength(RichEditWnd: Handle): Integer;
class function SetSelectedTextStyle(RichEditWnd: Handle; Params: TIntFontParams): Boolean; virtual;
class function GetSelectedTextStyle(RichEditWnd: Handle; var Params: TIntFontParams): Boolean; virtual;
@ -263,6 +265,12 @@ end;
{ TRichEditManager }
class function TRichEditManager.SetEventMask(RichEditWnd: Handle; eventmask: integer): Integer;
begin
Result := SendMessage(RichEditWnd, EM_GETEVENTMASK, 0, 0);
SendMessage(RichEditWnd, EM_SETEVENTMASK, 0, eventmask);
end;
class function TRichEditManager.GetTextLength(RichEditWnd: Handle): Integer;
var
textlen : TGETTEXTEX;
@ -351,7 +359,7 @@ var
sel : TCHARRANGE;
d : Integer;
last : Integer;
const
ALL_MASK = CFM_BOLD or CFM_ITALIC or CFM_STRIKEOUT or CFM_UNDERLINE or
CFM_SIZE or CFM_COLOR or CFM_FACE;
@ -434,6 +442,7 @@ begin
RangeStart := sel.cpMin;
RangeLen := last - sel.cpMin - 1;
Result := true;
end;
@ -554,6 +563,7 @@ var
s, l : Integer;
begin
GetSelection(RichEditWnd, s, l);
SetSelection(RichEditWnd, TextStart, 0);
FillChar(para, sizeof(para), 0);