undo

git-svn-id: trunk@21399 -

components/synedit/synpluginsyncroedit.pp

@@ -722,17 +722,13 @@ var
 begin
   if not Enabled then exit;
   if FGlyphLastLine <> -2 then begin
-    if SynEdit.HandleAllocated then begin
-      rcInval := GetGutterGlyphRect(FGlyphLastLine);
-      InvalidateRect(SynEdit.Handle, @rcInval, False);
-    end;
-  end;
-  if SynEdit.HandleAllocated then begin
-    rcInval := GetGutterGlyphRect;
-    // and make sure we trigger the Markup // TODO: triigger markup on gutter paint too
-    rcInval.Right := Max(rcInval.Right, TSynEdit(SynEdit).GutterWidth + 2);
+    rcInval := GetGutterGlyphRect(FGlyphLastLine);
     InvalidateRect(SynEdit.Handle, @rcInval, False);
   end;
+  rcInval := GetGutterGlyphRect;
+  // and make sure we trigger the Markup // TODO: triigger markup on gutter paint too
+  rcInval.Right := Max(rcInval.Right, TSynEdit(SynEdit).GutterWidth + 2);
+  InvalidateRect(SynEdit.Handle, @rcInval, False);
 end;
 
 procedure TSynPluginSyncroEditMarkup.DoCaretChanged(Sender: TObject);
@@ -748,10 +744,8 @@ begin
   inherited DoTopLineChanged(OldTopLine);
   // Glyph may have drawn up to one Line above
   if FGlyphLastLine > 1 then begin
-    if SynEdit.HandleAllocated then begin
-      rcInval := GetGutterGlyphRect(FGlyphLastLine - 1);
-      InvalidateRect(SynEdit.Handle, @rcInval, False);
-    end;
+    rcInval := GetGutterGlyphRect(FGlyphLastLine - 1);
+    InvalidateRect(SynEdit.Handle, @rcInval, False);
   end;
   DoInvalidate;
 end;
@@ -769,10 +763,8 @@ begin
   inherited DoEnabledChanged(Sender);
   if not Enabled then begin
     if FGlyphLastLine <> -2 then begin
-      if SynEdit.HandleAllocated then begin
-        rcInval := GetGutterGlyphRect(FGlyphLastLine);
-        InvalidateRect(SynEdit.Handle, @rcInval, False);
-      end;
+      rcInval := GetGutterGlyphRect(FGlyphLastLine);
+      InvalidateRect(SynEdit.Handle, @rcInval, False);
     end;
     FGlyphLastLine := -2;
   end

ide/include/ide.inc

@@ -19,11 +19,9 @@
  ***************************************************************************
 }
 
-// !!! if you change any of these flags, you have to make cleanide !!!
-{$inline on}
-
 { $DEFINE IDE_VERBOSE}
 
+// !!! if you change any of these flags, you have to make cleanide !!!
 { $DEFINE IDE_MEM_CHECK}
 
 { $DEFINE IDE_DEBUG}
@@ -46,17 +44,8 @@
 { $DEFINE VerboseJITForms}
 { $DEFINE VerboseFormEditor}
 
-// TODO: Test on all platforms
-{$IFNDEF DisableAsyncProcess}
-  {$IFDEF Linux}
-    {$IFDEF CPUI386}
-      {off $DEFINE UseAsyncProcess}
-    {$ENDIF}
-  {$ENDIF}
-  {$IFDEF windows}
-    {$DEFINE UseAsyncProcess}
-  {$ENDIF}
-{$ENDIF}
+
+{$inline on}
 
 // end.
 

ide/main.pp

@@ -52,6 +52,18 @@ unit Main;
 
 interface
 
+// TODO: Test on all platforms
+{$IFNDEF DisableAsyncProcess}
+  {$IFDEF Linux}
+    {$IFDEF CPUI386}
+      {off $DEFINE UseAsyncProcess}
+    {$ENDIF}
+  {$ENDIF}
+  {$IFDEF windows}
+    {$DEFINE UseAsyncProcess}
+  {$ENDIF}
+{$ENDIF}
+
 {$I ide.inc}
 
 uses

lcl/asyncprocess.pp

@@ -107,7 +107,6 @@ procedure TAsyncProcess.Execute;
 begin
   inherited Execute;
 
-  writeln('TAsyncProcess.Execute ',poUsePipes in Options);
   if poUsePipes in Options then
     FPipeHandler := AddPipeEventHandler(Output.Handle, @HandlePipeInput, 0);
   FProcessHandler := AddProcessEventHandler(ProcessHandle, @HandleProcessTermination, 0);

lcl/interfaces/gtk/gtkwidgetset.inc

@@ -573,10 +573,6 @@ end;
 {$ifdef Unix}
 
 procedure TGtkWidgetSet.PrepareSynchronize(AObject: TObject);
-{ This method is the WakeMainThread of the unit classes.
-  It is called in TThread.Synchronize to wake up the main thread = LCL GUI thread.
-  see: TGtkWidgetSet.InitSynchronizeSupport
-}
 var
   thrash: char;
 begin
@@ -642,10 +638,6 @@ begin
 end;
 
 procedure TGtkWidgetSet.InitSynchronizeSupport;
-{ When a thread calls its Synchronize, it calls
-  WakeMainThread (defined in the unit classes).
-  Set
-}
 begin
   { TThread.Synchronize ``glue'' }
   WakeMainThread := @PrepareSynchronize;