mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

UPD: Use Lazarus buttons icons under Qt6

Browse source 
(cherry picked from commit 408e76e69a)
This commit is contained in:
Alexander Koblov 2026-04-18 20:01:05 +03:00
commit ca5c1e9745
1 changed files with 22 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

23
src/platform/unix/qt6/interfaces.pas
View file

@ -5,15 +5,24 @@ unit Interfaces;
interface
uses
InitC, InterfaceBase, LCLType, QtInt, Types, uWayland;
InitC, InterfaceBase, LCLType, Themes, QtInt, QtThemes, Types, uWayland;
type
{ TQtThemeServicesEx }
TQtThemeServicesEx = class(TQtThemeServices)
public
function GetStockImage(StockID: LongInt; out Image, Mask: HBitmap): Boolean; override;
end;
{ TQtWidgetSetEx }
TQtWidgetSetEx = Class(TQtWidgetSet)
private
FWayland: TWaylandClient;
protected
function CreateThemeServices: TThemeServices; override;
public
constructor Create; override;
function StretchMaskBlt(DestDC: HDC; X, Y, Width, Height: Integer;
@ -32,8 +41,20 @@ uses
function setenv(const name, value: pchar; overwrite: cint): cint; cdecl; external clib;
{ TQtThemeServicesEx }
function TQtThemeServicesEx.GetStockImage(StockID: LongInt; out Image, Mask: HBitmap): Boolean;
begin
Result:= False;
end;
{ TQtWidgetSetEx }
function TQtWidgetSetEx.CreateThemeServices: TThemeServices;
begin
Result:= TQtThemeServicesEx.Create;
end;
constructor TQtWidgetSetEx.Create;
begin
FWayland:= TWaylandClient.Create;