3,626

(2 replies, posted in General)

Hello.


Please open an example:
MyDocuments\My Visual DataBase\Examples\Phone Book

On form "frmAbonent" there is TableGrid named "GridNumbers", it shows child records, phone numbers belongs to person.


About sub records, you can see sub records only in another tablegrid, example:
http://myvisualdatabase.com/forum/misc. … download=1

3,627

(5 replies, posted in Russian)

попробуйте так

procedure Form1_TableGrid2_OnKeyUp (Sender: string; var Key: Word; Shift, Alt, Ctrl: boolean);
begin
    Form1.Image1.Picture.LoadFromFile(Form1.TableGrid2.Cells[0,Form1.TableGrid2.SelectedRow] );
end;

3,628

(38 replies, posted in Russian)

попробуйте Кат Руз взять в кавычки, т.е.

"Кат Руз"

3,629

(17 replies, posted in Script)

Hello.


Fixed project.
Also I have added possibility to change offset of clock in minutes.

3,630

(4 replies, posted in General)

Please download latest beta version again
https://www.dropbox.com/s/xf20ksdbdgj6w … b.zip?dl=0


instead:

Form1.Memo1.SaveToFile(AppPath+'readme.txt');

you should use method

Form1.Memo1.SaveToFileUTF8(AppPath+'readme.txt');

3,631

(4 replies, posted in Script)

Check out this script to store a file from datanase to disk:

procedure Form1_Button6_OnClick (Sender: string; var Cancel: boolean);   //GET STORED FILE BACK TO DISK
var
    sFileName: string;
    sTempFile: string;
    SaveDialog: TSaveDialog;
begin
    SaveDialog := TSaveDialog.Create(Form1);
    SaveDialog.FileName := ExtractFileName( SQLExecute('SELECT somefile_filename FROM test WHERE id='+Form1.TableGrid1.sqlValue) );
    if SaveDialog.Execute then
    begin
        sFileName := SaveDialog.FileName;
        sTempFile := SaveFileFromDataBase ('test','somefile', Form1.TableGrid1.dbItemID);
        CopyFile(sTempFile, sFileName);
        DeleteFile(sTempFile);
    end;
    SaveDialog.Free;
end;

3,632

(4 replies, posted in Russian)

6katran6 wrote:

спасибо то что нужно smile а с xlsx возможно что бы ссылка была скачать указать путь где он лежит

Скачать с интернета? Где будет расположен файл?

3,633

(2 replies, posted in General)

Hello.


You found a bug. Thank you.
Fixed, please download latest beta version
https://www.dropbox.com/s/xf20ksdbdgj6w … b.zip?dl=0

3,634

(4 replies, posted in Script)

Hello.


I have added function GetFileSize to get file size.
Please download latest beta version:
https://www.dropbox.com/s/xf20ksdbdgj6w … b.zip?dl=0



Also I have attached an example, how to store file to database using script:

3,635

(4 replies, posted in General)

Unfortunately I can't find any API documentation for this printer on official web site..

3,636

(4 replies, posted in Russian)

Скачайте пожалуйста данный проект с примером
http://myvisualdatabase.com/forum/misc. … download=1

3,637

(1 replies, posted in General)

Hello.


Sorry for delay.


All project was made of trial version MVD, also have trial period.

3,638

(4 replies, posted in General)

Please download latest beta version.
https://www.dropbox.com/s/xf20ksdbdgj6w … b.zip?dl=0


Now Memo uses UTF8 to save file.

3,639

(5 replies, posted in General)

In the current version RTF editor not exists, but planned.

3,640

(6 replies, posted in General)

Hello.


Check out this script:

procedure frmStudent_btnCancel_OnClick (Sender: string; var Cancel: boolean);
begin
    if (frmStudent.dbAction = 'NewRecord') and (frmStudent.btnSave.dbGeneralTableId<>-1) then
    begin
        SQLExecute('DELETE FROM student WHERE id='+IntToStr(frmStudent.btnSave.dbGeneralTableId));
    end;
end;

3,641

(2 replies, posted in Script)

Uses button with action "Open in Excel" not provide any options to customize output format.
You should use for that button with action "Report" to design report then you can export it to excel.

3,642

(1 replies, posted in General)

Sorry for delay.


Please explain your question in more detail.

3,643

(17 replies, posted in Script)

In the section const I have added some params to customize clock

const
  R = 70;    // radius of clock
  RN = 85;  // radius of numbers
  color_clock = clBlack;
  color_numbers = clBlack;
  numbers_font = 'Arial';
  numbers_size = 10;

Please download the example again
http://myvisualdatabase.com/forum/viewt … 279#p19279

3,644

(5 replies, posted in Russian)

Здравствуйте.


Сделал для вас проект с примером

3,645

(2 replies, posted in General)

It's not support.

3,646

(17 replies, posted in Script)

AD1408 wrote:

Thanks a lot Dmitry.............


Script is beyond me in most parts. How can I change clock face, size, use numbers such as 9-3 12-6 or IX-III XII-VI etc. instead of o? And resizing pens length according to clock face?

Please download the example again, from my previous post.


line 2 in script to change clock size

  R = 75 ;    // radius of clock  

3,647

(1 replies, posted in Script)

Hello.


Try to use one trick.
Open settings of TableGrid, add some fields and set up footers.
And check, that you have option "Show child records"



Also you can do it using script:

procedure Form1_TableGrid1_OnChange (Sender: string);
begin
    Form1.TableGrid1.Columns[0].Footer.FormulaKind := fkSum; // for first column
    Form1.TableGrid1.CalculateFooter;
end;

begin
    Form1.TableGrid1.Options := Form1.TableGrid1.Options + goFooter;
end.

all formulas

fkSum
fkCount
fkAverage
fkMaximum
fkMinimum
fkDistinct

3,648

(17 replies, posted in Script)

AD1408


Please download latest beta version
https://www.dropbox.com/s/xf20ksdbdgj6w … b.zip?dl=0


Then you can use this example to draw analog clock

К сожалению MVD никак не сможет помочь создать приложение для мобильной платформы.


Разве что создать WebGrid используя программу, затем открыть его через мобильный браузер.

3,650

(11 replies, posted in Script)

Example, how to hide some columns in a TableGrid

procedure Form1_TableGrid1_OnChange (Sender: string);
begin
    Form1.TableGrid1.Columns[0].Visible := False;
    Form1.TableGrid1.Columns[2].Visible := False;
end;