[tuxdroid-svn] r5149 - software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser

[jerome <c2m...@c2...>]

Author: jerome
Date: 2009-07-23 20:39:09 +0200 (Thu, 23 Jul 2009)
New Revision: 5149

Removed:
   software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/TXmlThread.dcu
   software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/TXmlThread.pas
Log:
* Removed TXmlThread object that is not in use now.

Deleted: software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/TXmlThread.dcu
===================================================================
(Binary files differ)

Deleted: software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/TXmlThread.pas
===================================================================
--- software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/TXmlThread.pas	2009-07-23 18:38:12 UTC (rev 5148)
+++ software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/TXmlThread.pas	2009-07-23 18:39:09 UTC (rev 5149)
@@ -1,102 +0,0 @@
-{* This file is part of "Tux Droid Browser".
- *    Copyright 2009, kysoh
- *    Author : Conan Jerome.
- *    eMail  : jer...@ky...
- *    Site   : http://www.kysoh.com/
- *
- * "Tux Droid Browser" is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License as
- * published by the Free Software Foundation; either version 2.1 of
- * the License, or (at your option) any later version.
- *
- * "Tux Droid Browser" is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * General Public License for more details.
- *
- * You should have received a copy of the GNU General Public
- * License along with "Tux Droid Browser"; if not, write to the Free
- * Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA
- * 02110-1301 USA, or see the FSF site: http://www.fsf.org.
- *}
-
-unit TXmlThread;
-
-interface
-
-uses
-  Classes, LibXmlParser, LibXmlComps, SysUtils, Windows, Dialogs;
-
-type
-  TXmlThreadObject = class(TThread)
-
-  public
-    constructor create(var scanner : TXmlScanner);
-    destructor  destroy; override;
-    function getResult() : boolean;
-
-  private
-    { Darations priv }
-    procedure XmlScanner1Content(Sender: TObject; Content: String);
-
-  protected
-    procedure Execute; override;
-  end;
-
-var
-  xmlScanner : TXmlScanner;
-  boolValue      : boolean;
-
-implementation
-
-{ TXmlThread }
-
-constructor TXmlThreadObject.create(var scanner : TXmlScanner);
-begin
-  inherited create(true);
-  xmlScanner := scanner;
-  xmlScanner.OnContent := self.XmlScanner1Content;
-  boolValue := false;
-end;
-
-
-destructor TXmlThreadObject.destroy;
-begin
-  inherited;
-  //xmlScanner.Free;
-end;
-
-procedure TXmlThreadObject.Execute;
-begin
-  xmlScanner.Execute;
-end;
-
-
-//Xml scanner event.
-procedure TXmlThreadObject.XmlScanner1Content(Sender: TObject; Content: String);
-var
-  parser : TXmlParser;
-  value  : String;
-begin
-  parser := TXmlScanner(sender).XmlParser;
-
-  if parser.CurName = 'value' then
-  begin
-     value := LowerCase(parser.CurContent);
-     if value = 'true' then
-       boolValue := true
-     else
-       boolValue := false;
-  end;
-
-end;
-
-
-//Return the thread Result.
-function TXmlThreadObject.getResult() : boolean;
-begin
-  Result := boolValue;
-end;
-
-end.
- 
\ No newline at end of file