paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-13 20:59:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Publish OnPaint for TSplitter. Issue #28769, patch from Alexey Torgashin.

Browse Source 
git-svn-id: trunk@49919 -
This commit is contained in:
juha 2015-10-03 09:51:31 +00:00
parent 1b50c565c2
commit a171f6e322
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/extctrls.pp
View File

@ -410,6 +410,7 @@ type
property OnMouseWheel;
property OnMouseWheelDown;
property OnMouseWheelUp;
property OnPaint;
property ParentColor;
property ParentShowHint;
property PopupMenu;

3
lcl/include/customsplitter.inc
View File

@ -895,7 +895,8 @@ procedure TCustomSplitter.Paint;
begin
inherited Paint;
DrawThemedPattern(ClientRect)
if not Assigned(OnPaint) then
DrawThemedPattern(ClientRect);
end;
procedure TCustomSplitter.MouseEnter;