Topic: Final version 5.6

Final version 5.6
http://myvisualdatabase.com/download/myvisualdb.exe



What's new?
- Added ability to add checkbox to TableGrid
http://myvisualdatabase.com/forum/misc.php?action=pun_attachment&item=5800&download=0


- For the components added an event OnDropFiles (drag and drop files)

procedure Form1_Memo1_OnDropFiles (Sender: TObject; ArrayOfFiles: array of string; X, Y: Integer);
var
    i, c: integer;
begin
    c := Length(ArrayOfFiles)-1;
    for i := 0 to c do
    begin
        Form1.Memo1.Lines.Add(ArrayOfFiles[i]);
    end;
end;

- Other minor improvements


- Several bugs fixed

Dmitry.

2 (edited by gonpublic2k 2019-09-10 22:54:23)

Re: Final version 5.6

Excellent. For this component Dmitry, could you provide a sample of the use of it? I'd like to see how this
can be implemented in a program.

procedure Form1_Memo1_OnDropFiles (Sender: TObject; ArrayOfFiles: array of string; X, Y: Integer);
var
    i, c: integer;
begin
    c := Length(ArrayOfFiles)-1;
    for i := 0 to c do
    begin
        Form1.Memo1.Lines.Add(ArrayOfFiles[i]);
    end;
end;

If it's not too much to ask, thanks!!

Re: Final version 5.6

gonpublic2k wrote:

Excellent. For this component Dmitry, could you provide a sample of the use of it? I'd like to see how this
can be implemented in a program.

procedure Form1_Memo1_OnDropFiles (Sender: TObject; ArrayOfFiles: array of string; X, Y: Integer);
var
    i, c: integer;
begin
    c := Length(ArrayOfFiles)-1;
    for i := 0 to c do
    begin
        Form1.Memo1.Lines.Add(ArrayOfFiles[i]);
    end;
end;

If it's not too much to ask, thanks!!


Never mind... I figured it out.  Works great Dmitry!  Good additon.