Jump to content

Gin Beginner

Members
  • Content Count

    4
  • Joined

  • Last visited

Community Reputation

0 Neutral
  1. Gin Beginner

    TListView & TJvListView - Subitems line in 255 characters

    Problem solving: TListView & TJvListView - Subitems line in 255 characters
  2. Gin Beginner

    TListView & TJvListView - Subitems line in 255 characters

    Yeah, I got it. Uh, thank you. ShowMessage('Characters in a string - ' + IntToStr(Length(ListView1.Items[0].SubItems[1]))); ShowMessage('String text:' + #13#10 + ListView1.Items[0].SubItems[1]);
  3. TlistView (and TJvlistView) - Subitems line in 255 characters. Is there a way to get around this restriction? Dynamically I fill in the SubItems of 670 characters, but the line turns out only 255 characters :(. unit Unit1; interface uses //Winapi.Windows, //Winapi.Messages, System.SysUtils, // IntToStr, FreeAndNil Vcl.Controls, // alClient Vcl.Forms, CommCtrl, // for LVSCW_AUTOSIZE ComCtrls; // for TListView type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; ListView1: TListView; ListItem1: TListItem; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin form1.Height := 115; form1.Width := 350; form1.Position := poScreenCenter; form1.Caption := 'Subitems[2] in 255 characters'; ListView1 := TListView.Create(Self); with ListView1 do begin Parent := Self; Align := alClient; ViewStyle := vsReport; BorderWidth := 2; GridLines := true; end; with ListView1.Columns do begin Add.Caption := 'Line № '; Add.Caption := 'Error '; Add.Caption := 'String '; end; try ListView1.Items.BeginUpdate; ListItem1 := ListView1.Items.Add; ListItem1.Caption := '22421 '; ListItem1.SubItems.Add('All Columns ' + IntToStr(ListView1.Columns.Count)); ListItem1.SubItems.Add('<RHINOSTRING English="Exploding this mesh will create %d individual meshes. This may be more than your system can safely manage using the available memory. You can use Weld to make the mesh explode into fewer pieces, or see Help for more information.\n\nClick OK to proceed with Explode, or Cancel to leave the mesh as is.[[24836]]" Localized="Exploding this mesh will create %d individual meshes. This may be more than your system can safely manage using the available memory. You can use Weld to make the mesh explode into fewer pieces, or see Help for more information.\n\nClick OK to proceed with Explode, or Cancel to leave the mesh as is.[[24836]]" />'); //uses CommCtrl; ListView1.Columns[0].Width := {LVSCW_AUTOSIZE or} LVSCW_AUTOSIZE_USEHEADER; ListView1.Columns[1].Width := {LVSCW_AUTOSIZE or} LVSCW_AUTOSIZE_USEHEADER; ListView1.Columns[2].Width := LVSCW_AUTOSIZE {or LVSCW_AUTOSIZE_USEHEADER}; finally ListView1.Items.EndUpdate; end; end; procedure TForm1.FormDestroy(Sender: TObject); begin FreeAndNil(ListView1); end; end.
  4. There is only a record in the Registry: [HKEY_CURRENT_USER\SOFTWARE\Embarcadero\BDS\Version number\ToolForm\Mapping] "Templates"="TComponentBased.Template.TMainMenuTemplate_My" File: c:\Users\Name\AppData\Roaming\Embarcadero\BDS\Version number\bds.dct
×