Changeset 489

Timestamp:

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

Author:

ataylor

Message:

Support drag-and-drop of Locale objects.

Location:

trunk

Files:

• NewView/MainForm.pas (modified) (3 diffs)
• i18n/Changes.txt (modified) (1 diff)

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 )

trunk/i18n/Changes.txt

@@ -1 +1 @@
 NewView release changes
+
+V2.19.9
+- Fix: NewView now sets itself system-modal if opened while a system-modal window
+   exists.
+- Fix: NewView now correctly appears on-screen if another running instance of NewView
+   is off-screen (such as on another virtual desktop).
+- Fix: Dropping a locale from the Locale Palette onto NewView should work now.
 
 V2.19.8