paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-02-19 18:36:42 +01:00
Code Issues Packages Projects Releases Wiki Activity

Gtk2: fixed TMemo.ReadOnly. fixes #17367

Browse Source 
git-svn-id: trunk@27281 -
This commit is contained in:
zeljko 2010-09-07 19:18:48 +00:00
parent 5100ba4cda
commit ec644c4d7d
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/interfaces/gtk2/gtk2wscustommemo.inc
View File

@ -279,11 +279,15 @@ end;
class procedure TGtk2WSCustomMemo.SetReadOnly(const ACustomEdit: TCustomEdit;
NewReadOnly: boolean);
var
Widget: PGtkWidget;
TextView: PGtkTextView;
begin
Widget:=PGtkWidget(ACustomEdit.Handle);
if GtkWidgetIsA(Widget, GTK_TYPE_ENTRY) then
gtk_entry_set_editable(GTK_ENTRY(Widget), not ACustomEdit.ReadOnly);
if not WSCheckHandleAllocated(ACustomEdit, 'SetReadOnly') then
Exit;
TextView := PGtkTextView(GetWidgetInfo(Pointer(ACustomEdit.Handle), False)^.CoreWidget);
if TextView <> nil then
gtk_text_view_set_editable(TextView, not ACustomEdit.ReadOnly);
end;
class procedure TGtk2WSCustomMemo.SetText(const AWinControl: TWinControl;