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

richmemo: #17319, fix gtk2 compilation. the patch is provided by Krzysztof Dibowski.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3710 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2014-11-09 04:42:37 +00:00
parent cfe9cf68ee
commit 7862b86939
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -31,9 +31,9 @@ uses
// LCL // LCL
LCLType, Controls, Graphics, LCLType, Controls, Graphics,
// Gtk2 widget // Gtk2 widget
GtkDef, Gtk2Def,
GTKWinApiWindow, GtkGlobals, GtkProc, InterfaceBase, GTK2WinApiWindow, Gtk2Globals, Gtk2Proc, InterfaceBase,
GtkWSControls, Gtk2WSControls,
// RichMemo // RichMemo
WSRichMemo; WSRichMemo;
@ -98,7 +98,7 @@ end;
class procedure TGtk2WSCustomRichMemo.SetCallbacks( class procedure TGtk2WSCustomRichMemo.SetCallbacks(
const AGtkWidget: PGtkWidget; const AWidgetInfo: PWidgetInfo); const AGtkWidget: PGtkWidget; const AWidgetInfo: PWidgetInfo);
begin begin
TGtkWSWinControl.SetCallbacks(PGtkObject(AGtkWidget), TComponent(AWidgetInfo^.LCLObject)); TGtk2WSWinControl.SetCallbacks(PGtkObject(AGtkWidget), TComponent(AWidgetInfo^.LCLObject));
end; end;
class function TGtk2WSCustomRichMemo.CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): TLCLIntfHandle; class function TGtk2WSCustomRichMemo.CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): TLCLIntfHandle;