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

richmemo: gtk2. changing (back) richmemostrings to inherit from gtk2memostrings

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6961 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2019-05-27 19:06:19 +00:00
parent b211118a1a
commit 6c43e9a745
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -135,7 +135,7 @@ type
{ TGtk2RichMemoStrings }
TGtk2RichMemoStrings = class(TStrings)
TGtk2RichMemoStrings = class(TGtk2MemoStrings)
protected
FGtkText : PGtkTextView;
FGtkBuf: PGtkTextBuffer;
@ -562,7 +562,7 @@ end;
constructor TGtk2RichMemoStrings.Create(TextView: PGtkTextView;
TheOwner: TWinControl);
begin
inherited Create;
inherited Create(TextView, TheOwner);
if TextView = nil then RaiseGDBException(
'TGtk2RichMemoStrings.Create Unspecified Text widget');
FGtkText:= TextView;