#define DemoAppName "FMXPixie HTML + CSS Embedded Demo"
#define DemoAppVersion "1.0"
#define HtmlSource AddBackslash(SourcePath) + "Theme\page.html"
#define CssSource AddBackslash(SourcePath) + "Theme\style.css"
#if !FileExists(HtmlSource)
#error Missing compile-time HTML source: Theme\page.html
#endif
#if !FileExists(CssSource)
#error Missing compile-time CSS source: Theme\style.css
#endif
#define HtmlHandle
#define HtmlLine
#sub EmitHtmlLine
#define HtmlLine = FileRead(HtmlHandle)
#emit " '" + StringChange(HtmlLine, "'", "''") + "' + #13#10 +"
#endsub
#define CssHandle
#define CssLine
#sub EmitCssLine
#define CssLine = FileRead(CssHandle)
#emit " '" + StringChange(CssLine, "'", "''") + "' + #13#10 +"
#endsub
[Setup]
AppName={#DemoAppName}
AppVersion={#DemoAppVersion}
CreateAppDir=no
Uninstallable=no
OutputBaseFilename=FMXPixie_HtmlCss_Embedded_Demo
[Files]
#if SetupSetting("SetupArchitecture") == "x64"
Source: "Modules\FMXPixie_x64.dll"; DestName: "FMXPixie.dll"; Flags: dontcopy
#else
Source: "Modules\FMXPixie_x86.dll"; DestName: "FMXPixie.dll"; Flags: dontcopy
#endif
[Code]
#include "Modules\FMXPixieHandle.iss"
const
DEMO_FORM_WIDTH = 760;
DEMO_FORM_HEIGHT = 500;
HtmlText =
#for {HtmlHandle = FileOpen(HtmlSource); HtmlHandle && !FileEof(HtmlHandle); ""} EmitHtmlLine
'';
#expr FileClose(HtmlHandle)
CssText =
#for {CssHandle = FileOpen(CssSource); CssHandle && !FileEof(CssHandle); ""} EmitCssLine
'';
#expr FileClose(CssHandle)
var
FMXForm: FForm;
View: FPixieHtmlView;
procedure FMXInit;
begin
FMXForm := InitFormHandle;
View := InitPixieHtmlView;
end;
function InitializeSetup(): Boolean;
begin
FMXInit;
Result := True;
end;
procedure InitializeWizard;
begin
EmptyWizardForm(DEMO_FORM_WIDTH, DEMO_FORM_HEIGHT);
FMXForm.FCreateBackdropForm(WizardForm.Handle, btMain, True, True);
View.FCreate(FMXForm.Handle);
View.Left(0);
View.Top(0);
View.Width(DEMO_FORM_WIDTH);
View.Height(DEMO_FORM_HEIGHT);
View.ColorScheme(pcsDark);
View.UserCss(CssText);
View.LoadFromString(HtmlText);
FMXForm.Show;
end;
procedure DeinitializeSetup;
begin
FMXPixieShutDown;
end;<input type="checkbox" id="chk_01" style="display:none;" />
<label class="check-option" for="chk_01">
<span class="check-glyph">
<span class="check-tick">✓</span>
</span>
<span class="option-name">Core runtime</span>
<span class="option-state">
<span class="state-off">OFF</span>
<span class="state-on">ON</span>
</span>
</label>
А шрифты на вине разве вообще есть кроме стандартного. Думаю если подкинуть через стили шрифт - он обязательно заработает. Или же уже?
Не пробовал, да и не вижу смысла под линуху мутить что-то, просто скинул что работает отлично в вайн среде))
