Wir verwenden Cookies, um die Webseite bestmöglich an die Bedürfnisse unserer Besucher anpassen zu können.
Bei Verwendung unserer Webseite stimmen Sie zu, dass Cookies auf Ihrem Computer gespeichert werden.
Weiter infos dazu finden  Sie  in meinen Datenschutzbestimmungen unter "Mehr Infos".

Wie der Name schon sagt ist dies Programm eine kleine TextBauStein Verwaltung.

Ziel war es ein einfaches Programm ohne Schnickschnack zu schaffen welches Textfragmente im Hintergrund bereithält.

Das Programm arbeite nur über die Windows Zwischenablage. Sie können Textbausteine erstellen, diese Speichern und oder Zwischenablage Text in der Datenbank , zum späteren Gebrauch sichern.

Bedient wird das Programm mit Maus oder Tastatur. Der Pogrammaufruf kann über den Systemtray und oder über eine zu definierende Hotkey erfolgen.

Textbaustein

 

Erweiterte Funktionen werden aus folgenden Bibliotheken benutzt:

JEDI Visual Component Library 

Achtung : Die oben genannten und extern verlinkten Bibliotheken JEDI VCL und andere stehen unter Ihren jeweils eigenen Licensebestimmungen bitte beachten Sie diese.

meiner hier veröffentlichte Software steht unter der MIT  (x11) License.

Das Programm im Quellencode besteht unter Delphi 2005 aus 6 Dateien.

Das Hauptmodul

program kwtxtbau;

uses
  Forms,
  master in 'master.pas' {Form1},
  neue in 'neue.pas' {neues},
  new_ver in 'new_ver.pas' {neue_vers};

{$R *.RES}

begin
  Application.Initialize;
  Application.Title := 'KW''s Textbaustein-Verwaltung';
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(Tneues, neues);
  Application.Run;
end.

 

 

die Datei neue.dfm

 

  Left = 332
  Top = 237
  Width = 575
  Height = 334
  Caption = 'KW'#39's Textbausteine'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnActivate = FormActivate
  PixelsPerInch = 101
  TextHeight = 13
  object Bevel1: TBevel
    Left = 0
    Top = 65
    Width = 15
    Height = 161
    Align = alLeft
    Shape = bsSpacer
  end
  object Bevel2: TBevel
    Left = 544
    Top = 65
    Width = 15
    Height = 161
    Align = alRight
    Shape = bsSpacer
  end
  object vgPanel1: TPanel
    Left = 0
    Top = 226
    Width = 559
    Height = 69
    Align = alBottom
    TabOrder = 0
    DesignSize = (
      559
      69)
    object Label3: TLabel
      Left = 16
      Top = 5
      Width = 38
      Height = 13
      Caption = 'Gruppe:'
    end
    object Label4: TLabel
      Left = 16
      Top = 48
      Width = 65
      Height = 13
      Caption = 'neue Gruppe:'
    end
    object JvXPButton1: TJvXPButton
      Left = 392
      Top = 12
      Width = 148
      Height = 41
      Caption = 'Ok, sichern'
      TabOrder = 0
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        5555555555555555555555555205555555555555222055555555555522205555
        5555555222220555555555222222055555555822052220555555820555522055
        5555555555522205555555555555220555555555555552205555555555555582
        0555555555555558205555555555555552205555555555555555}
      Anchors = [akTop, akRight]
      OnClick = JvXPButton1Click
    end
    object JvXPButton2: TJvXPButton
      Left = 267
      Top = 12
      Width = 113
      Height = 41
      Caption = 'Abbruch'
      TabOrder = 1
      Glyph.Data = {
        36040000424D3604000000000000360000002800000010000000100000000100
        2000000000000004000000000000000000000000000000000000FF00FF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FF00FF00FFFFFF008494
        DE000831B5001031BD001839BD001839B5001839BD001039BD001031BD000831
        C6000831C6000029BD000029C6000021B5007B94D600FFFFFF00FFFFFF001039
        D6001842DE00294ADE002952DE002952DE002952DE002952DE00214ADE00184A
        E7001042E7000842E7000039E7000031D6000021B500FFFFFF00FFFFFF001842
        DE002952E700315AE7004263E7007B94EF00E7EFFF00FFFFFF00FFFFFF00DEE7
        FF007394F700104AEF000842EF000039E7000029BD00FFFFFF00FFFFFF00214A
        DE00395AE7004263E700A5B5F700FFFFFF00BDCEF700738CEF006B8CEF00BDCE
        FF00FFFFFF009CB5F700084AEF000839E7000029C600FFFFFF00FFFFFF002952
        E7004263E7008C9CEF00FFFFFF00849CEF00426BE7004263E7003163EF00295A
        EF007394F700FFFFFF006B8CF7000842E7000831C600FFFFFF00FFFFFF00315A
        E7004A6BE700EFEFFF00BDC6F7004A6BE7004A6BE700FFFFFF00FFFFFF00295A
        EF002152EF00B5C6FF00DEE7FF00184AE7001039C600FFFFFF00FFFFFF00395A
        E700526BE700FFFFFF008494EF00526BE7004A6BE700FFFFFF00FFFFFF00295A
        E7002152E7006384EF00FFFFFF00184ADE001839C600FFFFFF00FFFFFF004263
        E7005A73EF00FFFFFF008494EF00526BE7004A63E700FFFFFF00FFFFFF002952
        E7002152E7006384EF00FFFFFF00214ADE001839BD00FFFFFF00FFFFFF004A6B
        E700637BEF00EFF7FF00B5C6F700526BE7004A63E700FFFFFF00FFFFFF002952
        E700214AE700B5BDF700E7E7FF002952DE002142BD00FFFFFF00FFFFFF00526B
        E7006B84EF0094ADF700FFFFFF008494EF004A63E7004263E700395AE7003152
        E7006B84EF00FFFFFF00738CEF002952DE002142BD00FFFFFF00FFFFFF005A7B
        EF007B94EF00738CEF00A5B5F700FFFFFF00B5BDF7007384EF006B84EF00B5BD
        F700FFFFFF0094ADF7003152E7002952DE002142BD00FFFFFF00FFFFFF006B84
        EF008CA5EF008494EF006B8CEF0094ADF700EFF7FF00FFFFFF00FFFFFF00EFEF
        FF008C9CEF004263E700395AE7003152DE001839BD00FFFFFF00FFFFFF00738C
        EF009CADF7008CA5EF007B94EF00738CEF006B84EF00637BEF00637BEF005A7B
        EF005273E7004A6BE7004263E7002952DE001839BD00FFFFFF00FFFFFF00B5BD
        F700738CEF006384EF005A73EF005273E7004A6BE7004A6BE7004A6BE7004263
        E7003963E700395AE7003152E7002142DE008C9CDE00FFFFFF00FF00FF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FF00FF00}
      Anchors = [akTop, akRight]
      OnClick = JvXPButton2Click
    end
    object JvComboBox1: TJvComboBox
      Left = 16
      Top = 20
      Width = 201
      Height = 21
      Style = csDropDownList
      DropDownCount = 10
      ItemHeight = 0
      TabOrder = 2
      OnClick = JvComboBox1Click
      Items.Strings = (
        '123123123'
        '123123')
    end
    object Edit_g: TEdit
      Left = 96
      Top = 43
      Width = 121
      Height = 21
      MaxLength = 25
      TabOrder = 3
    end
  end
  object vgPanel2: TPanel
    Left = 0
    Top = 0
    Width = 559
    Height = 65
    Align = alTop
    TabOrder = 1
    object Label1: TLabel
      Left = 16
      Top = 16
      Width = 115
      Height = 13
      Caption = '&Titel des Textbausteines'
    end
    object titel: TJvEdit
      Left = 16
      Top = 32
      Width = 337
      Height = 21
      Modified = False
      TabOrder = 0
      Text = 'titel'
    end
    object JvXPButton3: TJvXPButton
      Left = 384
      Top = 24
      Width = 161
      Height = 33
      Caption = 'Zwischenablage einf'#252'gen'
      TabOrder = 1
      OnClick = JvXPButton3Click
    end
  end
  object vgPanel3: TPanel
    Left = 15
    Top = 65
    Width = 529
    Height = 161
    Align = alClient
    TabOrder = 2
    object Label2: TLabel
      Left = 1
      Top = 1
      Width = 527
      Height = 13
      Align = alTop
      Caption = '  Textbaustein'
    end
    object dtext: TJvMemo
      Left = 1
      Top = 14
      Width = 527
      Height = 146
      AutoSize = False
      MaxLines = 0
      HideCaret = False
      Align = alClient
      Lines.Strings = (
        'dtext')
      ScrollBars = ssBoth
      TabOrder = 0
    end
  end
end

 

die Datei neue.pas

unit neue;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, JvExStdCtrls, JvMemo, JvEdit, JvExControls, JvComponent,
  JvXPCore, JvXPButtons, JvXPCheckCtrls, ExtCtrls, JvCombobox;

type
  Tneues = class(TForm)
    vgPanel1: TPanel;
    JvXPButton1: TJvXPButton;
    JvXPButton2: TJvXPButton;
    vgPanel2: TPanel;
    titel: TJvEdit;
    Label1: TLabel;
    vgPanel3: TPanel;
    Label2: TLabel;
    dtext: TJvMemo;
    Bevel1: TBevel;
    Bevel2: TBevel;
    Label3: TLabel;
    JvComboBox1: TJvComboBox;
    Label4: TLabel;
    Edit_g: TEdit;
    JvXPButton3: TJvXPButton;
    procedure JvXPButton1Click(Sender: TObject);
    procedure JvXPButton2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure JvComboBox1Click(Sender: TObject);
    procedure JvXPButton3Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    erg :boolean;
  end;

var
  neues: Tneues;

implementation

{$R *.DFM}

procedure Tneues.JvXPButton1Click(Sender: TObject);
begin
 erg:= true;
 close;
end;

procedure Tneues.JvXPButton2Click(Sender: TObject);
begin
erg:= false;
close;
end;

procedure Tneues.FormActivate(Sender: TObject);
begin
if titel.Enabled then titel.SetFocus
                    else dtext.setfocus;
end;

procedure Tneues.JvComboBox1Click(Sender: TObject);
begin
 edit_g.text:= jvcombobox1.items.strings[jvcombobox1.itemindex];
end;

procedure Tneues.JvXPButton3Click(Sender: TObject);
begin
  dtext.PasteFromClipboard;
end;

end.

 

die Datei neue_vers.pas

unit new_ver;
//Version 1.8 
interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, IniFiles, URLMon,
  JvComponent, JvUrlListGrabber, JvUrlGrabbers, Buttons, ComCtrls, ShellApi, 
  StdCtrls, ExtCtrls, JvBaseDlg, JvSelectDirectory, JvExControls,
  JvXPButtons, JvXPCore;

type
  Tneue_vers = class(TForm)
    kwbut1: TJvXPButton;
    gauge1: TProgressBar;
    Label1: TLabel;
    Bevel1: TBevel;
    Bevel2: TBevel;
    Label2: TLabel;
    JvSelectDirectory1: TJvSelectDirectory;
    kwbut2: TJvXPButton;
    Bevel3: TBevel;
    Label3: TLabel;
    Label4: TLabel;

    procedure kwbut1Click(Sender: TObject);

    procedure FormActivate(Sender: TObject);
    procedure kwbut2Click(Sender: TObject);
    {...}
  private
    winsc: TiniFile;
    stufe: Integer;
    vernfo: TIniFile;
    fFailure: boolean;
    downmload_datei, //downmload_datei
    aktiv, vorhanden: string;
  public
    dat_name: string;
    procedure hole_version;
    procedure Datei_ist_da_laden;
//    function DownloadFile(aSource, aDest: string): Boolean;
    function DownloadFile(fileURL, FileName: String): boolean;
  end;

const
  contoll_datei = 'updates.txt';
  url_page = 'www.ihre seite.de';
var
  neue_vers: Tneue_vers;

implementation

uses
  WinInet;
{$R *.dfm}

function GetTempFile(const Extension: string): string;
var
  Buffer: array[0..MAX_PATH] of Char;
  aFile: string;
begin
  repeat
    GetTempPath(SizeOf(Buffer) - 1, Buffer);
    GetTempFileName(Buffer, '~', 0, Buffer);
    Result:=ChangeFileExt(Buffer, Extension);
  until not FileExists(Result);
end;

function DownloadUrlToMemo(const SourceFile: string; var TargetForm: TMemo): BOOLEAN;
var
  hSession, hService: HINTERNET;
  dwBytesRead: DWORD;
  lpBuffer: array[0..1024 + 1] of CHAR;
begin
  Result:=False;
  hSession:=InternetOpen(pchar(neue_vers.dat_name), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  try
    if Assigned(hSession) then
    begin
      hService:=InternetOpenUrl(hSession, PChar(SourceFile), nil, 0, 0, 0);
      if Assigned(hService) then
      try
        repeat
          dwBytesRead:=1024;
          InternetReadFile(hService, @lpBuffer, 1024, dwBytesRead);
          if dwBytesRead <> 0 then
          begin
            lpBuffer[dwBytesRead]:=#0;
            TargetForm.Lines.Add(lpBuffer);
          end;
        until dwBytesRead = 0;
        Result:=True;
      finally
        InternetCloseHandle(hService);
      end;
    end;
  finally
    InternetCloseHandle(hSession);
  end;
end;
function CheckUrl(url: string): boolean;
var
  hSession, hfile, hRequest: hInternet;
  dwindex, dwcodelen: dword; 
  dwcode: array[1..20] of char; 
  res: pchar; 
begin 
  if pos('http://', lowercase(url)) = 0 then 
    url := 'http://' + url; 
  Result := false; 
  hSession := InternetOpen('InetURL:/1.0', 
    INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0); 
  if assigned(hsession) then 
  begin 
    hfile := InternetOpenUrl( 
      hsession, 
      pchar(url), 
      nil, 
      0, 
      INTERNET_FLAG_RELOAD, 
      0); 
    dwIndex := 0; 
    dwCodeLen := 10; 
    HttpQueryInfo(hfile, HTTP_QUERY_STATUS_CODE, 
      @dwcode, dwcodeLen, dwIndex); 
    res := pchar(@dwcode); 
    result := (res = '200') or (res = '302'); 
    if assigned(hfile) then 
      InternetCloseHandle(hfile); 
    InternetCloseHandle(hsession); 
  end;
end;

function Tneue_vers.DownloadFile(fileURL, FileName: String): boolean;
const BufferSize = 1024;
var 
  hSession, hURL: HInternet;
  Buffer: array[1..BufferSize] of Byte; 
  BufferLen: DWORD; 
  f: File; 
  sAppName: string; 
begin
  Result:=False;

  if not checkurl(fileurl) then
  begin
    MessageDlg('Konnte die URL '+fileurl+' nicht finden.', mtError, [mbOK], 0);
    exit;
  end;
  sAppName := ExtractFileName(Application.ExeName);
  hSession := InternetOpen(PChar(sAppName),
                  INTERNET_OPEN_TYPE_PRECONFIG,
                 nil, nil, 0);
  try
    hURL := InternetOpenURL(hSession,
              PChar(fileURL),
              nil,0,0,0);
    try
     AssignFile(f, FileName);
     Rewrite(f,1);
     repeat
      InternetReadFile(hURL, @Buffer,
                       SizeOf(Buffer), BufferLen);
      BlockWrite(f, Buffer, BufferLen)
     until BufferLen = 0;
     CloseFile(f);
     Result:=True;
    finally
     InternetCloseHandle(hURL)
    end
  finally
    InternetCloseHandle(hSession)
  end
end;

function GetPathPath: string;
{ Retrive app path }
begin
  Result:=ExtractFilePath(Application.ExeName);
end;

procedure Tneue_vers.Datei_ist_da_laden;
var
  s, name, gelesen, apath: string;
begin
  if MessageDlg('Um die neue Version herrunterzuladen müssen Sie jetzt direkt '+#13+#10+
                'die Seite von '+url_page+' aufrufen.'+#13+#10+
                'Dort finden Sie im Downloadbereich die neue Version.'+#13+#10+''+#13+#10+
                'Möchten Sie das ?', mtInformation, [mbYes, mbNo], 0) = mryes then

  ShellExecute(Application.Handle, 'open',
             PCHar('http://'+url_page), nil, nil,
             SW_ShowNormal);
   close;
  exit;

  with JvSelectDirectory1 do
  begin
    InitialDir:=copy(GetPathPath, 1, 3);
    if not Execute then
    begin
      stufe:=3;
      Label2.Caption:= 'Abbruch der Updatesuche';
      kwbut1.Caption:= 'Ende';
      Exit;
    end;
    apath:=Directory;
  end;
  if apath[length(apath)] <> '\' then apath:=apath + '\';

  name:=Application.ExeName;
  name:=ExtractFileName(name);
  name:=ChangeFileExt(name, '');

  name:=name + aktiv + '.exe';

  if FileExists(apath + name) then
  begin
    if MessageDlg('Im gewählten Verzeichnis existiert bereits eine Datei mit dem Namen:' + name + #13 + #10 + 'Wollen Sie diese Datei überschreiben ?', mtConfirmation,
      [mbYes, mbNo], 0) <> mryes then
    begin
      stufe:=3;
      Label2.Caption:= 'Abbruch der Updatesuche';
      kwbut1.Caption:= 'Ende';
      exit;
    end;
  end;
  name:=apath + name;

  if downmload_datei = '' then //     downmload_datei
  begin
    Label2.caption:= 'Fehler beim Downloadaufbau - Ende';
    gauge1.Position:=0;
    stufe:=3;
    exit;
  end
  else
    Label2.Caption:= 'Bitte warten....';

 application.ProcessMessages;
  sleep(100);
  application.ProcessMessages;
  sleep(100);
  DownloadFile(downmload_datei, name);
  if not fFailure then // geändert
  begin
    Label2.Caption:= 'Der Download wurde abgeschlossen.' + #13 + #10 + 'Deinstallieren Sie diese Version.' + #13 + #10 +
      'Starten Sie dann die Installation der neuen heruntergeladenen Version.';
    gauge1.Position:=100;
  end
  else
    Label2.Caption:= 'Der Download konnte nicht erfolgreich durchgeführt werden !' + #13 + #10 + 'Starten Sie den Download manuel über '+url_page;
  stufe:=3;

  kwbut1.Caption:= 'Ende';
end;

procedure Tneue_vers.kwbut1Click(Sender: TObject);
var
  s, aktuell, gelesen, apath: string;
  new: Integer;
begin
  if stufe = 1 then
  begin
    hole_version;
    exit;
  end;
  if stufe = 2 then
  begin
  application.ProcessMessages;
  sleep(100);
  application.ProcessMessages;
  sleep(100);
    datei_ist_da_laden;
    Exit;
  end;
  if stufe = 3 then
  begin
    close;
    Exit;
  end;
end;
procedure GetBuildInfo(var V1, V2, V3, V4: Word; s: string);
var
  VerInfoSize,
    VerValueSize,
    Dummy: Longword;
  VerInfo: Pointer;
  VerValue: PVSFixedFileInfo;
begin
  if s <> '' then
    VerInfoSize := GetFileVersionInfoSize(PChar(s), Dummy)
  else
    VerInfoSize := GetFileVersionInfoSize(PChar(ParamStr(0)), Dummy);
  GetMem(VerInfo, VerInfoSize);
  if s <> '' then
    GetFileVersionInfo(PChar(S), 0, VerInfoSize, VerInfo)
  else
    GetFileVersionInfo(PChar(ParamStr(0)), 0, VerInfoSize, VerInfo);
  VerQueryValue(VerInfo, '\', Pointer(VerValue), VerValueSize);
  with VerValue^ do
  begin
    V1 := dwFileVersionMS shr 16;
    V2 := dwFileVersionMS and $FFFF;
    V3 := dwFileVersionLS shr 16;
    V4 := dwFileVersionLS and $FFFF;
  end;
  FreeMem(VerInfo, VerInfoSize);
end;

function strBuildInfo(S: string;ext:boolean): string;
var
  V1, V2, V3, V4: Word;
begin
  GetBuildInfo(V1, V2, V3, V4, s);
  if ext then Result := IntToStr(V1) + '.' + IntToStr(V2) + '.' +  IntToStr(V3)+ '.' +  IntToStr(V4)
         else
            Result := IntToStr(V1) + '.' + IntToStr(V2);
end;

procedure Tneue_vers.hole_version;
var
  s, st, aktuell, gelesen, aaktuell, agelesen, apath: string;
  new: Integer;
  vera, verb: integer;
begin
  aktuell:=strBuildInfo('',true);
  aaktuell:=aktuell;
  while pos('.', aktuell) <> 0 do delete(aktuell, pos('.', aktuell), 1);
  while pos(',', aktuell) <> 0 do delete(aktuell, pos(',', aktuell), 1);
  apath:=GetPathPath;
  Gauge1.Position:=0;
  Label2.caption:= 'Verbinde zu http://'+url_page;
  Gauge1.Position:=20;
  st:=GetTempFile('.~tp');
  if fileexists(st) then deletefile(st);

  if DownloadFile('http://'+url_page+'/ver/' + contoll_datei, st) then
  begin
    gauge1.Position:=50;
    Label2.caption:= 'Überprüfe auf neue Version...';

    vernfo:=TiniFile.Create(st);
    gelesen:=vernfo.Readstring('version', dat_name, '');
    downmload_datei:=vernfo.Readstring('download', dat_name, ''); //downmload_datei
    agelesen:=gelesen;
    vorhanden:=gelesen;
    vernfo.Free;

    while pos('.', gelesen) <> 0 do delete(gelesen, pos('.', gelesen), 1);
    while pos(',', gelesen) <> 0 do delete(gelesen, pos(',', gelesen), 1);

    if gelesen = '' then
    begin
      Label2.caption:= 'Fehler beim Verbindungsaufbau - Ende';
      gauge1.Position:=0;
      stufe:=3;
      kwbut1.Caption:= 'Ende';
      exit;
    end;

    if length(gelesen) < length(aktuell) then gelesen:=gelesen + '0';
    if length(gelesen) < length(aktuell) then gelesen:=gelesen + '0';
    label3.Caption:= 'Ihre Version:' + aaktuell;
    label4.Caption:= 'Version im Internet:' + agelesen;
    try
      vera:=strtoint(aktuell);
      Verb:=strtoint(gelesen);
    except
      on EConvertError do
      begin
        Label2.caption:= 'Fehler beim Verbindungsaufbau - Ende';
        gauge1.Position:=0;
        stufe:=3;
        kwbut1.Caption:= 'Ende';
        exit;
      end;
    end;

    if verb < vera then
    begin
      Label2.caption:= 'Sie haben die neuste Version. Keine neuere Version vorhanden.';
      gauge1.Position:=100;
      stufe:=3;
      kwbut1.Caption:= 'Ende';
    end
    else
      if vera = verb then
      begin
        Label2.caption:= 'Keine neuere Version vorhanden.';
        gauge1.Position:=100;
        stufe:=3;
        kwbut1.Caption:= 'Ende';
      end
      else
        if verb > vera then
        begin
          aktiv:=gelesen;
          //Label2.caption:= 'Es ist die neue Version ' + vorhanden + ' vorhanden.' + #13#10 + 'Wollen Sie diese jetzt herrunterladen ?';
         // kwbut1.Caption:= 'Download';
          Label2.caption:= 'Es ist die neuere Version ' + vorhanden + ' vorhanden.';
          kwbut1.Caption:= 'Seitenaufruf starten.';

          kwbut2.Visible:=True;
          stufe:=2;
        end;
    if fileexists(st) then DeleteFile(st);
  end
  else
  begin
    Label2.caption:= 'Fehler beim Verbindungsaufbau - Ende';
    gauge1.Position:=0;
    stufe:=3;
    kwbut1.Caption:= 'Ende';

  end;
end;

procedure Tneue_vers.FormActivate(Sender: TObject);
begin
  Label2.Caption:= 'Updatesuche';
  kwbut1.Caption:= 'Suche starten';
  stufe:=1;
end;

procedure Tneue_vers.kwbut2Click(Sender: TObject);
begin
  close;
end;

end.

die master.dfm Datei

object Form1: TForm1
  Left = 774
  Top = 117
  Width = 452
  Height = 647
  Caption = 'KW'#39's Textbausteinverwaltung'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    000000008000008000000080800080000000800080008080000080808000C0C0
    C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    0000000000000000000000000000000000000000000000000088888888800000
    0000008888888800900000000080000000000088888888009FFFFFFFF0800088
    8888000000009809FFFCFCFFF080008888880FFFFFFF9809FFCFCFCFF0800000
    00000FFFFFF9809FFFCFCFCFF0800FFFFFFF0FFFFFF9809FFCCFCFCCF0800FFF
    FFFF0F99999009FFFCFFFFFCF0800FFFFFFFF9900000009FFCFFFFFCF0800FFF
    F990900009999809FCFFFFFCF0800F999000009999FFF9809FFFFFFFF0809900
    0009999FFFFFFF9809FFFFFFF080000088900FFFFFFFFFF9809FFFFFF0800889
    998F0FFFCFCCFFFF909FFFFFF080999FFFFF0FFFCFCFFFFF909999FFF0000FFF
    FFFF0FFFCCFFFFFF9888009999000FFFFFFF0FFFCCFFFFFF9999888000000FFF
    FFFF0FFFCFCFFFFFFFFF999000000FFFFFFF0FFFCFCFFFFFFFFFFF0000000FFF
    FFFF9FFF99FFFFFFFFFFFF0000000FFFFF99999999999FFFFFFFFF0000000FF9
    9900000000009FFFFFFFFF000000999000000000000009999999990000000000
    0889099999900000000000000000008899980FFFFFFF99990000000000000999
    FFFF0FFFFFFFFFF000000000000000FFFFFF0FFFFFFFFFF000000000000000FF
    FFFF00000000000000000000000000FFFFFFFFFFFFFFFFF000000000000000FF
    FFFFFFFFFFFFFFF000000000000000000000000000000000000000000000FFFF
    FFFFFFFFFC01FFC03001FFC03001C0002001C000200100004001000040010001
    8001001FC0010178200107C010013E000801F100040180000401000004030000
    00C30000001F0000001F0000001F0000001F0000001F03FF001F1FFF801FF801
    FFFFC0000FFF80000FFF80000FFF80000FFF80000FFF80000FFF80000FFF}
  KeyPreview = True
  OldCreateOrder = False
  ShowHint = True
  OnActivate = FormActivate
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnKeyPress = FormKeyPress
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 13
  object JvPageControl1: TJvPageControl
    Left = 0
    Top = 0
    Width = 436
    Height = 590
    ActivePage = TabSheet1
    Align = alClient
    TabOrder = 0
    OnChange = FormResize
    HideAllTabs = True
    object TabSheet1: TTabSheet
      Caption = 'TabSheet1'
      object vgPanel1: TPanel
        Left = 0
        Top = 0
        Width = 428
        Height = 41
        Align = alTop
        TabOrder = 0
        object Bevel1: TBevel
          Left = 422
          Top = 1
          Width = 5
          Height = 39
          Align = alRight
          Shape = bsSpacer
        end
        object Bevel3: TBevel
          Left = 1
          Top = 1
          Width = 5
          Height = 39
          Align = alLeft
          Shape = bsSpacer
        end
        object Bevel5: TBevel
          Left = 86
          Top = 1
          Width = 5
          Height = 39
          Align = alLeft
          Shape = bsSpacer
        end
        object Bevel6: TBevel
          Left = 41
          Top = 1
          Width = 5
          Height = 39
          Align = alLeft
          Shape = bsSpacer
        end
        object Bevel15: TBevel
          Left = 126
          Top = 1
          Width = 5
          Height = 39
          Align = alLeft
          Shape = bsSpacer
        end
        object JvXPButton2: TJvXPButton
          Left = 46
          Top = 1
          Width = 40
          Height = 39
          Hint = 'Eintrag '#228'ndern'
          Caption = #228'ndern'
          TabOrder = 1
          Glyph.Data = {
            76050000424D7605000000000000360400002800000013000000100000000100
            0800000000004001000000000000000000000001000000010000000000004000
            000080000000FF000000002000004020000080200000FF200000004000004040
            000080400000FF400000006000004060000080600000FF600000008000004080
            000080800000FF80000000A0000040A0000080A00000FFA0000000C0000040C0
            000080C00000FFC0000000FF000040FF000080FF0000FFFF0000000020004000
            200080002000FF002000002020004020200080202000FF202000004020004040
            200080402000FF402000006020004060200080602000FF602000008020004080
            200080802000FF80200000A0200040A0200080A02000FFA0200000C0200040C0
            200080C02000FFC0200000FF200040FF200080FF2000FFFF2000000040004000
            400080004000FF004000002040004020400080204000FF204000004040004040
            400080404000FF404000006040004060400080604000FF604000008040004080
            400080804000FF80400000A0400040A0400080A04000FFA0400000C0400040C0
            400080C04000FFC0400000FF400040FF400080FF4000FFFF4000000060004000
            600080006000FF006000002060004020600080206000FF206000004060004040
            600080406000FF406000006060004060600080606000FF606000008060004080
            600080806000FF80600000A0600040A0600080A06000FFA0600000C0600040C0
            600080C06000FFC0600000FF600040FF600080FF6000FFFF6000000080004000
            800080008000FF008000002080004020800080208000FF208000004080004040
            800080408000FF408000006080004060800080608000FF608000008080004080
            800080808000FF80800000A0800040A0800080A08000FFA0800000C0800040C0
            800080C08000FFC0800000FF800040FF800080FF8000FFFF80000000A0004000
            A0008000A000FF00A0000020A0004020A0008020A000FF20A0000040A0004040
            A0008040A000FF40A0000060A0004060A0008060A000FF60A0000080A0004080
            A0008080A000FF80A00000A0A00040A0A00080A0A000FFA0A00000C0A00040C0
            A00080C0A000FFC0A00000FFA00040FFA00080FFA000FFFFA0000000C0004000
            C0008000C000FF00C0000020C0004020C0008020C000FF20C0000040C0004040
            C0008040C000FF40C0000060C0004060C0008060C000FF60C0000080C0004080
            C0008080C000FF80C00000A0C00040A0C00080A0C000FFA0C00000C0C00040C0
            C00080C0C000FFC0C00000FFC00040FFC00080FFC000FFFFC0000000FF004000
            FF008000FF00FF00FF000020FF004020FF008020FF00FF20FF000040FF004040
            FF008040FF00FF40FF000060FF004060FF008060FF00FF60FF000080FF004080
            FF008080FF00FF80FF0000A0FF0040A0FF0080A0FF00FFA0FF0000C0FF0040C0
            FF0080C0FF00FFC0FF0000FFFF0040FFFF0080FFFF00FFFFFF00909090909090
            000000000000000000009090900090909090909000FFFFFFFFFFFFFFFF009090
            90000000900000000000FFFF00FF0000FF00909090001F0000FCFFFCFFFC00FF
            FFFFFFFFFF00909090001F00FCFFFCFF000000FFFFFFFF00FF00909090001F00
            FFFCFFFCFFFCFF00FF0000FFFF00909090001F00FCFFFCFF0000000000FC00FF
            FF00909090001F00FFFCFFFCFFFCFFFCFF00FFFFFF00909090001F00FCFF0000
            0000000000FFFFFFFF0090909000000000FCFFFC0000FC00FFFF0000FF009090
            900090909000000000FC00FFFFFFFFFFFF0090909000909090909000FC00FFFF
            FFFF00000000909090009090909000FC00FFFF0000FF00FFFF00909090009090
            9000FC0000FFFFFFFFFF00FF009090909000909000E0009000FFFFFFFFFF0000
            9090909092009090900090900000000000000090909090909000}
          Layout = blGlyphTop
          Spacing = 0
          Align = alLeft
          OnClick = JvXPButton2Click
        end
        object JvXPButton3: TJvXPButton
          Left = 6
          Top = 1
          Width = 35
          Height = 39
          Hint = 'neuer Eintrag'
          Caption = 'neu'
          TabOrder = 0
          Glyph.Data = {
            F6000000424DF600000000000000760000002800000010000000100000000100
            0400000000008000000000000000000000001000000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
            555555500000000005555550BBBBBBBB05555550B0000BBB05555550BBBBBBBB
            05555550B000000B05555550BBBBBBBB05555550B000000B05555550BBBBBBBB
            05555550B000BBBB05555550BBBBB00005555550B00BB03055555550BBBBB005
            5555555000000055555555555555555555555555555555555555}
          Layout = blGlyphTop
          Spacing = 0
          Align = alLeft
          OnClick = JvXPButton3Click
        end
        object JvXPButton4: TJvXPButton
          Left = 91
          Top = 1
          Width = 35
          Height = 39
          Hint = 'Eintrag l'#246'schen'
          Caption = 'l'#246'sche'
          TabOrder = 2
          Glyph.Data = {
            42010000424D4201000000000000420000002800000010000000100000000100
            080000000000000100000000000000000000030000000300000004020400FCFE
            FC00FC02FC000202020202000000000000000202020202020202000100010001
            0001000202020202020200010001000100010002020202020202000100010001
            0001000202020202020200010001000100010002020202020202000100010001
            0001000202020202020200010001000100010002020202020202000100010001
            0001000202020202020200010001000100010002020202020202000100010001
            0001000202020202020200010001000100010002020202020200000000000000
            0000000002020202020001010101010101010100020202020202000000000000
            0000000202020202020202020200000002020202020202020202020202020202
            020202020202}
          Layout = blGlyphTop
          Spacing = 0
          Align = alLeft
          OnClick = JvXPButton4Click
        end
        object JvXPButton9: TJvXPButton
          Left = 387
          Top = 1
          Width = 35
          Height = 39
          Hint = 'About/Hilfe'
          Caption = 'Hilfe'
          TabOrder = 3
          Glyph.Data = {
            36040000424D3604000000000000360000002800000010000000100000000100
            2000000000000004000000000000000000000000000000000000FF00FF00FF00
            FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
            FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
            FF00FF00FF00FF00FF00FF00FF00FFFFFF00808080000000FF0080808000FFFF
            FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
            FF00FF00FF0000FFFF00FFFFFF0000FFFF000000FF000000FF000000FF0000FF
            FF00FFFFFF0000FFFF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
            FF0000FFFF00FFFFFF0000FFFF00FFFFFF00808080000000FF0080808000FFFF
            FF0000FFFF00FFFFFF0000FFFF00FF00FF00FF00FF00FF00FF00FF00FF0000FF
            FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FF
            FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FF00FF00FF00FF00FF00FF00FFFF
            FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF000000FF0000FFFF00FFFF
            FF0000FFFF00FFFFFF0000FFFF00FFFFFF00FF00FF00FF00FF00FFFFFF0000FF
            FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF000000FF008080800000FF
            FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF00FF00FF0000FFFF00FFFF
            FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF000000FF000000FF00FFFF
            FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FF00FF00FFFFFF0000FF
            FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF000000FF000000
            FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF00FF00FF0000FFFF00FFFF
            FF0000FFFF00FFFFFF00808080008080800000FFFF00FFFFFF00808080000000
            FF000000FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FF00FF00FFFFFF0000FF
            FF00FFFFFF0000FFFF000000FF000000FF00FFFFFF0000FFFF00808080000000
            FF000000FF0000FFFF00FFFFFF0000FFFF00FFFFFF00FF00FF00FF00FF00FFFF
            FF0000FFFF00FFFFFF000000FF000000FF0080808000FFFFFF00808080000000
            FF000000FF00FFFFFF0000FFFF00FFFFFF00FF00FF00FF00FF00FF00FF0000FF
            FF00FFFFFF0000FFFF00FFFFFF000000FF000000FF000000FF000000FF000000
            FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FF00FF00FF00FF00FF00FF00FF00
            FF0000FFFF00FFFFFF0000FFFF00FFFFFF000000FF000000FF000000FF00FFFF
            FF0000FFFF00FFFFFF0000FFFF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
            FF00FF00FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FF
            FF00FFFFFF0000FFFF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
            FF00FF00FF00FF00FF00FF00FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFF
            FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
          Layout = blGlyphTop
          Spacing = 0
          Align = alRight
          OnClick = JvXPButton9Click
        end
        object JvXPButton13: TJvXPButton
          Left = 131
          Top = 1
          Width = 35
          Height = 39
          Hint = 'Zwischenablagenverwaltung'
          Caption = 'ZW-ablage'
          TabOrder = 4
          Glyph.Data = {
            36050000424D3605000000000000360400002800000010000000100000000100
            0800000000000001000000000000000000000001000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
            A6000020400000206000002080000020A0000020C0000020E000004000000040
            20000040400000406000004080000040A0000040C0000040E000006000000060
            20000060400000606000006080000060A0000060C0000060E000008000000080
            20000080400000806000008080000080A0000080C0000080E00000A0000000A0
            200000A0400000A0600000A0800000A0A00000A0C00000A0E00000C0000000C0
            200000C0400000C0600000C0800000C0A00000C0C00000C0E00000E0000000E0
            200000E0400000E0600000E0800000E0A00000E0C00000E0E000400000004000
            20004000400040006000400080004000A0004000C0004000E000402000004020
            20004020400040206000402080004020A0004020C0004020E000404000004040
            20004040400040406000404080004040A0004040C0004040E000406000004060
            20004060400040606000406080004060A0004060C0004060E000408000004080
            20004080400040806000408080004080A0004080C0004080E00040A0000040A0
            200040A0400040A0600040A0800040A0A00040A0C00040A0E00040C0000040C0
            200040C0400040C0600040C0800040C0A00040C0C00040C0E00040E0000040E0
            200040E0400040E0600040E0800040E0A00040E0C00040E0E000800000008000
            20008000400080006000800080008000A0008000C0008000E000802000008020
            20008020400080206000802080008020A0008020C0008020E000804000008040
            20008040400080406000804080008040A0008040C0008040E000806000008060
            20008060400080606000806080008060A0008060C0008060E000808000008080
            20008080400080806000808080008080A0008080C0008080E00080A0000080A0
            200080A0400080A0600080A0800080A0A00080A0C00080A0E00080C0000080C0
            200080C0400080C0600080C0800080C0A00080C0C00080C0E00080E0000080E0
            200080E0400080E0600080E0800080E0A00080E0C00080E0E000C0000000C000
            2000C0004000C0006000C0008000C000A000C000C000C000E000C0200000C020
            2000C0204000C0206000C0208000C020A000C020C000C020E000C0400000C040
            2000C0404000C0406000C0408000C040A000C040C000C040E000C0600000C060
            2000C0604000C0606000C0608000C060A000C060C000C060E000C0800000C080
            2000C0804000C0806000C0808000C080A000C080C000C080E000C0A00000C0A0
            2000C0A04000C0A06000C0A08000C0A0A000C0A0C000C0A0E000C0C00000C0C0
            2000C0C04000C0C06000C0C08000C0C0A000F0FBFF00A4A0A000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00ADADAD00FB5B
            FFFFFFFFFFFB00ADADADADADAD00FB5BFFFFFFFFFFFB00ADADAD000000000000
            005B5B00005B00ADADADFFFFFFFFFFFF0000005B5BFB00ADADADFFFFFFFFFFFF
            0000005BFBFB00ADADAD00FF000000FF000000F900005BADADADFFFFFFFFFFFF
            00ADF9F9F9ADADADADAD000000FF00FF00F9F9F9F9F9ADADADADFFFFFFFFFFFF
            F9F9F9F9F9F9F9ADADAD00FF0000000000ADF9F9F9000000ADADFFFF00FFFF00
            ADADF9F9F900FC00ADADADFF00FF00ADADADF9F9F9000000ADADFFFF0000ADF9
            F9F9F9F9ADADADADADAD000000ADAD000000AD000000AD000000ADADADADAD00
            FC00AD00FC00AD00FC00ADADADADAD000000AD000000AD000000}
          Layout = blGlyphTop
          Spacing = 0
          Align = alLeft
          OnClick = JvXPButton13Click
        end
      end
      object vgPanel2: TPanel
        Left = 0
        Top = 529
        Width = 428
        Height = 33
        Align = alBottom
        TabOrder = 1
        object Bevel8: TBevel
          Left = 1
          Top = 1
          Width = 5
          Height = 31
          Align = alLeft
          Shape = bsSpacer
        end
        object Bevel9: TBevel
          Left = 41
          Top = 1
          Width = 5
          Height = 31
          Align = alLeft
          Shape = bsSpacer
        end
        object Bevel10: TBevel
          Left = 422
          Top = 1
          Width = 5
          Height = 31
          Align = alRight
          Shape = bsSpacer
        end
        object Bevel11: TBevel
          Left = 81
          Top = 1
          Width = 5
          Height = 31
          Align = alLeft
          Shape = bsSpacer
        end
        object JvXPButton6: TJvXPButton
          Left = 6
          Top = 1
          Width = 35
          Height = 31
          Hint = 'Datenbank '#246'ffnen'
          Caption = #246'ffne'
          TabOrder = 0
          Glyph.Data = {
            F6000000424DF600000000000000760000002800000010000000100000000100
            0400000000008000000000000000000000001000000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            3333333333333333333333300000000000003388888888888800338FB7B7B7B7
            B80038FB7B7B7B7B708038F7B7B7B7B780808F7B7B7B7B7B08808FFFFFFFFFF8
            07808888888888888B8038F7B7B7B7B7B78038FB7B7B7FFFFF8038F7B7B7F888
            8883338FFFFF8333333333388888333333333333333333333333}
          Layout = blGlyphTop
          Spacing = 0
          Align = alLeft
          OnClick = JvXPButton6Click
        end
        object JvXPButton8: TJvXPButton
          Left = 387
          Top = 1
          Width = 35
          Height = 31
          Hint = 'Ende'
          Caption = 'Ende'
          TabOrder = 2
          Glyph.Data = {
            36040000424D3604000000000000360000002800000010000000100000000100
            2000000000000004000000000000000000000000000000000000FF00FF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FF00FF00FFFFFF008494
            DE000831B5001031BD001839BD001839B5001839BD001039BD001031BD000831
            C6000831C6000029BD000029C6000021B5007B94D600FFFFFF00FFFFFF001039
            D6001842DE00294ADE002952DE002952DE002952DE002952DE00214ADE00184A
            E7001042E7000842E7000039E7000031D6000021B500FFFFFF00FFFFFF001842
            DE002952E700315AE7004263E7007B94EF00E7EFFF00FFFFFF00FFFFFF00DEE7
            FF007394F700104AEF000842EF000039E7000029BD00FFFFFF00FFFFFF00214A
            DE00395AE7004263E700A5B5F700FFFFFF00BDCEF700738CEF006B8CEF00BDCE
            FF00FFFFFF009CB5F700084AEF000839E7000029C600FFFFFF00FFFFFF002952
            E7004263E7008C9CEF00FFFFFF00849CEF00426BE7004263E7003163EF00295A
            EF007394F700FFFFFF006B8CF7000842E7000831C600FFFFFF00FFFFFF00315A
            E7004A6BE700EFEFFF00BDC6F7004A6BE7004A6BE700FFFFFF00FFFFFF00295A
            EF002152EF00B5C6FF00DEE7FF00184AE7001039C600FFFFFF00FFFFFF00395A
            E700526BE700FFFFFF008494EF00526BE7004A6BE700FFFFFF00FFFFFF00295A
            E7002152E7006384EF00FFFFFF00184ADE001839C600FFFFFF00FFFFFF004263
            E7005A73EF00FFFFFF008494EF00526BE7004A63E700FFFFFF00FFFFFF002952
            E7002152E7006384EF00FFFFFF00214ADE001839BD00FFFFFF00FFFFFF004A6B
            E700637BEF00EFF7FF00B5C6F700526BE7004A63E700FFFFFF00FFFFFF002952
            E700214AE700B5BDF700E7E7FF002952DE002142BD00FFFFFF00FFFFFF00526B
            E7006B84EF0094ADF700FFFFFF008494EF004A63E7004263E700395AE7003152
            E7006B84EF00FFFFFF00738CEF002952DE002142BD00FFFFFF00FFFFFF005A7B
            EF007B94EF00738CEF00A5B5F700FFFFFF00B5BDF7007384EF006B84EF00B5BD
            F700FFFFFF0094ADF7003152E7002952DE002142BD00FFFFFF00FFFFFF006B84
            EF008CA5EF008494EF006B8CEF0094ADF700EFF7FF00FFFFFF00FFFFFF00EFEF
            FF008C9CEF004263E700395AE7003152DE001839BD00FFFFFF00FFFFFF00738C
            EF009CADF7008CA5EF007B94EF00738CEF006B84EF00637BEF00637BEF005A7B
            EF005273E7004A6BE7004263E7002952DE001839BD00FFFFFF00FFFFFF00B5BD
            F700738CEF006384EF005A73EF005273E7004A6BE7004A6BE7004A6BE7004263
            E7003963E700395AE7003152E7002142DE008C9CDE00FFFFFF00FF00FF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FF00FF00}
          Layout = blGlyphTop
          Spacing = 0
          Align = alRight
          OnClick = JvXPButton8Click
        end
        object JvXPButton10: TJvXPButton
          Left = 46
          Top = 1
          Width = 35
          Height = 31
          Hint = 'Setup'
          Caption = 'Setup'
          TabOrder = 1
          Glyph.Data = {
            36050000424D3605000000000000360400002800000010000000100000000100
            0800000000000001000000000000000000000001000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
            A6000020400000206000002080000020A0000020C0000020E000004000000040
            20000040400000406000004080000040A0000040C0000040E000006000000060
            20000060400000606000006080000060A0000060C0000060E000008000000080
            20000080400000806000008080000080A0000080C0000080E00000A0000000A0
            200000A0400000A0600000A0800000A0A00000A0C00000A0E00000C0000000C0
            200000C0400000C0600000C0800000C0A00000C0C00000C0E00000E0000000E0
            200000E0400000E0600000E0800000E0A00000E0C00000E0E000400000004000
            20004000400040006000400080004000A0004000C0004000E000402000004020
            20004020400040206000402080004020A0004020C0004020E000404000004040
            20004040400040406000404080004040A0004040C0004040E000406000004060
            20004060400040606000406080004060A0004060C0004060E000408000004080
            20004080400040806000408080004080A0004080C0004080E00040A0000040A0
            200040A0400040A0600040A0800040A0A00040A0C00040A0E00040C0000040C0
            200040C0400040C0600040C0800040C0A00040C0C00040C0E00040E0000040E0
            200040E0400040E0600040E0800040E0A00040E0C00040E0E000800000008000
            20008000400080006000800080008000A0008000C0008000E000802000008020
            20008020400080206000802080008020A0008020C0008020E000804000008040
            20008040400080406000804080008040A0008040C0008040E000806000008060
            20008060400080606000806080008060A0008060C0008060E000808000008080
            20008080400080806000808080008080A0008080C0008080E00080A0000080A0
            200080A0400080A0600080A0800080A0A00080A0C00080A0E00080C0000080C0
            200080C0400080C0600080C0800080C0A00080C0C00080C0E00080E0000080E0
            200080E0400080E0600080E0800080E0A00080E0C00080E0E000C0000000C000
            2000C0004000C0006000C0008000C000A000C000C000C000E000C0200000C020
            2000C0204000C0206000C0208000C020A000C020C000C020E000C0400000C040
            2000C0404000C0406000C0408000C040A000C040C000C040E000C0600000C060
            2000C0604000C0606000C0608000C060A000C060C000C060E000C0800000C080
            2000C0804000C0806000C0808000C080A000C080C000C080E000C0A00000C0A0
            2000C0A04000C0A06000C0A08000C0A0A000C0A0C000C0A0E000C0C00000C0C0
            2000C0C04000C0C06000C0C08000C0C0A000F0FBFF00A4A0A000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0005A4000000FF
            FF00050505F901F90003A400FFFFFFFF0005050505F901F9030300FF0000FFFF
            0005050505F901F903030000050500FF0005050505F901F9030500A4050500FF
            00050505F9F9F9F9F9050505A400FF00A40505000101010101050505000000A4
            0505000303030005050505050505050505000303030500050505050500000505
            0003030305050005050505000500050003030305050500050505000500000003
            030305050505000505050000000000000305050505A400A40505050500000000
            0005050505A400A4050505050300000000A4050505A400A40505050503030500
            0000000005050505050500000000000000000000000000000000}
          Layout = blGlyphTop
          Spacing = 0
          Align = alLeft
          OnClick = JvXPButton10Click
        end
      end
      object vgPanel4: TPanel
        Left = 0
        Top = 41
        Width = 428
        Height = 488
        Align = alClient
        TabOrder = 2
        object JvSplitter1: TJvSplitter
          Left = 1
          Top = 387
          Width = 426
          Height = 3
          Cursor = crVSplit
          Align = alBottom
        end
        object dex: TJvMemo
          Left = 1
          Top = 390
          Width = 426
          Height = 97
          Hint = 'Doppelklick zum '#228'ndern.'
          AutoSize = False
          MaxLines = 0
          HideCaret = False
          Align = alBottom
          Constraints.MinHeight = 10
          MaxLength = 254
          ReadOnly = True
          ScrollBars = ssBoth
          TabOrder = 1
          OnDblClick = dexDblClick
        end
        object vgPanel5: TPanel
          Left = 1
          Top = 1
          Width = 426
          Height = 386
          Align = alClient
          TabOrder = 0
          object JvSplitter2: TJvSplitter
            Left = 1
            Top = 74
            Width = 424
            Height = 3
            Cursor = crVSplit
            Align = alTop
          end
          object vgPanel6: TPanel
            Left = 1
            Top = 360
            Width = 424
            Height = 25
            Align = alBottom
            TabOrder = 2
            object Bevel4: TBevel
              Left = 1
              Top = 1
              Width = 25
              Height = 23
              Align = alLeft
              Shape = bsSpacer
            end
            object Bevel7: TBevel
              Left = 398
              Top = 1
              Width = 25
              Height = 23
              Align = alRight
              Shape = bsSpacer
            end
            object JvXPButton7: TJvXPButton
              Left = 26
              Top = 1
              Width = 372
              Height = 23
              Hint = 'angezeigte Daten in die Zwischenablage kopieren'
              Caption = 'in die Zwischenablage'
              TabOrder = 0
              Glyph.Data = {
                36050000424D3605000000000000360400002800000010000000100000000100
                0800000000000001000000000000000000000001000000000000000000000000
                80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
                A6000020400000206000002080000020A0000020C0000020E000004000000040
                20000040400000406000004080000040A0000040C0000040E000006000000060
                20000060400000606000006080000060A0000060C0000060E000008000000080
                20000080400000806000008080000080A0000080C0000080E00000A0000000A0
                200000A0400000A0600000A0800000A0A00000A0C00000A0E00000C0000000C0
                200000C0400000C0600000C0800000C0A00000C0C00000C0E00000E0000000E0
                200000E0400000E0600000E0800000E0A00000E0C00000E0E000400000004000
                20004000400040006000400080004000A0004000C0004000E000402000004020
                20004020400040206000402080004020A0004020C0004020E000404000004040
                20004040400040406000404080004040A0004040C0004040E000406000004060
                20004060400040606000406080004060A0004060C0004060E000408000004080
                20004080400040806000408080004080A0004080C0004080E00040A0000040A0
                200040A0400040A0600040A0800040A0A00040A0C00040A0E00040C0000040C0
                200040C0400040C0600040C0800040C0A00040C0C00040C0E00040E0000040E0
                200040E0400040E0600040E0800040E0A00040E0C00040E0E000800000008000
                20008000400080006000800080008000A0008000C0008000E000802000008020
                20008020400080206000802080008020A0008020C0008020E000804000008040
                20008040400080406000804080008040A0008040C0008040E000806000008060
                20008060400080606000806080008060A0008060C0008060E000808000008080
                20008080400080806000808080008080A0008080C0008080E00080A0000080A0
                200080A0400080A0600080A0800080A0A00080A0C00080A0E00080C0000080C0
                200080C0400080C0600080C0800080C0A00080C0C00080C0E00080E0000080E0
                200080E0400080E0600080E0800080E0A00080E0C00080E0E000C0000000C000
                2000C0004000C0006000C0008000C000A000C000C000C000E000C0200000C020
                2000C0204000C0206000C0208000C020A000C020C000C020E000C0400000C040
                2000C0404000C0406000C0408000C040A000C040C000C040E000C0600000C060
                2000C0604000C0606000C0608000C060A000C060C000C060E000C0800000C080
                2000C0804000C0806000C0808000C080A000C080C000C080E000C0A00000C0A0
                2000C0A04000C0A06000C0A08000C0A0A000C0A0C000C0A0E000C0C00000C0C0
                2000C0C04000C0C06000C0C08000C0C0A000F0FBFF00A4A0A000808080000000
                FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00ADADAD00FB5B
                FFFFFFFFFFFB00ADADADADADAD00FB5BFFFFFFFFFFFB00ADADAD000000000000
                005B5B00005B00ADADADFFFFFFFFFFFF0000005B5BFB00ADADADFFFFFFFFFFFF
                0000005BFBFB00ADADAD00FF000000FF000000F900005BADADADFFFFFFFFFFFF
                00ADF9F9F9ADADADADAD000000FF00FF00F9F9F9F9F9ADADADADFFFFFFFFFFFF
                F9F9F9F9F9F9F9ADADAD00FF0000000000ADF9F9F9000000ADADFFFF00FFFF00
                ADADF9F9F900FC00ADADADFF00FF00ADADADF9F9F9000000ADADFFFF0000ADF9
                F9F9F9F9ADADADADADAD000000ADAD000000AD000000AD000000ADADADADAD00
                FC00AD00FC00AD00FC00ADADADADAD000000AD000000AD000000}
              Align = alClient
              OnClick = JvXPButton7Click
            end
          end
          object vgPanel8: TPanel
            Left = 1
            Top = 1
            Width = 424
            Height = 73
            Align = alTop
            Constraints.MinHeight = 32
            TabOrder = 0
            object Label12: TLabel
              Left = 1
              Top = 1
              Width = 422
              Height = 13
              Align = alTop
              Caption = 'Gruppe:'
            end
            object JvListBox2: TJvListBox
              Left = 1
              Top = 14
              Width = 422
              Height = 58
              Align = alClient
              Constraints.MinHeight = 18
              ItemHeight = 15
              Items.Strings = (
                'ds'
                'sd'
                'sdsd')
              Background.FillMode = bfmTile
              Background.Visible = False
              Style = lbOwnerDrawFixed
              TabOrder = 0
              OnClick = JvListBox2Click
              OnKeyPress = JvListBox2KeyPress
            end
          end
          object vgPanel9: TPanel
            Left = 1
            Top = 77
            Width = 424
            Height = 283
            Align = alClient
            TabOrder = 1
            object Label13: TLabel
              Left = 1
              Top = 1
              Width = 422
              Height = 14
              Align = alTop
              Caption = 'Eintr'#228'ge:'
              Font.Charset = EASTEUROPE_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'Arial'
              Font.Style = [fsBold]
              ParentFont = False
            end
            object JvListBox1: TJvListBox
              Left = 1
              Top = 15
              Width = 422
              Height = 267
              Align = alClient
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -12
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ItemHeight = 13
              Background.FillMode = bfmTile
              Background.Visible = False
              ParentFont = False
              TabOrder = 0
              OnClick = JvListBox1Click
              OnDblClick = JvListBox1DblClick
              OnKeyPress = JvListBox1KeyPress
            end
          end
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'TabSheet2'
      ImageIndex = 1
      object Label1: TLabel
        Left = 8
        Top = 16
        Width = 94
        Height = 13
        Caption = 'Standartdatenbank:'
      end
      object Label3: TLabel
        Left = 8
        Top = 184
        Width = 82
        Height = 13
        Caption = 'Programmhotkey:'
      end
      object Label2: TLabel
        Left = 86
        Top = 424
        Width = 63
        Height = 13
        Caption = 'x Sekunden :'
      end
      object Label9: TLabel
        Left = 16
        Top = 464
        Width = 83
        Height = 13
        Caption = 'Textg'#246'sse Listen:'
      end
      object Label10: TLabel
        Left = 16
        Top = 504
        Width = 76
        Height = 13
        Caption = 'Textg'#246'sse Text:'
      end
      object JvXPButton1: TJvXPButton
        Left = 320
        Top = 24
        Height = 29
        TabOrder = 0
        Glyph.Data = {
          B6040000424DB604000000000000B60000002800000010000000100000000100
          2000000000000004000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00008080000080
          8000008080000080800000808000008080000080800000808000008080000080
          8000008080000080800000808000008080000080800000808000008080000080
          8000008080000080800000808000008080000080800000808000008080000080
          8000008080000080800000808000008080000080800000808000008080000080
          8000008080000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000008080000080
          8000808080008080800080808000808080008080800080808000808080008080
          8000808080008080800080808000808080000000000000000000008080000080
          800080808000FFFFFF0000FFFF00C0C0C00000FFFF00C0C0C00000FFFF00C0C0
          C00000FFFF00C0C0C00000FFFF00808080000000000000000000008080008080
          8000FFFFFF0000FFFF00C0C0C00000FFFF00C0C0C00000FFFF00C0C0C00000FF
          FF00C0C0C00000FFFF00C0C0C000000000008080800000000000008080008080
          8000FFFFFF00C0C0C00000FFFF00C0C0C00000FFFF00C0C0C00000FFFF00C0C0
          C00000FFFF00C0C0C0008080800000000000808080000000000080808000FFFF
          FF00C0C0C00000FFFF00C0C0C00000FFFF00C0C0C00000FFFF00C0C0C00000FF
          FF00C0C0C00000FFFF000000000080808000808080000000000080808000FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF008080800000000000C0C0C0008080800000000000808080008080
          8000808080008080800080808000808080008080800080808000808080008080
          800080808000808080008080800000FFFF008080800000000000008080008080
          8000FFFFFF00C0C0C00000FFFF00C0C0C00000FFFF00C0C0C00000FFFF00C0C0
          C00000FFFF00C0C0C00000FFFF00C0C0C0008080800000000000008080008080
          8000FFFFFF0000FFFF00C0C0C00000FFFF00C0C0C00000FFFF00C0C0C000FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008080800000000000008080008080
          8000FFFFFF00C0C0C00000FFFF00C0C0C00000FFFF00C0C0C000FFFFFF008080
          8000808080008080800080808000808080008080800000808000008080000080
          800080808000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00808080000080
          8000008080000080800000808000008080000080800000808000008080000080
          8000008080008080800080808000808080008080800080808000008080000080
          8000008080000080800000808000008080000080800000808000008080000080
          8000008080000080800000808000008080000080800000808000008080000080
          8000008080000080800000808000008080000080800000808000}
        OnClick = JvXPButton1Click
      end
      object jvedit1: TJvEdit
        Left = 8
        Top = 32
        Width = 305
        Height = 21
        Modified = False
        TabOrder = 1
      end
      object vgPanel3: TPanel
        Left = 0
        Top = 521
        Width = 428
        Height = 41
        Align = alBottom
        TabOrder = 2
        object Bevel2: TBevel
          Left = 422
          Top = 1
          Width = 5
          Height = 39
          Align = alRight
          Shape = bsSpacer
        end
        object JvXPButton5: TJvXPButton
          Left = 272
          Top = 1
          Width = 150
          Height = 39
          Caption = 'Ok zur'#252'ck'
          TabOrder = 0
          Glyph.Data = {
            F6000000424DF600000000000000760000002800000010000000100000000100
            0400000000008000000000000000000000001000000010000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00700000000007
            7777033000070307777703300007030007770330000003030777033333333303
            0007033000003303030703077777030303070307777703030307030777770003
            0307030777770703030700000000000003077703077777070307770000000000
            0007777703077777070777770000000000077777777777777777}
          Align = alRight
          OnClick = JvXPButton5Click
        end
      end
      object JvXPCheckbox1: TJvXPCheckbox
        Left = 8
        Top = 64
        Width = 297
        Height = 17
        Caption = 'an den Bilschirmrand andocken'
        TabOrder = 3
      end
      object JvXPCheckbox2: TJvXPCheckbox
        Left = 8
        Top = 96
        Width = 353
        Height = 33
        Caption = 
          'doppelklick in der Datenliste kopiert die Daten in die Zwischena' +
          'blage wie der Button im Hauptdialog'
        TabOrder = 4
        Checked = True
      end
      object JvHotKey1: TJvHotKey
        Left = 96
        Top = 179
        Width = 121
        Height = 23
        HotKey = 0
        Modifiers = []
        TabOrder = 5
        ParentColor = False
      end
      object JvXPCheckbox3: TJvXPCheckbox
        Left = 8
        Top = 216
        Width = 353
        Height = 17
        Caption = 'Hotkey minimiert und holt das Fenster zur'#252'ck'
        TabOrder = 6
        Checked = True
      end
      object JvXPCheckbox4: TJvXPCheckbox
        Left = 8
        Top = 136
        Width = 353
        Height = 33
        Caption = 
          'Beim kopieren in die Zwischenablage durch den Butten Programm mi' +
          'nimieren'
        TabOrder = 7
        Checked = True
      end
      object JvXPCheckbox5: TJvXPCheckbox
        Left = 8
        Top = 248
        Width = 353
        Height = 17
        Caption = 'ESC-minimiert den Programmdialog'
        TabOrder = 8
        Checked = True
      end
      object JvXPCheckbox6: TJvXPCheckbox
        Left = 8
        Top = 280
        Width = 353
        Height = 17
        Caption = 'Programmfenter immer OnTop zeigen'
        TabOrder = 9
      end
      object JvXPCheckbox7: TJvXPCheckbox
        Left = 8
        Top = 384
        Width = 353
        Height = 33
        Caption = 
          'beim verlassen der Oberfl'#228'che das Programm automatisch nach x Se' +
          'kunden minimieren'
        TabOrder = 10
      end
      object JvSpinEdit1: TJvSpinEdit
        Left = 152
        Top = 421
        Width = 57
        Height = 21
        MaxValue = 999.000000000000000000
        MinValue = 1.000000000000000000
        Value = 3.000000000000000000
        TabOrder = 11
      end
      object JvSpinEdit2: TJvSpinEdit
        Left = 96
        Top = 461
        Width = 57
        Height = 21
        MaxValue = 20.000000000000000000
        MinValue = 8.000000000000000000
        Value = 10.000000000000000000
        TabOrder = 12
      end
      object JvSpinEdit3: TJvSpinEdit
        Left = 96
        Top = 501
        Width = 57
        Height = 21
        MaxValue = 20.000000000000000000
        MinValue = 8.000000000000000000
        Value = 8.000000000000000000
        TabOrder = 13
      end
      object JvXPCheckbox8: TJvXPCheckbox
        Left = 8
        Top = 312
        Width = 353
        Height = 17
        Caption = 'beim Programmstart direkt minimieren'
        TabOrder = 14
      end
      object JvXPCheckbox9: TJvXPCheckbox
        Left = 8
        Top = 344
        Width = 353
        Height = 17
        Caption = 'beim Systemstart mitstarten'
        TabOrder = 15
      end
      object JvXPCheckbox10: TJvXPCheckbox
        Left = 8
        Top = 536
        Width = 161
        Height = 17
        Caption = 'Kurzhilfen zeigen'
        TabOrder = 16
        Checked = True
      end
      object JvXPCheckbox11: TJvXPCheckbox
        Left = 200
        Top = 464
        Width = 249
        Height = 17
        Caption = 'Gruppen zentriert anzeigen'
        TabOrder = 17
      end
      object JvXPCheckbox12: TJvXPCheckbox
        Left = 200
        Top = 488
        Width = 249
        Height = 17
        Caption = 'Titel zentriert anzeigen'
        TabOrder = 18
      end
      object JvXPCheckbox13: TJvXPCheckbox
        Left = 200
        Top = 520
        Width = 249
        Height = 17
        Caption = 'Listen mit Scrollbars'
        TabOrder = 19
        Checked = True
      end
      object JvXPCheckbox14: TJvXPCheckbox
        Left = 200
        Top = 544
        Width = 249
        Height = 17
        Caption = 'Hauptmemo mit Scrollbars'
        TabOrder = 20
        Checked = True
      end
      object JvXPCheckbox15: TJvXPCheckbox
        Left = 200
        Top = 568
        Width = 249
        Height = 17
        Caption = 'Hauptmemo mit Wordwrap'
        TabOrder = 21
        Checked = True
      end
      object JvXPCheckbox16: TJvXPCheckbox
        Left = 8
        Top = 579
        Width = 161
        Height = 17
        Caption = 'Clipboard'#252'berwachung'
        TabOrder = 22
        Checked = True
      end
      object JvXPCheckbox17: TJvXPCheckbox
        Left = 8
        Top = 558
        Width = 161
        Height = 17
        Caption = 'Keine Buttontexte'
        TabOrder = 23
      end
    end
    object TabSheet3: TTabSheet
      Caption = 'TabSheet3'
      ImageIndex = 2
      object Bevel13: TBevel
        Left = 0
        Top = 49
        Width = 428
        Height = 25
        Align = alTop
        Shape = bsSpacer
      end
      object Label4: TLabel
        Left = 0
        Top = 25
        Width = 428
        Height = 24
        Align = alTop
        Alignment = taCenter
        Caption = 'KW'#39's Textbausteinverwaltung'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Bevel14: TBevel
        Left = 0
        Top = 0
        Width = 428
        Height = 25
        Align = alTop
        Shape = bsSpacer
      end
      object Label5: TLabel
        Left = 0
        Top = 74
        Width = 428
        Height = 16
        Align = alTop
        Alignment = taCenter
        Caption = 'Freeware'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label6: TLabel
        Left = 0
        Top = 105
        Width = 428
        Height = 16
        Align = alTop
        Alignment = taCenter
        Caption = 'Copyright by K.Wolter'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label7: TLabel
        Left = 0
        Top = 136
        Width = 428
        Height = 13
        Align = alTop
        Alignment = taCenter
        Caption = 'www.software-by-kw.de'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Bevel16: TBevel
        Left = 0
        Top = 90
        Width = 428
        Height = 15
        Align = alTop
        Shape = bsSpacer
      end
      object Bevel17: TBevel
        Left = 0
        Top = 121
        Width = 428
        Height = 15
        Align = alTop
        Shape = bsSpacer
      end
      object Bevel18: TBevel
        Left = 0
        Top = 149
        Width = 428
        Height = 10
        Align = alTop
        Shape = bsSpacer
      end
      object Label11: TLabel
        Left = 0
        Top = 159
        Width = 428
        Height = 13
        Align = alTop
        Alignment = taCenter
        Caption = 'Version 1.1'
      end
      object vgPanel7: TPanel
        Left = 0
        Top = 521
        Width = 428
        Height = 41
        Align = alBottom
        TabOrder = 0
        object Bevel12: TBevel
          Left = 422
          Top = 1
          Width = 5
          Height = 39
          Align = alRight
          Shape = bsSpacer
        end
        object JvXPButton11: TJvXPButton
          Left = 272
          Top = 1
          Width = 150
          Height = 39
          Caption = 'Ok zur'#252'ck'
          TabOrder = 0
          Glyph.Data = {
            F6000000424DF600000000000000760000002800000010000000100000000100
            0400000000008000000000000000000000001000000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
            5555555555555555555555555205555555555555222055555555555522205555
            5555555222220555555555222222055555555822052220555555820555522055
            5555555555522205555555555555220555555555555552205555555555555582
            0555555555555558205555555555555552205555555555555555}
          Align = alRight
          OnClick = JvXPButton5Click
        end
      end
      object JvXPButton12: TJvXPButton
        Left = 88
        Top = 200
        Width = 177
        Height = 65
        Caption = 'Updates vorhanden ?'
        TabOrder = 1
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          0400000000008000000000000000000000001000000010000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
          55555555544C4C5555555554C444C4445555554C43344444455554C4C334C4C4
          335554CCC33344443355CCCCC333CCC4C4454CC33333CCC444C5C4333333C3C4
          CCC54CC33333333C4C45CCC33CC4333CC4C55CCCCC3333334C5554C333333333
          CC55553333CC3C33C55555533CC4C4CC555555555C4CCC555555}
        Layout = blGlyphTop
        Spacing = 5
        OnClick = JvXPButton12Click
      end
      object JvXPButton19: TJvXPButton
        Left = 120
        Top = 288
        Width = 161
        Height = 49
        Caption = 'Hilfe'
        TabOrder = 2
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          0400000000008000000000000000000000001000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
          888888888880088888888888880B308888888888880B30888888888888800888
          88888888880B308888888888880B308888888888880B308888888888880BB308
          888888880080BB3088888880B3080BB308888880B30880B308888880BB300BB3
          088888880BBBBB30888888888000000888888888888888888888}
        Spacing = 8
        OnClick = JvXPButton19Click
      end
    end
    object TabSheet4: TTabSheet
      Caption = 'TabSheet4'
      ImageIndex = 3
      object JvSplitter3: TJvSplitter
        Left = 0
        Top = 210
        Width = 428
        Height = 3
        Cursor = crVSplit
        Align = alBottom
      end
      object vgPanel11: TPanel
        Left = 0
        Top = 0
        Width = 428
        Height = 33
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 0
        object Bevel19: TBevel
          Left = 0
          Top = 0
          Width = 5
          Height = 33
          Align = alLeft
          Shape = bsSpacer
        end
        object Bevel20: TBevel
          Left = 40
          Top = 0
          Width = 5
          Height = 33
          Align = alLeft
          Shape = bsSpacer
        end
        object Bevel21: TBevel
          Left = 80
          Top = 0
          Width = 5
          Height = 33
          Align = alLeft
          Shape = bsSpacer
        end
        object Bevel22: TBevel
          Left = 423
          Top = 0
          Width = 5
          Height = 33
          Align = alRight
          Shape = bsSpacer
        end
        object Bevel25: TBevel
          Left = 120
          Top = 0
          Width = 5
          Height = 33
          Align = alLeft
          Shape = bsSpacer
        end
        object JvXPButton14: TJvXPButton
          Left = 5
          Top = 0
          Width = 35
          Height = 33
          Hint = 'Setup'
          TabOrder = 0
          Glyph.Data = {
            36050000424D3605000000000000360400002800000010000000100000000100
            0800000000000001000000000000000000000001000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
            A6000020400000206000002080000020A0000020C0000020E000004000000040
            20000040400000406000004080000040A0000040C0000040E000006000000060
            20000060400000606000006080000060A0000060C0000060E000008000000080
            20000080400000806000008080000080A0000080C0000080E00000A0000000A0
            200000A0400000A0600000A0800000A0A00000A0C00000A0E00000C0000000C0
            200000C0400000C0600000C0800000C0A00000C0C00000C0E00000E0000000E0
            200000E0400000E0600000E0800000E0A00000E0C00000E0E000400000004000
            20004000400040006000400080004000A0004000C0004000E000402000004020
            20004020400040206000402080004020A0004020C0004020E000404000004040
            20004040400040406000404080004040A0004040C0004040E000406000004060
            20004060400040606000406080004060A0004060C0004060E000408000004080
            20004080400040806000408080004080A0004080C0004080E00040A0000040A0
            200040A0400040A0600040A0800040A0A00040A0C00040A0E00040C0000040C0
            200040C0400040C0600040C0800040C0A00040C0C00040C0E00040E0000040E0
            200040E0400040E0600040E0800040E0A00040E0C00040E0E000800000008000
            20008000400080006000800080008000A0008000C0008000E000802000008020
            20008020400080206000802080008020A0008020C0008020E000804000008040
            20008040400080406000804080008040A0008040C0008040E000806000008060
            20008060400080606000806080008060A0008060C0008060E000808000008080
            20008080400080806000808080008080A0008080C0008080E00080A0000080A0
            200080A0400080A0600080A0800080A0A00080A0C00080A0E00080C0000080C0
            200080C0400080C0600080C0800080C0A00080C0C00080C0E00080E0000080E0
            200080E0400080E0600080E0800080E0A00080E0C00080E0E000C0000000C000
            2000C0004000C0006000C0008000C000A000C000C000C000E000C0200000C020
            2000C0204000C0206000C0208000C020A000C020C000C020E000C0400000C040
            2000C0404000C0406000C0408000C040A000C040C000C040E000C0600000C060
            2000C0604000C0606000C0608000C060A000C060C000C060E000C0800000C080
            2000C0804000C0806000C0808000C080A000C080C000C080E000C0A00000C0A0
            2000C0A04000C0A06000C0A08000C0A0A000C0A0C000C0A0E000C0C00000C0C0
            2000C0C04000C0C06000C0C08000C0C0A000F0FBFF00A4A0A000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0005A4000000FF
            FF00050505F901F90003A400FFFFFFFF0005050505F901F9030300FF0000FFFF
            0005050505F901F903030000050500FF0005050505F901F9030500A4050500FF
            00050505F9F9F9F9F9050505A400FF00A40505000101010101050505000000A4
            0505000303030005050505050505050505000303030500050505050500000505
            0003030305050005050505000500050003030305050500050505000500000003
            030305050505000505050000000000000305050505A400A40505050500000000
            0005050505A400A4050505050300000000A4050505A400A40505050503030500
            0000000005050505050500000000000000000000000000000000}
          Spacing = 0
          Align = alLeft
          OnClick = JvXPButton10Click
        end
        object JvXPButton15: TJvXPButton
          Left = 45
          Top = 0
          Width = 35
          Height = 33
          Hint = 'neuer Eintrag aus gesicherter Zwischenablage'
          TabOrder = 1
          Glyph.Data = {
            B6040000424DB604000000000000B60000002800000010000000100000000100
            2000000000000004000000000000000000001000000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00800080008000
            8000800080008000800080008000800080008000800080008000800080008000
            8000800080008000800080008000800080008000800080008000800080008000
            8000800080000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000800080008000800080008000800080008000
            8000800080000000000000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FF
            FF0000FFFF0000FFFF0000000000800080008000800080008000800080008000
            8000800080000000000000FFFF000000000000000000000000000000000000FF
            FF0000FFFF0000FFFF0000000000800080008000800080008000800080008000
            8000800080000000000000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FF
            FF0000FFFF0000FFFF0000000000800080008000800080008000800080008000
            8000800080000000000000FFFF00000000000000000000000000000000000000
            00000000000000FFFF0000000000800080008000800080008000800080008000
            8000800080000000000000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FF
            FF0000FFFF0000FFFF0000000000800080008000800080008000800080008000
            8000800080000000000000FFFF00000000000000000000000000000000000000
            00000000000000FFFF0000000000800080008000800080008000800080008000
            8000800080000000000000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FF
            FF0000FFFF0000FFFF0000000000800080008000800080008000800080008000
            8000800080000000000000FFFF0000000000000000000000000000FFFF0000FF
            FF0000FFFF0000FFFF0000000000800080008000800080008000800080008000
            8000800080000000000000FFFF0000FFFF0000FFFF0000FFFF0000FFFF000000
            0000000000000000000000000000800080008000800080008000800080008000
            8000800080000000000000FFFF00000000000000000000FFFF0000FFFF000000
            0000008080000000000080008000800080008000800080008000800080008000
            8000800080000000000000FFFF0000FFFF0000FFFF0000FFFF0000FFFF000000
            0000000000008000800080008000800080008000800080008000800080008000
            8000800080000000000000000000000000000000000000000000000000000000
            0000800080008000800080008000800080008000800080008000800080008000
            8000800080008000800080008000800080008000800080008000800080008000
            8000800080008000800080008000800080008000800080008000800080008000
            8000800080008000800080008000800080008000800080008000800080008000
            8000800080008000800080008000800080008000800080008000}
          Spacing = 0
          Align = alLeft
          OnClick = JvXPButton15Click
        end
        object JvXPButton16: TJvXPButton
          Left = 388
          Top = 0
          Width = 35
          Height = 33
          Hint = 'Hauptdialog'
          TabOrder = 3
          Glyph.Data = {
            F6000000424DF600000000000000760000002800000010000000100000000100
            0400000000008000000000000000000000001000000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            33333333333C0C33333333333CC0F0C333333333C30F0F0C3333333C00FFF0F0
            C3333CC0FFFFFF0F0C33C30F0FFFFFF0F0C300FFF0FFFFFF0F0C0FFFFF0FFFFF
            F0F030FFFFF0FFFFFF03330FFFFF0FFF00333330FFFFF000333333330FFF0333
            3333333330003333333333333333333333333333333333333333}
          Spacing = 0
          Align = alRight
          OnClick = JvXPButton16Click
        end
        object JvXPButton17: TJvXPButton
          Left = 85
          Top = 0
          Width = 35
          Height = 33
          Hint = 'in die Zwischenablage kopieren'
          TabOrder = 2
          Glyph.Data = {
            36050000424D3605000000000000360400002800000010000000100000000100
            0800000000000001000000000000000000000001000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
            A6000020400000206000002080000020A0000020C0000020E000004000000040
            20000040400000406000004080000040A0000040C0000040E000006000000060
            20000060400000606000006080000060A0000060C0000060E000008000000080
            20000080400000806000008080000080A0000080C0000080E00000A0000000A0
            200000A0400000A0600000A0800000A0A00000A0C00000A0E00000C0000000C0
            200000C0400000C0600000C0800000C0A00000C0C00000C0E00000E0000000E0
            200000E0400000E0600000E0800000E0A00000E0C00000E0E000400000004000
            20004000400040006000400080004000A0004000C0004000E000402000004020
            20004020400040206000402080004020A0004020C0004020E000404000004040
            20004040400040406000404080004040A0004040C0004040E000406000004060
            20004060400040606000406080004060A0004060C0004060E000408000004080
            20004080400040806000408080004080A0004080C0004080E00040A0000040A0
            200040A0400040A0600040A0800040A0A00040A0C00040A0E00040C0000040C0
            200040C0400040C0600040C0800040C0A00040C0C00040C0E00040E0000040E0
            200040E0400040E0600040E0800040E0A00040E0C00040E0E000800000008000
            20008000400080006000800080008000A0008000C0008000E000802000008020
            20008020400080206000802080008020A0008020C0008020E000804000008040
            20008040400080406000804080008040A0008040C0008040E000806000008060
            20008060400080606000806080008060A0008060C0008060E000808000008080
            20008080400080806000808080008080A0008080C0008080E00080A0000080A0
            200080A0400080A0600080A0800080A0A00080A0C00080A0E00080C0000080C0
            200080C0400080C0600080C0800080C0A00080C0C00080C0E00080E0000080E0
            200080E0400080E0600080E0800080E0A00080E0C00080E0E000C0000000C000
            2000C0004000C0006000C0008000C000A000C000C000C000E000C0200000C020
            2000C0204000C0206000C0208000C020A000C020C000C020E000C0400000C040
            2000C0404000C0406000C0408000C040A000C040C000C040E000C0600000C060
            2000C0604000C0606000C0608000C060A000C060C000C060E000C0800000C080
            2000C0804000C0806000C0808000C080A000C080C000C080E000C0A00000C0A0
            2000C0A04000C0A06000C0A08000C0A0A000C0A0C000C0A0E000C0C00000C0C0
            2000C0C04000C0C06000C0C08000C0C0A000F0FBFF00A4A0A000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00ADADAD00FB5B
            FFFFFFFFFFFB00ADADADADADAD00FB5BFFFFFFFFFFFB00ADADAD000000000000
            005B5B00005B00ADADADFFFFFFFFFFFF0000005B5BFB00ADADADFFFFFFFFFFFF
            0000005BFBFB00ADADAD00FF000000FF000000F900005BADADADFFFFFFFFFFFF
            00ADF9F9F9ADADADADAD000000FF00FF00F9F9F9F9F9ADADADADFFFFFFFFFFFF
            F9F9F9F9F9F9F9ADADAD00FF0000000000ADF9F9F9000000ADADFFFF00FFFF00
            ADADF9F9F900FC00ADADADFF00FF00ADADADF9F9F9000000ADADFFFF0000ADF9
            F9F9F9F9ADADADADADAD000000ADAD000000AD000000AD000000ADADADADAD00
            FC00AD00FC00AD00FC00ADADADADAD000000AD000000AD000000}
          Align = alLeft
          OnClick = JvXPButton17Click
        end
        object JvXPButton20: TJvXPButton
          Left = 125
          Top = 0
          Width = 35
          Height = 33
          Hint = 'angew'#228'hlten Eintrag l'#246'schen'
          TabOrder = 4
          Glyph.Data = {
            360C0000424D360C000000000000360800002800000010000000100000000100
            200000000000000400000000000000000000000100000000000004020400FCFE
            FC00FC02FC000000000000000000000000000000000000000000000000000000
            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
            0000000000000000000000000000000000000000000000000000FC02FC00FC02
            FC00FC02FC00FC02FC00FC02FC00040204000402040004020400040204000402
            04000402040004020400FC02FC00FC02FC00FC02FC00FC02FC00FC02FC00FC02
            FC00FC02FC00FC02FC0004020400FCFEFC0004020400FCFEFC0004020400FCFE
            FC0004020400FCFEFC0004020400FC02FC00FC02FC00FC02FC00FC02FC00FC02
            FC00FC02FC00FC02FC0004020400FCFEFC0004020400FCFEFC0004020400FCFE
            FC0004020400FCFEFC0004020400FC02FC00FC02FC00FC02FC00FC02FC00FC02
            FC00FC02FC00FC02FC0004020400FCFEFC0004020400FCFEFC0004020400FCFE
            FC0004020400FCFEFC0004020400FC02FC00FC02FC00FC02FC00FC02FC00FC02
            FC00FC02FC00FC02FC0004020400FCFEFC0004020400FCFEFC0004020400FCFE
            FC0004020400FCFEFC0004020400FC02FC00FC02FC00FC02FC00FC02FC00FC02
            FC00FC02FC00FC02FC0004020400FCFEFC0004020400FCFEFC0004020400FCFE
            FC0004020400FCFEFC0004020400FC02FC00FC02FC00FC02FC00FC02FC00FC02
            FC00FC02FC00FC02FC0004020400FCFEFC0004020400FCFEFC0004020400FCFE
            FC0004020400FCFEFC0004020400FC02FC00FC02FC00FC02FC00FC02FC00FC02
            FC00FC02FC00FC02FC0004020400FCFEFC0004020400FCFEFC0004020400FCFE
            FC0004020400FCFEFC0004020400FC02FC00FC02FC00FC02FC00FC02FC00FC02
            FC00FC02FC00FC02FC0004020400FCFEFC0004020400FCFEFC0004020400FCFE
            FC0004020400FCFEFC0004020400FC02FC00FC02FC00FC02FC00FC02FC00FC02
            FC00FC02FC00FC02FC0004020400FCFEFC0004020400FCFEFC0004020400FCFE
            FC0004020400FCFEFC0004020400FC02FC00FC02FC00FC02FC00FC02FC00FC02
            FC00FC02FC00FC02FC0004020400FCFEFC0004020400FCFEFC0004020400FCFE
            FC0004020400FCFEFC0004020400FC02FC00FC02FC00FC02FC00FC02FC00FC02
            FC00FC02FC000402040004020400040204000402040004020400040204000402
            040004020400040204000402040004020400FC02FC00FC02FC00FC02FC00FC02
            FC00FC02FC0004020400FCFEFC00FCFEFC00FCFEFC00FCFEFC00FCFEFC00FCFE
            FC00FCFEFC00FCFEFC00FCFEFC0004020400FC02FC00FC02FC00FC02FC00FC02
            FC00FC02FC00FC02FC0004020400040204000402040004020400040204000402
            0400040204000402040004020400FC02FC00FC02FC00FC02FC00FC02FC00FC02
            FC00FC02FC00FC02FC00FC02FC00FC02FC00FC02FC0004020400040204000402
            0400FC02FC00FC02FC00FC02FC00FC02FC00FC02FC00FC02FC00FC02FC00FC02
            FC00FC02FC00FC02FC00FC02FC00FC02FC00FC02FC00FC02FC00FC02FC00FC02
            FC00FC02FC00FC02FC00FC02FC00FC02FC00FC02FC00FC02FC00}
          Align = alLeft
          OnClick = JvXPButton20Click
        end
      end
      object vgPanel12: TPanel
        Left = 0
        Top = 33
        Width = 428
        Height = 177
        Align = alClient
        BevelOuter = bvNone
        TabOrder = 1
        object Label8: TLabel
          Left = 0
          Top = 0
          Width = 428
          Height = 13
          Align = alTop
          Caption = 'Zwischenablagenspeicher'
        end
        object JvListBox3: TJvListBox
          Left = 0
          Top = 13
          Width = 428
          Height = 139
          Align = alClient
          ItemHeight = 13
          Background.FillMode = bfmTile
          Background.Visible = False
          TabOrder = 0
          OnClick = JvListBox3Click
          OnDblClick = JvListBox3DblClick
        end
        object vgPanel14: TPanel
          Left = 0
          Top = 152
          Width = 428
          Height = 25
          Align = alBottom
          BevelOuter = bvNone
          TabOrder = 1
          object Bevel23: TBevel
            Left = 0
            Top = 0
            Width = 25
            Height = 25
            Align = alLeft
            Shape = bsSpacer
          end
          object Bevel24: TBevel
            Left = 403
            Top = 0
            Width = 25
            Height = 25
            Align = alRight
            Shape = bsSpacer
          end
          object JvXPButton18: TJvXPButton
            Left = 25
            Top = 0
            Width = 378
            Height = 25
            Hint = 'angezeigte Daten in die Zwischenablage kopieren'
            Caption = 'in die Zwischenablage'
            TabOrder = 0
            Glyph.Data = {
              36050000424D3605000000000000360400002800000010000000100000000100
              0800000000000001000000000000000000000001000000000000000000000000
              80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
              A6000020400000206000002080000020A0000020C0000020E000004000000040
              20000040400000406000004080000040A0000040C0000040E000006000000060
              20000060400000606000006080000060A0000060C0000060E000008000000080
              20000080400000806000008080000080A0000080C0000080E00000A0000000A0
              200000A0400000A0600000A0800000A0A00000A0C00000A0E00000C0000000C0
              200000C0400000C0600000C0800000C0A00000C0C00000C0E00000E0000000E0
              200000E0400000E0600000E0800000E0A00000E0C00000E0E000400000004000
              20004000400040006000400080004000A0004000C0004000E000402000004020
              20004020400040206000402080004020A0004020C0004020E000404000004040
              20004040400040406000404080004040A0004040C0004040E000406000004060
              20004060400040606000406080004060A0004060C0004060E000408000004080
              20004080400040806000408080004080A0004080C0004080E00040A0000040A0
              200040A0400040A0600040A0800040A0A00040A0C00040A0E00040C0000040C0
              200040C0400040C0600040C0800040C0A00040C0C00040C0E00040E0000040E0
              200040E0400040E0600040E0800040E0A00040E0C00040E0E000800000008000
              20008000400080006000800080008000A0008000C0008000E000802000008020
              20008020400080206000802080008020A0008020C0008020E000804000008040
              20008040400080406000804080008040A0008040C0008040E000806000008060
              20008060400080606000806080008060A0008060C0008060E000808000008080
              20008080400080806000808080008080A0008080C0008080E00080A0000080A0
              200080A0400080A0600080A0800080A0A00080A0C00080A0E00080C0000080C0
              200080C0400080C0600080C0800080C0A00080C0C00080C0E00080E0000080E0
              200080E0400080E0600080E0800080E0A00080E0C00080E0E000C0000000C000
              2000C0004000C0006000C0008000C000A000C000C000C000E000C0200000C020
              2000C0204000C0206000C0208000C020A000C020C000C020E000C0400000C040
              2000C0404000C0406000C0408000C040A000C040C000C040E000C0600000C060
              2000C0604000C0606000C0608000C060A000C060C000C060E000C0800000C080
              2000C0804000C0806000C0808000C080A000C080C000C080E000C0A00000C0A0
              2000C0A04000C0A06000C0A08000C0A0A000C0A0C000C0A0E000C0C00000C0C0
              2000C0C04000C0C06000C0C08000C0C0A000F0FBFF00A4A0A000808080000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00ADADAD00FB5B
              FFFFFFFFFFFB00ADADADADADAD00FB5BFFFFFFFFFFFB00ADADAD000000000000
              005B5B00005B00ADADADFFFFFFFFFFFF0000005B5BFB00ADADADFFFFFFFFFFFF
              0000005BFBFB00ADADAD00FF000000FF000000F900005BADADADFFFFFFFFFFFF
              00ADF9F9F9ADADADADAD000000FF00FF00F9F9F9F9F9ADADADADFFFFFFFFFFFF
              F9F9F9F9F9F9F9ADADAD00FF0000000000ADF9F9F9000000ADADFFFF00FFFF00
              ADADF9F9F900FC00ADADADFF00FF00ADADADF9F9F9000000ADADFFFF0000ADF9
              F9F9F9F9ADADADADADAD000000ADAD000000AD000000AD000000ADADADADAD00
              FC00AD00FC00AD00FC00ADADADADAD000000AD000000AD000000}
            Align = alClient
            OnClick = JvXPButton17Click
          end
        end
      end
      object vgPanel13: TPanel
        Left = 0
        Top = 213
        Width = 428
        Height = 349
        Align = alBottom
        BevelOuter = bvNone
        Constraints.MinHeight = 70
        TabOrder = 2
        object Label14: TLabel
          Left = 0
          Top = 0
          Width = 428
          Height = 13
          Align = alTop
          Caption = 'Gesicherte angew'#228'hlte Zwischenablage'
        end
        object vgPanel10: TPanel
          Left = 0
          Top = 320
          Width = 428
          Height = 29
          Align = alBottom
          BevelOuter = bvNone
          TabOrder = 0
          object Label15: TLabel
            Left = 97
            Top = 0
            Width = 331
            Height = 29
            Align = alClient
            Caption = 'Maximale Anzahl der zu erfassenden Textzwischenablagen'
            Layout = tlCenter
            WordWrap = True
          end
          object JvSpinEdit4: TJvSpinEdit
            Left = 0
            Top = 0
            Width = 97
            Height = 29
            Align = alLeft
            Alignment = taCenter
            ButtonKind = bkStandard
            Value = 20.000000000000000000
            TabOrder = 0
          end
        end
        object clipmemo: TJvMemo
          Left = 0
          Top = 13
          Width = 428
          Height = 307
          AutoSize = False
          MaxLines = 0
          HideCaret = False
          Align = alClient
          TabOrder = 1
        end
      end
    end
  end
  object dfsStatusBar1: TJvStatusBar
    Left = 0
    Top = 590
    Width = 436
    Height = 19
    Panels = <
      item
        Alignment = taCenter
        Width = 50
      end
      item
        Alignment = taCenter
        Width = 62
      end
      item
        Text = '- - '
        Width = 30
      end
      item
        Text = ' KW'#39's Textbausteinverwaltung '
        Width = 50
      end>
  end
  object JvAppEvents1: TJvAppEvents
    OnIdle = JvAppEvents1Idle
    Left = 368
    Top = 272
  end
  object JvFormMagnet1: TJvFormMagnet
    MainFormMagnet = True
    Left = 408
    Top = 496
  end
  object JvAppIniFileStorage1: TJvAppIniFileStorage
    StorageOptions.BooleanStringTrueValues = 'TRUE, YES, Y'
    StorageOptions.BooleanStringFalseValues = 'FALSE, NO, N'
    AutoFlush = True
    AutoReload = True
    FileName = 'kwstextbau.ini'
    SubStorages = <>
    Left = 408
    Top = 80
  end
  object JvFormStorage1: TJvFormStorage
    AppStorage = JvAppIniFileStorage1
    AppStoragePath = '%FORM_NAME%\'
    Options = [fpSize, fpLocation]
    StoredProps.Strings = (
      'JvXPCheckbox1.Checked'
      'JvXPCheckbox2.Checked'
      'JvXPCheckbox3.Checked'
      'JvXPCheckbox4.Checked'
      'JvXPCheckbox5.Checked'
      'JvXPCheckbox6.Checked'
      'JvXPCheckbox7.Checked'
      'JvXPCheckbox8.Checked'
      'JvXPCheckbox9.Checked'
      'JvXPCheckbox10.Checked'
      'JvXPCheckbox11.Checked'
      'JvXPCheckbox12.Checked'
      'JvXPCheckbox13.Checked'
      'JvXPCheckbox14.Checked'
      'JvXPCheckbox15.Checked'
      'JvXPCheckbox16.Checked'
      'JvXPCheckbox17.Checked'
      'JvHotKey1.HotKey'
      'JvSpinEdit1.Value'
      'JvSpinEdit2.Value'
      'JvSpinEdit3.Value'
      'JvSpinEdit4.Value'
      'dex.Height'
      'vgPanel8.Height'
      'vgPanel13.Height')
    StoredValues = <>
    Left = 408
    Top = 160
  end
  object JvOpenDialog1: TJvOpenDialog
    Height = 0
    Width = 0
    Left = 404
    Top = 448
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 500
    OnTimer = Timer1Timer
    Left = 396
    Top = 264
  end
  object JvApplicationHotKey1: TJvApplicationHotKey
    HotKey = 0
    OnHotKey = JvApplicationHotKey1HotKey
    Left = 372
    Top = 200
  end
  object cti: TJvTrayIcon
    Active = True
    Icon.Data = {
      0000010001002020100000000000E80200001600000028000000200000004000
      0000010004000000000080020000000000000000000000000000000000000000
      000000008000008000000080800080000000800080008080000080808000C0C0
      C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
      0000000000000000000000000000000000000000000000000088888888800000
      0000008888888800900000000080000000000088888888009FFFFFFFF0800088
      8888000000009809FFFCFCFFF080008888880FFFFFFF9809FFCFCFCFF0800000
      00000FFFFFF9809FFFCFCFCFF0800FFFFFFF0FFFFFF9809FFCCFCFCCF0800FFF
      FFFF0F99999009FFFCFFFFFCF0800FFFFFFFF9900000009FFCFFFFFCF0800FFF
      F990900009999809FCFFFFFCF0800F999000009999FFF9809FFFFFFFF0809900
      0009999FFFFFFF9809FFFFFFF080000088900FFFFFFFFFF9809FFFFFF0800889
      998F0FFFCFCCFFFF909FFFFFF080999FFFFF0FFFCFCFFFFF909999FFF0000FFF
      FFFF0FFFCCFFFFFF9888009999000FFFFFFF0FFFCCFFFFFF9999888000000FFF
      FFFF0FFFCFCFFFFFFFFF999000000FFFFFFF0FFFCFCFFFFFFFFFFF0000000FFF
      FFFF9FFF99FFFFFFFFFFFF0000000FFFFF99999999999FFFFFFFFF0000000FF9
      9900000000009FFFFFFFFF000000999000000000000009999999990000000000
      0889099999900000000000000000008899980FFFFFFF99990000000000000999
      FFFF0FFFFFFFFFF000000000000000FFFFFF0FFFFFFFFFF000000000000000FF
      FFFF00000000000000000000000000FFFFFFFFFFFFFFFFF000000000000000FF
      FFFFFFFFFFFFFFF000000000000000000000000000000000000000000000FFFF
      FFFFFFFFFC01FFC03001FFC03001C0002001C000200100004001000040010001
      8001001FC0010178200107C010013E000801F100040180000401000004030000
      00C30000001F0000001F0000001F0000001F0000001F03FF001F1FFF801FF801
      FFFFC0000FFF80000FFF80000FFF80000FFF80000FFF80000FFF80000FFF}
    IconIndex = 0
    Icons = ImageList2
    DropDownMenu = JvPopupMenu1
    PopupMenu = JvPopupMenu1
    Delay = 250
    OnClick = ctiClick
    OnDblClick = ctiDblClick
    Left = 378
    Top = 327
  end
  object Timer2: TTimer
    Enabled = False
    Interval = 3000
    OnTimer = Timer2Timer
    Left = 356
    Top = 153
  end
  object JvPopupMenu1: TJvPopupMenu
    Images = ImageList1
    OnPopup = JvPopupMenu1Popup
    ImageMargin.Left = 0
    ImageMargin.Top = 0
    ImageMargin.Right = 0
    ImageMargin.Bottom = 0
    ImageSize.Height = 16
    ImageSize.Width = 16
    Left = 404
    Top = 393
    object anzeigen1: TMenuItem
      Caption = 'Text-bsv.anzeigen'
      ImageIndex = 2
      OnClick = anzeigen1Click
    end
    object ber1: TMenuItem
      Caption = #252'ber Text-bsv.'
      ImageIndex = 0
      OnClick = ber1Click
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object Textbsvbeenden1: TMenuItem
      Caption = 'Text-bsv. beenden'
      ImageIndex = 1
      OnClick = Textbsvbeenden1Click
    end
  end
  object ImageList1: TImageList
    Left = 356
    Top = 81
    Bitmap = {
      494C010103000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000001000000001002000000000000010
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000FFFFFF00808080000000FF0080808000FFFFFF00000000000000
      000000000000000000000000000000000000FFFFFF008494DE000831B5001031
      BD001839BD001839B5001839BD001039BD001031BD000831C6000831C6000029
      BD000029C6000021B5007B94D600FFFFFF000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000000000000000000000FF
      FF00FFFFFF0000FFFF000000FF000000FF000000FF0000FFFF00FFFFFF0000FF
      FF0000000000000000000000000000000000FFFFFF001039D6001842DE00294A
      DE002952DE002952DE002952DE002952DE00214ADE00184AE7001042E7000842
      E7000039E7000031D6000021B500FFFFFF000000000000000000000000000000
      FF000000FF000000FF000000FF000000FF000000FF000000FF00000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000000000000000000000FFFF00FFFF
      FF0000FFFF00FFFFFF00808080000000FF0080808000FFFFFF0000FFFF00FFFF
      FF0000FFFF00000000000000000000000000FFFFFF001842DE002952E700315A
      E7004263E7007B94EF00E7EFFF00FFFFFF00FFFFFF00DEE7FF007394F700104A
      EF000842EF000039E7000029BD00FFFFFF0000000000000000000000FF000000
      FF000000FF000000FF000000FF000000FF000000FF000000FF00000000000000
      8000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000FFFF00FFFFFF0000FF
      FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FF
      FF00FFFFFF0000FFFF000000000000000000FFFFFF00214ADE00395AE7004263
      E700A5B5F700FFFFFF00BDCEF700738CEF006B8CEF00BDCEFF00FFFFFF009CB5
      F700084AEF000839E7000029C600FFFFFF000000000000000000000080000000
      8000000080000000800000008000000080000000800000008000000000000000
      8000000080000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000FFFFFF0000FFFF00FFFF
      FF0000FFFF00FFFFFF0000FFFF000000FF0000FFFF00FFFFFF0000FFFF00FFFF
      FF0000FFFF00FFFFFF000000000000000000FFFFFF002952E7004263E7008C9C
      EF00FFFFFF00849CEF00426BE7004263E7003163EF00295AEF007394F700FFFF
      FF006B8CF7000842E7000831C600FFFFFF000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000080000000800000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000FFFFFF0000FFFF00FFFFFF0000FF
      FF00FFFFFF0000FFFF00FFFFFF000000FF008080800000FFFF00FFFFFF0000FF
      FF00FFFFFF0000FFFF00FFFFFF0000000000FFFFFF00315AE7004A6BE700EFEF
      FF00BDC6F7004A6BE7004A6BE700FFFFFF00FFFFFF00295AEF002152EF00B5C6
      FF00DEE7FF00184AE7001039C600FFFFFF000000000000000000808080000000
      0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFF
      FF00000000000000800000008000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000FFFF00FFFFFF0000FFFF00FFFF
      FF0000FFFF00FFFFFF0000FFFF000000FF000000FF00FFFFFF0000FFFF00FFFF
      FF0000FFFF00FFFFFF0000FFFF0000000000FFFFFF00395AE700526BE700FFFF
      FF008494EF00526BE7004A6BE700FFFFFF00FFFFFF00295AE7002152E7006384
      EF00FFFFFF00184ADE001839C600FFFFFF000000000000000000000000000000
      0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFF
      FF00000000000000000000008000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000FFFFFF0000FFFF00FFFFFF0000FF
      FF00FFFFFF0000FFFF00FFFFFF0000FFFF000000FF000000FF00FFFFFF0000FF
      FF00FFFFFF0000FFFF00FFFFFF0000000000FFFFFF004263E7005A73EF00FFFF
      FF008494EF00526BE7004A63E700FFFFFF00FFFFFF002952E7002152E7006384
      EF00FFFFFF00214ADE001839BD00FFFFFF000000000000000000000000000000
      0000FFFFFF00FFFFFF008080800000000000000000000000000000000000FFFF
      FF0000000000FFFFFF0000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000FFFF00FFFFFF0000FFFF00FFFF
      FF00808080008080800000FFFF00FFFFFF00808080000000FF000000FF00FFFF
      FF0000FFFF00FFFFFF0000FFFF0000000000FFFFFF004A6BE700637BEF00EFF7
      FF00B5C6F700526BE7004A63E700FFFFFF00FFFFFF002952E700214AE700B5BD
      F700E7E7FF002952DE002142BD00FFFFFF000000000000000000000000000000
      0000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF0000000000FFFFFF0000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000FFFFFF0000FFFF00FFFFFF0000FF
      FF000000FF000000FF00FFFFFF0000FFFF00808080000000FF000000FF0000FF
      FF00FFFFFF0000FFFF00FFFFFF0000000000FFFFFF00526BE7006B84EF0094AD
      F700FFFFFF008494EF004A63E7004263E700395AE7003152E7006B84EF00FFFF
      FF00738CEF002952DE002142BD00FFFFFF000000000000000000000000000000
      00000000000000000000FFFFFF00FFFFFF008080800000000000000000000000
      000000000000FFFFFF0000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000FFFFFF0000FFFF00FFFF
      FF000000FF000000FF0080808000FFFFFF00808080000000FF000000FF00FFFF
      FF0000FFFF00FFFFFF000000000000000000FFFFFF005A7BEF007B94EF00738C
      EF00A5B5F700FFFFFF00B5BDF7007384EF006B84EF00B5BDF700FFFFFF0094AD
      F7003152E7002952DE002142BD00FFFFFF000000000000000000000000000000
      00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF0000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000FFFF00FFFFFF0000FF
      FF00FFFFFF000000FF000000FF000000FF000000FF000000FF00FFFFFF0000FF
      FF00FFFFFF0000FFFF000000000000000000FFFFFF006B84EF008CA5EF008494
      EF006B8CEF0094ADF700EFF7FF00FFFFFF00FFFFFF00EFEFFF008C9CEF004263
      E700395AE7003152DE001839BD00FFFFFF000000000000000000000000000000
      000000000000000000000000000000000000FFFFFF00FFFFFF00808080000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000000000000000000000FFFF00FFFF
      FF0000FFFF00FFFFFF000000FF000000FF000000FF00FFFFFF0000FFFF00FFFF
      FF0000FFFF00000000000000000000000000FFFFFF00738CEF009CADF7008CA5
      EF007B94EF00738CEF006B84EF00637BEF00637BEF005A7BEF005273E7004A6B
      E7004263E7002952DE001839BD00FFFFFF000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000000000000000000000FF
      FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FF
      FF0000000000000000000000000000000000FFFFFF00B5BDF700738CEF006384
      EF005A73EF005273E7004A6BE7004A6BE7004A6BE7004263E7003963E700395A
      E7003152E7002142DE008C9CDE00FFFFFF000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF00000000000000
      00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000424D3E000000000000003E000000
      2800000040000000100000000100010000000000800000000000000000000000
      000000000000000000000000FFFFFF00FFFF8001FFFF0000F83F0000E01F0000
      E00F0000C00F0000C00700008007000080030000000300008003000000010000
      000100008000000000010000C000000000010000E000000000010000F0000000
      00010000F801000080030000FC01000080030000FE010000C0070000FF1F0000
      E00F0000FFFF0000F83F8001FFFF000000000000000000000000000000000000
      000000000000}
  end
  object ImageList2: TImageList
    Left = 84
    Top = 253
    Bitmap = {
      494C010105000900040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000003000000001002000000000000030
      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
      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
      000000000000C0C0C000C0C0C000C0C0C000C0C0C00000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000C0C0C000C0C0C000C0C0
      C00000000000000000000000000000000000C0C0C0000000FF00C0C0C000FF00
      0000FF000000C0C0C00000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000C0C0C000C0C0C000C0C0C0000000FF0000000000C0C0C000C0C0C000C0C0
      C000C0C0C000C0C0C00000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00C0C0C0000000FF000000FF00000000000000FF00C0C0C000FF000000C0C0
      C000C0C0C000FF00000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000FFFFFF00FFFFFF000000FF000000
      000000000000000000000000FF000000FF00C0C0C0000000FF00FF000000C0C0
      C000C0C0C000FF00000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000FF0000000000000000000000
      FF000000FF00C0C0C000C0C0C000C0C0C000C0C0C000C0C0C0000000FF00C0C0
      C000C0C0C000C0C0C00000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000C0C0C0000000FF000000FF00FFFF
      FF00C0C0C000C0C0C000C0C0C000FF000000C0C0C000C0C0C00000000000C0C0
      C000C0C0C000C0C0C00000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00C0C0C000C0C0C000FF000000C0C0C000C0C0C000C0C0C000C0C0C000C0C0
      C000000000000000FF000000FF00000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00C0C0C000C0C0C000FFFF0000C0C0C000C0C0C000C0C0C000C0C0C000C0C0
      C0000000FF000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00C0C0C000C0C0C0000000FF00C0C0C000C0C0C000C0C0C000C0C0C000C0C0
      C000C0C0C0000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000FFFFFF000000FF000000FF000000
      000000000000000000000000000000000000C0C0C000C0C0C000C0C0C000C0C0
      C000C0C0C0000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000C0C0C0000000
      FF000000FF000000FF000000FF00000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000FF000000FF00FFFFFF00FFFF
      FF00C0C0C000C0C0C000C0C0C000C0C0C000C0C0C00000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF
      FF00000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000C0C0C000C0C0C000C0C0C000C0C0C00000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000C0C0C000C0C0C000C0C0C000C0C0C00000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000C0C0C000C0C0C000C0C0C000C0C0C00000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000C0C0C000C0C0C000C0C0C000C0C0C00000000000000000000000
      00000000000000000000000000000000000000000000C0C0C000C0C0C000C0C0
      C00000000000000000000000000000000000C0C0C0000000FF00FFFFFF00FF00
      0000FF000000FFFFFF00000000000000000000000000C0C0C000C0C0C000C0C0
      C00000000000000000000000000000000000C0C0C0000000FF0000FF0000FF00
      0000FF00000000FF0000000000000000000000000000C0C0C000C0C0C000C0C0
      C00000000000000000000000000000000000C0C0C0000000FF00FFFF0000FF00
      0000FF000000FFFF0000000000000000000000000000C0C0C000C0C0C000C0C0
      C00000000000000000000000000000000000C0C0C0000000FF000000FF00FF00
      0000FF0000000000FF0000000000000000000000000000000000000000000000
      0000FFFFFF00FFFFFF00FFFFFF000000FF0000000000FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF0000000000000000000000000000000000000000000000
      000000FF000000FF000000FF00000000FF000000000000FF000000FF000000FF
      000000FF000000FF000000000000000000000000000000000000000000000000
      0000FFFF0000FFFF0000FFFF00000000FF0000000000FFFF0000FFFF0000FFFF
      0000FFFF0000FFFF000000000000000000000000000000000000000000000000
      00000000FF000000FF000000FF000000FF00000000000000FF000000FF000000
      FF000000FF000000FF000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF000000FF000000FF00000000000000FF00FFFFFF00FF000000FFFF
      FF00FFFFFF00FF0000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFF
      FF0000FF00000000FF000000FF00000000000000FF0000FF0000FF00000000FF
      000000FF0000FF0000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFF00000000FF000000FF00000000000000FF00FFFF0000FF000000FFFF
      0000FFFF0000FF0000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFF
      FF000000FF000000FF000000FF00000000000000FF000000FF00FF0000000000
      FF000000FF00FF0000000000000000000000FFFFFF00FFFFFF000000FF000000
      000000000000000000000000FF000000FF00C0C0C0000000FF00FF000000FFFF
      FF00FFFFFF00FF0000000000000000000000FFFFFF00FFFFFF000000FF000000
      000000000000000000000000FF000000FF00C0C0C0000000FF00FF00000000FF
      000000FF0000FF0000000000000000000000FFFFFF00FFFFFF000000FF000000
      000000000000000000000000FF000000FF00C0C0C0000000FF00FF000000FFFF
      0000FFFF0000FF0000000000000000000000FFFFFF00FFFFFF000000FF000000
      000000000000000000000000FF000000FF00C0C0C0000000FF00FF0000000000
      FF000000FF00FF00000000000000000000000000FF0000000000000000000000
      FF000000FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00C0C0C0000000FF00FFFF
      FF00FFFFFF00FFFFFF0000000000000000000000FF0000000000000000000000
      FF000000FF0000FF000000FF000000FF000000FF0000C0C0C0000000FF0000FF
      000000FF000000FF000000000000000000000000FF0000000000000000000000
      FF000000FF00FFFF0000FFFF0000FFFF0000FFFF0000C0C0C0000000FF00FFFF
      0000FFFF0000FFFF000000000000000000000000FF0000000000000000000000
      FF000000FF000000FF000000FF000000FF000000FF00C0C0C0000000FF000000
      FF000000FF000000FF000000000000000000C0C0C0000000FF000000FF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FF000000FFFFFF00FFFFFF0000000000FFFF
      FF00FFFFFF00FFFFFF000000000000000000C0C0C0000000FF000000FF00FFFF
      FF0000FF000000FF000000FF0000FF00000000FF000000FF00000000000000FF
      000000FF000000FF00000000000000000000C0C0C0000000FF000000FF00FFFF
      FF00FFFF0000FFFF0000FFFF0000FF000000FFFF0000FFFF000000000000FFFF
      0000FFFF0000FFFF00000000000000000000C0C0C0000000FF000000FF00FFFF
      FF000000FF000000FF000000FF00FF0000000000FF000000FF00000000000000
      FF000000FF000000FF000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FF000000FFFFFF00FFFFFF00FFFFFF00C0C0C000C0C0
      C000000000000000FF000000FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF
      FF0000FF000000FF0000FF00000000FF000000FF000000FF0000C0C0C000C0C0
      C000000000000000FF000000FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFF0000FFFF0000FF000000FFFF0000FFFF0000FFFF0000C0C0C000C0C0
      C000000000000000FF000000FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF
      FF000000FF000000FF00FF0000000000FF000000FF000000FF00C0C0C000C0C0
      C000000000000000FF000000FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF000000FF00000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFF
      FF0000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF
      00000000FF00000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF
      00000000FF00000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFF
      FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000
      FF000000FF00000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF000000FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFF
      FF0000FF000000FF00000000FF0000FF000000FF000000FF000000FF000000FF
      000000FF0000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFF0000FFFF00000000FF00FFFF0000FFFF0000FFFF0000FFFF0000FFFF
      0000FFFF0000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFF
      FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000
      FF000000FF00000000000000000000000000FFFFFF000000FF000000FF000000
      000000000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00000000000000000000000000FFFFFF000000FF000000FF000000
      00000000000000000000000000000000000000FF000000FF000000FF000000FF
      000000FF0000000000000000000000000000FFFFFF000000FF000000FF000000
      000000000000000000000000000000000000FFFF0000FFFF0000FFFF0000FFFF
      0000FFFF0000000000000000000000000000FFFFFF000000FF000000FF000000
      0000000000000000000000000000000000000000FF000000FF000000FF000000
      FF000000FF000000000000000000000000000000000000000000C0C0C0000000
      FF000000FF000000FF000000FF00000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000C0C0C0000000
      FF000000FF000000FF000000FF00000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000C0C0C0000000
      FF000000FF000000FF000000FF00000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000C0C0C0000000
      FF000000FF000000FF000000FF00000000000000000000000000000000000000
      0000000000000000000000000000000000000000FF000000FF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000
      0000000000000000000000000000000000000000FF000000FF00FFFFFF00FFFF
      FF0000FF000000FF000000FF000000FF000000FF000000000000000000000000
      0000000000000000000000000000000000000000FF000000FF00FFFFFF00FFFF
      FF00FFFF0000FFFF0000FFFF0000FFFF0000FFFF000000000000000000000000
      0000000000000000000000000000000000000000FF000000FF00FFFFFF00FFFF
      FF000000FF000000FF000000FF000000FF000000FF0000000000000000000000
      00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF
      FF00000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF
      FF00000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF
      FF00000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF
      FF00000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000
      00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000
      00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000
      00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000
      000000000000000000000000000000000000424D3E000000000000003E000000
      2800000040000000300000000100010000000000800100000000000000000000
      000000000000000000000000FFFFFF0000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000FFFF000000000000F841000000000000
      8001000000000000008100000000000001010000000000001C01000000000000
      6001000000000000002100000000000000090000000000000007000000000000
      00070000000000001F07000000000000C1FF000000000000003F000000000000
      003F000000000000003F000000000000FFFFFFFFFFFFFFFFF841F841F841F841
      8001800180018001008100810081008101010101010101011C011C011C011C01
      6001600160016001002100210021002100090009000900090007000700070007
      00070007000700071F071F071F071F07C1FFC1FFC1FFC1FF003F003F003F003F
      003F003F003F003F003F003F003F003F00000000000000000000000000000000
      000000000000}
  end
  object Timer3: TTimer
    Enabled = False
    OnTimer = Timer3Timer
    Left = 284
    Top = 413
  end
  object JvClipboardMonitor1: TJvClipboardMonitor
    Left = 360
    Top = 453
  end
end

 

und die Hautdatei master.pas

unit master;

interface

uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, JvExControls, JvComponent, JvXPCore, JvXPButtons, 
  StdCtrls, JvExStdCtrls, JvListBox, JvFormMagnet, JvAppEvent, activex,
  JvFormPlacement, JvAppStorage, JvAppIniStorage, JvDialogs, ComCtrls,
  JvExComCtrls, JvComCtrls, JvEdit, JvExExtCtrls, JvSplitter, JvMemo,
  JvXPCheckCtrls, JvHotKey, JvDragDrop, JvAppHotKey, JvTrayIcon, Mask,
  JvExMask, JvSpin, Menus, JvMenus, ImgList, JvgSingleInstance,
  registry, JvStatusBar, JvClipboardMonitor;

type                        
  TForm1 = class(TForm)

JvAppEvents1: TJvAppEvents;
    JvFormMagnet1: TJvFormMagnet;
    JvAppIniFileStorage1: TJvAppIniFileStorage;
    JvFormStorage1: TJvFormStorage;
    JvPageControl1: TJvPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    vgPanel1: TPanel;
    Bevel1: TBevel;
    Bevel3: TBevel;
    Bevel5: TBevel;
    Bevel6: TBevel;
    JvXPButton2: TJvXPButton;
    JvXPButton3: TJvXPButton;
    JvXPButton4: TJvXPButton;
    JvXPButton9: TJvXPButton;
    vgPanel2: TPanel;
    Bevel8: TBevel;
    Bevel9: TBevel;
    Bevel10: TBevel;
    Bevel11: TBevel;
    JvXPButton6: TJvXPButton;
    JvXPButton8: TJvXPButton;
    JvXPButton10: TJvXPButton;
    Label1: TLabel;
    JvXPButton1: TJvXPButton;
    JvOpenDialog1: TJvOpenDialog;
    vgPanel3: TPanel;
    JvXPButton5: TJvXPButton;
    Bevel2: TBevel;
    Timer1: TTimer;
    jvedit1: TJvEdit;
    vgPanel4: TPanel;
    dex: TJvMemo;
    JvSplitter1: TJvSplitter;
    vgPanel5: TPanel;
    vgPanel6: TPanel;
    Bevel4: TBevel;
    Bevel7: TBevel;
    JvXPButton7: TJvXPButton;
    JvXPCheckbox1: TJvXPCheckbox;
    JvXPCheckbox2: TJvXPCheckbox;
    JvApplicationHotKey1: TJvApplicationHotKey;
    JvHotKey1: TJvHotKey;
    Label3: TLabel;
    cti: TJvTrayIcon;
    JvXPCheckbox3: TJvXPCheckbox;
    JvXPCheckbox4: TJvXPCheckbox;
    JvXPCheckbox5: TJvXPCheckbox;
    JvXPCheckbox6: TJvXPCheckbox;
    Timer2: TTimer;
    JvXPCheckbox7: TJvXPCheckbox;
    JvSpinEdit1: TJvSpinEdit;
    Label2: TLabel;
    TabSheet3: TTabSheet;
    vgPanel7: TPanel;
    Bevel12: TBevel;
    JvXPButton11: TJvXPButton;
    Bevel13: TBevel;
    Label4: TLabel;
    Bevel14: TBevel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Bevel16: TBevel;
    Bevel17: TBevel;
    Bevel18: TBevel;
    JvPopupMenu1: TJvPopupMenu;
    anzeigen1: TMenuItem;
    ber1: TMenuItem;
    N1: TMenuItem;
    Textbsvbeenden1: TMenuItem;
    Label9: TLabel;
    Label10: TLabel;
    JvSpinEdit2: TJvSpinEdit;
    JvSpinEdit3: TJvSpinEdit;
    Label11: TLabel;
    ImageList1: TImageList;
    JvXPCheckbox8: TJvXPCheckbox;
    JvXPCheckbox9: TJvXPCheckbox;
    vgPanel8: TPanel;
    Label12: TLabel;
    JvListBox2: TJvListBox;
    vgPanel9: TPanel;
    JvListBox1: TJvListBox;
    Label13: TLabel;
    JvSplitter2: TJvSplitter;
    dfsStatusBar1: TjvStatusBar;
    JvXPCheckbox10: TJvXPCheckbox;
    JvXPButton12: TJvXPButton;
    JvXPCheckbox11: TJvXPCheckbox;
    JvXPCheckbox12: TJvXPCheckbox;
    JvXPCheckbox13: TJvXPCheckbox;
    JvXPCheckbox14: TJvXPCheckbox;
    JvXPCheckbox15: TJvXPCheckbox;
    TabSheet4: TTabSheet;
    JvXPCheckbox16: TJvXPCheckbox;
    Bevel15: TBevel;
    JvXPButton13: TJvXPButton;
    vgPanel11: TPanel;
    Bevel19: TBevel;
    JvXPButton14: TJvXPButton;
    Bevel20: TBevel;
    JvXPButton15: TJvXPButton;
    JvXPButton16: TJvXPButton;
    Bevel21: TBevel;
    JvXPButton17: TJvXPButton;
    vgPanel12: TPanel;
    Label8: TLabel;
    JvListBox3: TJvListBox;
    vgPanel13: TPanel;
    vgPanel10: TPanel;
    JvSpinEdit4: TJvSpinEdit;
    clipmemo: TJvMemo;
    Label14: TLabel;
    JvSplitter3: TJvSplitter;
    Bevel22: TBevel;
    vgPanel14: TPanel;
    Bevel23: TBevel;
    Bevel24: TBevel;
    JvXPButton18: TJvXPButton;
    Label15: TLabel;
    JvXPButton19: TJvXPButton;
    JvXPButton20: TJvXPButton;
    Bevel25: TBevel;
    JvXPCheckbox17: TJvXPCheckbox;
    ImageList2: TImageList;
    Timer3: TTimer;
    JvClipboardMonitor1: TJvClipboardMonitor; procedure JvXPButton8Click(Sender: TObject); procedure JvXPButton10Click(Sender: TObject); procedure JvXPButton1Click(Sender: TObject); procedure JvXPButton5Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure FormActivate(Sender: TObject); procedure Timer1Timer(Sender: TObject); procedure JvXPButton3Click(Sender: TObject); procedure JvXPButton4Click(Sender: TObject); procedure JvXPButton2Click(Sender: TObject); procedure JvListBox1Click(Sender: TObject); procedure JvXPButton6Click(Sender: TObject); procedure JvXPButton7Click(Sender: TObject); procedure JvAppEvents1Idle(Sender: TObject; var Done: Boolean); procedure JvApplicationHotKey1HotKey(Sender: TObject); procedure JvListBox1DblClick(Sender: TObject); procedure FormKeyPress(Sender: TObject; var Key: Char); procedure ctiClick(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure Timer2Timer(Sender: TObject); procedure JvXPButton9Click(Sender: TObject); procedure ber1Click(Sender: TObject); procedure anzeigen1Click(Sender: TObject); procedure JvPopupMenu1Popup(Sender: TObject); procedure ctiDblClick(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure FormResize(Sender: TObject); procedure XJustOne1AlreadyExist(Sender: TObject); procedure FormDestroy(Sender: TObject); procedure JvListBox2Click(Sender: TObject); procedure JvListBox2KeyPress(Sender: TObject; var Key: Char); procedure JvListBox1KeyPress(Sender: TObject; var Key: Char); procedure JvXPButton12Click(Sender: TObject); procedure JvXPButton13Click(Sender: TObject); procedure JvXPButton17Click(Sender: TObject); procedure JvXPButton16Click(Sender: TObject); procedure JvListBox3Click(Sender: TObject); procedure JvXPButton15Click(Sender: TObject); procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure JvXPButton19Click(Sender: TObject); procedure JvXPButton20Click(Sender: TObject); procedure JvListBox3DblClick(Sender: TObject); procedure dexDblClick(Sender: TObject); procedure Textbsvbeenden1Click(Sender: TObject); procedure Timer3Timer(Sender: TObject); private { Private-Deklarationen } procedure WMNCACTIVATE(var M: TWMNCACTIVATE); message WM_NCACTIVATE; public { Public-Deklarationen } procedure WMChangeCbChain(var Msg: TMessage); message wm_ChangeCbChain; procedure WMDrawClipboard(var Msg: TMessage); message wm_DrawClipboard; procedure Show_a_Help(s: string); procedure oeffne_datenbank_gefiltert; procedure oeffne_datenbank; function hole_name: string; end; type hi_dat = record nr: integer; name: string[80]; Gruppe: string[25]; ist_datei, ist_geloescht: boolean; daten: string[254]; end; var hi_dat_file: file of hi_dat; hidat: hi_dat; var sta: tstringlist; NextClipboardViewer: THandle; var Form1: TForm1; sekundaere_form, neu_von_clip, komme_von_konfig, interne_kopie, ist_gestartet: boolean; d_filter, gruppe_k, eintrag_k, programmordner: string; var to_p, lef_t, heigh_t, Widt_h: integer; implementation uses neue, ClipBrd, htmlhelpapi, ShellApi, new_ver; {$R *.DFM} procedure tform1.Show_a_Help(s: string); begin if FileExists(Application.HelpFile) then HtmlHelpShowTopic(s) else MessageDlg('Die Hilfsdatei "kwtxtbau.chm" kann im Programmordner nicht gefunden werden.', mtInformation, [mbOK], 0); end; procedure TForm1.JvXPButton8Click(Sender: TObject); begin if MessageDlg('Wollen Sie das Programm beenden ? (dann Ja)' + #13 + #10 + 'oder wollen Sie das Programm minimieren? ', mtConfirmation, [mbYes, mbNo], 0) <> mryes then begin cti.HideApplication; exit; end; sekundaere_form := true; close; end; procedure TForm1.JvXPButton10Click(Sender: TObject); begin sekundaere_form := true; to_p := form1.top; lef_t := form1.left; heigh_t := form1.height; widt_h := form1.Width; JvPageControl1.ActivePage := TabSheet2; if Width < 490 then Width := 500; if form1.Height < JvXPCheckbox16.top + 150 then form1.Height := JvXPCheckbox16.top + 150; form1.left := (screen.width div 2) - (width div 2); end; procedure TForm1.JvXPButton1Click(Sender: TObject); begin with JvOpenDialog1 do begin InitialDir := programmordner; filter := 'Datenbanken|*.dat|Alle Dateien|*.*'; DefaultExt := 'dat'; if Execute then jvedit1.Text := filename; end; end; procedure tform1.oeffne_datenbank_gefiltert; var ac: integer; begin if sta.count < 1 then exit; JvListBox1.items.Clear; if not FileExists(jvedit1.text) then begin if FileExists(jvedit1.text) then if MessageDlg('Datei existiert bereits .' + #13 + #10 + ' ' + #13 + #10 + ' Überschreiben?', mtConfirmation, [mbYes, mbNo], 0) <> mryes then exit; assignfile(hi_dat_file, jvedit1.text); Rewrite(hi_dat_file); hidat.nr := 0; hidat.name := 'KWs Textbausteinverwaltung 1.0'; hidat.ist_datei := false; hidat.ist_geloescht := false; hidat.daten := ''; hidat.gruppe := ''; write(hi_dat_file, hidat); CloseFile(hi_dat_file); end; assignfile(hi_dat_file, jvedit1.text); reset(hi_dat_file); read(hi_dat_file, hidat); if hidat.name <> 'KWs Textbausteinverwaltung 1.0' then begin closefile(hi_dat_file); MessageDlg('Angegebene Datei ist keine Datendatei ' + #13 + #10 + 'von KW''s Textbausteinverwaltung', mtError, [mbOK], 0); exit; end; hidat.nr := 0; hidat.name := ''; hidat.ist_datei := false; hidat.ist_geloescht := false; hidat.daten := ''; hidat.gruppe := ''; ac := 0; while not eof(hi_dat_file) do begin read(hi_dat_file, hidat); if not hidat.ist_geloescht then begin inc(ac); if d_filter = hidat.Gruppe then jvlistbox1.items.append(hidat.name) else if (d_filter = '- - A L L E - -') then jvlistbox1.items.append(hidat.name); end; end; dfsStatusBar1.Panels[2].Text := inttostr(ac) + ' Datensätze'; CloseFile(hi_dat_file); end; procedure tform1.oeffne_datenbank; var ac: integer; begin d_filter := '- - A L L E - -'; JvListBox1.items.Clear; sta.clear; if not FileExists(jvedit1.text) then begin if FileExists(jvedit1.text) then if MessageDlg('Datei existiert bereits .' + #13 + #10 + ' ' + #13 + #10 + ' Überschreiben?', mtConfirmation, [mbYes, mbNo], 0) <> mryes then exit; assignfile(hi_dat_file, jvedit1.text); Rewrite(hi_dat_file); hidat.nr := 0; hidat.name := 'KWs Textbausteinverwaltung 1.0'; hidat.ist_datei := false; hidat.ist_geloescht := false; hidat.daten := ''; hidat.gruppe := ''; write(hi_dat_file, hidat); CloseFile(hi_dat_file); end; assignfile(hi_dat_file, jvedit1.text); reset(hi_dat_file); read(hi_dat_file, hidat); if hidat.name <> 'KWs Textbausteinverwaltung 1.0' then begin closefile(hi_dat_file); MessageDlg('Angegebene Datei ist keine Datendatei ' + #13 + #10 + 'von KW''s Textbausteinverwaltung', mtError, [mbOK], 0); exit; end; hidat.nr := 0; hidat.name := ''; hidat.ist_datei := false; hidat.ist_geloescht := false; hidat.daten := ''; hidat.gruppe := ''; sta.clear; ac := 0; while not eof(hi_dat_file) do begin read(hi_dat_file, hidat); if not hidat.ist_geloescht then begin if hidat.Gruppe <> '' then sta.append(hidat.Gruppe); inc(ac); jvlistbox1.items.append(hidat.name); end; end; CloseFile(hi_dat_file); dfsStatusBar1.Panels[2].Text := inttostr(ac) + ' Datensätze'; jvlistbox2.items.clear; jvlistbox2.items.append('- - A L L E - -'); jvlistbox2.Items.AddStrings(sta); jvlistbox2.ItemIndex := jvlistbox2.Items.IndexOf(d_filter); end; { Jede Anwendung, die im Schlüssel Run aufgeführt ist, wird beim jedem Windowsstart ausgeführt. Betrifft Anwendungen, die immer mit Windows gestartet werden sollen... } procedure DoAppToRun(RunName, AppName: string); var Reg: TRegistry; begin Reg := TRegistry.Create; with Reg do begin RootKey := HKEY_LOCAL_MACHINE; OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True); WriteString(RunName, AppName); CloseKey; Free; end; end; // Prüfen, ob Anwendung in der Registry vorhanden ist... function IsAppInRun(RunName: string): Boolean; var Reg: TRegistry; begin Reg := TRegistry.Create; with Reg do begin RootKey := HKEY_LOCAL_MACHINE; OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', False); Result := ValueExists(RunName); CloseKey; Free; end; end; // Anwendung aus der Registry entfernen... procedure DelAppFromRun(RunName: string); var Reg: TRegistry; begin Reg := TRegistry.Create; with Reg do begin RootKey := HKEY_LOCAL_MACHINE; OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True); if ValueExists(RunName) then DeleteValue(RunName); CloseKey; Free; end; end; procedure TForm1.JvXPButton5Click(Sender: TObject); begin komme_von_konfig := true; JvPageControl1.ActivePage := TabSheet1; form1.top := to_p; form1.left := lef_t; form1.height := heigh_t; form1.Width := Widt_h; oeffne_datenbank; if jvxpcheckbox9.Checked then begin if not IsAppInRun('KWs Textbausteine') then DoAppToRun('KWs Textbausteine', Application.ExeName); end else begin if IsAppInRun('KWs Textbausteine') then DelAppFromRun('KWs Textbausteine'); end; sekundaere_form := false; end; procedure TForm1.FormCreate(Sender: TObject); var x, y: integer; begin sta := nil; sta := TStringList.Create; sta.sorted := true; sta.Duplicates := (dupignore); d_filter := ''; komme_von_konfig := true; NextClipboardViewer := SetClipboardViewer(Form1.Handle); ist_gestartet := false; sekundaere_form := false; programmordner := ExtractFilePath(Application.ExeName); if programmordner[length(programmordner)] <> '\' then programmordner := programmordner + '\'; Application.HelpFile := Programmordner + 'kwtxtbau.chm'; end; function ReadDir(Path, Mask: string; ShowPath: boolean): TStringlist; var SRec: TSearchRec; SL: TStringList; begin SL := TStringList.Create; FindFirst(Path + Mask, not faDirectory, SRec); if ShowPath then SL.Add(Path + SRec.Name) else SL.Add(SRec.Name); while FindNext(SRec) = 0 do if ShowPath then SL.Add(Path + SRec.Name) else SL.Add(SRec.Name); FindClose(SRec); Result := SL; end; procedure TForm1.FormActivate(Sender: TObject); var a: integer; path: string; begin if ist_gestartet then exit; path := extractfilepath(application.exename); if path[length(path)] <> '\' then path := path + '\'; jvListBox3.Items := ReadDir(path, '*.tmp', true); if jvListBox3.Items.Count > 0 then begin for a := 0 to jvListBox3.Items.Count - 1 do begin path := jvListBox3.Items.Strings[a]; if FileExists(path) then deletefile(path); end; end; JvListBox3.items.clear; interne_kopie := false; neu_von_clip := false; timer1.Enabled := true; komme_von_konfig := true; end; function tform1.hole_name: string; var a: integer; var s: string; begin result := ''; for a := 0 to 999999 do begin s := inttostr(a); if length(s) = 1 then s := '0' + s; if length(s) = 2 then s := '00' + s; if length(s) = 3 then s := '000' + s; if length(s) = 4 then s := '0000' + s; if length(s) = 5 then s := '00000' + s; if length(s) = 6 then s := '000000' + s; if not FileExists(programmordner + s + '.txt') then begin result := programmordner + s + '.txt'; break; end; end; end; procedure TForm1.Timer1Timer(Sender: TObject); begin timer1.Enabled := false; if ist_gestartet then exit; ist_gestartet := true; if JvEdit1.text = '' then jvedit1.text := programmordner + 'standart.dat'; oeffne_datenbank; if jvxpcheckbox8.Checked then cti.HideApplication; neu_von_clip := false; end; procedure TForm1.JvXPButton3Click(Sender: TObject); // neuer Datensatz var s, st, sg, sn: string; me: integer; is_fi: boolean; begin sekundaere_form := true; if JvXPCheckbox6.Checked then SetWindowPos(Handle, HWND_NOTOPMOST, Left, Top, Width, Height, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE); with neues do begin erg := true; titel.text := ''; titel.Enabled := true; dtext.text := ''; if neu_von_clip then dtext.text := clipmemo.text; neu_von_clip := false; JvComboBox1.items.clear; JvComboBox1.Items.AddStrings(sta); showmodal; if not erg then begin if JvXPCheckbox6.Checked then SetWindowPos(Handle, HWND_TOPMOST, Left, Top, Width, Height, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE); exit; end; sg := edit_g.text; if sg <> '' then sta.append(sg); d_filter := sg; jvlistbox2.items.clear; jvlistbox2.items.append('- - A L L E - -'); jvlistbox2.Items.AddStrings(sta); s := titel.text; st := dtext.text; gruppe_k := sg; eintrag_k := s; is_fi := false; if length(st) > 250 then begin is_fi := true; dex.text := st; sn := hole_name; dex.Lines.SaveToFile(sn); st := sn; end; end; if s = '' then if not InputQuery('kein Name "" ist nicht erlaubt', 'Neuer Name', s) then begin if JvXPCheckbox6.Checked then SetWindowPos(Handle, HWND_TOPMOST, Left, Top, Width, Height, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE); exit; end; if jvlistbox1.items.IndexOf(s) <> -1 then if not InputQuery('Name existiert bereits', 'Neuer Name', s) then begin if JvXPCheckbox6.Checked then SetWindowPos(Handle, HWND_TOPMOST, Left, Top, Width, Height, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE); exit; end; jvlistbox1.items.append(s); assignfile(hi_dat_file, jvedit1.text); reset(hi_dat_file); read(hi_dat_file, hidat); if hidat.name <> 'KWs Textbausteinverwaltung 1.0' then begin closefile(hi_dat_file); MessageDlg('Angegebene Datei ist keine Datendatei ' + #13 + #10 + 'von KW''s Textbausteinverwaltung', mtError, [mbOK], 0); sekundaere_form := false; if JvXPCheckbox6.Checked then SetWindowPos(Handle, HWND_TOPMOST, Left, Top, Width, Height, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE); exit; end; hidat.nr := 0; hidat.name := ''; hidat.ist_datei := false; hidat.ist_geloescht := false; hidat.daten := ''; hidat.gruppe := ''; me := -1; while not eof(hi_dat_file) do begin read(hi_dat_file, hidat); if hidat.ist_geloescht then me := filepos(hi_dat_file) - 1; end; if me <> -1 then Seek(hi_dat_file, me); hidat.nr := 0; hidat.name := s; hidat.ist_datei := is_fi; hidat.ist_geloescht := false; hidat.daten := st; hidat.Gruppe := sg; write(hi_dat_file, hidat); closefile(hi_dat_file); if gruppe_k = '' then gruppe_k := '- - A L L E - -'; jvlistbox2.itemindex := jvlistbox2.items.indexof(gruppe_k); JvListBox2Click(self); jvlistbox1.itemindex := jvlistbox1.items.indexof(eintrag_k); JvListBox1Click(self); if JvXPCheckbox6.Checked then SetWindowPos(Handle, HWND_TOPMOST, Left, Top, Width, Height, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE); JvPageControl1.ActivePage := TabSheet1; sekundaere_form := false; end; procedure TForm1.JvXPButton4Click(Sender: TObject); var s: string; a: integer; begin a := jvListbox1.itemindex; if a = -1 then begin MessageDlg('Sie müssen erst einen Datensatz auswählen !', mtInformation, [mbOK], 0); exit; end; s := jvlistbox1.items.Strings[a]; if not MessageDlg('Wollen Sie den Datensatz mit den Namen' + #13 + #10 + s + #13 + #10 + 'wirklich löschen ?', mtConfirmation, [mbYes, mbNo], 0) = mryes then exit; assignfile(hi_dat_file, jvedit1.text); reset(hi_dat_file); read(hi_dat_file, hidat); if hidat.name <> 'KWs Textbausteinverwaltung 1.0' then begin closefile(hi_dat_file); MessageDlg('Angegebene Datei ist keine Datendatei ' + #13 + #10 + 'von KW''s Textbausteinverwaltung', mtError, [mbOK], 0); exit; end; hidat.nr := 0; hidat.name := ''; hidat.ist_datei := false; hidat.gruppe := ''; hidat.ist_geloescht := false; hidat.daten := ''; while not eof(hi_dat_file) do begin a := filepos(hi_dat_file); read(hi_dat_file, hidat); if not hidat.ist_geloescht then if hidat.name = s then begin if hidat.ist_datei then if FileExists(hidat.daten) then deletefile(hidat.daten); hidat.ist_datei := false; hidat.ist_geloescht := true; seek(hi_dat_file, a); write(hi_dat_file, hidat); break; end; end; closefile(hi_dat_file); oeffne_datenbank; end; procedure TForm1.JvXPButton2Click(Sender: TObject); // datensatz ändern var s, st, oldname, sn, sg: string; a, me: integer; is_fi, is_file: boolean; begin sekundaere_form := true; if JvXPCheckbox6.Checked then SetWindowPos(Handle, HWND_NOTOPMOST, Left, Top, Width, Height, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE); a := jvlistbox1.itemindex; if a = -1 then begin MessageDlg('Sie müssen erst einen Eintrag anwählen ' + #13 + #10 + 'bevor Sie Ihn ändern können', mtInformation, [mbOK], 0); exit; end; s := JvListBox1.items.strings[a]; assignfile(hi_dat_file, jvedit1.text); reset(hi_dat_file); read(hi_dat_file, hidat); if hidat.name <> 'KWs Textbausteinverwaltung 1.0' then begin closefile(hi_dat_file); MessageDlg('Angegebene Datei ist keine Datendatei ' + #13 + #10 + 'von KW''s Textbausteinverwaltung', mtError, [mbOK], 0); sekundaere_form := false; if JvXPCheckbox6.Checked then SetWindowPos(Handle, HWND_TOPMOST, Left, Top, Width, Height, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE); exit; end; hidat.nr := 0; hidat.name := ''; hidat.ist_datei := false; hidat.ist_geloescht := false; hidat.gruppe := ''; hidat.daten := ''; me := -1; while not eof(hi_dat_file) do begin read(hi_dat_file, hidat); if not hidat.ist_geloescht then if hidat.name = s then begin me := filepos(hi_dat_file) - 1; break; end; end; closefile(hi_dat_file); if me = -1 then begin MessageDlg('' + #13 + #10 + 'Fehler Datensatz konnte nicht gefunden werden.', mtError, [mbOK], 0); sekundaere_form := false; if JvXPCheckbox6.Checked then SetWindowPos(Handle, HWND_TOPMOST, Left, Top, Width, Height, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE); exit; end; with neues do begin erg := true; titel.text := s; titel.Enabled := false; sg := hidat.gruppe; Edit_g.text := sg; jvcombobox1.items.clear; jvcombobox1.Items.AddStrings(sta); jvcombobox1.ItemIndex := jvcombobox1.Items.IndexOf(sg); dtext.text := hidat.daten; is_file := hidat.ist_datei; if is_file then oldname := dtext.text; if hidat.ist_datei then dtext.lines.LoadFromFile(dtext.text); showmodal; if not erg then begin if JvXPCheckbox6.Checked then SetWindowPos(Handle, HWND_TOPMOST, Left, Top, Width, Height, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE); exit; end; s := titel.text; sg := edit_g.text; st := dtext.text; gruppe_k := sg; eintrag_k := s; end; if is_file then begin if fileexists(oldname) then deletefile(oldname); end; is_fi := false; if length(st) > 250 then begin is_fi := true; dex.text := st; sn := hole_name; dex.Lines.SaveToFile(sn); st := sn; end; assignfile(hi_dat_file, jvedit1.text); reset(hi_dat_file); read(hi_dat_file, hidat); if hidat.name <> 'KWs Textbausteinverwaltung 1.0' then begin closefile(hi_dat_file); MessageDlg('Angegebene Datei ist keine Datendatei ' + #13 + #10 + 'von KW''s Textbausteinverwaltung', mtError, [mbOK], 0); if JvXPCheckbox6.Checked then SetWindowPos(Handle, HWND_TOPMOST, Left, Top, Width, Height, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE); exit; end; seek(hi_dat_file, me); hidat.nr := 0; hidat.name := s; hidat.ist_datei := is_fi; hidat.ist_geloescht := false; hidat.daten := st; hidat.gruppe := sg; write(hi_dat_file, hidat); closefile(hi_dat_file); sta.append(sg); d_filter := sg; jvlistbox2.items.clear; jvlistbox2.items.append('- - A L L E - -'); jvlistbox2.Items.AddStrings(sta); if gruppe_k = '' then gruppe_k := '- - A L L E - -'; jvlistbox2.itemindex := jvlistbox2.items.indexof(gruppe_k); JvListBox2Click(self); jvlistbox1.itemindex := jvlistbox1.items.indexof(eintrag_k); JvListBox1Click(self); if JvXPCheckbox6.Checked then SetWindowPos(Handle, HWND_TOPMOST, Left, Top, Width, Height, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE); sekundaere_form := false; end; procedure TForm1.JvListBox1Click(Sender: TObject); var a, me: integer; s: string; begin sekundaere_form := true; a := jvlistbox1.itemindex; if a = -1 then begin dex.lines.clear; if jvlistbox1.Items.Count > 0 then begin a := 0; jvlistbox1.itemindex := 0; end else exit; end; s := JvListBox1.items.strings[a]; assignfile(hi_dat_file, jvedit1.text); reset(hi_dat_file); read(hi_dat_file, hidat); if hidat.name <> 'KWs Textbausteinverwaltung 1.0' then begin closefile(hi_dat_file); MessageDlg('Angegebene Datei ist keine Datendatei ' + #13 + #10 + 'von KW''s Textbausteinverwaltung', mtError, [mbOK], 0); sekundaere_form := false; exit; end; hidat.nr := 0; hidat.name := ''; hidat.ist_datei := false; hidat.ist_geloescht := false; hidat.daten := ''; hidat.gruppe := ''; me := -1; while not eof(hi_dat_file) do begin read(hi_dat_file, hidat); if not hidat.ist_geloescht then if hidat.name = s then begin me := filepos(hi_dat_file) - 1; break; end; end; if me <> -1 then dex.Text := hidat.daten; if hidat.ist_datei then dex.Lines.LoadFromFile(dex.text); if hidat.gruppe <> '' then label13.caption := 'Eintrag zu:' + hidat.gruppe else label13.caption := 'Einträge:'; closefile(hi_dat_file); sekundaere_form := false; end; procedure TForm1.JvXPButton6Click(Sender: TObject); begin sekundaere_form := true; jvlistbox1.items.clear; dex.lines.clear; JvXPButton1Click(self); oeffne_datenbank; sekundaere_form := false; end; procedure TForm1.JvXPButton7Click(Sender: TObject); begin dex.SelectAll; interne_kopie := true; dex.CopyToClipboard; if JvXPCheckbox4.Checked then cti.HideApplication; end; procedure TForm1.JvAppEvents1Idle(Sender: TObject; var Done: Boolean); begin if komme_von_konfig then begin if JvXPCheckbox1.Checked <> JvFormMagnet1.Active then JvFormMagnet1.Active := JvXPCheckbox1.Checked; if JvHotKey1.HotKey <> JvApplicationHotKey1.HotKey then begin JvApplicationHotKey1.HotKey := JvHotKey1.HotKey; JvApplicationHotKey1.Active := JvHotKey1.HotKey > 0; end; if JvSpinEdit2.AsInteger <> JvListBox1.Font.Size then JvListBox1.Font.Size := JvSpinEdit2.AsInteger; if JvSpinEdit2.AsInteger <> JvListBox2.Font.Size then JvListBox2.Font.Size := JvSpinEdit2.AsInteger; if JvSpinEdit3.AsInteger <> dex.Font.Size then dex.Font.Size := JvSpinEdit3.AsInteger; if JvXPCheckbox10.Checked <> application.ShowHint then begin application.ShowHint := JvXPCheckbox10.Checked; JvAppEvents1.showhint := JvXPCheckbox10.Checked; end; if JvXPCheckbox11.Checked and (Jvlistbox2.Alignment <> tacenter) then Jvlistbox2.Alignment := tacenter; if not JvXPCheckbox11.Checked and (Jvlistbox2.Alignment <> taleftjustify) then Jvlistbox2.Alignment := taleftjustify; if JvXPCheckbox12.Checked and (Jvlistbox1.Alignment <> tacenter) then Jvlistbox1.Alignment := tacenter; if not JvXPCheckbox12.Checked and (Jvlistbox1.Alignment <> taleftjustify) then Jvlistbox1.Alignment := taleftjustify; if JvXPCheckbox13.Checked and (Jvlistbox1.ScrollBars <> ssboth) then Jvlistbox1.ScrollBars := ssboth; if not JvXPCheckbox13.Checked and (Jvlistbox1.ScrollBars <> ssnone) then Jvlistbox1.ScrollBars := ssnone; if JvXPCheckbox13.Checked and (Jvlistbox2.ScrollBars <> ssboth) then Jvlistbox2.ScrollBars := ssboth; if not JvXPCheckbox13.Checked and (Jvlistbox2.ScrollBars <> ssnone) then Jvlistbox2.ScrollBars := ssnone; if JvXPCheckbox13.Checked and (Jvlistbox3.ScrollBars <> ssboth) then Jvlistbox3.ScrollBars := ssboth; if not JvXPCheckbox13.Checked and (Jvlistbox3.ScrollBars <> ssnone) then Jvlistbox3.ScrollBars := ssnone; if JvXPCheckbox14.Checked and (dex.ScrollBars <> ssboth) then dex.ScrollBars := ssboth; if not JvXPCheckbox14.Checked and (dex.ScrollBars <> ssnone) then dex.ScrollBars := ssnone; if JvXPCheckbox15.Checked and not dex.WordWrap then dex.wordwrap := true; if not JvXPCheckbox15.Checked and dex.wordwrap then dex.wordwrap := false; if JvXPCheckbox17.Checked and (JvXPButton3.Caption <> '') then begin JvXPButton3.Caption := ''; JvXPButton2.Caption := ''; JvXPButton4.Caption := ''; JvXPButton13.Caption := ''; JvXPButton6.Caption := ''; JvXPButton10.Caption := ''; JvXPButton9.Caption := ''; JvXPButton8.Caption := ''; JvXPButton3.Layout:= blGlyphLeft; JvXPButton2.Layout:= blGlyphLeft; JvXPButton4.Layout:= blGlyphLeft; JvXPButton13.Layout:= blGlyphLeft; JvXPButton6.Layout:= blGlyphLeft; JvXPButton10.Layout:= blGlyphLeft; JvXPButton9.Layout:= blGlyphLeft; JvXPButton8.Layout:= blGlyphLeft; JvXPButton3.Width := 35; JvXPButton2.Width := 35; JvXPButton4.Width := 35; JvXPButton13.Width := 35; JvXPButton6.Width := 35; JvXPButton10.Width := 35; JvXPButton9.Width := 35; JvXPButton8.Width := 35; end; if not JvXPCheckbox17.Checked and (JvXPButton3.Caption = '') then begin JvXPButton3.Caption := 'neu'; JvXPButton2.Caption := 'ändern'; JvXPButton4.Caption := 'löschen'; JvXPButton13.Caption := 'ZW-ablage'; JvXPButton6.Caption := 'öffnen'; JvXPButton10.Caption := 'Setup'; JvXPButton9.Caption := 'Hilfe'; JvXPButton8.Caption := 'Ende'; JvXPButton3.Layout:= blGlyphtop; JvXPButton2.Layout:= blGlyphtop; JvXPButton4.Layout:= blGlyphtop; JvXPButton13.Layout:= blGlyphtop; JvXPButton6.Layout:= blGlyphtop; JvXPButton10.Layout:= blGlyphtop; JvXPButton9.Layout:= blGlyphtop; JvXPButton8.Layout:= blGlyphtop; JvXPButton3.Width := 35; JvXPButton2.Width := 40; JvXPButton4.Width := 50; JvXPButton13.Width := 60; JvXPButton6.Width := 40; JvXPButton10.Width := 45; JvXPButton9.Width := 40; JvXPButton8.Width := 40; end; komme_von_konfig := false; end; if jvlistbox2.Focused then begin label12.font.Style := [fsBold]; label13.font.Style := []; end else if jvlistbox1.Focused then begin label13.font.Style := [fsBold]; label12.font.Style := []; end else begin label13.font.Style := []; label12.font.Style := []; end; end; procedure TForm1.JvApplicationHotKey1HotKey(Sender: TObject); begin if JvXPCheckbox3.Checked then begin if cti.ApplicationVisible then cti.HideApplication else cti.ShowApplication; end else cti.ShowApplication; if cti.ApplicationVisible then begin if JvXPCheckbox5.Checked then SetWindowPos(Handle, HWND_TOPMOST, Left, Top, Width, Height, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE) else SetWindowPos(Handle, HWND_NOTOPMOST, Left, Top, Width, Height, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE); if JvPageControl1.ActivePage <> TabSheet1 then JvPageControl1.ActivePage := TabSheet1; sekundaere_form := false; end; jvlistbox1.SetFocus; end; procedure TForm1.JvListBox1DblClick(Sender: TObject); begin sekundaere_form := false; dex.SelectAll; interne_kopie := true; dex.CopyToClipboard; if JvXPCheckbox4.Checked then cti.HideApplication; end; procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin if JvXPCheckbox5.Checked then begin if key = #27 then cti.HideApplication; end; end; procedure TForm1.ctiClick(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin sekundaere_form := false; end; procedure TForm1.WMNCACTIVATE(var M: TWMNCACTIVATE); var amb: boolean; begin inherited; if M.Active then amb := true else amb := false; if not JvXPCheckbox7.Checked then begin timer2.Enabled := false; exit; end; if sekundaere_form then begin timer2.Enabled := false; exit; end; if amb then timer2.Enabled := false else begin timer2.Interval := JvSpinEdit1.AsInteger * 1000; timer2.enabled := true; end; end; procedure TForm1.Timer2Timer(Sender: TObject); begin timer2.Enabled := false; if not JvXPCheckbox7.Checked then exit; cti.HideApplication; end; procedure TForm1.JvXPButton9Click(Sender: TObject); begin sekundaere_form := true; to_p := form1.top; lef_t := form1.left; heigh_t := form1.height; widt_h := form1.Width; JvPageControl1.ActivePage := TabSheet3; if Width < 400 then Width := 450; form1.left := (screen.width div 2) - (width div 2); end; procedure TForm1.ber1Click(Sender: TObject); begin sekundaere_form := true; if not cti.ApplicationVisible then cti.ShowApplication; JvXPButton9Click(self); end; procedure TForm1.anzeigen1Click(Sender: TObject); begin if not cti.ApplicationVisible then cti.ShowApplication; if JvPageControl1.ActivePage <> TabSheet1 then JvPageControl1.ActivePage := TabSheet1; sekundaere_form := false; end; procedure TForm1.JvPopupMenu1Popup(Sender: TObject); begin sekundaere_form := true; end; procedure TForm1.ctiDblClick(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if not cti.ApplicationVisible then cti.ShowApplication; if cti.ApplicationVisible then begin if JvXPCheckbox6.Checked then SetWindowPos(Handle, HWND_TOPMOST, Left, Top, Width, Height, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE) else SetWindowPos(Handle, HWND_NOTOPMOST, Left, Top, Width, Height, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE); end; if JvPageControl1.ActivePage <> TabSheet1 then JvPageControl1.ActivePage := TabSheet1; sekundaere_form := false; end; procedure TForm1.FormResize(Sender: TObject); begin label3.left := 8; with label3 do Width := canvas.TextWidth(Caption) + 10; jvhotkey1.left := 8 + label3.Width; label2.left := 80; with label2 do Width := canvas.TextWidth(Caption) + 10; jvspinedit1.left := 80 + label2.Width; label9.left := 8; with label9 do Width := canvas.TextWidth(Caption) + 10; jvspinedit2.left := 8 + label9.Width; label10.left := 8; with label10 do Width := canvas.TextWidth(Caption) + 10; jvspinedit3.left := 8 + label10.Width; JvXPButton12.left := (JvPageControl1.Width div 2) - (JvXPButton12.Width div 2); JvXPButton19.left := (JvPageControl1.Width div 2) - (JvXPButton19.Width div 2); end; procedure TForm1.XJustOne1AlreadyExist(Sender: TObject); begin MessageDlg('KW''s Textbausteinverwaltung' + #13 + #10 + ' läuft bereits.', mtInformation, [mbOK], 0); end; procedure TForm1.FormDestroy(Sender: TObject); begin ChangeClipboardChain(Handle, // our handle to remove NextClipboardViewer); // handle of next window in the chain sta.clear; sta.free; end; procedure TForm1.JvListBox2Click(Sender: TObject); begin d_filter := jvlistbox2.items.Strings[jvlistbox2.Itemindex]; oeffne_datenbank_gefiltert; if jvlistbox1.items.count > 0 then begin jvlistbox1.itemindex := 0; JvListBox1Click(self); end; end; procedure TForm1.JvListBox2KeyPress(Sender: TObject; var Key: Char); begin JvListBox2Click(self); end; procedure TForm1.JvListBox1KeyPress(Sender: TObject; var Key: Char); begin if key = #13 then JvXPButton7Click(self); end; procedure TForm1.JvXPButton12Click(Sender: TObject); begin neue_vers := Tneue_vers.Create(self); with neue_vers do begin dat_name := 'kwtext'; Label1.caption := 'KW''s Textbausteinverwaltung'; showmodal; end; neue_vers.free; end; procedure TForm1.WMChangeCbChain(var Msg: TMessage); begin if Msg.wParam = NextClipboardViewer then NextClipboardViewer := Msg.lParam else SendMessage(NextClipboardViewer, wm_ChangeCbChain, Msg.wParam, Msg.lParam); end; procedure TForm1.WMDrawClipboard(var Msg: TMessage); var s, s1: string; a: integer; begin SendMessage(NextClipboardViewer, wm_DrawClipboard, Msg.wParam, Msg.lParam); if not ist_gestartet then exit; if interne_kopie then begin interne_kopie := false; exit; end; if not JvXPCheckbox16.Checked then exit; if Clipboard.HasFormat(CF_TEXT) then begin cti.Animated:= true; timer3.Enabled:=true; s := ''; clipmemo.Text := Clipboard.AsText; if clipmemo.Text = '' then exit; if clipmemo.Text = ' ' then exit; for a := 0 to clipmemo.Lines.Count - 1 do begin s := s + clipmemo.lines.Strings[a]; if length(s) > 60 then begin break; end; end; s1 := datetimetostr(now); while pos('.', s1) <> 0 do s1[pos('.', s1)] := '_'; while pos(',', s1) <> 0 do s1[pos(',', s1)] := '_'; while pos('\', s1) <> 0 do s1[pos('\', s1)] := '_'; while pos(':', s1) <> 0 do s1[pos(':', s1)] := '_'; while pos(' ', s1) <> 0 do s1[pos(' ', s1)] := '_'; s := s1 + '_| ' + s; jvlistbox3.Items.Append(s); clipmemo.Lines.SaveToFile(programmordner + s1 + '.tmp'); end; if jvspinedit4.AsInteger <> 0 then begin while jvlistbox3.items.count - 1 > jvspinedit4.AsInteger do begin s := jvlistbox3.Items.Strings[0]; s := copy(s, 1, pos('_| ', s) - 1); if FileExists(programmordner + s + '.tmp') then deletefile(programmordner + s + '.tmp'); jvlistbox3.items.Delete(0); end; end; end; procedure TForm1.JvXPButton13Click(Sender: TObject); begin if not JvXPCheckbox16.Checked then MessageDlg('' + #13 + #10 + 'Zwischenablagenüberwachung ist nicht aktiv.', mtInformation, [mbOK], 0) else JvPageControl1.ActivePage := TabSheet4; end; procedure TForm1.JvXPButton17Click(Sender: TObject); begin clipmemo.SelectAll; interne_kopie := true; clipmemo.CopyToClipboard; if JvXPCheckbox4.Checked then cti.HideApplication; end; procedure TForm1.JvXPButton16Click(Sender: TObject); begin JvPageControl1.ActivePage := TabSheet1; sekundaere_form := false; end; procedure TForm1.JvListBox3Click(Sender: TObject); var s: string; begin if jvlistbox3.itemindex = -1 then exit; s := jvlistbox3.Items.Strings[jvlistbox3.itemindex]; s := copy(s, 1, pos('_| ', s) - 1); if FileExists(programmordner + s + '.tmp') then clipmemo.Lines.loadfromFile(programmordner + s + '.tmp'); end; procedure TForm1.JvXPButton15Click(Sender: TObject); begin neu_von_clip := true; JvXPButton3Click(self); end; procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin ChangeClipboardChain(Form1.Handle, NextClipboardViewer); end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin try html_Help(HH_CLOSE_ALL); except end; end; procedure TForm1.JvXPButton19Click(Sender: TObject); begin Show_a_Help('allgemein.html'); end; procedure TForm1.JvXPButton20Click(Sender: TObject); var a: integer; s: string; begin a := jvlistbox3.itemindex; if a = -1 then begin MessageDlg('Sie müssen zuerst einen Eintrag auswählen.', mtInformation, [mbOK], 0); exit; end; s := jvlistbox3.Items.Strings[a]; s := copy(s, 1, pos('_| ', s) - 1); if FileExists(programmordner + s + '.tmp') then begin deletefile(programmordner + s + '.tmp'); jvlistbox3.items.Delete(a); clipmemo.Lines.clear; end else MessageDlg('Sorry ' + #13 + #10 + 'dieser Eintrag konnte nicht gelöscht werden.', mtConfirmation, [mbOK], 0); end; procedure TForm1.JvListBox3DblClick(Sender: TObject); begin JvXPButton17Click(Self); end; procedure TForm1.dexDblClick(Sender: TObject); begin JvXPButton2Click(self); end; procedure TForm1.Textbsvbeenden1Click(Sender: TObject); begin sekundaere_form := true; close; end; procedure TForm1.Timer3Timer(Sender: TObject); begin timer3.Enabled:= false; cti.Animated:= false; cti.IconIndex:=0; end; end.