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

richmemo: fix gtk2 type casting error

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7277 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2020-01-13 14:10:13 +00:00
parent 0b6c8ce22d
commit 1718de4281
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/richmemo/gtk2/gtk2richmemo.pas
View File

@ -783,7 +783,7 @@ begin
// add border for memo // add border for memo
gtk_scrolled_window_set_shadow_type(PGtkScrolledWindow(Widget), gtk_scrolled_window_set_shadow_type(PGtkScrolledWindow(Widget),
BorderStyleShadowMap[TCustomControl(AWinControl).BorderStyle]); BorderStyleShadowMap[TCustomMemo(AWinControl).BorderStyle]);
SetMainWidget(Widget, TempWidget); SetMainWidget(Widget, TempWidget);
GetWidgetInfo(Widget, True)^.CoreWidget := TempWidget; GetWidgetInfo(Widget, True)^.CoreWidget := TempWidget;