diff options
Diffstat (limited to 'plugins')
| -rw-r--r-- | plugins/HistoryPlusPlus/HistoryGrid.pas | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/plugins/HistoryPlusPlus/HistoryGrid.pas b/plugins/HistoryPlusPlus/HistoryGrid.pas index 9eb53aa851..3cc5cee89c 100644 --- a/plugins/HistoryPlusPlus/HistoryGrid.pas +++ b/plugins/HistoryPlusPlus/HistoryGrid.pas @@ -5192,7 +5192,7 @@ end; procedure THistoryGrid.SetRichRTL(RTL: Boolean; RichEdit: THPPRichEdit; ProcessTag: Boolean = True);
var
pf: PARAFORMAT2;
- ExStyle: uint_ptr;
+ ExStyle: DWORD;
begin
// we use RichEdit.Tag here to save previous RTL state to prevent from
// reapplying same state, because SetRichRTL is called VERY OFTEN
@@ -5202,7 +5202,7 @@ begin ZeroMemory(@pf, SizeOf(pf));
pf.cbSize := SizeOf(pf);
pf.dwMask := PFM_RTLPARA;
- ExStyle := uint_ptr(GetWindowLongPtr(RichEdit.Handle, GWL_EXSTYLE)) and
+ ExStyle := DWORD(GetWindowLongPtr(RichEdit.Handle, GWL_EXSTYLE)) and
not(WS_EX_RTLREADING or WS_EX_LEFTSCROLLBAR or WS_EX_RIGHT or WS_EX_LEFT);
if RTL then
begin
@@ -5864,15 +5864,15 @@ end; procedure THistoryGrid.SetBorderStyle(Value: TBorderStyle);
var
- Style, ExStyle: uint_ptr;
+ Style, ExStyle: DWORD;
begin
if FBorderStyle = Value then
exit;
FBorderStyle := Value;
if HandleAllocated then
begin
- Style := uint_ptr(GetWindowLongPtr(Handle, GWL_STYLE)) and WS_BORDER;
- ExStyle := uint_ptr(GetWindowLongPtr(Handle, GWL_EXSTYLE)) and not WS_EX_CLIENTEDGE;
+ Style := DWORD(GetWindowLongPtr(Handle, GWL_STYLE)) and WS_BORDER;
+ ExStyle := DWORD(GetWindowLongPtr(Handle, GWL_EXSTYLE)) and not WS_EX_CLIENTEDGE;
if Ctl3D and NewStyleControls and (FBorderStyle = bsSingle) then
begin
Style := Style and not WS_BORDER;
@@ -5885,12 +5885,12 @@ end; procedure THistoryGrid.CMBiDiModeChanged(var Message: TMessage);
var
- ExStyle: uint_ptr;
+ ExStyle: DWORD;
begin
// inherited;
if HandleAllocated then
begin
- ExStyle := uint_ptr(GetWindowLongPtr(Handle, GWL_EXSTYLE)) and
+ ExStyle := DWORD(GetWindowLongPtr(Handle, GWL_EXSTYLE)) and
not(WS_EX_RTLREADING or WS_EX_LEFTSCROLLBAR or WS_EX_RIGHT or WS_EX_LEFT);
AddBiDiModeExStyle(ExStyle);
SetWindowLongPtr(Handle, GWL_EXSTYLE, ExStyle);
@@ -5899,12 +5899,12 @@ end; procedure THistoryGrid.CMCtl3DChanged(var Message: TMessage);
var
- Style, ExStyle: uint_ptr;
+ Style, ExStyle: DWORD;
begin
if HandleAllocated then
begin
- Style := uint_ptr(GetWindowLongPtr(Handle, GWL_STYLE)) and WS_BORDER;
- ExStyle := uint_ptr(GetWindowLongPtr(Handle, GWL_EXSTYLE)) and not WS_EX_CLIENTEDGE;
+ Style := DWORD(GetWindowLongPtr(Handle, GWL_STYLE)) and WS_BORDER;
+ ExStyle := DWORD(GetWindowLongPtr(Handle, GWL_EXSTYLE)) and not WS_EX_CLIENTEDGE;
if Ctl3D and NewStyleControls and (FBorderStyle = bsSingle) then
begin
Style := Style and not WS_BORDER;
|