Это мне кажется по большей части вопросы к создателям FireMonkey. Там тоже нет нативной нормальной графики с SVG. Много кто использует сторонние решения, либо же на прямую SKIA, что здесь кратно увеличит вес инсталлятора и создаст проблемы
Понял. Про это я как раз и имел ввиду о чем вы тут только что сказали. А какие сторонние решения я читал про некоторые. Но пока подобные процессы происходят мне кажется что проще тогда через атлас делать что бы отзывчивость не терять и быстродействие. просто у SVG маштабирование хорошее
Поддержка SVG в проекте есть.
да мне главное иконки SVG что бы хорошо работали ну и анимация например масштабирования при наведении.
type
FSVGImage = interface(IUnknown)
'{C37B911B-5F71-48CC-BC3C-28DBD9318C1F}'
function FCreate(FParent: NativeInt): NativeInt;
procedure Cursor(FCursor: TCursor);
procedure Left(FLeft: Single);
procedure Top(FTop: Single);
procedure Height(FHeight: Single);
procedure Width(FWidth: Single);
procedure SetBounds(FLeft, FTop, FWidth, FHeight: Single);
procedure Position(X, Y: Single);
procedure Align(Al: TAlignLayout);
procedure Margins(FLeft, FTop, FRight, FBottom: Single);
procedure Padding(FLeft, FTop, FRight, FBottom: Single);
procedure SetHint(const FText: WideString);
procedure SetClipParent(FValue: Boolean);
procedure SetClipChildren(FValue: Boolean);
procedure BringToFront;
procedure SendToBack;
procedure SetTag(FTag: Integer);
procedure LoadFromFile(const FSVGImage: WideString);
procedure MarginWrapMode(FWrapMode: TImageWrapMode);
procedure WrapMode(FWrapMode: TImageWrapMode);
procedure FixedColor(FColor: TAlphaColor);
procedure SVGText(FText: WideString);
procedure SaveToFile(FFile: WideString);
procedure BitmapZoom(FValue: Integer);
procedure GrayScale(FValue: Boolean);
procedure DisableInterpolation(FValue: Boolean);
procedure Opacity(FOpacity: Single);
procedure RotationAngle(FValue: Single);
procedure RotationCenter(X, Y: Single);
procedure Enabled(FEnabled: Boolean);
procedure Visible(FVisible: Boolean);
procedure HitTest(FEnabled: Boolean);
function GetSVGText: WideString;
function GetTag: Integer;
function GetLeft: Single;
function GetTop: Single;
function GetHeight: Single;
function GetWidth: Single;
function GetObject: NativeInt;
procedure OnClick(Event: TNotifyEvent);
procedure OnMouseDown(Event: TMouseEventF);
procedure OnMouseEnter(Event: TNotifyEvent);
procedure OnMouseLeave(Event: TNotifyEvent);
procedure OnMouseUp(Event: TMouseEventF);
function Handle: NativeInt;
end;
Use this roundup function to convert values that are close to the actual value.
Это все конечно просто замечательно. Только вот
constructor TFGPUInfo.Create;
begin
inherited Create;
InitAdapter;
InitInfo;
end;
procedure TFGPUInfo.InitAdapter;
begin
FAdapter := nil;
if Failed(CreateDXGIFactory1(IID_IDXGIFactory1, FFactory)) then
Exit;
FFactory.EnumAdapters1(0, FAdapter);
end;
function TFGPUInfo.GetMemoryDXGI: UInt64;
var
Desc: DXGI_ADAPTER_DESC1;
begin
Result := 0;
if FAdapter = nil then
Exit;
if Succeeded(FAdapter.GetDesc1(Desc)) then
Result := Desc.DedicatedVideoMemory div 1024 div 1024;
end;
procedure TFGPUInfo.InitInfo;
var
Desc: DXGI_ADAPTER_DESC1;
begin
FName := '';
FMemory := 0;
if FAdapter = nil then
Exit;
if Succeeded(FAdapter.GetDesc1(Desc)) then
FName := Desc.Description;
FMemory := GetMemoryDXGI;
FDXVersion := DetectDXVersion(FAdapter);
end;
function TFGPUInfo.DetectDXVersion(Adapter: IDXGIAdapter1): WideString;
var
HR: HRESULT;
Device: ID3D11Device;
Context: ID3D11DeviceContext;
FeatureLevel: D3D_FEATURE_LEVEL;
FeatureLevels: array [0 .. 8] of D3D_FEATURE_LEVEL;
begin
Result := 'Unknown';
FeatureLevels[0] := D3D_FEATURE_LEVEL_12_1;
FeatureLevels[1] := D3D_FEATURE_LEVEL_12_0;
FeatureLevels[2] := D3D_FEATURE_LEVEL_11_1;
FeatureLevels[3] := D3D_FEATURE_LEVEL_11_0;
FeatureLevels[4] := D3D_FEATURE_LEVEL_10_1;
FeatureLevels[5] := D3D_FEATURE_LEVEL_10_0;
FeatureLevels[6] := D3D_FEATURE_LEVEL_9_3;
FeatureLevels[7] := D3D_FEATURE_LEVEL_9_2;
FeatureLevels[8] := D3D_FEATURE_LEVEL_9_1;
HR := D3D11CreateDevice(Adapter, D3D_DRIVER_TYPE_UNKNOWN, 0, 0,
@FeatureLevels[0], Length(FeatureLevels), D3D11_SDK_VERSION, Device,
FeatureLevel, Context);
if Failed(HR) then
Exit;
case FeatureLevel of
D3D_FEATURE_LEVEL_12_1:
Result := '12.1';
D3D_FEATURE_LEVEL_12_0:
Result := '12.0';
D3D_FEATURE_LEVEL_11_1:
Result := '11.1';
D3D_FEATURE_LEVEL_11_0:
Result := '11.0';
D3D_FEATURE_LEVEL_10_1:
Result := '10.1';
D3D_FEATURE_LEVEL_10_0:
Result := '10.0';
D3D_FEATURE_LEVEL_9_3:
Result := '9.3';
D3D_FEATURE_LEVEL_9_2:
Result := '9.2';
D3D_FEATURE_LEVEL_9_1:
Result := '9.1';
else
Result := 'Unknown';
end;
end;
function TFGPUInfo.Name: WideString;
begin
Result := FName;
end;
function TFGPUInfo.Memory: UInt64;
begin
Result := FMemory;
end;
function TFGPUInfo.DXVersion: WideString;
begin
Result := FDXVersion;
end;