[Synedit-checkins] SynEdit/Source SynEdit.pas,1.380,1.381

[Flávio E. <et...@us...>]

Update of /cvsroot/synedit/SynEdit/Source
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8986/Source

Modified Files:
	SynEdit.pas 
Log Message:
Allow setting CaretXY without forcing Window Handle creation.

Index: SynEdit.pas
===================================================================
RCS file: /cvsroot/synedit/SynEdit/Source/SynEdit.pas,v
retrieving revision 1.380
retrieving revision 1.381
diff -u -d -r1.380 -r1.381
--- SynEdit.pas	2 Aug 2004 06:16:03 -0000	1.380
+++ SynEdit.pas	2 Aug 2004 06:30:50 -0000	1.381
@@ -3754,9 +3754,12 @@
 procedure TCustomSynEdit.SetCaretXYEx(CallEnsureCursorPos: Boolean; Value: TBufferCoord);
 var
   nMaxX: Integer;
+  vTriggerPaint: boolean;
 begin
   fCaretAtEOL := False;
-  DoOnPaintTransient(ttBefore);
+  vTriggerPaint := HandleAllocated;
+  if vTriggerPaint then
+    DoOnPaintTransient(ttBefore);
   if WordWrap then
     nMaxX := MaxInt
   else
@@ -3824,7 +3827,8 @@
     // restore it afterward as appropriate.
     UpdateLastCaretX;
   end;
-  DoOnPaintTransient(ttAfter);
+  if vTriggerPaint then
+    DoOnPaintTransient(ttAfter);
 end;
 
 procedure TCustomSynEdit.SetActiveLineColor(Value: TColor);