Topic: Бета версия 2.3
My Visual Database 2.3 beta
Что нового?
- Добавлен класс TWebBrowser, позволяющий отображать web страницы и pdf документы, пока создать можно только с помощью скрипта, пример:
procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
Web: TWebBrowser;
begin
Web := TWebBrowser.Create(Form1);
TWinControl(Web).Parent := Form1;
Web.Width := Form1.Width;
Web.Height := Form1.Height;
Web.Navigate('http://ya.ru');
end;
- Добавлены функции позволяющие узнать время создания/изменения/доступа к файлу
function CreatedFileTime(const FileName: string; var FileTime: TDateTime): boolean
function ModifiedFileTime(const FileName: string; var FileTime: TDateTime): boolean
function AccessedFileTime(const FileName: string; var FileTime: TDateTime): boolean
пример использования
procedure Form1_Button2_OnClick (Sender: string; var Cancel: boolean);
var
dt: TDateTime;
begin
if CreatedFileTime('c:\temp\1.txt', dt) then
ShowMessage( DateTimeToStr(dt) )
else ShowMessage('Failed to get time.');
end;
- Добавлено свойство MultiSelect для ComboBox, позволяет выбрать несколько значений для поиска.
Скачать:
http://myvisualdatabase.com/download/se … 20beta.zip