index e2c0a34c07463692e932283658541c12c2d426ee..af6a8574f8b057752976aad0bf104f226c404611 100644 (file)
end;
procedure SetupCaptions();
-var
- i: Integer;
-
+ var i: Integer; s: AnsiString;
begin
// Главная форма:
with MainForm do
begin
// Заголовок:
- FormCaption := _lc[I_EDITOR_TITLE];
+ s := g_GetBuildHash(false);
+ if s = 'custom build' then
+ s := s + ' by ' + g_GetBuilderName() + ' ' + EDITOR_BUILDDATE + ' ' + EDITOR_BUILDTIME;
+ FormCaption := _lc[I_EDITOR_TITLE] + ' (' + s + ')';
i := Pos('-', Caption);
if i > 0 then
begin