TMS Software

Frequently Asked Component Specific Questions

Options

Display all FAQ items

Search FAQ items:

Displaying items 736 to 750 of 888, page 50 of 60

<< previous next >>

THotSpotImage
How to use the hotspot design-time editor at run-time.

You can easily use the hotspot design-time editor at run-time to allow users to edit hotspot run-time. To allow this, use following steps :

1. Add HotSpotEditor in the Uses list of the unit from where you want to use this

2. Following code shows the hotspot editor (supposing there is a HotSpotImag1 component on the form you wish to edit at run-time):

uses
  HotSpotEditor;

procedure TForm1.Button1Click(Sender: TObject);
var
  frmEditor: TfrmHSIEditor;
begin
  FHotSpots.Assign(HotSpotImage1.HotSpots);

  FPicture.Assign(HotSpotImage1.Picture);


  frmEditor := TfrmHSIEditor.Create(nil);

  try
    if frmEditor.ShowModal = mrOK then
    begin
    HotSpotImage1.HotSpots.Assign(FHotSpots);

    HotSpotImage1.Picture.Assign(FPicture);

  end;

  finally
    frmEditor.Free;

  frmEditor := nil;

  end;
end;

THTMLLabel
How to use the design-time mini HTML editor at run-time

You can easily use the mini HTML design-time editor at run-time to allow users to edit the mini-HTML controls text at run-time. To allow this, use following steps : add the HTMLPROP unit to your project and add HTMLPROP to the uses clause in the unit from where you want to invoke the mini HTML editor. Add the following code to allow for example run-time editing of the content of a HTMLabel1 component :

var
  htmledit: THTMLEditor;
begin
  htmledit := THTMLEditor.Create(Self);

  try
    htmledit.memo1.lines.Text := htmlabel1.htmltext.Text;

    htmledit.ShowModal;

    htmlabel1.htmltext.Text := htmledit.memo1.lines.Text;

  finally
    htmledit.Free;
  end;
end;

A sample Delphi project with this code can be downloaded here (assuming the HTMLabel component is available on the component palette.

TSectionListBox
How to delete all selected items in a multiselect TSectionListBox

This procedure will delete all selected items from a TSectionListBox :

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  sectionidx,subitemidx: Integer;
begin
  i := 0;

  with sectionlistbox1 do
    while (i < Items.Count) do
    begin
      if Selected[i] then
      begin
        Selected[i] := False;

        GetListItemIndex(i,sectionidx,subitemidx);

        Sections.Items[sectionidx].subitems.Delete(subitemidx);

      end
      else
        inc(i);

 end
end;

TSectionListBox
How to retrieve the selected items in a multiselect TSectionListBox

This example code copies all selected items from a TSectionListBox to a TListBox :

procedure TForm1.Button1Click(Sender: TObject);
var
  i,j,k:integer;
begin
  for i := 1 to sectionlistbox1.Sections.Count do
    if sectionlistbox1.sections.items[i-1].State = lssExpanded then
      for j := 1 to sectionlistbox1.sections.items[i-1].SubItems.Count do
      begin
        k := SectionListBox1.GetSectionListIndex (i-1)+j-1;

      if sectionlistbox1.selected[k+1] then

        listbox1.Items.Add(sectionlistbox1.sections.items[i-1].SubItems[j-1]);

    end;
end;

TDBAdvGrid
Sorting a DB grid by clicking a column header

It is demonstrated in the sample applications ADOSort & BDESort how sorting can be performed by clicking a column header. See sample applications from TDBAdvGrid at the TMS Grid Pack page.

TAdvStringGrid
Using TAdvStringGrid printer settings dialog combined with printer selection.

This code snippet shows how you can show the print setup dialog for users after which the printer selection is done.

procedure TForm1.PrintGrid;
begin
  AdvGridPrintSettings.Form.Caption := 'Print overview';
  AdvStringGrid.PrintSettings.FitToPage := fpAlways;
  AdvStringGrid.PrintSettings.Orientation := poLandscape; // initialize to default poLandscape
  if AdvGridPrintSettings.Execute then
  begin
    Printer.Orientation := AdvStringGrid.PrintSettings.Orientation;
    if PrinterSetupDialog.Execute then
    begin
      AdvStringGrid.PrintSettings.Orientation := Printer.Orientation;
      AdvStringgrid.Print;
    end;
  end;
end;

TAdvStringGrid
Vertical bottom or center alignment in the grid

Vertical alignment and wordwrap are mutually exclusive. This is due to a limitation in the Microsoft Windows text drawing API that does not allow to have wordwrapped text with other vertical alignment than top alignment. To enable vertically centered or bottom alignment, make sure to set grid.WordWrap to false.

TAdvStringGrid
Using TAdvStringGrid with Multilizer

In order to automatically translate applications that use TAdvStringGrid with Multilizer, exclude the class TAdvRichEdit in Multilizer. TAdvRichEdit is an internal class only used in TAdvStringGrid as inplace editor for rich text editing.

TAdvStringGrid
Copying a grid as image on the clipboard

Following code copies TAdvStringGrid as an image on the clipboard:

var
  bmp: TBitmap;
  clip: TClipboard;
begin
  bmp := tbitmap.create;
  bmp.Width := advstringgrid1.Width;
  bmp.Height := advstringgrid1.Height;
  AdvStringGrid1.PaintTo(bmp.Canvas,0,0);
  clip := TClipboard.Create;
  clip.Assign(bmp);
  bmp.Free;
  clip.Free;
end;

TAdvStringGrid
Saving TAdvStringGrid to a JPEG file

With code below, the output of TAdvStringGrid is sent to a JPEG file:

var
  pBitmap: TBitmap;
  jp: TJPEGImage;
  R: TRect;
begin
  pBitmap := TBitmap.Create; //create a new instance of a bitmap
  jp := TJPEGImage.Create;   //create new instance of a jpg file
  R := Rect(0,0,950,760);    //parameters for rectangle
  pBitmap.Height := 622;     //set bmp height
  pBitmap.Width := 812;      //set bmp width
  AdvStringGrid1.PrintPreview(pBitmap.Canvas,R); //call Preview to paint to BMP canvas
  jp.Assign(pBitmap); //get picture from bitmap for JPG Image
  jp.SaveToFile('c:\temp\Grid.jpg'); //save picture as JPG File
  pBitmap.Free;
  jp.Free;
end;

TAdvStringGrid
Setting different max. edit lengths for the inplace editor

If the max. number of characters for editing should be limited, this can be done with then LengthLimit property of the inplace editor. When LengthLimit is 0, there is no limitation to the nr. of characters that can be typed in the editor. To set a different max. nr of characters per column, following code can be used in the OnGetCellEditor event :

procedure TForm1.AdvStringGrid1GetEditorType(Sender: TObject; ACol,
ARow: Integer; var AEditor: TEditorType);
begin
  if Assigned(AdvStringGrid1.NormalEdit) then
  begin
    case acol of
    1:AdvStringGrid1.NormalEdit.LengthLimit := 4;
    2:AdvStringGrid1.NormalEdit.LengthLimit := 8;
    else
      AdvStringGrid1.NormalEdit.LengthLimit := 0
   end;
  end;
end;

This sets the max. edit length for column 1 to 4 characters, for column 2 to 8 eight characters and unlimited for all other columns.

TAdvStringGrid
Printing only selected rows in disjunct row select mode

The disjunct row select mode is flexible to let the user select several non contiguous rows in a grid. When you want to print only the selected rows, the Print functions do not provide a possibility these rows. Thanks to the grid's row hiding capabilities this can be easily done by temporarily hide the non-selected rows, print the grid and then unhide these rows again. The code to hide only the not selected rows is :

var
  i,j: Integer;
begin
  i := 1;
  with AdvStringGrid do
  begin
    j := RowCount;
    while (i < j) do
    if not RowSelect[DisplRowIndex(i)] then
      HideRow(i);
    Inc(i);
  end;
end;

To unhide the rows again after the print, the method UnHideRowsAll can be called.

TAdvStringGrid
Setting an hourglass cursor during lengthy sort operations

Before the sort starts, the OnCanSort event is called. In this event, the crHourGlass cursor can specified either for the grid or for your application.
When sorting is completed, the OnClickSort event is called, where you can set the cursor back to normal.

TAdvStringGrid
Forcing a visible cell editor when the form is displayed in the grid

In the FormShow event, add these 2 methods :

grid.SetFocus;
grid.ShowInplaceEdit;

TAdvStringGrid
When using RowSelect, the first cell of the row is not highlighted as the other cells.

This can be easily solved by setting the option goDrawFocusSelect to true in the Options property.

Explore All Products

Frequently Asked Component Specific Questions

Options