Procedure

TfrmTemplateDialog.ChkAll

Module

fTemplateDialog

Last Modified

7/15/2014 3:26:44 PM

Visibility

Private

Owner

TfrmTemplateDialog

Declaration

procedure ChkAll(Chk: boolean);

Called-By Hierarchy


        TfrmTemplateDialog.ChkAll
 TfrmTemplateDialog.btnAllClick┤ 
TfrmTemplateDialog.btnNoneClick┘ 

Called-By

Name Declaration Comments
TfrmTemplateDialog.btnAllClick procedure btnAllClick(Sender: TObject); -
TfrmTemplateDialog.btnNoneClick procedure btnNoneClick(Sender: TObject); -


Source

336   procedure TfrmTemplateDialog.ChkAll(Chk: boolean);
337   var
338     i: integer;
339   
340   begin
341     for i := 0 to sbMain.ControlCount-1 do
342     begin
343       if(sbMain.Controls[i] is TORCheckBox) then
344         TORCheckBox(sbMain.Controls[i]).Checked := Chk;
345     end;
346   end;