artem_niko Posted January 11, 2021 Share Posted January 11, 2021 Hello! How create footer in bottom on UniLoginForm? For example, so how this created in this site (sberbank.ru): I will try like this: procedure TUniLoginForm1.UniLoginFormCreate(Sender: TObject); begin Left:=20; Top:=20; with TUniPanel.Create(Self) do begin Caption:='Все авторские права защищены. ©'; Font.Name:='Roboto'; Font.OverrideDefaults:=UniFSButtonEnter.Font.OverrideDefaults; Font.Color:=clBlack; Font.Size:=9; Left:=3; Top:=3; AlignWithMargins:=True; Margins.Left:=40; Margins.Bottom:=40; Visible:=True; // JSInterface.JSConfig('renderTo', [JSInterface.JSStatement('Ext.getBody()')]); // JSInterface.JSCode( // 'Ext.onReady(function(){' + JSName + '.setStyle("position","absolute");' // + JSName + '.setStyle("top",null);' // + JSName + '.setStyle("bottom",0);});'); end; end; But this not work. Quote Link to comment Share on other sites More sharing options...
Sherzod Posted January 11, 2021 Share Posted January 11, 2021 Hi, UniPanel.Align = alBottom? Quote Link to comment Share on other sites More sharing options...
artem_niko Posted January 11, 2021 Author Share Posted January 11, 2021 3 minutes ago, Sherzod said: Hi, UniPanel.Align = alBottom? Hi! I was try this. No effect... Quote Link to comment Share on other sites More sharing options...
Sherzod Posted January 11, 2021 Share Posted January 11, 2021 2 hours ago, Артем said: Please indicate, which one? Quote Link to comment Share on other sites More sharing options...
artem_niko Posted January 11, 2021 Author Share Posted January 11, 2021 1 minute ago, Sherzod said: Please indicate, which one? Well I added your code, but the panel is not created simply, nothing is displayed. In the sense of "what"? I need to create a footer as it is done on sites. The above screen is just an example. Quote Link to comment Share on other sites More sharing options...
Sherzod Posted January 11, 2021 Share Posted January 11, 2021 2 hours ago, Артем said: with TUniPanel.Create(Self) do begin Caption:='Все авторские права защищены. ©'; Font.Name:='Roboto'; Font.OverrideDefaults:=UniFSButtonEnter.Font.OverrideDefaults; Font.Color:=clBlack; Font.Size:=9; Left:=3; I don't see that you are assigning a parent. Parent := Quote Link to comment Share on other sites More sharing options...
artem_niko Posted January 11, 2021 Author Share Posted January 11, 2021 3 minutes ago, Sherzod said: I don't see that you are assigning a parent. Parent := Ok, if I write Parent=UniFormLogin1, I get this: But, I need create UniPanel not in bottom in UniLoginForm1. I need put UniPanel here: Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.