Руководство по настройке altAwin:Скрипты/Функции/altAwin
altAwin
AddFactoryUnitEvent
AddFactoryUnitEvent(FactoryUnitId: Integer; EventTypeCode, Comment: string)
Добавляет событие с заданным кодом EventTypeCode и комментарием Comment в лог производимой единицы с идентификатором FactoryUnitId.
AddFile
AddFile(FileName, Note, PathInDB: string): Integer
Добавляет в БД файл с диска; возвращает идентификатор записи файла.
- FileName — полный путь к файлу на диске,
- Note — комментарий,
- PathInDB — папка в БД.
При отсутствии файла на диске откроется диалог выбора файла (если диалог не нужен, следует проверять наличие файла вручную перед вызовом функции, например через FileExists).
- Файл каждый раз добавляется новый (даже если такой уже есть).
- Путь к папке в БД должен быть в виде папка\вложенная папка.
- Путь к папке чувствителен к регистру.
- При отсутствии в базе папки с заданным именем папка создаётся.
- В случае если существует несколько папок с указанным именем, файл будет помещён в одну из них случайным образом.
- Для добавления файла в корень нужно указать пустой путь (' ').
- Добавление файла выполняется только в том случае, если у пользователя есть права на создание документа типа «Файл».
- Если файл не удалось добавить, возвращается NULL
AddFileFromStream
AddFileFromStream(AStream: TStream; const AFileName: string; const Note: string = ; const PathInDB: string = ): Variant
Добавляет файл из потока с именем AFileName. Возвращает идентификатор записи файла.
Пример использования функции AddFileFromStream
var
S: TStringStream;
begin
S := TStringStream.Create('');
try
S.WriteString('Line1' + #13#10);
S.WriteString('Line2' + #13#10);
S.Position := 0;
AddFileFromStream(S, '1.txt', 'comment', '1\2\3');
finally
S.Free;
end;
end;
CallPhoneNumber [d]
CallPhoneNumber(PhoneNumber, AbonentName: string)
Осуществляет автодозвон до абонента AbonentName с указанным телефонным номером PhoneNumber в международном формате. (cм IpubDialerService.Dial)
CheckOrdersGlassMails [d]
- CheckOrdersGlassMails
- Проверка электронной почты на наличие заказов стеклопакетов.
CheckOrdersReserves [d]
- CheckOrdersReserves
- Инициирует принудительную проверку резервов заказов в планировщике.
CheckOrdersWinMails [d]
- CheckOrdersWinMails
- Проверка электронной почты на наличие заказов конструкций.
CreateContourPath
CreateContourPath: IawContourPath
- Создаёт и возвращает объект для задания контура.
CreateDialog
CreateDialog(Code: string): IawDialog
Создает и возвращает новый диалог по коду
CreateDictionary
CreateDictionary(): IcmDictionary
Создаёт и возвращает новый объект IcmDictionary.
CreateDictionaryList
CreateDictionaryList(): IcmDictionaryList
- Создаёт и возвращает новый объект IcmDictionary.
CreateFillingModelPainter [d]
CreateFillingModelPainter(): IawGlassPacketModelPainter
Создаёт и возвращает объект отрисовщика моделей стеклопакетов
CreateFloatList
CreateFloatList(): IcmFloatList
Создает и возвращает новый объект типа IcmFloatList
CreateGlassByDXF
CreateGlassByDXF(const GlassPacketCode: string; const DXF: string; const GlassParams: IcmDictionary = Empty): string
Создаёт модель стеклопакета по заданному артикулу и контуру из DXF
CreateGlassByFormulaAndPath
CreateGlassByFormulaAndPath(const Formula: string; const ContourPath: IawContourPath; const GlassParams: IcmDictionary = Empty): string
Создаёт модель стеклопакета по заданной формуле и контуру
CreateGlassByPath
CreateGlassByPath(const GlassPacketCode: string; const ContourPath: IawContourPath; const GlassParams: IcmDictionary = Empty): string
Создаёт модель стеклопакета по заданному артикулу и контуру
- GlassPacketCode — артикул стеклопакета,
- ContourPath — координаты вершин и высот сторон контура,
- GlassParams — словарь значений пользовательских параметров для стеклопакета,
CreateGlassDXF
CreateGlassDXF(PackInfo: string;ModelNo: Integer; Mark, FileName: string): Boolean
Выгрузка заданного заполнения в DXF файл
CreateGlassPacketModelPainter
CreateGlassPacketModelPainter: IawGlassPacketModelPainter
Создаёт и возвращает объект отрисовщика моделей стеклопакетов
CreateHTTPSession
CreateHTTPSession:IpubHTTPSession Создаёт и возвращает новый объект IpubHTTPSession Пример работы работы с HTTP сервисами:
var
Session: IpubHTTPSession;
Response: IpubHTTPResponse;
S: string;
begin
Session := CreateHTTPSession;
Response := Session.HTTPGet('http://ya.ru', null);
S := ConvertFromCharSet(Response.ContentCharSet, Response.ContentAsString);
ShowMessage(S);
end;
CreateIntegerList
CreateIntegerList(): IcmIntegerList
Создает и возвращает новый объект типа IcmIntegerList
CreateMailer
CreateMailer: IpubMailer
Возвращает сервис для отправки и получения почтовых сообщений. Пример работы с почтовым сообщением с помощью скриптов:
var
MS: IpubMailer;
M: IpubEmail;
A: IpubEmailAttachment;
begin
//создание сервиса почтовых сообщений
MS := CreateMailer;
//установка параметров учетной записи
MS.Account.Address := 'manager@wincompany.ru';
MS.Account.SmtpHost := 'mail.wincompany.local';
MS.Account.UserName := 'Владимир Владимирович';
//создание нового письма
M := MS.NewEmail;
//получатели
M.RecipientsField := 'manager@wincompany.local; support@wincompany.local';
//тема
M.Subject := 'Отправка сообщения из altAwin с вложением';
//тип содержимого (необязательно для простого текста)
M.ContentType := 'text/html';
//прикрепление вложения
M.Attachments.AddFile('c:\autoexec.bat');
//прикрепление картинок и назначение идентификаторов для использования в тексте письма
A := M.Attachments.AddFile('c:\pen.gif');
A.ID := 'pen';
A := M.Attachments.AddFile('c:\support.gif');
A.ID := 'support';
//содержимое в формате HTML
M.Body := '<html><body><h1>Текст сообщения из altAwin</h1><img src=''cid:pen''/><hr/><img src=''cid:support''/></body></html>';
//отправка сообщения
MS.SendEmail(M, False);
//освобожение ресурсов
A := Empty;
M := Empty;
MS := Empty;
end;
CreateModelImageFile
CreateModelImageFile(const PackInfo: string; ModelNo: Integer; const FileName: string; Width, Height: Integer
Выполняет сохранение изображения конструкции в файл.
- PackInfo — данные из БД ORDERSITEM.PACKINFO
- ModelNo — номер изделия, начиная с 1 (0 — конструкция)
- FileName — имя файла для сохранения, формат файла зависит от расширения (*.bmp, *.pcx, *.jpg, *.png)
- Width — ширина в пикселях
- Height — высота в пикселях
CreateModelPainter [d]
CreateModelPainter: IawModelPainter
Создаёт и возвращает объект отрисовщика моделей конструкций
CreateMosquitoNetModelPainter
CreateMosquitoNetModelPainter: IawMosquitoNetModelPainter
Создаёт и возвращает объект отрисовщика моделей москитных сеток
CreateObjectSession
CreateObjectSession(ConnectionName:string): IomSession
Создает и возвращает новый объект типа IomSession
CreateProgress
CreateProgress(): IpubProgress
CreateSandwichModelPainter
CreateSandwichModelPainter(): IawSandwichModelPainter
Создаёт и возвращает объект отрисовщика моделей сэндвичей
CreateWindowModelConstructor
CreateWindowModelConstructor(): IawWindowModelConstructor
Создаёт и возвращает объект конструктора моделей окон
CreateWindowModelPainter
CreateWindowModelPainter(): IawWindowModelPainter
Создаёт и возвращает объект отрисовщика моделей конструкций
Decrypt [d]
Decrypt(FileName, Key: string): string
Дешифрование данных
DoesEmployeeWorkAtDate
DoesEmployeeWorkAtDate (EmployeeId: Integer; Date: TDate): Boolean
Возвращает true, если сотрудник EmployeeId работает в заданный день Date (нет отпуска и рабочий день по расписанию)
Encrypt [d]
Encrypt(FileName, Data, Key: string)
Шифрование данных
ExecuteMethod
ExecuteMethod(MethodName: string; Params: IcmDictionary = Empty): IcmDictionary
Выполнение клиентского метода в текущем приложении
ExportDealerSettings
ExportDealerSettings(FileName: string)
Экспорт дилерских настроек в файл
ExportGlassToDXF
ExportGlassToDXF(OrderItemsId: Integer, FileName: string)
Экспорт стеклопакета в DXF
ExportOfficeSettings
ExportOfficeSettings(FileName: string)
Экспорт настроек в файл
ExportOrders
ExportOrders(FileName: String; Orders: IcmReadOnlyIntegerList)
Экспорт заказов в файл. Доступно только в дилерской и в офисной БД.
FastReportExecute
FastReportExecute(const Stream: IcmStream; const Variables: IcmDictionary = Empty; ShowPreview: Boolean = True): Boolean
Исполняет отчёт из потока, возвращает True в случае успеха. Имена словаря Variables добавляются в отчёт в качестве переменных скрипта. После исполнения отчёта значения переменных скрипта возвращаются в соответствующие значения Variables. При установке {{{1}}} отчёт отправляется на печать без предпросмотра.
var Stream: TFileStream; D: IcmDictionary; begin Stream := TFileStream.Create('<файл отчёта>', fmRead); try D := MakeDictionary([ 'test', '123' ]); if FastReportFromStreamExecute(Stream, D, True) then ShowMessage(D['test']); finally Stream.Free; end; end;
FastReportExecuteFile [d]
FastReportExecuteFile (const FileName: string, const Params: array of Variant, ShowPreview:Boolean=True):Boolean
Исполняет файл отчёта с указанным именем, возвращает True в случае успеха. При ShowPreview = False отчёт отправляет на печать без предпросмотра
FastReportExecuteStream [d]
FastReportExecuteStream (const Stream:TStream, const Params: array of Variant, ShowPreview:Boolean=True):Boolean Исполняет отчёт из потока, возвращает True в случае успеха. При ShowPreview = False отчёт отправляет на печать без предпросмотра. Обеспечивает вызов произвольного отчёта без контекста, только стандартный FastReport + экспортные функции. ShowPreview управляет отображением стандартного предпросмотра FastReport.
FastReportExecuteToFile [d]
FastReportExecuteToFile (const Stream:TStream, const FileName: string, const Params: array of Variant):Boolean
- Исполняет отчёт из потока и сохраняет в файл (.awr) с указанным именем, возвращает True в случае успеха
- Stream — поток с отчетом;
- FileName — имя файла для сохранения.
- Params — массив значений, элементы которого транслируются в переменные отчёта таким образом, что чётные и нечётные элементы массива попарно определяют значение переменной и её наименование.
- Исполняет отчёт из потока и сохраняет в файл (.awr) с указанным именем, возвращает True в случае успеха
FastReportExecuteToPDF [d]
FastReportExecuteToPDF(const Stream:TStream; const FileName: string; const Params: array of Variant): Boolean
Исполняет отчёт из потока и экспортирует его в PDF-файл с указанным именем, возвращает True в случае успеха
var
StringStream: TStringStream;
begin
StringStream := TStringStream.Create(QueryField('select REPORTBLOB from REPORTTEMPLATESLINK where REPORTNAME=''testreport'''));
try
FastReportExecuteToPDF(StringStream, 'd:\temp\testreport.pdf', ['test', 'Hello, World!']);
ShellExecute('d:\temp\testreport.pdf');
finally
StringStream.Free;
end;
end.
FastReportExportToAWR
FastReportExportToAWR(const Stream, OutStream: IcmStream; const Params: IcmDictionary = Empty): Boolean;
Функция сохранения отчета в формате AWR в указанное место на диске. Возвращает True в случае успеха.
FastReportExportToJPG
FastReportExportToJPG(const Stream, OutStream: IcmStream; const Params: IcmDictionary = Empty; JPEGQuality: Integer = 90; Resolution: Integer = 96): Boolean;
Функция сохранения отчета в формате JPG в указанное место на диске. Возвращает True в случае успеха.
var
StringStream: TStringStream;
FileStream: TFileStream;
begin
StringStream := TStringStream.Create(QueryField('select REPORTBLOB from REPORTTEMPLATESLINK where REPORTNAME=''test'''));
try
FileStream := TFileStream.Create('c:\temp\test.jpg', fmCreate);
try
FastReportExportToJPG(CreateIcmStreamAdapter(StringStream), CreateIcmStreamAdapter(FileStream), MakeDictionary(['test', 'Hello, World!']));
finally
FileStream.Free;
end;
ShellExecute('c:\temp\test.jpg');
FileStream := TFileStream.Create('c:\temp\test.pdf', fmCreate);
try
FastReportExportToPDF(CreateIcmStreamAdapter(StringStream), CreateIcmStreamAdapter(FileStream), MakeDictionary(['test', 'Hello, World!']));
finally
FileStream.Free;
end;
ShellExecute('c:\temp\test.pdf');
finally
StringStream.Free;
end;
end.
FastReportExportToPDF
FastReportExportToPDF(const Stream, OutStream: IcmStream; const Params: IcmDictionary = Empty): Boolean;
Функция сохранения отчета в формате PDF в указанное место на диске. Возвращает True в случае успеха.
FastReportFromStreamExecute
FastReportFromStreamExecute(const Stream: Ttream; const Variables: IcmDictionary; ShowPreview:Boolean = True): Boolean
Исполняет отчёт из потока, возвращает True в случае успеха. Имена словаря Variables добавляются в отчёт в качестве переменных скрипта. После исполнения отчёта значения переменных скрипта возвращаются в соответствующие значения Variables. При ShowPreview = False отчёт отправляется на печать без предпросмотра.
Geometry2d
Geometry2d : Шаблон:Ifn:IawGeometry2d
Геометрические примитивы и функции
GetConstructionInfo
GetConstructionInfo(PackInfo: string):IcsConstruction
Создаёт и возвращает информацию о конструкции (объект IcsConstruction) по запакованной модели.
GetDatabaseVariable
GetDatabaseVariable(Name: string; var Default: Variant): Variant
Возвращает значение переменной БД по имени
GetDateType
GetDateType(const Date: TDateTime): Integer
Возвращает тип дня согласно документу «Поправка календаря»: 0 — рабочий, 1 — выходной, 2 — сокращенный. см. Руководство пользователя altAwin:Поправки календаря)
GetGlassInfo
GetGlassInfo(PackInfo:string): IcsGlass
Возвращает объект, предоставляющий информацию о стеклопакете из запакованной модели
GetLicenseNumber
GetLicenseNumber(): string
Возвращает номер лицензии
GetMatrixValue [d]
GetMatrixValue(const Code: string; X, Y: Integer; InterpolationType: Integer): Variant
Возвращает значение матрицы с указанным кодом для значений X и Y с учётом параметра InterpolationType (0 — интерполированное значение, 1 — по минимальной отметке, 2 — по максимальной отметке), приведённое по курсу заданной валюты в базовую.
GetMonthWorkDayCount
GetMonthWorkDayCount(const Date: TDateTime): Integer
Возвращает количество рабочих дней в месяце (включая сокращенные дни) согласно настроенным праздничным и сокращённым дням.
GetMosquitoNetInfo
GetMosquitoNetInfo(PackInfo:string): IcsMosquitoNet
Возвращает объект, предоставляющий информацию о москитной сетке из запакованной модели
GetProgramVersion
ClsMnu|GetProgramVersion(): string
Возвращает версию программы
GetSandwichInfo
GetSandwichInfo(PackInfo:string):IcsSandwich
Возвращает объект, предоставляющий информацию о сэндвиче из запакованной модели
GetUserDocTypeSQL
GetUserDocTypeSQL(DocType: TGUID): string
Возвращает SQL-запрос для списка документов указанного типа.
var
sql: string;
begin
sql := GetUserDocTypeSQL(IudTest);
ShowMessage(sql);
end;
GetUserParamList [d]
GetUserParamList (PackInfo: string):IawConstructionUserParamList Возвращает общие пользовательские параметры конструкции, распакованной из PackInfo.
GetYearWorkDayCount
ImportGlassDXF
ImportOrders
ImportSettings
ImpostPos
ImpostPosFalc1
ImpostPosFalc2
InitiateWorkflow
InitiateWorkflow(const Code: string; const InitialValues: IcmDictionary Создает и запускает новый экземляр бизнес-процесса с идентификатором Code и начальными параметрами InitialValues. (см Схемы бизнес-процессов).
IsDealerLicense
IsDealerLicense()
- Возвращает True, если лицензия дилерская, иначе False
IsMatrixExists [d]
- IsMatrixExists(const Code: string): Boolean;
- Проверка существования матрицы с указанным кодом Code (см. РНА:Матрицы цен)
IsTimeInEmployeeWorkingSchedule
IsTimeInEmployeeWorkingSchedule(EmployeeId:Integer; DateTime: TDateTime): Boolean
Возвращает true, если время DateTime попало в рабочее время сотрудника EmployeeId (время окончания работы считается не рабочим)
IsTimeRangeInEmployeeWorkingSchedule
IsTimeRangeInEmployeeWorkingSchedule(EmployeeId:Integer; StartDateTime, FinishDateTime: TDateTime): Boolean
Возвращает true, если интервал времени [StartDateTime, FinishDateTime] попал в рабочее время сотрудника EmployeeId
LinearOptimization
LinearOptimization() -> IloLinearOptimization
Возвращает сервис линейной оптимизации
LoadFileFromDatabase
LoadFileFromDatabase (const FileName: string):TStream
Функция для загрузки файла из документа файлов, используется в частности для получения файла отчёта из БД. Возвращает поток содержимого файла с указанным именем.
LoadFileFromDatabaseByGUID
LoadFileFromDatabaseByGUID (const GUID:string):TStream
Возвращает поток содержимого файла с указанным GUID
LoadFileFromDatabaseByID
LoadFileFromDatabaseByID (const ID:integer):TStream
Возвращает поток содержимого файла с указанным ID
Logoff
Logoff
Завершение работы. Завершение работы программы altAwin
MakeDictionary
MakeDictionary(ValuesByNames:array of Variant) -> IcmDictionary
Создает и возвращает новый объект типа IcmDictionary, инициализированный значениями ValuesByNames. Пример работы со словарём IcmDictionary:
var
value1: Integer;
value2: string;
Source, Target: IcmDictionary;
begin
value1 := 1;
value2 := 'test';
Source := MakeDictionary(['name1', value1, 'name2', value2]);
Target := Source.Clone();
Target['name2'] := 3;
ShowMessage(JSONEncode(Source));
ShowMessage(JSONEncode(Target));
end;
MakeObjectMethodCallable
MakeObjectMethodCallable(Ojb: IomObject; MethodName: WideString):IcmCallable
Создание обёртки для метода объекта
MakeOfferByWebAPIRequest
MakeOfferByWebAPIRequest(RequestBody:string)
Создание предложения по формату API-запроса расчётчика. Параметр RequestBody должен содержать данные в формате JSON. См. описание метода offer_calculte в https://calc.activate.altec.ru/openapi.yaml
NewTimetableParams
NewTimetableParams() -> Шаблон:Ifn:IawTimetableParams
Создание фильтра календаря
PackToContourFigure
PackToContourFigure(C:Шаблон:Ifn:IawClosedPolyCurve2d)
Упаковка контура фигуры
ParseGlassPacketFormula
ParseGlassPacketFormula(Text: string): Шаблон:Ifn:IcsGlassPacketFormula
Возвращает объект, предоставляющий информацию о формуле стеклопакета
var
F: IcsGlassPacketFormula;
UI: IpubObjectsUIService;
begin
F := ParseGlassPacketFormula('4\16\4');
UI := ServiceProvider.GetService(IpubObjectsUIService);
UI.EditObject(F);
end;
PartNameIntoPartID [d]
PartNameIntoPartID(PartName: string):Integer
Возвращает идентификатор части состава по наименованию PartName.
PerformContragentAccountCharge
PerformContragentAccountCharge(ContragID: Integer; const AccountNum: string; const Sum: Double; ApproveType: Integer; const Name: string; const Comment: string = )
Формирует документ «Начисление» и проводку по счету для контрагента.
- ContragID — идентификатор контрагента,
- AccountNum — номер счета,
- Sum — сумма,
- ApproveType — тип проводки: 0 — приход, 1 — расход,
- Name — наименование документа.
- Comment — комментарий.
PerformEmployeeAccountCharge
PerformEmployeeAccountCharge(EmpID: Integer; const AccountNum: string; const Sum: Double; ApproveType: Integer; const Name: string)
Выполняет пополнение/списание со счёта сотрудника. Формирует документ «Начисление» и проводку по счету для сотрудника.
- EmpID — идентификатор сотрудника,
- AccountNum — номер счета,
- Sum — сумма,
- ApproveType — тип проводки: 0 — приход, 1 — расход,
- Name — наименование документа.
- Comment — комментарий.
PlanarOptimization
PlanarOptimization() -> IpoPlanarOptimization
Возвращает сервис плоскосной оптимизации
PriceToStringRus
PriceToStringRus (Price: Double; WithCurrency: Boolean = True; Names: string = 'рубль, рубля, рублей, М, копейка, копейки, копеек, Ж'): string
Возвращает текстовое представление денежной суммы
PseudoSequenceQuery
PseudoSequenceQuery (Name: string):Integer
Возвращает следующее значение псевдогенератора. Если он не существует, создаёт его и возвращает 1.
PseudoSequenceReset
PseudoSequenceReset (Name: string)
Сбрасывает псевдогенератор. Если он не существует, создаёт его.
RefreshActiveView
RefreshActiveView()
Обновляет активное представление
SaveThumbnail
SaveThumbnail (OrderItemsId, ModelNo:Integer, Filename: string)
Сохранение миниатюры изделия в файл. Формат файла зависит от указанного расширения имени файла в параметре FileName, допустимыми являются расширения .pcx и .bmp
SaveThumbnailEx
ClsMnu|SaveThumbnailEx (OrderItemsId, ModelNo:Integer, Filename: string, MarkModel, MarkBeam, MarkDrob, Colored, WithConn:Boolean)}}
Сохранение миниатюры изделия в файл. Формат файла зависит от указанного расширения имени файла в параметре FileName
SelectDepartmentEmployeeTimeSpan [d]
SelectDepartmentEmployeeTimeSpan(DepartmentID: Integer; out EmployeeID: Variant; out StartTime, FinishTime: TDateTime): Boolean
Выбор сотрудника и расписания для указанного подразделения
var
DepID, EmpID: Integer;
SelectedEmpID: Variant;
ST, FT: TDateTime;
begin
DepID := 4;
if SelectDepartmentEmployeeTimeSpan(DepID, SelectedEmpID, ST, FT) then
begin
EmpID := SelectedEmpID;
ShowMessage(Format('EmpID: %d, From: %s, To: %s', [EmpID, FormatDateTime('dd-mm-YYYY hh:mm', ST), FormatDateTime('dd-mm-YYYY hh:mm', FT)]));
if SelectEmployeeTimeSpan(EmpID, ST, FT) then
ShowMessage(Format('From: %s, To: %s', [FormatDateTime('dd-mm-YYYY hh:mm', ST), FormatDateTime('dd-mm-YYYY hh:mm', FT)]));
end;
end;
SelectDocumentType
SelectDocumentType(AncestorType: TGUID; ForCreate:Boolean =True): TGUID
Показывает форму выбора типа документа, который будет является наследником AncestorType. Возвращает имя выбранного типа или пустую строку в случае, если пользователь нажал кнопку "Отмена" или не были найдены потомки
SelectEmployeeTimeSpan [d]
SelectEmployeeTimeSpan(EmployeeID: Integer; out StartTime, FinishTime: TDateTime): Boolean
Выбор расписания для указанного сотрудника
SelectTask
SelectTask(Params: IawTimetableParams) -> IdocTask
Выбор задачи (календарь)
SelectTaskTimeRange
SelectTaskTimeRange(Params: IawTimetableParams): IawTaskTimeRange
Выбор временного интервала (календарь)
SendAltCQMessage
SendAltCQMessage(const UserGUID: string; const Message: string): Boolean Отправляет сообщение пользователю. Пустая строка в первом параметре — отправка всем пользователям.
SetAltCQStatus
SetAltCQStatus(const Code: string; const CustomText: string = ' ')
Установка статуса текущего авторизованного пользователя по коду.
SetDatabaseVariable
SetDatabaseVariable(name:str, value:variant)
Устанавливает значение переменной БД по имени
SetOrderState
SetOrderState (OrderId:Integer, StatusCode: string):Boolean
Установка состояния заказа.
ShowMessageDlg
ShowMessageDlg(Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; Title: string = ; Details: string = ): Integer
Показывает информационное диалоговое окно с сообщением.
- Msg — текст сообщения
- DlgType — тип диалога (mtConfirmation = 'Подтверждение', mtCustom = 'Сообщение', mtError = 'Ошибка', mtInformation = 'Информация', mtWarning = 'Предупреждение')
- Buttons — кнопки на форме диалога
- Title — заголовок окна диалога, если значение параметра Title = , то заголовок будет выбран автоматически согласно значению параметра DlgType:
- Details — развёрнутое сообщение.
- Пример использования функции ShowMessageDlg
ShowMessageDlg('Сообщение', mtInformation, mbOk + mbCancel, 'Заголовок', 'Детализация сообщения')
ShowTimetable
ShowTimetable
UnpackFromContourFigure
UnpackFromContourFigure
UpdateIndicators
UpdateIndicators()
Запускает принудительное обновление индикаторов главного окна