PK PR /PK PR Unit1.pasunit Unit1;
interface
uses
System.SysUtils, System.Classes, JS, Web, WEBLib.Graphics, WEBLib.Controls,
WEBLib.Forms, WEBLib.Dialogs, Vcl.StdCtrls, WEBLib.StdCtrls, Vcl.Controls;
type
TForm1 = class(TWebForm)
WebEditNetto: TWebEdit;
WebLabel1: TWebLabel;
WebRadioButtonReduziert: TWebRadioButton;
WebRadioButton2: TWebRadioButton;
WebLabel2: TWebLabel;
WebLabel3: TWebLabel;
WebEditBrutto: TWebEdit;
WebButton1: TWebButton;
procedure WebButton1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.WebButton1Click(Sender: TObject);
var
netto, brutto: Double;
begin
netto := StrToFloat(WebEditNetto.Text);
if WebRadioButtonReduziert.Checked = true then
begin
brutto := netto * 1.07;
end
else
begin
brutto := netto * 1.19;
end;
WebEditBrutto.Text:=brutto.ToString;
end;
end.
PK;) PK PR Unit1.dfmobject Form1: TForm1
Width = 640
Height = 480
object WebLabel1: TWebLabel
Left = 32
Top = 60
Width = 63
Height = 13
Caption = 'Nettobetrag:'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object WebLabel2: TWebLabel
Left = 32
Top = 8
Width = 334
Height = 39
Caption = 'Mehrwertsteuerrechner'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -32
Font.Name = 'Tahoma'
Font.Style = []
HeightPercent = 100.000000000000000000
ParentFont = False
WidthPercent = 100.000000000000000000
end
object WebLabel3: TWebLabel
Left = 32
Top = 236
Width = 66
Height = 13
Caption = 'Bruttobetrag:'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object WebEditNetto: TWebEdit
Left = 32
Top = 87
Width = 121
Height = 22
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object WebRadioButtonReduziert: TWebRadioButton
Left = 32
Top = 128
Width = 113
Height = 22
Caption = '7 % (reduziert)'
Checked = False
ChildOrder = 2
Color = clNone
GroupName = 'MWST'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object WebRadioButton2: TWebRadioButton
Left = 176
Top = 128
Width = 113
Height = 22
Caption = '19 % (normal)'
Checked = True
ChildOrder = 2
Color = clNone
GroupName = 'MWST'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object WebEditBrutto: TWebEdit
Left = 32
Top = 263
Width = 121
Height = 22
ChildOrder = 6
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object WebButton1: TWebButton
Left = 32
Top = 184
Width = 96
Height = 25
Caption = 'Berechnen'
ChildOrder = 7
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
OnClick = WebButton1Click
end
end
PK* PK PR
__history/PK PR
Unit1.html
TMS Web Project
PKi̅ PK PR Project1.dprprogram Project1;
uses
Vcl.Forms,
WEBLib.Forms,
Unit1 in 'Unit1.pas' {Form1: TWebForm} {*.html};
{$R *.res}
begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
PK PK PR
Project1.html
TMS Web Project
PK }k k PK PR Project1.dproj
{E96132EB-66B7-4F3C-A37A-A41E16AB71DA}
19.2
VCL
True
Debug
Win32
1
Application
Project1.dpr
true
true
Base
true
true
Base
true
true
Base
true
true
Cfg_1
true
true
true
Base
true
true
Cfg_2
true
true
.\$(Platform)\$(Config)
.\$(Platform)\$(Config)
false
false
false
false
false
System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace)
2
$(BDS)\bin\delphi_PROJECTICON.ico
$(BDS)\bin\delphi_PROJECTICNS.icns
Project1
Project1.html
DBXSqliteDriver;RESTComponents;fmxase;DBXDb2Driver;DBXInterBaseDriver;vclactnband;vclFireDAC;bindcompvclsmp;emsclientfiredac;tethering;svnui;DataSnapFireDAC;FireDACADSDriver;DBXMSSQLDriver;DatasnapConnectorsFreePascal;FireDACMSSQLDriver;vcltouch;vcldb;bindcompfmx;svn;DBXOracleDriver;inetdb;emsedge;fmx;FireDACIBDriver;fmxdae;vcledge;FireDACDBXDriver;dbexpress;IndyCore;vclx;dsnap;emsclient;DataSnapCommon;FireDACCommon;RESTBackendComponents;DataSnapConnectors;VCLRESTComponents;soapserver;vclie;bindengine;DBXMySQLDriver;CloudService;FireDACOracleDriver;FireDACMySQLDriver;DBXFirebirdDriver;FireDACCommonODBC;FireDACCommonDriver;TMSWEBCorePkgLibDXE13;DataSnapClient;inet;IndyIPCommon;bindcompdbx;vcl;IndyIPServer;DBXSybaseASEDriver;IndySystem;FireDACDb2Driver;bindcompvclwinx;dsnapcon;FireDACMSAccDriver;fmxFireDAC;FireDACInfxDriver;vclimg;FireDAC;emshosting;FireDACSqliteDriver;FireDACPgDriver;FireDACASADriver;TMSWEBCorePkgDXE13;DBXOdbcDriver;FireDACTDataDriver;soaprtl;DbxCommonDriver;DataSnapServer;xmlrtl;soapmidas;DataSnapNativeClient;fmxobj;vclwinx;FireDACDSDriver;rtl;emsserverresource;DbxClientDriver;DBXSybaseASADriver;CustomIPTransport;vcldsnap;bindcomp;appanalytics;DBXInformixDriver;IndyIPClient;bindcompvcl;dbxcds;VclSmp;adortl;FireDACODBCDriver;DataSnapIndy10ServerTransport;dsnapxml;DataSnapProviderClient;dbrtl;IndyProtocols;inetdbxpress;FireDACMongoDBDriver;DataSnapServerMidas;$(DCC_UsePackage)
Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)
Debug
true
CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=
1033
$(BDS)\bin\default_app.manifest
DBXSqliteDriver;RESTComponents;fmxase;DBXDb2Driver;DBXInterBaseDriver;vclactnband;vclFireDAC;bindcompvclsmp;emsclientfiredac;tethering;DataSnapFireDAC;FireDACADSDriver;DBXMSSQLDriver;DatasnapConnectorsFreePascal;FireDACMSSQLDriver;vcltouch;vcldb;bindcompfmx;DBXOracleDriver;inetdb;emsedge;fmx;FireDACIBDriver;fmxdae;vcledge;FireDACDBXDriver;dbexpress;IndyCore;vclx;dsnap;emsclient;DataSnapCommon;FireDACCommon;RESTBackendComponents;DataSnapConnectors;VCLRESTComponents;soapserver;vclie;bindengine;DBXMySQLDriver;CloudService;FireDACOracleDriver;FireDACMySQLDriver;DBXFirebirdDriver;FireDACCommonODBC;FireDACCommonDriver;DataSnapClient;inet;IndyIPCommon;bindcompdbx;vcl;IndyIPServer;DBXSybaseASEDriver;IndySystem;FireDACDb2Driver;bindcompvclwinx;dsnapcon;FireDACMSAccDriver;fmxFireDAC;FireDACInfxDriver;vclimg;FireDAC;emshosting;FireDACSqliteDriver;FireDACPgDriver;FireDACASADriver;DBXOdbcDriver;FireDACTDataDriver;soaprtl;DbxCommonDriver;DataSnapServer;xmlrtl;soapmidas;DataSnapNativeClient;fmxobj;vclwinx;FireDACDSDriver;rtl;emsserverresource;DbxClientDriver;DBXSybaseASADriver;CustomIPTransport;vcldsnap;bindcomp;appanalytics;DBXInformixDriver;IndyIPClient;bindcompvcl;dbxcds;VclSmp;adortl;FireDACODBCDriver;DataSnapIndy10ServerTransport;dsnapxml;DataSnapProviderClient;dbrtl;IndyProtocols;inetdbxpress;FireDACMongoDBDriver;DataSnapServerMidas;$(DCC_UsePackage)
DEBUG;$(DCC_Define)
true
false
true
true
true
2
$(TMSWebDefines);DEBUG
false
true
PerMonitorV2
false
RELEASE;$(DCC_Define)
0
0
2
2
$(TMSWebDefines);RELEASE
true
PerMonitorV2
MainSource
dfm
TWebForm
Cfg_2
Base
Base
Cfg_1
Base
Delphi.Personality.12
Application
Project1.exe
true
.\
true
1
Contents\MacOS
1
0
classes
1
classes
1
res\xml
1
res\xml
1
library\lib\armeabi-v7a
1
library\lib\armeabi
1
library\lib\armeabi
1
library\lib\armeabi-v7a
1
library\lib\mips
1
library\lib\mips
1
library\lib\armeabi-v7a
1
library\lib\arm64-v8a
1
library\lib\armeabi-v7a
1
res\drawable
1
res\drawable
1
res\values
1
res\values
1
res\values-v21
1
res\values-v21
1
res\values
1
res\values
1
res\drawable
1
res\drawable
1
res\drawable-xxhdpi
1
res\drawable-xxhdpi
1
res\drawable-xxxhdpi
1
res\drawable-xxxhdpi
1
res\drawable-ldpi
1
res\drawable-ldpi
1
res\drawable-mdpi
1
res\drawable-mdpi
1
res\drawable-hdpi
1
res\drawable-hdpi
1
res\drawable-xhdpi
1
res\drawable-xhdpi
1
res\drawable-mdpi
1
res\drawable-mdpi
1
res\drawable-hdpi
1
res\drawable-hdpi
1
res\drawable-xhdpi
1
res\drawable-xhdpi
1
res\drawable-xxhdpi
1
res\drawable-xxhdpi
1
res\drawable-xxxhdpi
1
res\drawable-xxxhdpi
1
res\drawable-small
1
res\drawable-small
1
res\drawable-normal
1
res\drawable-normal
1
res\drawable-large
1
res\drawable-large
1
res\drawable-xlarge
1
res\drawable-xlarge
1
res\values
1
res\values
1
1
Contents\MacOS
1
0
Contents\MacOS
1
.framework
Contents\MacOS
1
.framework
0
1
.dylib
1
.dylib
1
.dylib
Contents\MacOS
1
.dylib
Contents\MacOS
1
.dylib
0
.dll;.bpl
1
.dylib
1
.dylib
1
.dylib
Contents\MacOS
1
.dylib
Contents\MacOS
1
.dylib
0
.bpl
0
0
0
0
0
Contents\Resources\StartUp\
0
Contents\Resources\StartUp\
0
0
..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
1
..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
1
..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
1
..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
1
..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
1
..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset
1
..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset
1
..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset
1
..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset
1
..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
1
..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
1
..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
1
..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
1
..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
1
..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
1
..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
1
..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
1
..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
1
..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
1
..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset
1
..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset
1
..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset
1
..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset
1
..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset
1
..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset
1
..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset
1
..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset
1
..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
1
..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
1
..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
1
..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
1
..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
1
..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
1
..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
1
..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
1
..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
1
..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
1
..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
1
..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
1
1
1
..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF
1
..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF
1
..\
1
..\
1
1
1
1
..\$(PROJECTNAME).launchscreen
64
..\$(PROJECTNAME).launchscreen
64
1
1
1
..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF
1
..\
1
..\
1
Contents
1
Contents
1
Contents\Resources
1
Contents\Resources
1
library\lib\armeabi-v7a
1
library\lib\arm64-v8a
1
1
1
1
1
Contents\MacOS
1
Contents\MacOS
1
0
library\lib\armeabi-v7a
1
1
1
Assets
1
Assets
1
Assets
1
Assets
1
True
False
12
PK'( ( PK PR Project1.identcache &C:\Users\User\Desktop\WebApp\Unit1.pas )C:\Users\User\Desktop\WebApp\Project1.dpr PKFc;m m PK PR Project1.dproj.local
2021.04.20 02:32:12.756,=C:\Users\User\Documents\Embarcadero\Studio\Projekte\Project1.html
2021.04.20 02:32:12.882,=C:\Users\User\Documents\Embarcadero\Studio\Projekte\Unit1.pas
2021.04.20 03:04:09.661,C:\Users\User\Desktop\WebApp\Unit1.dfm=C:\Users\User\Documents\Embarcadero\Studio\Projekte\Unit1.dfm
2021.04.20 03:04:09.661,C:\Users\User\Desktop\WebApp\Unit1.html=C:\Users\User\Documents\Embarcadero\Studio\Projekte\Unit1.html
2021.04.20 03:04:09.661,C:\Users\User\Desktop\WebApp\Unit1.pas=C:\Users\User\Documents\Embarcadero\Studio\Projekte\Unit1.pas
2021.04.20 03:04:11.803,C:\Users\User\Desktop\WebApp\Project1.html=C:\Users\User\Documents\Embarcadero\Studio\Projekte\Project1.html
2021.04.20 03:04:13.974,C:\Users\User\Desktop\WebApp\Project1.dproj=C:\Users\User\Documents\Embarcadero\Studio\Projekte\Project1.dproj
PKi PK PR __history/Unit1.dfm.~1~object Form1: TForm1
Width = 640
Height = 480
object WebLabel1: TWebLabel
Left = 32
Top = 60
Width = 63
Height = 13
Caption = 'Nettobetrag:'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object WebLabel2: TWebLabel
Left = 32
Top = 8
Width = 334
Height = 39
Caption = 'Mehrwertsteuerrechner'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -32
Font.Name = 'Tahoma'
Font.Style = []
HeightPercent = 100.000000000000000000
ParentFont = False
WidthPercent = 100.000000000000000000
end
object WebLabel3: TWebLabel
Left = 32
Top = 236
Width = 66
Height = 13
Caption = 'Bruttobetrag:'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object WebEditNetto: TWebEdit
Left = 32
Top = 87
Width = 121
Height = 22
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object WebRadioButtonReduziert: TWebRadioButton
Left = 32
Top = 128
Width = 113
Height = 22
Caption = '7 % (reduziert)'
Checked = False
ChildOrder = 2
Color = clNone
GroupName = 'MWST'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object WebRadioButton2: TWebRadioButton
Left = 176
Top = 128
Width = 113
Height = 22
Caption = '19 % (normal)'
Checked = True
ChildOrder = 2
Color = clNone
GroupName = 'MWST'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object WebEditBrutto: TWebEdit
Left = 32
Top = 263
Width = 121
Height = 22
ChildOrder = 6
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object WebButton1: TWebButton
Left = 32
Top = 184
Width = 96
Height = 25
Caption = 'Berechnen'
ChildOrder = 7
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
OnClick = WebButton1Click
end
end
PK* PK PR /PK PR;) Unit1.pasPK PR* R Unit1.dfmPK PR
__history/PK PRi̅
D
Unit1.htmlPK PR ? Project1.dprPK PR }k k
Project1.htmlPK PR'( ( - Project1.dprojPK PRFc;m m Project1.identcachePK PRi ? Project1.dproj.localPK PR*
__history/Unit1.dfm.~1~PK