MVakili Posted August 29, 2023 Share Posted August 29, 2023 I dynamically create all the pages... The problem I have is that I can't navigate between these pages. Quote Link to comment Share on other sites More sharing options...
Naina DDK Posted August 30, 2023 Share Posted August 30, 2023 Please check UniGUI Demo (Dynamic Form) it has sample code to create dynamic objects. You need make Parent and object Name are proper. Quote Link to comment Share on other sites More sharing options...
MVakili Posted August 30, 2023 Author Share Posted August 30, 2023 39 minutes ago, Naina DDK said: Please check UniGUI Demo (Dynamic Form) it has sample code to create dynamic objects. You need make Parent and object Name are proper. Thank you for your explanation I have created dynamics, but I don't know why the flash hides in the corner to move in the sheets Quote Link to comment Share on other sites More sharing options...
Sherzod Posted August 30, 2023 Share Posted August 30, 2023 Hello @MVakili Can you make a simple testcase to check? Quote Link to comment Share on other sites More sharing options...
MVakili Posted August 30, 2023 Author Share Posted August 30, 2023 1 minute ago, Sherzod said: Hello @MVakili Can you make a simple testcase to check? Hi @Sherzod It's really hard to make a simple testcase Because this is part of a big project But this is how it works 1- I have a static one that looks like this object CFPageControl: TUniPageControl AlignWithMargins = True Left = 3 Top = 3 Width = 840 Height = 383 Hint = '' Align = alClient TabOrder = 0 OnChange = FileView ExplicitLeft = 0 ExplicitTop = 0 ExplicitWidth = 846 ExplicitHeight = 389 end 2- I create a tab for each sub-page, and its order is as follows With DM.VTsqlCommands Do Begin ..................... first; while Not Eof do Begin EngTName := Dmt.Reg_TableName(FieldByName('CSqlCmd').AsString); F:=False; With CFPageControl Do for I := 0 to PageCount-1 do if Pages[I].Name=EngTName then F:=True; if Not F then Begin ..................... TabSheet := TUniTabSheet.Create(CFPageControl); TabSheet.PageControl := CFPageControl; TabSheet.Name := Trim(EngTName); TabSheet.Caption := FieldByName('Titr').AsString;; TabSheet.Hint := FieldByName('CSeq').AsString; End; End; End; Next; End; Things I checked: 1- set pagecontrol Margins, which finally got better but was not resolved 2- I deleted the CSS, but it didn't change 3- I set RTL to false , but it didn't make a difference Quote Link to comment Share on other sites More sharing options...
Sherzod Posted August 30, 2023 Share Posted August 30, 2023 6 hours ago, MVakili said: It's really hard to make a simple testcase Because this is part of a big project Can you just copy some of the code and create a simple testcase !? Quote Link to comment Share on other sites More sharing options...
MVakili Posted August 31, 2023 Author Share Posted August 31, 2023 I tried but there is no problem in testcasePPag.rar Quote Link to comment Share on other sites More sharing options...
Sherzod Posted August 31, 2023 Share Posted August 31, 2023 15 minutes ago, MVakili said: I tried but there is no problem Hello, Once again please, what is not working for you? Perhaps you have custom css that is causing it to work incorrectly?! Quote Link to comment Share on other sites More sharing options...
MVakili Posted August 31, 2023 Author Share Posted August 31, 2023 Thank you for your follow up Yes, it may be because of CSS It is possible to write a simple CSS for me It is possible that I have used the wrong item in my instructions due to unfamiliarity with internal names In the submitted example, I tried to include the related CSS but the problem does not occur Quote Link to comment Share on other sites More sharing options...
MVakili Posted Sunday at 06:16 AM Author Share Posted Sunday at 06:16 AM On 8/31/2023 at 10:32 AM, MVakili said: Thank you for your follow up Yes, it may be because of CSS It is possible to write a simple CSS for me It is possible that I have used the wrong item in my instructions due to unfamiliarity with internal names In the submitted example, I tried to include the related CSS but the problem does not occur /*------------------- Page control tab control-------------------------------*/ .x-box-inner.x-box-scroller-body-horizontal{height:19px!important}.x-panel-body-default{border-style:none!important}.x-tab-bar-default .x-box-scroller-disabled{cursor:not-allowed}.x-tab-bar-horizontal .x-tab-bar-strip{background-color:#7EA8F8!important}.x-tab-bar-strip-default{background-color:#e0e0e0!important;border-color:#000;border-style:solid}.x-tab-bar-top > .x-tab-bar-strip-default{border:none!important;height:20px!important}.x-tab-default{background-color:#ececec;border-color:#00f;cursor:pointer;margin:0 1px 0 0}.x-tab-default .x-tab-icon-el{background-position:center center;height:20px;line-height:20px;width:20px}.x-tab-default .x-tab-inner{color:#333!important;line-height:16px!important}.x-tab-default-active .x-tab-inner{color:#333!important}.x-tab-default-active,.x-tab-default-over{background-color:#e0e0e0}.x-tab-default-left,.x-tab-default-right,.x-tab-default-top{border-bottom:0 solid #ddd}.x-tab-default-left-active,.x-tab-default-right-active,.x-tab-default-top-active{border-bottom:0 solid #add2ed}.x-tab-default-top{background-image:-webkit-linear-gradient(top,#fff,#fff);border-radius:3px;border-style:solid;border-width:0}.x-tab-icon-el{top:-3px}.x-tab-li{display:inline-block}.x-tab.x-tab-active{background-image:-webkit-linear-gradient(left,#fff,#bdcbff,#fff);border:10px!important;border-radius:3px}.x-tab.x-tab-active .x-tab-inner-default{color:#000!important} 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.