fixes for htmllite

git-svn-id: trunk@2160 -

components/htmllite/Makefile.fpc

@@ -0,0 +1,45 @@
+#   $Id$
+#
+#   Makefile.fpc for Lazarus for Free Pascal
+#
+
+[package]
+name=lazarus/htmllite
+version=0.8a
+
+[compiler]
+unitdir=../../lcl/units/$(LCL_PLATFORM) ../../lcl/units .
+options=-gl -dHL_LAZARUS
+
+[target]
+units=htmllite
+implicitunits=htmllite litepars litesubs litedith litegif2 litereadthd liteun2 \
+  litesbs1
+
+[clean]
+files=$(wildcard *$(OEXT)) $(wildcard *$(PPUEXT)) $(wildcard *$(RSTEXT))
+
+[require]
+packages=fcl
+
+[default]
+lcldir=../../lcl
+
+[prerules]
+# LCL Platform
+ifndef LCL_PLATFORM
+ifeq ($(OS_TARGET),win32)
+LCL_PLATFORM=win32
+else
+LCL_PLATFORM=gtk
+endif
+endif
+export LCL_PLATFORM
+
+[rules]
+.PHONY: cleartarget all
+
+cleartarget:
+        -$(DEL) htmllite$(PPUEXT)
+
+all: cleartarget htmllite$(PPUEXT)

lcl/controls.pp

@@ -959,9 +959,9 @@ type
     FCanvas: TCanvas;
   protected
     procedure WMPaint(var Message: TLMPaint); message LM_PAINT;
+  public
     Procedure Paint; virtual;
     property Canvas: TCanvas read FCanvas write FCanvas;
-  public
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
   end;
@@ -1436,6 +1436,9 @@ end.
 { =============================================================================
 
   $Log$
+  Revision 1.99  2002/12/27 18:18:05  mattias
+  fixes for htmllite
+
   Revision 1.98  2002/12/27 17:46:04  mattias
   fixed SetColor