Changeset 489 for trunk/NewView/MainForm.pas

Timestamp:

Dec 24, 2023, 7:14:13 PM (20 months ago)

Author:

ataylor

Message:

Support drag-and-drop of Locale objects.

File:

• trunk/NewView/MainForm.pas (modified) (3 diffs)

trunk/NewView/MainForm.pas

@@ -26 +26 @@
 // library
   ACLString,
+  ACLStringUtility,
   SharedMemoryUnit,
   ACLLanguageUnit,
@@ -1319 +1320 @@
 var
   DropObject: TExternalDragDropObject;
+  LocaleName: String;
+  MajorLanguage: String;
+  MinorLanguage: String;
 Begin
   if not ( Source is TExternalDragDropObject ) then
@@ -1326 +1330 @@
 
   DropObject := Source as TExternalDragDropObject;
+
+  // See if it's a locale name (which reports as a bitmap file for some reason)
+  if ( DropObject.ContainerName = '.') and
+     ( DropObject.RenderString = '< DRM_OS2FILE, DRF_BITMAP >')
+     then
+  begin
+    LocaleName := DropObject.SourceFilename;
+    MajorLanguage := ExtractNextValue( LocaleName, '_' );
+    if MajorLanguage <> '' then
+    begin
+      if MajorLanguage = 'en' then
+      begin
+        LoadLanguage('');
+        exit;
+      end;
+      MinorLanguage := ExtractNextValue( LocaleName, '.' );
+      if ( MinorLanguage <> '') and
+         ( LoadAutoLanguage('newview', MajorLanguage + '_' + MinorLanguage ))
+      then
+        exit;
+      if not LoadAutoLanguage('newview', MajorLanguage ) then
+        LoadDefaultLanguage('newview');
+      exit;
+    end;
+  end;
 
   g_ExternalLinkFileName := AddDirectorySeparator( DropObject.ContainerName )