Topic: Бета версия 1.44
Скачать бета версию 1.44 можете здесь
https://www.dropbox.com/s/2phoggh5kfu88 … 4.zip?dl=0
Что нового?
- Для компонента TableGrid добавлено событие OnChange (26.08.2014)
Срабатывает, когда в компоненте изменились данные
Например после того, как был выведен результат поиска, либо удалена запись и т.д.
Данное событие удобно использовать, например чтобы раскрасить ячейки в компоненте, в зависимости от их текстового содержимого.
пример:
procedure Form1_TableGrid1_OnChange (Sender: string);
var
i,c: integer;
begin
c := Form1.TableGrid1.RowCount - 1;
for i := 0 to c do
begin
if Form1.TableGrid1.Cells[3,i] = 'Да' then Form1.TableGrid1.Cell[3,i].Color := clRed;
if Form1.TableGrid1.Cells[3,i] = 'Нет' then Form1.TableGrid1.Cell[3,i].Color := clGreen;
end;
end; - Добавлена функция для скрипта, позволяющая открыть файл из базы (08.09.2014)
пример
var
s: string;
begin
s := SaveFileFromDataBase('person', 'file', Form1.GridAbonent.dbItemID); // возвращает путь и имя файла, сохраненного в папку Temp
OpenFile(s); // открываем файл
end;проект, с примером реализации:
http://myvisualdatabase.com/forum/misc. … download=1
- Добавлены методы BeginUpdate и EndUpdate для компонента TableGrid (08.09.2014)
Служит для увеличения скорости при разукрашивании ячеек компонента.
пример
procedure Form1_TableGrid1_OnChange (Sender: string);
var
i,c: integer;
begin
Form1.TableGrid1.BeginUpdate;
c := Form1.TableGrid1.RowCount - 1;
for i := 0 to c do
begin
if Form1.TableGrid1.Cells[3,i] = 'Yes' then Form1.TableGrid1.Cell[3,i].Color := clRed;
if Form1.TableGrid1.Cells[3,i] = 'No' then Form1.TableGrid1.Cell[3,i].Color := clGreen;
end;
Form1.TableGrid1.EndUpdate;
end; - Добавлена возможность для скрипта обратиться к подвалу компонента TableGrid (11.09.2014)
пример
Form1.TableGrid1.Options := Form1.TableGrid1.Options + goFooter; // активируем подвал
Form1.TableGrid1.Columns[0].Footer.Caption := 'Привет из подвала'; - Добавлена возможность для компонента DateTimePicker искать только по месяцу и году (11.09.2014)
для ее активирования, в свойстве Kind выберите MonthYear
- Добавлена функция для скрипта, получающая список файлов в указанной папке (13.09.2014)
пример ее использования, для добавления списка файлов в базу данных
procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
SL: TStringList;
i,c: integer;
begin
SL := TStringList.Create; // создаем объект списка
SL.Text := GetFilesList('d:\music'); // получаем все файлы папки music
c := SL.count - 1; // узнаем количество найденых файлов
for i :=0 to c do // цикл, где перебираем имя каждого файла и добавляем его в базу
SQLExecute ('INSERT INTO music (musicfile) VALUES ("' + SL[i] + '")');
SL.Free;
end;
MyLibrary.zip