paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 06:19:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

T(Float)SpinEdit: implement EditorEnabled for GTK2. Part of issue #0038736.

Browse Source 
git-svn-id: trunk@65016 -
This commit is contained in:
bart 2021-04-17 16:18:11 +00:00
parent 52e1881c23
commit 603a8c9a72
1 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lcl/interfaces/gtk2/gtk2wsspin.pp
View File

@ -45,6 +45,8 @@ type
class procedure SetSelLength(const ACustomEdit: TCustomEdit; NewLength: integer); override;
class procedure SetReadOnly(const ACustomEdit: TCustomEdit; ReadOnly: boolean); override;
class procedure SetEditorEnabled(const ACustomFloatSpinEdit: TCustomFloatSpinEdit; AValue: Boolean); override;
class procedure UpdateControl(const ACustomFloatSpinEdit: TCustomFloatSpinEdit); override;
class function CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): TLCLIntfHandle; override;
end;
@ -137,12 +139,15 @@ class procedure TGtk2WSCustomFloatSpinEdit.SetReadOnly(const ACustomEdit: TCusto
var
Widget: PGtkWidget;
AnAdjustment: PGtkAdjustment;
NewReadOnly: Boolean;
begin
if not WSCheckHandleAllocated(ACustomEdit, 'SetReadOnly') then
Exit;
//Dont unset the edit's ReadOnly if EditorEnabled = False
NewReadOnly := ReadOnly or ((ACustomEdit is TCustomFloatSpinEdit) and (not TCustomFloatSpinEdit(ACustomEdit).EditorEnabled));
Widget := {%H-}PGtkWidget(ACustomEdit.Handle);
if GTK_IS_EDITABLE(Widget) then
gtk_editable_set_editable(PGtkEditable(Widget), not ReadOnly);
gtk_editable_set_editable(PGtkEditable(Widget), not NewReadOnly);
AnAdjustment:=gtk_spin_button_get_adjustment(GTK_SPIN_BUTTON(Widget));
if ReadOnly then
@ -172,6 +177,16 @@ begin
end;
end;
class procedure TGtk2WSCustomFloatSpinEdit.SetEditorEnabled(
const ACustomFloatSpinEdit: TCustomFloatSpinEdit; AValue: Boolean);
var
Widget: PGtkWidget;
begin
Widget := {%H-}PGtkWidget(ACustomFloatSpinEdit.Handle);
if GTK_IS_EDITABLE(Widget) then
gtk_editable_set_editable(PGtkEditable(Widget), AValue);
end;
class procedure TGtk2WSCustomFloatSpinEdit.UpdateControl(
const ACustomFloatSpinEdit: TCustomFloatSpinEdit);
var