X-Git-Url: http://deadsoftware.ru/gitweb?p=d2df-editor.git;a=blobdiff_plain;f=src%2Feditor%2Fg_language.pas;h=af6a8574f8b057752976aad0bf104f226c404611;hp=e2c0a34c07463692e932283658541c12c2d426ee;hb=e784adbf59a182d6049d259d97ba92b06333b94d;hpb=7105f91988f424587dd22f78f4d9c56b108e82e6

diff --git a/src/editor/g_language.pas b/src/editor/g_language.pas
index e2c0a34..af6a857 100644
--- a/src/editor/g_language.pas
+++ b/src/editor/g_language.pas
@@ -2056,15 +2056,16 @@ begin
 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