UniPanel OnCollapse

[Lena]

How change UniPanel->Title when OnCollapse event fire? This code dosn't work correct.

Thanks.

void __fastcall TMainForm::UniPanel7Collapse(TObject *Sender)
{
  if(UniPanel7->CollapseDirection == cdBottom)
   {
	UniPanel7->Title = L"One";
   }

  if(UniPanel7->CollapseDirection == cdTop)
  {
	UniPanel7->Title = L"Two";
  }
}

[Sherzod]

Hi,

 

If I understand you correctly, try:

procedure TMainForm.UniPanel1Collapse(Sender: TObject);
begin
  (Sender as TUniPanel).Title := 'Collapsed'
end;

procedure TMainForm.UniPanel1Expand(Sender: TObject);
begin
  (Sender as TUniPanel).Title := 'Expanded'
end;

Best regards.

[Lena]

Thank you very much!

void __fastcall TMainForm::UniPanel7Collapse(TObject *Sender)
{
 TUniPanel * pan = dynamic_cast<TUniPanel*>(Sender);
 if(pan)
	{
	 pan->Title = L"One";
	}
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::UniPanel7Expand(TObject *Sender)
{
 TUniPanel * pan = dynamic_cast<TUniPanel*>(Sender);
 if(pan)
	{
	 pan->Title = L"Two";
	}
}