ソースを参照

图片文件不存在的异常

lqq 9 年 前
コミット
831e365ef0
共有6 個のファイルを変更した11 個の追加4 個の削除を含む
  1. 3 1
      Client/Lxtalk.dproj
  2. BIN
      Client/Lxtalk.res
  3. 1 1
      Controls/RealICQComponents.dproj
  4. BIN
      Controls/RealICQComponents.res
  5. 5 0
      Controls/RealICQUI/RealICQColors.pas
  6. 2 2
      ZWT/XML/DefaultConfig.xml

ファイルの差分が大きいため隠しています
+ 3 - 1
Client/Lxtalk.dproj


BIN
Client/Lxtalk.res


ファイルの差分が大きいため隠しています
+ 1 - 1
Controls/RealICQComponents.dproj


BIN
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"/>