How to make round corner for UniPanel?

[55143681]

I dynamic create some UniPanels,

How to make round corner for UniPanel?

 

 

[Sherzod]

2 hours ago, 55143681 said:

How to make round corner for UniPanel?

Please see this demo:

\FMSoft\Framework\uniGUI\Demos\Desktop\CustomControl-5

 

[55143681]

21 hours ago, Sherzod said:

Please see this demo:

\FMSoft\Framework\uniGUI\Demos\Desktop\CustomControl-5

 

[55143681]

1 minute ago, 55143681 said:

unigui1514 don't have UniRoundPanel

[Sherzod]

1 hour ago, 55143681 said:

unigui1514 don't have UniRoundPanel

This is a custom control, you must first install it.

[MOGSY]

 

Hi 

when installling the custom package following errors occures. Where I am going wrong?

[dcc32 Fatal Error] uniGUI18.dpk(30): E2225 Never-build package 'rtl' must be recompiled

[dcc32 Fatal Error] CustomPack5.dpk(34): E2202 Required package 'uniGUI18' not found

Thanks

[Sherzod]

11 minutes ago, MOGSY said:

when installling the custom package following errors occures. Where I am going wrong?

 [dcc32 Fatal Error] uniGUI18.dpk(30): E2225 Never-build package 'rtl' must be recompiled

[dcc32 Fatal Error] CustomPack5.dpk(34): E2202 Required package 'uniGUI18' not found

Are you using Rad Studio 10.2 Tokyo?

[Sherzod]

Please replace in CustomPack5.dpk:

requires
  rtl,
  vcl,
  uniGUI25,
  uniTools25,
  uIndy25,
  vclimg,
  vclie,
  VclSmp,
  vclx,
  vcldb,
  dbrtl;

 

[55143681]

On 1/23/2020 at 1:51 PM, Sherzod said:

Please replace in CustomPack5.dpk:

requires
  rtl,
  vcl,
  uniGUI25,
  uniTools25,
  uIndy25,
  vclimg,
  vclie,
  VclSmp,
  vclx,
  vcldb,
  dbrtl;

 

Still have error.

Required package uniGUI25 NOT FOUND

[epos4u]

delete all the requires with number at the end, like 24 or 25 etc

then rebuild, it will add the relevant files, and then install

[MOGSY]

Hi

Following error occures after deleting and build

[dcc32 Error] UniCustomControl1.pas(25): E2037 Declaration of 'InternalSetCaption' differs from previous declaration

 

[epos4u]

not sure what your doing wrong. just did the 4 steps

 

see the images

[Sherzod]

5 hours ago, MOGSY said:

...

Then you can also try with UniPanel:

procedure TMainForm.UniFormCreate(Sender: TObject);
begin
  UniPanel1.JSInterface.JSAddListener('afterrender', 'function(){this.body.dom.style.borderRadius="10px"}');
end;

 

[55143681]

15 hours ago, Sherzod said:

Then you can also try with UniPanel:

procedure TMainForm.UniFormCreate(Sender: TObject);
begin
  UniPanel1.JSInterface.JSAddListener('afterrender', 'function(){this.body.dom.style.borderRadius="10px"}');
end;

Works well for static UniPanel，

not well for dynamic UniPanel。

Cbuilder code：

void __fastcall TMainForm::UniFormCreate(TObject *Sender)
{
UniPanel1->JSInterface->JSAddListener("afterrender","function(){this.body.dom.style.borderRadius=\"10px\"}");
}
//---------------------------------------------------------------------------
 

 

[Sherzod]

6 minutes ago, 55143681 said:

not well for dynamic UniPanel。

I couldn't reproduce.

Please clarify.

[55143681]

10 hours ago, Sherzod said:

I couldn't reproduce.

Please clarify.

See the Code please，click UniBitBtn1 to see.

 

testPanelC.zip

[Sherzod]

34 minutes ago, 55143681 said:

See the Code please，click UniBitBtn1 to see.

Then try to use this code, instead of "afterrender":

newCtl.JSInterface.JSCall('setBodyStyle', ['borderRadius', '10px']);

 

[55143681]

5 minutes ago, Sherzod said:

Then try to use this code, instead of "afterrender":

newCtl.JSInterface.JSCall('setBodyStyle', ['borderRadius', '10px']);

 

have no effect.

[Sherzod]

40 minutes ago, 55143681 said:

have no effect.

TeamViewer?

[55143681]

9 minutes ago, Sherzod said:

TeamViewer?

I am from china,so far from you and the network is so slow.

See the video and the code please.

 

 

void __fastcall TMainForm::UniBitBtn1Click(TObject *Sender)
{
P1++;

TUniPanel * newCtl=new TUniPanel(this);

newCtl->Left=LastX;

newCtl->Top=LastY;

newCtl->Parent=UniPanelA;

newCtl->Caption="UniPanel"+String(P1);

newCtl->Name=newCtl->Caption;

newCtl->Draggable->Enabled=true;

newCtl->Cursor=crDrag;

newCtl->OnEndDrag=AnyEndDrag;

newCtl->Collapsible=true;

newCtl->Collapsed=false;

newCtl->CollapseDirection=cdTop;
//newCtl->JSInterface->JSAddListener("afterrender","function(){this.body.dom.style.borderRadius=\"10px\"}");
newCtl->JSInterface->JSCall("setBodyStyle", "['borderRadius', '10px']");
}

[Sherzod]

Try this:

    Name := 'testPanel'; //It's necessary
    ClientEvents.ExtEvents.Values['afterrender'] := 'function(sender){sender.body.dom.style.borderRadius="10px"}';
    

 

[55143681]

12 hours ago, Sherzod said:

Try this:

    Name := 'testPanel'; //It's necessary
    ClientEvents.ExtEvents.Values['afterrender'] := 'function(sender){sender.body.dom.style.borderRadius="10px"}';
    

 

work s well ,thanks.

the code as follow,see the image please.

void __fastcall TMainForm::UniBitBtn1Click(TObject *Sender)
{
P1++;

TUniPanel * newCtl=new TUniPanel(this);

newCtl->Left=LastX;

newCtl->Top=LastY;

newCtl->Parent=UniPanelA;

newCtl->Caption="UniPanel"+String(P1);

newCtl->Name=newCtl->Caption;

newCtl->Draggable->Enabled=true;

newCtl->Cursor=crDrag;

newCtl->OnEndDrag=AnyEndDrag;

newCtl->Collapsible=true;

newCtl->Collapsed=false;

newCtl->CollapseDirection=cdTop;
//newCtl->JSInterface->JSAddListener("afterrender","function(){this.body.dom.style.borderRadius=\"10px\"}");
//newCtl->JSInterface->JSCallDefer("setBodyStyle", "['borderRadius', '10px']",200);
newCtl->ClientEvents->ExtEvents->Values["afterrender"]="function(sender){sender.body.dom.style.borderRadius=\"10px\"}";
}
//---------------------------------------------------------------------------