kopia lustrzana https://github.com/mate-dev/meshtastic-matrix-relay
Update mmrelay.iss
rodzic
5e42493230
commit
dbb665a2b0
51
mmrelay.iss
51
mmrelay.iss
|
@ -1,4 +1,55 @@
|
|||
[Code]
|
||||
var
|
||||
YamlPage: TWizardPage;
|
||||
Memo: TMemo;
|
||||
|
||||
procedure InitializeWizard();
|
||||
begin
|
||||
// Create the wizard page
|
||||
YamlPage := CreateCustomPage(wpWelcome, 'YAML Configuration', 'Enter the YAML configuration for your application:');
|
||||
|
||||
// Add a memo control to the page
|
||||
Memo := TMemo.Create(WizardForm);
|
||||
Memo.Parent := YamlPage.Surface;
|
||||
Memo.Align := alClient;
|
||||
Memo.ScrollBars := ssBoth;
|
||||
Memo.WordWrap := False;
|
||||
end;
|
||||
|
||||
procedure SaveYamlConfig();
|
||||
var
|
||||
YamlText: string;
|
||||
ConfigFile: string;
|
||||
FileStream: TFileStream;
|
||||
begin
|
||||
// Get the YAML text from the memo control
|
||||
YamlText := Memo.Text;
|
||||
|
||||
// Save the YAML text to a file
|
||||
ConfigFile := ExpandConstant('{app}\config.yaml');
|
||||
FileStream := TFileStream.Create(ConfigFile, fmCreate);
|
||||
try
|
||||
Stream_WriteString(FileStream, YamlText);
|
||||
finally
|
||||
FileStream.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
function NextButtonClick(CurPageID: Integer): Boolean;
|
||||
begin
|
||||
// Save the YAML configuration when the user clicks Next
|
||||
if CurPageID = YamlPage.ID then
|
||||
begin
|
||||
SaveYamlConfig();
|
||||
end;
|
||||
Result := True;
|
||||
end;
|
||||
|
||||
[Setup]
|
||||
// Add the custom wizard page to the installation
|
||||
WizardImageFile=wizard.bmp
|
||||
WizardSmallImageFile=smallwiz.bmp
|
||||
|
||||
AppName=MM Relay
|
||||
AppVersion=1.0
|
||||
DefaultDirName={pf}\MM Relay
|
||||
|
|
Ładowanie…
Reference in New Issue