Homepage von Thomas Schwobe
Home Software Quelltext Impressum Datenschutzerklärung

Quelltext:

unit CardUnit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Math, Vcl.ExtCtrls;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Image2: TImage;
    procedure FormCreate(Sender: TObject);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
    procedure FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure FormPaint(Sender: TObject);
  private

  public

  end;

var
  Form1: TForm1;
  Symbol, Mask, BackBmp: TBitmap;
  BmpPos: TPoint;
  xdiff, ydiff: Integer;
  mouse: Boolean;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Symbol:=TBitmap.Create;
  Symbol.Assign(Image1.Picture.Bitmap);
  Mask:=TBitmap.Create;
  Mask.Assign(Image2.Picture.Bitmap);

  BackBmp:=TBitmap.Create;
  BackBmp.Width:=Symbol.Width;
  BackBmp.Height:=Symbol.Height;

  BmpPos.x:=0;
  BmpPos.y:=0;
  mouse:=False;
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if (Button=mbLeft) and (x>=BmpPos.x) and (x<BmpPos.x+Symbol.Width) and (y>=BmpPos.y) and (y<BmpPos.y+Symbol.Height) then
  begin
    mouse:=True;

    xdiff:=x-BmpPos.x;
    ydiff:=y-BmpPos.y;
  end;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var CopyBmp: TBitmap;

    oldBmpPosx, oldBmpPosy: Integer;

begin
  if mouse then
  begin
    CopyBmp:=TBitmap.Create;

    oldBmpPosx:=BmpPos.x; oldBmpPosy:=BmpPos.y;

    BmpPos.x:=x-xdiff; BmpPos.y:=y-ydiff;

    CopyBmp.Width:=(Max(oldBmpPosx, BmpPos.x)+Symbol.Width)-Min(oldBmpPosx, BmpPos.x);
    CopyBmp.Height:=(Max(oldBmpPosy, BmpPos.y)+Symbol.Height)-Min(oldBmpPosy, BmpPos.y);

    BitBlt(CopyBmp.Canvas.Handle, 0, 0, CopyBmp.Width, CopyBmp.Height, Canvas.Handle, Min(oldBmpPosx, BmpPos.x), Min(oldBmpPosy, BmpPos.y), SRCCOPY);
    BitBlt(CopyBmp.Canvas.Handle, oldBmpPosx-Min(oldBmpPosx, BmpPos.x), oldBmpPosy-Min(oldBmpPosy, BmpPos.y), Symbol.Width, Symbol.Height, BackBmp.Canvas.Handle, 0, 0, SRCCOPY);

    BitBlt(BackBmp.Canvas.Handle, 0, 0, Symbol.Width, Symbol.Height, CopyBmp.Canvas.Handle, BmpPos.x-Min(oldBmpPosx, BmpPos.x), BmpPos.y-Min(oldBmpPosy, BmpPos.y), SRCCOPY);

    BitBlt(CopyBmp.Canvas.Handle, BmpPos.x-Min(oldBmpPosx, BmpPos.x), BmpPos.y-Min(oldBmpPosy, BmpPos.y), Symbol.Width, Symbol.Height, Mask.Canvas.Handle, 0, 0, SRCAND);
    BitBlt(CopyBmp.Canvas.Handle, BmpPos.x-Min(oldBmpPosx, BmpPos.x), BmpPos.y-Min(oldBmpPosy, BmpPos.y), Symbol.Width, Symbol.Height, Symbol.Canvas.Handle, 0, 0, SRCINVERT);

    BitBlt(Canvas.Handle, Min(oldBmpPosx, BmpPos.x), Min(oldBmpPosy, BmpPos.y), CopyBmp.Width, CopyBmp.Height, CopyBmp.Canvas.Handle, 0, 0, SRCCOPY);

    CopyBmp.Free;
  end;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  mouse:=False;
end;

procedure TForm1.FormPaint(Sender: TObject);
var i: Integer;

begin
  for i:=0 to 50 do
    Canvas.Textout(0, i*Canvas.TextHeight('Wg'), 'jhfiwreitrewiturielgijrjegrerehzrejiretiuettiutiurtiuuitruitrtiuzoieuztoezetozoizewizetzewtzewzteowiietiuezw');

  BitBlt(BackBmp.Canvas.Handle, BmpPos.x, BmpPos.y, Symbol.Width, Symbol.Height, Canvas.Handle, 0, 0, SRCCOPY);

  BitBlt(Canvas.Handle, BmpPos.x, BmpPos.y, Symbol.Width, Symbol.Height, Mask.Canvas.Handle, 0, 0, SRCAND);
  BitBlt(Canvas.Handle, BmpPos.x, BmpPos.y, Symbol.Width, Symbol.Height, Symbol.Canvas.Handle, 0, 0, SRCINVERT);
end;

end.


object Form1: TForm1
  Left = 200
  Top = 108
  Caption = 'Form1'
  ClientHeight = 273
  ClientWidth = 427
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OnCreate = FormCreate
  OnMouseDown = FormMouseDown
  OnMouseMove = FormMouseMove
  OnMouseUp = FormMouseUp
  OnPaint = FormPaint
  TextHeight = 13
  object Image1: TImage
    Left = 24
    Top = 112
    Width = 71
    Height = 96
    AutoSize = True
    Picture.Data = {
      07544269746D6170F60D0000424DF60D00000000000076000000280000004700
      0000600000000100040000000000800D0000CE0E0000D80E0000100000000000
      000000000000000080000080000000808000800000008000800080800000C0C0
      C000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
      FF00000000000000000000000000000000000000000000000000000000000000
      00000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFF0000FFFFF000FFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00000FFFF000FFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FFF000FFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00FFF000FFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000F
      FF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      0000000FFF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFF00FFF00FFF000FFFFFFFFFFFFFFFFFFFFF0FFFFFFFFFFFFFFFFFFFFF
      FFFF0FFFFFFFFFFF00FFF00FFF000FFFFFFFFFFFFFFFFFFFF000FFFFFFFFFFFF
      FFFFFFFFFFF000FFFFFFFFFF00FFF00FFF000FFFFFFFFFFFFFFFFFFF00000FFF
      FFFFFFFFFFFFFFFFFF00000FFFFFFFFF00FFF00FFF000FFFFFFFFFFFFFFFFFF0
      000000FFFFFFFFFFFFFFFFFFF0000000FFFFFFFF0000000FFF000FFFFFFFFFFF
      FFFFFF000000000FFFFFFFFFFFFFFFFF000000000FFFFFFFF00000FFFF000FFF
      FFFFFFFFFFFFF00000000000FFFFFFFFFFFFFFF00000000000FFFFFFFFFFFFFF
      FF000FFFFFFFFFFFFFFF0000000000000FFFFFFFFFFFFF0000000000000FFFFF
      FFFFFFFFFF000FFFFFFFFFFFFFFF0000000000000FFFFFFFFFFFFF0000000000
      000FFFFFFFFFFFFFFF000FFFFFFFFFFFFFF000000000000000FFFFFFFFFFF000
      000000000000FFFFFFFFFFFFFF000FFFFFFFFFFFFFF000000000000000FFFFFF
      FFFFF000000000000000FFFFFFF0FFFFFF000FFFFFFFFFFFFFF0000000000000
      00FFFFFFFFFFF000000000000000FFFFFF000FFFFF000FFFFFFFFFFFFFF00000
      0F0F000000FFFFFFFFFFF000000F0F000000FFFFF00000FFFF000FFFFFFFFFFF
      FFFF0000FF0FF0000FFFFFFFFFFFFF0000FF0FF0000FFFFF0000000FFF000FFF
      FFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFFFFFFFF000FFFFFFFFF000000000
      FF000FFFFFFFFFFFFFFFFFFF00000FFFFFFFFFFFFFFFFFFFFF00000FFFFFFFF0
      00000000FF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFF000000000FF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFF00F0F00FFF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFF000FFFFF000FFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FFFFF000FFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFFFF00000FFFFFFFFFFFFFFFFFFF
      FF00000FFFFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFFFFF000FFFFFFFFFFFF
      FFFFFFFFFFF000FFFFFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFF0000FF0FF000
      0FFFFFFFFFFFFF0000FF0FF0000FFFFFFFFFFFFFFF000FFFFFFFFFFFFFF00000
      0F0F000000FFFFFFFFFFF000000F0F000000FFFFFFFFFFFFFF000FFFFFFFFFFF
      FFF000000000000000FFFFFFFFFFF000000000000000FFFFFFFFFFFFFF000FFF
      FFFFFFFFFFF000000000000000FFFFFFFFFFF000000000000000FFFFFFFFFFFF
      FF000FFFFFFFFFFFFFF000000000000000FFFFFFFFFFF000000000000000FFFF
      FFFFFFFFFF000FFFFFFFFFFFFFFF0000000000000FFFFFFFFFFFFF0000000000
      000FFFFFFFFFFFFFFF000FFFFFFFFFFFFFFF0000000000000FFFFFFFFFFFFF00
      00000000000FFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFF00000000000FFFFFFFF
      FFFFFFF00000000000FFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFF000000000F
      FFFFFFFFFFFFFFFF000000000FFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFFF0
      000000FFFFFFFFFFFFFFFFFFF0000000FFFFFFFFFFFFFFFFFF000FFFFFFFFFFF
      FFFFFFFF00000FFFFFFFFFFFFFFFFFFFFF00000FFFFFFFFFFFFFFFFFFF000FFF
      FFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFFF
      FF000FFFFFFFFFFFFFFFFFFFFF0FFFFFFFFFFFFFFFFFFFFFFFFF0FFFFFFFFFFF
      FFFFFFFFFF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFF000FFFFF000FFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FFFFF000FFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FFF00F0F00FFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FF000000000
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FF0
      00000000FFFFFFFF00000FFFFFFFFFFFFFFFFFFFFF00000FFFFFFFFFFFFFFFFF
      FF000FF000000000FFFFFFFFF000FFFFFFFFFFFFFFFFFFFFFFF000FFFFFFFFFF
      FFFFFFFFFF000FFF0000000FFFFF0000FF0FF0000FFFFFFFFFFFFF0000FF0FF0
      000FFFFFFFFFFFFFFF000FFFF00000FFFFF000000F0F000000FFFFFFFFFFF000
      000F0F000000FFFFFFFFFFFFFF000FFFFF000FFFFFF000000000000000FFFFFF
      FFFFF000000000000000FFFFFFFFFFFFFF000FFFFFF0FFFFFFF0000000000000
      00FFFFFFFFFFF000000000000000FFFFFFFFFFFFFF000FFFFFFFFFFFFFF00000
      0000000000FFFFFFFFFFF000000000000000FFFFFFFFFFFFFF000FFFFFFFFFFF
      FFFF0000000000000FFFFFFFFFFFFF0000000000000FFFFFFFFFFFFFFF000FFF
      FFFFFFFFFFFF0000000000000FFFFFFFFFFFFF0000000000000FFFFFFFFFFFFF
      FF000FFFF00000FFFFFFF00000000000FFFFFFFFFFFFFFF00000000000FFFFFF
      FFFFFFFFFF000FFF0000000FFFFFFF000000000FFFFFFFFFFFFFFFFF00000000
      0FFFFFFFFFFFFFFFFF000FFF00FFF00FFFFFFFF0000000FFFFFFFFFFFFFFFFFF
      F0000000FFFFFFFFFFFFFFFFFF000FFF00FFF00FFFFFFFFF00000FFFFFFFFFFF
      FFFFFFFFFF00000FFFFFFFFFFFFFFFFFFF000FFF00FFF00FFFFFFFFFF000FFFF
      FFFFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFFFFF000FFF00FFF00FFFFFFFFF
      FF0FFFFFFFFFFFFFFFFFFFFFFFFF0FFFFFFFFFFFFFFFFFFFFF000FFF0000000F
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FFF
      000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FF000FFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFF000FFF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFF000FFFF00000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFF000FFFFF0000FFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000}

    Visible = False
  end
  object Image2: TImage
    Left = 101
    Top = 112
    Width = 71
    Height = 96
    AutoSize = True
    Picture.Data = {
      07544269746D6170F60D0000424DF60D00000000000076000000280000004700
      0000600000000100040000000000800D0000CE0E0000D80E0000100000000000
      000000000000000080000080000000808000800000008000800080800000C0C0
      C000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
      FF00FF0000000000000000000000000000000000000000000000000000000000
      000000000FF0F000000000000000000000000000000000000000000000000000
      000000000000000000F000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000F00000000000
      0000000000000000000000000000000000000000000000000000000000F0FF00
      0000000000000000000000000000000000000000000000000000000000000000
      0FF0}

    Visible = False
  end
end

© 2025 by Thomas Schwobe