瀏覽代碼

图片文件不存在的异常

lqq 9 年之前
父節點
當前提交
5f4f305963
共有 6 個文件被更改,包括 11 次插入4 次删除
  1. 3 1
      Client/Lxtalk.dproj
  2. 二進制
      Client/Lxtalk.res
  3. 1 1
      Controls/RealICQComponents.dproj
  4. 二進制
      Controls/RealICQComponents.res
  5. 5 0
      Controls/RealICQUI/RealICQColors.pas
  6. 2 2
      ZWT/XML/DefaultConfig.xml

文件差異過大導致無法顯示
+ 3 - 1
Client/Lxtalk.dproj


二進制
Client/Lxtalk.res


文件差異過大導致無法顯示
+ 1 - 1
Controls/RealICQComponents.dproj


二進制
Controls/RealICQComponents.res


+ 5 - 0
Controls/RealICQUI/RealICQColors.pas

@@ -151,6 +151,11 @@ begin
   Bitmap1 := TBitmap.Create;
   Bitmap2 := TBitmap.Create;
   Bitmap2.SetSize(ANewWidth, ANewHeight);
+  if not FileExists(AFileName) then
+  begin
+    Result := TBitmap.Create;
+    Exit;
+  end;
   try
     try
       if AnsiSameText(ExtractFileExt(AFileName), '.png') then

+ 2 - 2
ZWT/XML/DefaultConfig.xml

@@ -6,8 +6,8 @@
 	<MainFormTop Value="-1"/>
 	<MainFormWidth Value="258"/>
 	<MainFormHeight Value="734"/>
-	<TalkingFormLeft Value="442"/>
-	<TalkingFormTop Value="123"/>
+	<TalkingFormLeft Value="695"/>
+	<TalkingFormTop Value="128"/>
 	<TalkingFormWidth Value="663"/>
 	<TalkingFormHeight Value="507"/>
 	<ShowMainFormOnStart Value="True"/>