Changeset 378 for branches/highdpi/Packages/CevoComponents/ScreenTools.pas

Timestamp:

Apr 24, 2021, 11:41:07 PM (4 years ago)

Author:

chronos

Message:

• Modified: Merged changes from trunk r377.

File:

• branches/highdpi/Packages/CevoComponents/ScreenTools.pas (modified) (4 diffs)

branches/highdpi/Packages/CevoComponents/ScreenTools.pas

@@ -54 +54 @@
 procedure EditFrame(ca: TDpiCanvas; p: TRect; T: TTexture);
 function HexStringToColor(S: string): integer;
+function ExtractFileNameWithoutExt(const Filename: string): string;
 function LoadGraphicFile(Bmp: TDpiBitmap; FileName: string; Options: TLoadGraphicFileOptions = []): boolean;
 function LoadGraphicSet(const Name: string): TGraphicSet;
@@ -124 +125 @@
 procedure DarkenImage(Bitmap: TDpiBitmap; Change: Integer);
 procedure UnshareBitmap(Bitmap: TDpiBitmap);
+procedure Gtk2Fix;
 
 const
@@ -488 +490 @@
   if (not (gfNoGamma in Options)) and (Gamma <> 100) then
     ApplyGammaToBitmap(Bmp);
+end;
+
+function ExtractFileNameWithoutExt(const Filename: string): string;
+var
+  P: Integer;
+begin
+  Result := Filename;
+  P := Length(Result);
+  while P > 0 do begin
+    case Result[P] of
+      PathDelim: Exit;
+      {$ifdef windows}
+      '/': if ('/' in AllowDirectorySeparators) then Exit;
+      {$endif}
+      '.': Exit(Copy(Result, 1, P - 1));
+    end;
+    Dec(P);
+  end;
 end;
 
@@ -1651 +1671 @@
 end;
 
+procedure Gtk2Fix;
+var
+  I: Integer;
+begin
+  {$IFDEF LINUX}
+  // Wait and process messages little bit to avoid crash or force repaint under Gtk2
+  for I := 0 to 10 do begin
+    Sleep(1);
+    DpiApplication.ProcessMessages;
+  end;
+  {$ENDIF}
+end;
+
 procedure LoadFonts;
 var