JensMertelmeyer

unit Helper.System.JobObject.Header;

interface

uses
	WinAPI.Windows;

type

	{TODO -oJM -cCleanup : Unit aufräumen und Ansi/UniCode-Versionen in eigene

JensMertelmeyer

procedure TMainForm.paintBackground();
var
	bmp: TBitmap;
	rect: TRect;
	left, right: TRect;
begin
	bmp := TBitmap.Create();
	try
		// generate pattern
		bmp.SetSize(Image1.Picture.Width, Image1.Picture.Height);

JensMertelmeyer

#include <open62541/server.h>
#include <open62541/server_config_default.h>

namespace NodeIds {
	namespace Objects {
		UA_NodeId MyStruct;
	}
	namespace Types {
		namespace MyStruct {
			UA_NodeId root;

JensMertelmeyer

unit PowerRequest.Types platform;

interface uses WinApi.Windows;

const
	POWER_REQUEST_CONTEXT_VERSION = 0;
	POWER_REQUEST_CONTEXT_DETAILED_STRING = 2;
	POWER_REQUEST_CONTEXT_SIMPLE_STRING = 1;

{$If(RTLVersion < 34)}

JensMertelmeyer

@echo off

rem SET MSBUILD="C:\Program Files (x86)\MSBuild\12.0\Bin\MSBuild.exe"
SET MSBUILD="C:\Windows\Microsoft.NET\Framework\v3.5\MsBuild.exe"
SET RSVARS="C:\Program Files (x86)\Embarcadero\Studio\17.0\bin\rsvars.bat"

if /i %1%==test (
  SET PROJECT=TestProject\UnitTests.dproj
) else (
  SET PROJECT=project1.dproj

JensMertelmeyer

type
	TVideoParams = record
		filePath: String;
		isAutoPlay: Boolean;
	end;
  
procedure TForm1.playVideo(const params: TVideoParams);
var
	autoplayAttribute: String;
	htmlContent: String;

JensMertelmeyer

unit Helper.Endianess;

interface

type
	TEndianHelper = class
		protected const
			stdAlsoFlipBytes = False;

		public

JensMertelmeyer

unit Common.Classes.AccessLock.Test;

interface uses
	TestFramework,
	Common.Types.AccessLock,
	Common.Classes.AccessLock;

type
	TestLockableResource = class(TTestCase)
		protected var