The bottom of the StringGrid is not drawing correctly on the fixed column. Also, if the option goFiededColDefAlign is checked get the compile error [Error] Main.pas(14146): identifier not found "goFixedColDefAlign"
goFixedColDefAlign is at this moment not supported. Please avoid to use this setting.
We'll investigate if something can be done about the height of the last fixed column cell in a non-scrolling scenario.
Can you share your full grid settings or provide a sample source app as we could so far not see the situation where the bottom fixed column cell has no border line.
Burno, It is on a TWebPanel. In the designer, move the bottom line to the bottom of the last cell. There is a small rectangle that is being drawn over the fixed cell on the bottom. The work around is to just make the box slightly bigger than the last cell.
object AnalysisPanel: TWebPanel
Left = 960
Top = 0
Width = 362
Height = 554
ChildOrder = 6
Color = clWhite
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
ShowCaption = False
TabOrder = 7
Visible = False
object LBHandedness: TWebLabel
Left = 4
Top = 28
Width = 69
Height = 16
Caption = 'Handedness'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object LBClubType: TWebLabel
Left = 141
Top = 28
Width = 57
Height = 16
Caption = 'Club Type'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object LBLieType: TWebLabel
Left = 269
Top = 28
Width = 48
Height = 16
Caption = 'Lie Type'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object LBCamView: TWebLabel
Left = 3
Top = 76
Width = 77
Height = 16
Caption = 'Camera View'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object LBSkillLevel: TWebLabel
Left = 143
Top = 76
Width = 56
Height = 16
Caption = 'Skill Level'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object LBSetTitle: TWebLabel
Left = 88
Top = 183
Width = 181
Height = 18
Caption = 'Move Swing to Set Positions'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = 'Tahoma'
Font.Style = []
HeightPercent = 100.000000000000000000
ParentFont = False
WidthPercent = 100.000000000000000000
end
object LBVidFrameRate: TWebLabel
Left = 3
Top = 125
Width = 103
Height = 16
Caption = 'Video Frame Rate'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object LBAnalysisName: TWebLabel
Left = 143
Top = 125
Width = 83
Height = 16
Caption = 'Analysis Name'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object AiTopPanel: TWebPanel
Left = 0
Top = 0
Width = 362
Height = 25
Align = alTop
BorderColor = clBlack
ChildOrder = 2
Color = clSkyBlue
Font.Charset = DEFAULT_CHARSET
Font.Color = clHighlight
Font.Height = -12
Font.Name = 'Segoe UI'
Font.Style = []
ParentFont = False
TabOrder = 0
object LbAnalysisTitle: TWebLabel
Left = 0
Top = 0
Width = 337
Height = 25
Align = alClient
Alignment = taCenter
AutoSize = False
Caption = 'AI Swing Analysis'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = 'Segoe UI'
Font.Style = []
HeightPercent = 100.000000000000000000
Layout = tlCenter
ParentFont = False
WidthPercent = 100.000000000000000000
ExplicitLeft = 33
ExplicitTop = 4
ExplicitWidth = 198
ExplicitHeight = 15
end
object BtnAnalysisClose: TWebSpeedButton
Left = 337
Top = 0
Width = 25
Height = 25
Hint = 'Close'
Align = alRight
Color = clNone
ElementClassName = 'btn btn-light'
ElementFont = efCSS
HeightStyle = ssAuto
HeightPercent = 100.000000000000000000
MaterialGlyph = 'close'
MaterialGlyphColor = clSkyBlue
MaterialGlyphSize = 16
ShowHint = True
TabOrder = 0
WidthPercent = 100.000000000000000000
OnClick = BtnCancelAnalysisClick
end
end
object CBHandedness: TWebComboBox
Left = 3
Top = 49
Width = 132
Height = 24
ElementClassName = 'text-black bg-white border-secondary'
HeightStyle = ssAuto
HeightPercent = 100.000000000000000000
Text = 'Right Handed'
WidthPercent = 100.000000000000000000
ItemIndex = 0
Items.Strings = (
'Right Handed'
'Left Handed')
end
object CBClubType: TWebComboBox
Left = 141
Top = 49
Width = 118
Height = 24
ElementClassName = 'text-black bg-white border-secondary'
HeightPercent = 100.000000000000000000
Text = 'Driver'
WidthPercent = 100.000000000000000000
ItemIndex = -1
Items.Strings = (
'Driver'
'Wood'
'Iron (Long)'
'Iron (Short)'
'Wedge'
'Putter')
end
object CBLieType: TWebComboBox
Left = 265
Top = 49
Width = 91
Height = 24
ElementClassName = 'text-black bg-white border-secondary'
HeightPercent = 100.000000000000000000
Text = 'Tee'
WidthPercent = 100.000000000000000000
ItemIndex = 0
Items.Strings = (
'Tee'
'Fairway'
'Rough'
'Bunker'
'Off-Mat')
end
object CBCamView: TWebComboBox
Left = 3
Top = 96
Width = 134
Height = 24
ElementClassName = 'text-black bg-white border-secondary'
HeightPercent = 100.000000000000000000
Text = 'Face-on'
WidthPercent = 100.000000000000000000
ItemIndex = 0
Items.Strings = (
'Face-on'
'Down-the-line'
'Behind'
'Overhead')
end
object CBSkillLevel: TWebComboBox
Left = 141
Top = 96
Width = 215
Height = 24
ElementClassName = 'text-black bg-white border-secondary'
HeightPercent = 100.000000000000000000
Text = 'Beginner (24 - 36)'
WidthPercent = 100.000000000000000000
ItemIndex = -1
Items.Strings = (
'Beginner (24 - 36)'
'Intermediate (10 -24)'
'Advanced (0 - 9)')
end
object SGVideoPositions: TWebStringGrid
Left = 27
Top = 207
Width = 302
Height = 274
ColCount = 3
RowCount = 10
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Tahoma'
Font.Style = []
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goFixedRowDefAlign]
ParentFont = False
ScrollBars = ssNone
TabOrder = 6
FixedFont.Charset = DEFAULT_CHARSET
FixedFont.Color = clWindowText
FixedFont.Height = -12
FixedFont.Name = 'Segoe UI'
FixedFont.Style = []
RangeEdit.Max = 10.000000000000000000
RangeEdit.Step = 1.000000000000000000
ShowSelection = False
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
OnButtonClick = SGVideoPositionsButtonClick
OnDblClickCell = SGVideoPositionsDblClickCell
ColWidths = (
64
99
121)
end
object BtnStartAnalysis: TWebSpeedButton
Left = 96
Top = 492
Width = 44
Height = 44
Hint = 'Apply Checked Templates'
ChildOrder = 1
Color = clNone
ElementClassName = 'btn btn-light'
ElementFont = efCSS
HeightPercent = 100.000000000000000000
MaterialGlyph = 'check_circle'
MaterialGlyphColor = clSkyBlue
MaterialGlyphSize = 40
ShowHint = True
TabOrder = 7
WidthPercent = 100.000000000000000000
OnClick = BtnStartAnalysisClick
end
object BtnCancelAnalysis: TWebSpeedButton
Left = 221
Top = 492
Width = 44
Height = 44
Hint = 'Close'
ChildOrder = 1
Color = clNone
ElementClassName = 'btn btn-light'
ElementFont = efCSS
HeightPercent = 100.000000000000000000
MaterialGlyph = 'cancel'
MaterialGlyphColor = clSkyBlue
MaterialGlyphSize = 40
ShowHint = True
TabOrder = 8
WidthPercent = 100.000000000000000000
OnClick = BtnCancelAnalysisClick
end
object CBVideoFrameRate: TWebComboBox
Left = 3
Top = 146
Width = 134
Height = 24
ElementClassName = 'text-black bg-white border-secondary'
HeightPercent = 100.000000000000000000
Text = '30'
WidthPercent = 100.000000000000000000
ItemIndex = 0
Items.Strings = (
'30'
'60'
'90'
'100'
'120'
'150'
'200'
'225'
'240'
'300')
end
object EDAnalysisName: TWebEdit
Left = 141
Top = 146
Width = 216
Height = 26
ChildOrder = 18
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
HeightPercent = 100.000000000000000000
ParentFont = False
WidthPercent = 100.000000000000000000
end
end
When I test this here, I get:
and there is still the bottom border on the bottom cell in the fixed column?
Bruno,
Add text to the fixed column, then resize the string grid to the bottom of the last row so there in no white space below the bottom line. Then you will see the issue.
John