Problem with TAdvGridImportDialog

ESPOSITO_GERARD · June 10, 2015, 1:13pm

When I try to load text file with the component TAdvGridImportDialog, I obtain an invalid pointer message and all the applicaton is freeze.

hera is my .dpr

program BugTMS;

uses

Forms,

LoadData in 'LoadData.pas' {LoadDataForm};

{$R .res}

begin

Application.Initialize;

Application.CreateForm(TLoadDataForm, LoadDataForm);

Application.Run;

end.

and the loaddata.pas:

unit LoadData;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, AsgImport, Menus, Grids, AdvObj, BaseGrid, AdvGrid;

type

TLoadDataForm = class(TForm)

ASG: TAdvStringGrid;

DataMenu: TMainMenu;

FileMenu: TMenuItem;

ImportMenuItem: TMenuItem;

AdvGridImportDialog: TAdvGridImportDialog;

procedure FileMenuClick(Sender: TObject);

private

{ Déclarations privées }

public

{ Déclarations publiques }

end;

var

LoadDataForm:TLoadDataForm;

implementation

{$R .dfm}

procedure TLoadDataForm.FileMenuClick(Sender: TObject);

begin

AdvGridImportDialog.OpenAndExecute;

end;

end.

and the loaddata.dfm

object LoadDataForm: TLoadDataForm

Left = 722

Top = 348

Caption = 'LoadDataForm'

ClientHeight = 484

ClientWidth = 640

Color = clBtnFace

Font.Charset = DEFAULT_CHARSET

Font.Color = clWindowText

Font.Height = -11

Font.Name = 'MS Sans Serif'

Font.Style = []

Menu = DataMenu

OldCreateOrder = False

PixelsPerInch = 96

TextHeight = 13

object ASG: TAdvStringGrid

Left = 0

Top = 0

Width = 640

Height = 484

Cursor = crDefault

Align = alClient

Color = clWhite

ColCount = 3

DefaultColWidth = 32

DefaultRowHeight = 15

DrawingStyle = gdsClassic

RowCount = 2

Font.Charset = DEFAULT_CHARSET

Font.Color = clWindowText

Font.Height = -11

Font.Name = 'MS Sans Serif'

Font.Style = []

Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goRowMoving, goTabs, goRowSelect]

ParentFont = False

ParentShowHint = False

ScrollBars = ssVertical

ShowHint = True

TabOrder = 0

HoverRowCells = [hcNormal, hcSelected]

HintColor = clYellow

OemConvert = True

ActiveCellFont.Charset = DEFAULT_CHARSET

ActiveCellFont.Color = clWindowText

ActiveCellFont.Height = -11

ActiveCellFont.Name = 'MS Sans Serif'

ActiveCellFont.Style = [fsBold]

ActiveCellColor = 9758459

ActiveCellColorTo = 1414638

AutoThemeAdapt = True

CellNode.ShowTree = False

CellNode.TreeColor = clSilver

ColumnHeaders.Strings = (

'N'#176

'Bulk concentration [user unit]'

'Tension [mN/m]')

ColumnSize.Key = 'SoftWare\ITC\WITC'

ColumnSize.Section = 'Mainform'

ColumnSize.Stretch = True

ControlLook.FixedGradientFrom = 15524577

ControlLook.FixedGradientTo = 11769496

ControlLook.FixedGradientHoverFrom = clGray

ControlLook.FixedGradientHoverTo = clWhite

ControlLook.FixedGradientDownFrom = clGray

ControlLook.FixedGradientDownTo = clSilver

ControlLook.ControlStyle = csClassic

ControlLook.DropDownHeader.Font.Charset = DEFAULT_CHARSET

ControlLook.DropDownHeader.Font.Color = clWindowText

ControlLook.DropDownHeader.Font.Height = -11

ControlLook.DropDownHeader.Font.Name = 'Tahoma'

ControlLook.DropDownHeader.Font.Style = []

ControlLook.DropDownHeader.Visible = True

ControlLook.DropDownHeader.Buttons = <>

ControlLook.DropDownFooter.Font.Charset = DEFAULT_CHARSET

ControlLook.DropDownFooter.Font.Color = clWindowText

ControlLook.DropDownFooter.Font.Height = -11

ControlLook.DropDownFooter.Font.Name = 'Tahoma'

ControlLook.DropDownFooter.Font.Style = []

ControlLook.DropDownFooter.Visible = True

ControlLook.DropDownFooter.Buttons = <>

EnhTextSize = True

EnhRowColMove = False

Filter = <>

FilterDropDown.Font.Charset = DEFAULT_CHARSET

FilterDropDown.Font.Color = clWindowText

FilterDropDown.Font.Height = -11

FilterDropDown.Font.Name = 'Tahoma'

FilterDropDown.Font.Style = []

FilterDropDownClear = '(All)'

FilterEdit.TypeNames.Strings = (

'Starts with'

'Ends with'

'Contains'

'Not contains'

'Equal'

'Not equal'

'Larger than'

'Smaller than'

'Clear')

FixedColWidth = 20

FixedRowHeight = 20

FixedFont.Charset = DEFAULT_CHARSET

FixedFont.Color = clWindowText

FixedFont.Height = -11

FixedFont.Name = 'MS Sans Serif'

FixedFont.Style = [fsBold]

FloatFormat = '%.2f'

HoverButtons.Buttons = <>

HoverButtons.Position = hbLeftFromColumnLeft

MouseActions.AllSelect = True

MouseActions.CaretPositioning = True

MouseActions.ColSelect = True

MouseActions.DisjunctRowSelect = True

MouseActions.RowSelect = True

Navigation.AllowInsertRow = True

Navigation.AllowDeleteRow = True

Navigation.AdvanceOnEnter = True

Navigation.AdvanceInsert = True

Navigation.AllowClipboardShortCuts = True

Navigation.AllowSmartClipboard = True

Navigation.AllowRTFClipboard = True

Navigation.AdvanceAuto = True

Navigation.MoveRowOnSort = True

PrintSettings.DateFormat = 'dd/mm/yyyy'

PrintSettings.Font.Charset = DEFAULT_CHARSET

PrintSettings.Font.Color = clWindowText

PrintSettings.Font.Height = -11

PrintSettings.Font.Name = 'MS Sans Serif'

PrintSettings.Font.Style = []

PrintSettings.FixedFont.Charset = DEFAULT_CHARSET

PrintSettings.FixedFont.Color = clWindowText

PrintSettings.FixedFont.Height = -11

PrintSettings.FixedFont.Name = 'MS Sans Serif'

PrintSettings.FixedFont.Style = []

PrintSettings.HeaderFont.Charset = DEFAULT_CHARSET

PrintSettings.HeaderFont.Color = clWindowText

PrintSettings.HeaderFont.Height = -11

PrintSettings.HeaderFont.Name = 'MS Sans Serif'

PrintSettings.HeaderFont.Style = []

PrintSettings.FooterFont.Charset = DEFAULT_CHARSET

PrintSettings.FooterFont.Color = clWindowText

PrintSettings.FooterFont.Height = -11

PrintSettings.FooterFont.Name = 'MS Sans Serif'

PrintSettings.FooterFont.Style = []

PrintSettings.Borders = pbNoborder

PrintSettings.Centered = False

PrintSettings.PageNumSep = '/'

RowHeaders.Strings = (

'N'#176)

ScrollColor = 10930928

ScrollWidth = 16

ScrollHints = shBoth

SearchFooter.Color = 15524577

SearchFooter.ColorTo = 11769496

SearchFooter.FindNextCaption = 'Find &next'

SearchFooter.FindPrevCaption = 'Find &previous'

SearchFooter.Font.Charset = DEFAULT_CHARSET

SearchFooter.Font.Color = clWindowText

SearchFooter.Font.Height = -11

SearchFooter.Font.Name = 'MS Sans Serif'

SearchFooter.Font.Style = []

SearchFooter.HighLightCaption = 'Highlight'

SearchFooter.HintClose = 'Close'

SearchFooter.HintFindNext = 'Find next occurence'

SearchFooter.HintFindPrev = 'Find previous occurence'

SearchFooter.HintHighlight = 'Highlight occurences'

SearchFooter.MatchCaseCaption = 'Match case'

SelectionColor = clHighlight

SelectionTextColor = clWhite

SizeWithForm = True

SortSettings.DefaultFormat = ssAutomatic

URLColor = clBlack

VAlignment = vtaCenter

Version = '7.7.4.2'

WordWrap = False

ExplicitTop = 32

ExplicitHeight = 423

ColWidths = (

20

194

422)

RowHeights = (

20

15)

end

object DataMenu: TMainMenu

Left = 256

Top = 128

object FileMenu: TMenuItem

Caption = 'File'

OnClick = FileMenuClick

object ImportMenuItem: TMenuItem

Caption = '&Import...'

Hint = 'Import a text file or an Excel file with two columns'

ImageIndex = 19

end

end

end

object AdvGridImportDialog: TAdvGridImportDialog

Grid = ASG

TextSettings.Fixed = 'Fixed'

TextSettings.Automatic = 'Automatic'

TextSettings.Custom = 'Custom'

TextSettings.FirstRowHeaders = 'First row headers'

TextSettings.Caption = 'Import settings'

TextSettings.Delimited = 'Delimited'

TextSettings.ButtonOK = 'OK'

TextSettings.ButtonCancel = 'Cancel'

Filter =

'Text files (.txt)|.txt|CSV files (.csv)|.csv|Ascii files (.' +

'asc)|.asc|All files (.)|.'

Left = 160

Top = 112

end

end

and my text file is

1.00E-07;71.48

1.00E-04;61.42

2.00E-04;60.49

5.00E-04;57.5

1.00E-03;54.83

2.00E-03;54.32

5.00E-03;53.34

0.01;50.82

0.02;47.31

0.05;42.88

0.1;37.24

0.15;35.04

0.16;35.04

0.17;33.63

0.18;32.82

0.19;32.55

0.2;32.14

0.21;32.29

0.22;31.82

0.23;31.9

0.24;31.87

0.25;32.63

0.3;32.43

The BUG is hard because if I use Eurekalog (7.2) as Eurekalog is frozen.

brunofierens · June 10, 2015, 2:40pm

The issue is related to having grid.OemConvert = true.
We fixed this. Next update will address this. As workaround, set it to false.