Add(MainForm,2953706,119,126)
{
 link(onCreate,720251:doRead,[])
}
Add(ChanelToIndex,11705371,504,140)
{
 Count=4
 link(onIndex,720251:doWrite,[(564,146)(564,73)(212,73)(212,153)])
}
Add(IndexToChanel,328290,371,140)
{
 Count=4
 Point(Index)
 Point(Data)
 link(onEvent1,8303004:doSelect,[(419,146)(419,125)])
 link(onEvent2,12026675:doSelect,[(419,153)(419,160)])
 link(onEvent3,12742712:doSelect,[(419,160)(419,195)])
 link(onEvent4,2198198:doSelect,[(419,167)(419,230)])
 link(Index,7151283:Value,[(377,128)(325,128)(325,184)(272,184)])
 link(Data,11625228:Value,[])
}
Add(Ini,720251,224,140)
{
 FileName="cfg"
 Section="cfg"
 Key="pos"
 link(onResult,7151283:doValue,[])
}
Add(RadioButton,8303004,434,119)
{
 Left=25
 Top=15
 Width=20
 Caption=""
 link(onSelect,11705371:doWork1,[(485,125)(485,146)])
}
Add(RadioButton,12026675,434,154)
{
 Left=45
 Top=15
 Width=20
 Caption=""
 link(onSelect,11705371:doWork2,[(485,160)(485,153)])
}
Add(RadioButton,12742712,434,189)
{
 Left=25
 Top=35
 Width=20
 Caption=""
 link(onSelect,11705371:doWork3,[(485,195)(485,160)])
}
Add(RadioButton,2198198,434,224)
{
 Left=45
 Top=35
 Width=20
 Caption=""
 link(onSelect,11705371:doWork4,[(485,230)(485,167)])
}
Add(Memory,11625228,378,98)
{
 Default=Integer(1)
}
Add(Memory,7151283,266,140)
{
 link(onData,8684092:doTimer,[])
}
Add(Timer,8684092,315,140)
{
 Interval=1
 Enable=1
 AutoStop=1
 link(onTimer,328290:doEvent,[])
}

procedure THIRadioButton._work_doSelect;
begin
   if ReadBool(_Data) then 
      SendMessage(Control.Handle,BM_CLICK,0,0)
   else
      Control.Checked := false;
  _hi_OnEvent(_event_onSelect);
end;

unit hiRadioButton;

interface

uses Windows,Kol,Share,Win,Messages;


{$I share.inc}
type
  THIRadioButton = class(THIWin)
   private
     procedure _OnClick(Obj:PObj);
     procedure SetCaption(const Value:string);
     procedure SetSelected(Value:byte);
   public
    _event_onSelect:THI_Event;

    constructor Create(Parent:PControl);
    procedure _work_doSelect(var _Data:TData; Index:word);
    procedure _work_doCaption(var _Data:TData; Index:word);
    procedure _var_Selected(var _Data:TData; Index:word);
    property _prop_Selected:byte write SetSelected;
    property _prop_Caption:string  write SetCaption;
  end;

implementation

constructor THIRadioButton.Create;
begin
   inherited Create(Parent);
   Control := NewRadioBox(Parent,'RadioButton');
   Control.OnClick := _OnClick;
end;

procedure THIRadioButton._work_doSelect;
begin
   if ReadBool(_Data) then 
      SendMessage(Control.Handle,BM_CLICK,0,0)
   else
      Control.Checked := false;
  _hi_OnEvent(_event_onSelect);
end;

procedure THIRadioButton._work_doCaption;
begin
   Control.Caption := Share.ToString(_Data);
end;

procedure THIRadioButton._var_Selected;
begin
   dtInteger(_Data,integer(Control.Checked));
end;

procedure THIRadioButton.SetCaption;
begin
   Control.Caption := Value;
end;

procedure THIRadioButton.SetSelected;
begin
  Control.Checked := value = 0;
end;

procedure THIRadioButton._OnClick;
//var i:integer;
begin
  {
  for i := 0 to Control.Parent.ChildCount-1 do
   if Control.Parent.Children[i].Style and BS_RADIOBUTTON > 0 then
     SendMessage(Control.GetWindowHandle, BM_SETCHECK, BST_UNCHECKED, 0);

  Control.SetChecked(true);
  }
end;

end.

[color=gray][size=9]Редактировалось 1 раз(а), последний 2022-05-31 22:03:22[/size][/color]

procedure THIRadioButton._OnClick;
//var i:integer;
begin
  {
  for i := 0 to Control.Parent.ChildCount-1 do
   if Control.Parent.Children[i].Style and BS_RADIOBUTTON > 0 then
     SendMessage(Control.GetWindowHandle, BM_SETCHECK, BST_UNCHECKED, 0);

  Control.SetChecked(true);
  }
  _hi_OnEvent(_event_onSelect); 
end;