procedure Pub_ClearOnePanCondition(APan: TWinControl);
var
intI: integer;
PanTemp: TScrollBox;
begin
for intI := 0 to APan.ControlCount - 1 do
begin
if (APan.Controls[intI] is TScrollBox) then
begin
PanTemp := TScrollBox(APan.Controls[intI]);
Pub_ClearOnePanCondition(PanTemp);
end;
if (APan.Controls[intI] is TPanel) then
Pub_ClearOnePanCondition(TPanel(APan.Controls[intI]));
if (APan.Controls[intI] is TCustomEdit) then TCustomEdit(APan.Controls[intI]).Text := '';
if (APan.Controls[intI] is TCheckBox) then TCheckBox(APan.Controls[intI]).Checked := False;
if (APan.Controls[intI] is TRzCheckBox) then TRzCheckBox(APan.Controls[intI]).Checked := False;
if (APan.Controls[intI] is TComboBox) then
begin
if TComboBox(APan.Controls[intI]).Style = csDropDownList then
TComboBox(APan.Controls[intI]).ItemIndex := -1
else
begin
TComboBox(APan.Controls[intI]).ItemIndex := -1;
TComboBox(APan.Controls[intI]).Text := '';
end;
end;
if (APan.Controls[intI] is TRzComboBox) then
begin
if TRzComboBox(APan.Controls[intI]).Style = csDropDownList then
TRzComboBox(APan.Controls[intI]).ItemIndex := -1
else
begin
TRzComboBox(APan.Controls[intI]).ItemIndex := -1;
TRzComboBox(APan.Controls[intI]).Text := '';
end;
end;
if (APan.Controls[intI] is TDateTimePicker) then TDateTimePicker(
APan.Controls[intI]).Checked := False;
if (APan.Controls[intI] is TRZDateTimePicker) then TRZDateTimePicker(
APan.Controls[intI]).Checked := False;
if (APan.Controls[intI] is TRZDateTimeEdit) then TRZDateTimeEdit(
APan.Controls[intI]).Clear;
if (APan.Controls[intI] is TRadioGroup) then
begin
if TRadioGroup(APan.Controls[intI]).Items.Count > 0 then
begin
if TRadioGroup(APan.Controls[intI]).Tag > 0 then
TRadioGroup(APan.Controls[intI]).ItemIndex := TRadioGroup(APan.Controls[intI]).Items.Count - 1
else TRadioGroup(APan.Controls[intI]).ItemIndex := 0;
end;
end;
end;
end;