small changes

Al-Muhandis · Mar 24, 2019 · 116d900 · 116d900
1 parent f54024f
commit 116d900
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 13 deletions.
diff --git a/fptelegram.pas b/fptelegram.pas
@@ -4,10 +4,11 @@
 
 unit fptelegram;
 
+{$warn 5023 off : no warning about unused units}
 interface
 
 uses
-  tgsendertypes, tgtypes, longpoll_mthread, tgstatlog, tgutils;
+  tgsendertypes, tgtypes, tgstatlog, tgutils;
 
 implementation
 

diff --git a/tgsendertypes.pas b/tgsendertypes.pas
@@ -427,7 +427,7 @@   TTelegramSender = class
     function CurrentIsBanned: Boolean; overload;
 
     function answerCallbackQuery(const CallbackQueryId: String; const Text: String = '';
-      ShowAlert: Boolean=False; const Url: String = ''; CacheTime: Integer = 0): Boolean;
+      ShowAlert: Boolean=False; const Url: String = ''; CacheTime: Integer = 0): Boolean; virtual;
     function answerPreCheckoutQuery(const PreCheckoutQueryID: String; Ok: Boolean;
       AnErrorMessage: String = ''): Boolean;
     function editMessageReplyMarkup(chat_id: Int64 = 0; message_id: Int64 = 0;
@@ -2114,17 +2114,6 @@ constructor TTelegramSender.Create(const AToken: String);
   FToken:=AToken;
   FRequestWhenAnswer:=False;
   FProcessUpdate:=True;
-  FCurrentChatId:=0;
-  FCurrentUser:=nil;
-  FCurrentMessage:=nil;
-  FUpdate:=nil;
-  FUpdateLogger:=nil;
-  FJSONResponse:=nil;
-  FBotUser:=nil;
-  FFileObj:=nil;
-  FLanguage:='';
-  FLogger:=nil;
-  BotUsername:='';
   FCommandHandlers:=TCommandHandlersMap.create;
   FChannelCommandHandlers:=TCommandHandlersMap.create;
   FLogDebug:=False;