Hi,
I work with Delphi 10.2.3 Tokyo. Until past week I used IW 14.2.8 and last version of TMS controls. I've installed IW 15.0.18, and after that I've installed last version of controls for IW15. Then my application began to do strange things:
I have a form with a table of type TTIWDBAdvWebGrid. I fill it with a Dataset containing the result of a query. I've observed those changes with respect to the previous behaviour:
- Event "CellClick" (i've used it in previous version) doesn't work, but the "AsynCellClick", yes
- In previous version I've used row selection (mouseSelect=msRow). If I use this option, no action is triggered when I press in a cell (neither sync or async versions). To fix that, I had to switch to "msSingleCell". There is only one event (sync/async cellclick) assigned at a time.
- When Dataset has more records than RowCount, Controller is shown with 4 buttons (First, Previous, Next, Last) but when I press any of them, no action is triggered (Next --> don't show second page). I don't have any event assigned to the buttons.
Do you have any idea of how can I fix this problem?
Best regards,
Venancio Lasquibar
Bart
(Bart)
March 12, 2019, 9:55am
2
Hi,
I have not been able to reproduce an issue with the TTIWDBAdvWebGrid in combination with IW 15.0.18 and Delphi 10.2 Tokyo.
Can you please check if the issue can be reproduced in a new project that only contains a TTIWAdvWebGrid component? If so, please provide a ready to run sample project so I can further investigate this.
Hi,
I have some news. Usually I run the application in debug mode from the IDE. Let see this sequence:
Open the form and fill table with data. Controller header shows there are 19 pages.
Press "next" button. Button changes, showing that has been pressed, but nothing happens.
Switch focus to another window open in my desktop (for instance, the IDE). I do not do nothing
Switch focus back to the browser
Press "next" button, and then button works: table shows next data page, and rest of controller button becomes enabled or disabled depending on the page shown.
Press "prev" button. Nothing happens.
Repeat the switching focus manoeuvre, and controller buttons works once.
Each time I want to execute an action in the controller, I must execute the switching focus manoeuvre.
I observed this same behaviour when clicking rows, with the event "CellClck". I've fixed moving my code to "AsynCellClick" and changing property MouseSelect from msRow to msSingleCell. I've tried with all possible values of this property, but in all the cases the problem is the same.
I hope this will help to identify the cause of the problem.
Just below you will find the table definition:
object Lst_CabeceraPedido: TTIWDBAdvWebGrid Left = 0 Top = 0 Width = 1050 Height = 534 Align = alTop ActiveRowColor = clNone ActiveRowFontColor = clNone AdvanceOnReturn = False AutoEdit = False AutoHTMLAdapt = False Background.GradientDirection = gdHorizontal Background.Gradient1 = clNone Background.Gradient2 = clNone Background.Picture.Stretch = False Background.Picture.Frame = 0 Bands.Active = True Bands.PrimaryColor = clInfoBk Bands.SecondaryColor = clWebWHITE Borders.Inner = ibNone Borders.Outer = obNone Borders.Padding = 0 Borders.Spacing = 2 Borders.Width = 0 Borders.Collapsed = False Borders.Color = clNone Borders.ColorDark = clNone Borders.ColorLight = clNone CellComment.BorderColor = 14263350 CellComment.Color = 15784080 CellComment.DisplayType = dtMouseOver CellComment.Font.Color = 9330453 CellComment.Font.Size = 10 CellComment.Font.Style = [] CheckTruePicture.Stretch = False CheckTruePicture.Frame = 0 CheckFalsePicture.Stretch = False CheckFalsePicture.Frame = 0 Color = clNone Columns = < item CheckTrue = 'true' CheckFalse = 'false' ColumnHeaderFont.Color = clNone ColumnHeaderFont.Size = 10 ColumnHeaderFont.Style = [] DefaultDynEdit = '0' DefaultDynText = '0' DetailFont.Color = clNone DetailFont.Size = 10 DetailFont.Style = [] Font.Color = clNone Font.Size = 10 Font.Style = [] FooterFormat = '%g' SpinEditMaxValue = 100 SpinEditMinValue = 0 end item CheckTrue = 'true' CheckFalse = 'false' ColumnHeaderFont.Color = clNone ColumnHeaderFont.Size = 10 ColumnHeaderFont.Style = [] DefaultDynEdit = '0' DefaultDynText = '0' DetailFont.Color = clNone DetailFont.Size = 10 DetailFont.Style = [] Font.Color = clNone Font.Size = 10 Font.Style = [] FooterFormat = '%g' SpinEditMaxValue = 100 SpinEditMinValue = 0 end item CheckTrue = 'true' CheckFalse = 'false' ColumnHeaderFont.Color = clNone ColumnHeaderFont.Size = 10 ColumnHeaderFont.Style = [] DefaultDynEdit = '0' DefaultDynText = '0' DetailFont.Color = clNone DetailFont.Size = 10 DetailFont.Style = [] Font.Color = clNone Font.Size = 10 Font.Style = [] FooterFormat = '%g' SpinEditMaxValue = 100 SpinEditMinValue = 0 end> ColumnHeaderColor = clWebCORNFLOWERBLUE ColumnHeaderFont.Color = clNone ColumnHeaderFont.FontName = 'Arial' ColumnHeaderFont.Size = 16 ColumnHeaderFont.Style = [fsBold] ColumnHeaderBorders.Inner = ibNone ColumnHeaderBorders.Outer = obNone ColumnHeaderBorders.Padding = 0 ColumnHeaderBorders.Spacing = 0 ColumnHeaderBorders.Width = 0 ColumnHeaderBorders.Collapsed = True ColumnHeaderBorders.Color = clNone ColumnHeaderBorders.ColorDark = clNone ColumnHeaderBorders.ColorLight = clNone ColumnSizing = False Controller.Alignment = taLeftJustify Controller.Borders.Inner = ibAll Controller.Borders.Outer = obAll Controller.Borders.Padding = 0 Controller.Borders.Spacing = 0 Controller.Borders.Width = 1 Controller.Borders.Collapsed = True Controller.Borders.Color = clNone Controller.Borders.ColorDark = clNone Controller.Borders.ColorLight = clNone Controller.Color = clNone Controller.Font.Color = clNone Controller.Font.FontName = 'Tahoma' Controller.Font.Size = 10 Controller.Font.Style = [] Controller.Gradient1 = clNone Controller.Gradient2 = clNone Controller.GradientDirection = gdHorizontal Controller.Height = 22 Controller.MaxPages = 10 Controller.Position = cpTop Controller.Pager = cpPrevNextFirstLast Controller.PagerType = cptButton Controller.IndicatorFormat = '%d de %d' Controller.IndicatorType = itPageNr Controller.TextPrev = 'Anterior' Controller.TextNext = 'Siguiente' Controller.TextFirst = 'Primero' Controller.TextLast = #218 'ltimo' Controller.ImgPrev.Stretch = False Controller.ImgPrev.Frame = 0 Controller.ImgNext.Stretch = False Controller.ImgNext.Frame = 0 Controller.ImgFirst.Stretch = False Controller.ImgFirst.Frame = 0 Controller.ImgLast.Stretch = False Controller.ImgLast.Frame = 0 Controller.HintPrev = 'Anterior' Controller.HintNext = 'Siguiente' Controller.HintFirst = 'Primera p'#225 'gina' Controller.HintLast = #218 'ltima p'#225 'gina' Controller.RowCountSelect = True Controller.HintFind = 'Buscar' Controller.ShowPagersAlways = True DateSeparator = '/' DateFormat = gdEU DecimalPoint = ',' DefaultColumnHeaderHeight = 30 DefaultRowHeight = 30 DetailRowHeight = 0 DetailRowShow = dsServerOneOpen EditColor = clNone EditSelectAll = False FooterBorders.Inner = ibAll FooterBorders.Outer = obAll FooterBorders.Padding = 0 FooterBorders.Spacing = 0 FooterBorders.Width = 1 FooterBorders.Collapsed = True FooterBorders.Color = clNone FooterBorders.ColorDark = clNone FooterBorders.ColorLight = clNone FooterColor = clBtnFace FooterFont.Color = clNone FooterFont.Size = 10 FooterFont.Style = [] Font.Color = clNone Font.FontName = 'Tahoma' Font.Size = 14 Font.Style = [] Glyphs.EditButton.Data = { 36050000424D3605000000000000360400002800000010000000100000000100 0800000000000001000000000000000000000001000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA A6000020400000206000002080000020A0000020C0000020E000004000000040 20000040400000406000004080000040A0000040C0000040E000006000000060 20000060400000606000006080000060A0000060C0000060E000008000000080 20000080400000806000008080000080A0000080C0000080E00000A0000000A0 200000A0400000A0600000A0800000A0A00000A0C00000A0E00000C0000000C0 200000C0400000C0600000C0800000C0A00000C0C00000C0E00000E0000000E0 200000E0400000E0600000E0800000E0A00000E0C00000E0E000400000004000 20004000400040006000400080004000A0004000C0004000E000402000004020 20004020400040206000402080004020A0004020C0004020E000404000004040 20004040400040406000404080004040A0004040C0004040E000406000004060 20004060400040606000406080004060A0004060C0004060E000408000004080 20004080400040806000408080004080A0004080C0004080E00040A0000040A0 200040A0400040A0600040A0800040A0A00040A0C00040A0E00040C0000040C0 200040C0400040C0600040C0800040C0A00040C0C00040C0E00040E0000040E0 200040E0400040E0600040E0800040E0A00040E0C00040E0E000800000008000 20008000400080006000800080008000A0008000C0008000E000802000008020 20008020400080206000802080008020A0008020C0008020E000804000008040 20008040400080406000804080008040A0008040C0008040E000806000008060 20008060400080606000806080008060A0008060C0008060E000808000008080 20008080400080806000808080008080A0008080C0008080E00080A0000080A0 200080A0400080A0600080A0800080A0A00080A0C00080A0E00080C0000080C0 200080C0400080C0600080C0800080C0A00080C0C00080C0E00080E0000080E0 200080E0400080E0600080E0800080E0A00080E0C00080E0E000C0000000C000 2000C0004000C0006000C0008000C000A000C000C000C000E000C0200000C020 2000C0204000C0206000C0208000C020A000C020C000C020E000C0400000C040 2000C0404000C0406000C0408000C040A000C040C000C040E000C0600000C060 2000C0604000C0606000C0608000C060A000C060C000C060E000C0800000C080 2000C0804000C0806000C0808000C080A000C080C000C080E000C0A00000C0A0 2000C0A04000C0A06000C0A08000C0A0A000C0A0C000C0A0E000C0C00000C0C0 2000C0C04000C0C06000C0C08000C0C0A000F0FBFF00A4A0A000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000707E4E4E4E4 E4E4E4E4E4E4E4E4E4070707EDF609090909090909090909E4070707EDF60707 0707070707070709E4070707EDF6F6090909090909090909E4070707EDFFF609 0909095A09090909E4070707F5FF07070707075200070709E4070707F5FFFFF6 F609095A00000709E407070707FFFFFFF6F6095AFB360007E407070707FF0707 070707A4FB360007ED07070709FFFFFFFFF6F6F65BFB3600ED07070709FFFFFF FFFFF6F6ACFB36000707070709FF070707070707F652FB360007070709FFFFFF FFFFFFFF079A7F360007070709FFFFFFFFFFFFFF08EC51000200070709FFFFFF FFFFFFFF07EC9A0202410707090909090909090907E407838307} Glyphs.EditHint = 'Edit' Glyphs.PostButton.Data = { 36050000424D3605000000000000360400002800000010000000100000000100 0800000000000001000000000000000000000001000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA A6000020400000206000002080000020A0000020C0000020E000004000000040 20000040400000406000004080000040A0000040C0000040E000006000000060 20000060400000606000006080000060A0000060C0000060E000008000000080 20000080400000806000008080000080A0000080C0000080E00000A0000000A0 200000A0400000A0600000A0800000A0A00000A0C00000A0E00000C0000000C0 200000C0400000C0600000C0800000C0A00000C0C00000C0E00000E0000000E0 200000E0400000E0600000E0800000E0A00000E0C00000E0E000400000004000 20004000400040006000400080004000A0004000C0004000E000402000004020 20004020400040206000402080004020A0004020C0004020E000404000004040 20004040400040406000404080004040A0004040C0004040E000406000004060 20004060400040606000406080004060A0004060C0004060E000408000004080 20004080400040806000408080004080A0004080C0004080E00040A0000040A0 200040A0400040A0600040A0800040A0A00040A0C00040A0E00040C0000040C0 200040C0400040C0600040C0800040C0A00040C0C00040C0E00040E0000040E0 200040E0400040E0600040E0800040E0A00040E0C00040E0E000800000008000 20008000400080006000800080008000A0008000C0008000E000802000008020 20008020400080206000802080008020A0008020C0008020E000804000008040 20008040400080406000804080008040A0008040C0008040E000806000008060 20008060400080606000806080008060A0008060C0008060E000808000008080 20008080400080806000808080008080A0008080C0008080E00080A0000080A0 200080A0400080A0600080A0800080A0A00080A0C00080A0E00080C0000080C0 200080C0400080C0600080C0800080C0A00080C0C00080C0E00080E0000080E0 200080E0400080E0600080E0800080E0A00080E0C00080E0E000C0000000C000 2000C0004000C0006000C0008000C000A000C000C000C000E000C0200000C020 2000C0204000C0206000C0208000C020A000C020C000C020E000C0400000C040 2000C0404000C0406000C0408000C040A000C040C000C040E000C0600000C060 2000C0604000C0606000C0608000C060A000C060C000C060E000C0800000C080 2000C0804000C0806000C0808000C080A000C080C000C080E000C0A00000C0A0 2000C0A04000C0A06000C0A08000C0A0A000C0A0C000C0A0E000C0C00000C0C0 2000C0C04000C0C06000C0C08000C0C0A000F0FBFF00A4A0A000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0007070707071D 1D1D1D1D1D0707070707070707271E1F2727271F1E1D1D07070707071E276FB7 F6F6F6BF6F271E1D0707072727B7F6FFF6F6F6FFFFBF271E1D070727B7FFF6B7 6FBF276FF6FFBF271D07276FF6FF6F27F6FF6F1F27F6FF6F1E1D27B7FFBF6FF6 FFF6B7271F6FFFBF1F1D27B7FFB7BFFFAF6FF6672727F6F6271E67BFFFB76F6F 2727B7B72727F6F6271E6F08FFB76F6F6F676FB72727F6F6271E67BFFFF66F6F 6F6F676F6FB7FFB7271D076FF6FFBF6F6F6F6727B7F6F66F1E07076FF6F6FFF6 B7B7B7BFFFFFB7271E070707AFF6FFFFFFFFFFFFF6B7271F07070707076FBFF6 F6F6F6B76F272707070707070707076FAFAF6F67270707070707} Glyphs.PostHint = 'Post' Glyphs.CancelButton.Data = { 36050000424D3605000000000000360400002800000010000000100000000100 0800000000000001000000000000000000000001000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA A6000020400000206000002080000020A0000020C0000020E000004000000040 20000040400000406000004080000040A0000040C0000040E000006000000060 20000060400000606000006080000060A0000060C0000060E000008000000080 20000080400000806000008080000080A0000080C0000080E00000A0000000A0 200000A0400000A0600000A0800000A0A00000A0C00000A0E00000C0000000C0 200000C0400000C0600000C0800000C0A00000C0C00000C0E00000E0000000E0 200000E0400000E0600000E0800000E0A00000E0C00000E0E000400000004000 20004000400040006000400080004000A0004000C0004000E000402000004020 20004020400040206000402080004020A0004020C0004020E000404000004040 20004040400040406000404080004040A0004040C0004040E000406000004060 20004060400040606000406080004060A0004060C0004060E000408000004080 20004080400040806000408080004080A0004080C0004080E00040A0000040A0 200040A0400040A0600040A0800040A0A00040A0C00040A0E00040C0000040C0 200040C0400040C0600040C0800040C0A00040C0C00040C0E00040E0000040E0 200040E0400040E0600040E0800040E0A00040E0C00040E0E000800000008000 20008000400080006000800080008000A0008000C0008000E000802000008020 20008020400080206000802080008020A0008020C0008020E000804000008040 20008040400080406000804080008040A0008040C0008040E000806000008060 20008060400080606000806080008060A0008060C0008060E000808000008080 20008080400080806000808080008080A0008080C0008080E00080A0000080A0 200080A0400080A0600080A0800080A0A00080A0C00080A0E00080C0000080C0 200080C0400080C0600080C0800080C0A00080C0C00080C0E00080E0000080E0 200080E0400080E0600080E0800080E0A00080E0C00080E0E000C0000000C000 2000C0004000C0006000C0008000C000A000C000C000C000E000C0200000C020 2000C0204000C0206000C0208000C020A000C020C000C020E000C0400000C040 2000C0404000C0406000C0408000C040A000C040C000C040E000C0600000C060 2000C0604000C0606000C0608000C060A000C060C000C060E000C0800000C080 2000C0804000C0806000C0808000C080A000C080C000C080E000C0A00000C0A0 2000C0A04000C0A06000C0A08000C0A0A000C0A0C000C0A0E000C0C00000C0C0 2000C0C04000C0C06000C0C08000C0C0A000F0FBFF00A4A0A000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0007070707071D 1D1D1D1D1D0707070707070707271E1F2727271F1E1D1D07070707071E276FB7 F6F6F6BF6F271E1D0707072727B7F6FFF6F6F6FFFFBF271E1D070727B7FFF627 27271F1FB7F6BF271D07276FF6FFB7B767272727B7B7FF6F1E1D27B7FFBF67B7 F66767F6B727F6BF1F1D27B7FF6F6F67B7F6F6B72727BFF6271E67BFFF6F6F6F 6FF6F66F2727B7F6271E6F08FF6F6F6FF6B7B7F66F27F6F6271E67BFFFF66FF6 B76F6FB7F66FF6B7271D076FF6FFB7AF6F6F6F6FB7F6F66F1E07076FF6F6FFF6 6F6F6FB7FFFFB7271E070707AFF6FFFFFFFFFFFFF6B7271F07070707076FBFF6 F6F6F6B76F272707070707070707076FAFAF6F67270707070707} Glyphs.CancelHint = 'Cancel' Glyphs.SpinEditButtonDownImage.Stretch = False Glyphs.SpinEditButtonDownImage.Frame = 0 Glyphs.SpinEditButtonUpImage.Stretch = False Glyphs.SpinEditButtonUpImage.Frame = 0 HoverColor = clNone HoverFontColor = clNone HeaderStyle = hsRaised ID = 0 Indicators.Browse.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888 8888888888888888888888880888888888888888008888888888888800088888 8888888800008888888888880000088888888888000000888888888800000008 8888888800000088888888880000088888888888000088888888888800088888 8888888800888888888888880888888888888888888888888888} Indicators.Insert.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888 8888888888888888888888888888888888888888888888888888888888088888 8888888888088888888888800808008888888888800088888888888880008888 8888888008080088888888888808888888888888880888888888888888888888 8888888888888888888888888888888888888888888888888888} Indicators.Edit.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888 8888888888888888888888888888888888888880080088888888888880888888 8888888880888888888888888088888888888888808888888888888880888888 8888888880888888888888888088888888888888808888888888888880888888 8888888008008888888888888888888888888888888888888888} MouseSelect = msSingleCell Nodes.NodeOpen.Stretch = False Nodes.NodeOpen.Frame = 1 Nodes.NodeOpen.Data = { 424DBE0000000000000076000000280000000900000009000000010004000000 000048000000120B0000120B0000100000001000000000000000000080000080 00000080800080000000800080008080000080808000C0C0C0000000FF0000FF 000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0000000000000000000FFF FFFF000000000FFF0FFF000000000FFF0FFF000000000F00000F000000000FFF 0FFF000000000FFF0FFF000000000FFFFFFF000000000000000000000000} Nodes.NodeClosed.Stretch = False Nodes.NodeClosed.Frame = 1 Nodes.NodeClosed.Data = { 424DBE0000000000000076000000280000000900000009000000010004000000 000048000000120B0000120B0000100000001000000000000000000080000080 00000080800080000000800080008080000080808000C0C0C0000000FF0000FF 000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0000000000000000000FFF FFFF000000000FFFFFFF000000000FFFFFFF000000000F00000F000000000FFF FFFF000000000FFFFFFF000000000FFFFFFF000000000000000000000000} NameOfDays.Strings = ( 'Dom' 'Lun' 'Mar' 'Mie' 'Jue' 'Vie' 'Sbt') NameOfMonths.Strings = ( 'Enero' 'Febrero' 'Marzo' 'Abril' 'Mayo' 'Junio' 'Julio' 'Agosto' 'Septiembre' 'Octubre' 'Noviembre' 'Diciembre') OuterBorder.Show = False OuterBorder.Color = clWebBLACK Page = 0 RowCount = 15 RowHeader.Show = False RowHeader.Width = 22 RowHeader.Borders.Inner = ibAll RowHeader.Borders.Outer = obAll RowHeader.Borders.Padding = 0 RowHeader.Borders.Spacing = 0 RowHeader.Borders.Width = 1 RowHeader.Borders.Collapsed = True RowHeader.Borders.Color = clNone RowHeader.Borders.ColorDark = clNone RowHeader.Borders.ColorLight = clNone RowHeader.Color = clBtnFace RowHeader.Gradient1 = clNone RowHeader.Gradient2 = clNone RowHeader.GradientDirection = gdHorizontal Scroll.Style = scNever Scroll.Scrollbar3DLightColor = clNone Scroll.ScrollbarArrowColor = clNone Scroll.ScrollbarBaseColor = clNone Scroll.ScrollbarTrackColor = clNone Scroll.ScrollbarDarkshadowColor = clNone Scroll.ScrollbarFaceColor = clNone Scroll.ScrollbarHighlightColor = clNone Scroll.ScrollbarShadowColor = clNone SelectColor = clHighlight SelectFontColor = clHighlightText ShowColumnHeader = True ShowFooter = False ShowSelect = True SortSettings.Show = False SortSettings.Column = 0 SortSettings.Direction = sdAscending SortSettings.InitSortDir = sdAscending StretchColumn = -1 TabOrder = 12 UseFullHeight = False UseFullWidth = True AsyncActiveRowMove = False AsyncEdit = False AsyncPaging = False AsyncSorting = False OnAsyncCellClick = Lst_CabeceraPedidoAsyncCellClick ShowRowsAlways = True ExplicitTop = 3 ExplicitWidth = 1009 end
Best Regards,
Venancio
Hi,
Solved. I've changed the property "AsyncPaging" to true, and buttons works fine
Thank you for your time
Best regards,
Venancio
Bart
(Bart)
March 13, 2019, 8:27am
5
Thank you for notifying the issue has been resolved.