The Hammer » VDF Splat

//TH-Header

//*****************************************************************************************

// Copyright (c)  2015 Antwise Solutions

// All rights reserved.

//

// $FileName    : .\AppSrc\cReadOnlyCheckbox.pkg

// $ProjectName : VdfSplat DataFlex Debugger

// $Authors     : Wil van Antwerpen

// $Created     : 10.02.2015  18:34

// $Type        : GPL v2

//

// Contents: As the debugger parts are mostly readonly and there's a lot of checkboxes

// this is a control to have a checkbox look like a normal checkbox, but not allow

// any changes to it.

//

// The reasoning here is that disabled checkboxes are a bit hard to read with the

// disabled labels.

//

// I'd say it is a bit of a hack, but it works fine and it at least prevents the

// user from accidently changing the value by clicking on it.

// Wasn't it also possible with setting default label shadowing? Oh well.. fine for now

// and it is probably good that the object can take the focus.

//*****************************************************************************************

//TH-RevisionStart

//TH-RevisionEnd

Use Windows.pkg

Class cReadOnlyCheckbox is a CheckBox

  Procedure Construct_object

    Forward Send Construct_Object

    Set Skip_State To True

    Property Boolean pbInPreventChange False

  End_Procedure

  Procedure OnChange

    Boolean bChecked

    If (Focus(desktop)=Self and pbInPreventChange(Self)=false) Begin

      Set pbInPreventChange To True

      Get Checked_State to bChecked        // do not change on click!

      Set Checked_State to (not(bChecked))

      Set pbInPreventChange To False

    End

  End_Procedure

End_Class