From 2a07de24410afe7cc9fbd5be3e9deb0c2d7d7202 Mon Sep 17 00:00:00 2001
From: mbirth <mbirth>
Date: Wed, 8 Dec 2004 09:16:45 +0000
Subject: [PATCH] modified   KBLVisualizer.dof modified   KBLVisualizer.res
 modified   KBLVisualizerU.pas -error handling when KBLVisualizer.bmp is
 missing

---
 KBLVisualizer.dof  |   4 ++--
 KBLVisualizer.res  | Bin 4376 -> 4376 bytes
 KBLVisualizerU.pas |  24 ++++++++++++++++++++++--
 3 files changed, 24 insertions(+), 4 deletions(-)

diff --git a/KBLVisualizer.dof b/KBLVisualizer.dof
index 28c4d6a..d369636 100644
--- a/KBLVisualizer.dof
+++ b/KBLVisualizer.dof
@@ -115,7 +115,7 @@ AutoIncBuild=1
 MajorVer=1
 MinorVer=1
 Release=0
-Build=8
+Build=9
 Debug=0
 PreRelease=0
 Special=0
@@ -126,7 +126,7 @@ CodePage=1252
 [Version Info Keys]
 CompanyName=
 FileDescription=KBL-Visualizer
-FileVersion=1.1.0.8
+FileVersion=1.1.0.9
 InternalName=KBLVisualizer
 LegalCopyright=(c)2004 by Markus Birth <mbirth@webwriters.de>
 LegalTrademarks=
diff --git a/KBLVisualizer.res b/KBLVisualizer.res
index 8eec3e010aaba92d37d185f9538050ed82742782..f564dd0eab4ed91d85b9aed06d289c75c1fee41d 100644
GIT binary patch
delta 28
icmbQCG(%}a11~2h0|Nsi5OPlL<o(QOxw)2aHWL717Y6_U

delta 28
icmbQCG(%}a11~2B0|Nsi5OPfJ<o(QOvALFSHWL70@do_>

diff --git a/KBLVisualizerU.pas b/KBLVisualizerU.pas
index 0694fa7..fd1a68a 100644
--- a/KBLVisualizerU.pas
+++ b/KBLVisualizerU.pas
@@ -104,10 +104,30 @@ var titlestore: AnsiString;
     exoc: boolean = false;
 
 procedure ClearScreen;
+var fn, t1, t2: string;
+    tw, th: integer;
+    hc, vc: integer;
 begin
+  fn := ChangeFileExt(Application.ExeName,'.bmp');
   with KBLEditForm.Px00Screen do begin
-    Picture.LoadFromFile(ChangeFileExt(Application.ExeName,'.bmp'));
-    Picture.Bitmap.PixelFormat := pf24bit;
+    if (FileExists(fn)) then begin
+      Picture.LoadFromFile(fn);
+      Picture.Bitmap.PixelFormat := pf24bit;
+    end else begin
+      t1 := ExtractFilename(fn);
+      t2 := 'not found';
+      Canvas.Brush.Color := clWhite;
+      Canvas.Brush.Style := bsSolid;
+      Canvas.FillRect(Rect(0,0,Width,Height));
+      Canvas.Font.Color := clBlack;
+      hc := width DIV 2;
+      vc := height DIV 2;
+      tw := Canvas.TextWidth(t1);
+      th := Canvas.TextHeight(t1);
+      Canvas.TextOut(hc-tw DIV 2,vc-th,t1);
+      tw := Canvas.TextWidth(t2);
+      Canvas.TextOut(hc-tw DIV 2,vc+2,t2);
+    end;
   end;
 end;