Changeset 491

Timestamp:

Dec 24, 2023, 7:49:17 PM (20 months ago)

Author:

ataylor

Message:

Support drop of locale (only works if DragText not enabled)

File:

• trunk/ae/MainFormUnit.pas (modified) (2 diffs)

trunk/ae/MainFormUnit.pas

@@ -624 +624 @@
 var
   DropObject: TExternalDragDropObject;
+  LocaleName: String;
+  MajorLanguage: String;
+  MinorLanguage: String;
 Begin
   if not ( Source is TExternalDragDropObject ) then
@@ -631 +634 @@
 
   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('ae', MajorLanguage + '_' + MinorLanguage ))
+      then
+        exit;
+      if not LoadAutoLanguage('ae', MajorLanguage ) then
+        LoadDefaultLanguage('ae');
+      exit;
+    end;
+  end;
 
   g_DroppedFileName := AddSlash( DropObject.ContainerName )