MG: finddeclaration for stupid things like var a:a;

git-svn-id: trunk@1694 -

components/codetools/finddeclarationtool.pas

@@ -1752,9 +1752,10 @@ begin
                         -[fdfIgnoreUsedUnits];
           Params.ContextNode:=Result.Node.Parent;
           if (Params.ContextNode.Desc in [ctnVarDefinition,ctnConstDefinition])
-          then
+          then begin
             // pascal allows things like 'var a: a;' -> skip var definition
-            Params.ContextNode:=Params.ContextNode.Parent;
+            Include(Params.Flags,fdfIgnoreCurContextNode);
+          end;
           if Params.ContextNode.Desc=ctnParameterList then
             // skip search in parameter list
             Params.ContextNode:=Params.ContextNode.Parent;

components/synedit/synedit.pp

@@ -2861,7 +2861,11 @@ end;
 
 procedure TCustomSynEdit.Update;
 begin
+  {$IFDEF SYN_LAZARUS}
+  Invalidate;
+  {$ELSE}
   Paint;
+  {$ENDIF}
   inherited Update;
 end;
 
@@ -7465,5 +7469,3 @@ initialization
 
 end.
 
-
-

lcl/include/customcontrol.inc

@@ -63,7 +63,7 @@ end;
   Paint event handler.
  ------------------------------------------------------------------------------}
 procedure TCustomControl.WMPaint(var Message: TLMPaint);
-begin            
+begin
   Include(FControlState, csCustomPaint);
   inherited WMPaint(Message);
   Paint; // TODO move this to the PaintWindow function;
@@ -75,6 +75,9 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.4  2002/05/17 10:45:23  lazarus
+  MG: finddeclaration for stupid things like var a:a;
+
   Revision 1.3  2002/05/10 06:05:51  lazarus
   MG: changed license to LGPL
 

lcl/interfaces/gtk/gtkwinapi.inc

@@ -1831,19 +1831,19 @@ var Widget : TGtkWidget;
     i : integer;
 begin
   Result := IsValidDC(DC);
-  if Result
- then with PDeviceContext(DC)^ do
- begin
-    if GC = nil
- then begin
-      Result:= False;
-    end
- else begin
-      Widget:= PGtkFixed(GetFixedWidget(PGtkWidget(PDeviceContext(DC)^.hWnd)))^.Container.Widget;
-      for i:= 1 to FrameWidth do begin
-        gtk_paint_shadow(Widget.thestyle, Widget.window, GTK_STATE_NORMAL, GtkShadowType[Style], nil, @Widget, nil, 
-          Rect.left, Rect.top, Rect.Right - Rect.Left, Rect.Bottom - Rect.Top);
-	InflateRect(Rect, -1, -1);
+  if Result then
+    with PDeviceContext(DC)^ do
+    begin
+      if GC = nil then begin
+        Result:= False;
+      end
+      else begin
+        Widget:= PGtkFixed(GetFixedWidget(PGtkWidget(PDeviceContext(DC)^.hWnd)))^.Container.Widget;
+        for i:= 1 to FrameWidth do begin
+          gtk_paint_shadow(Widget.thestyle, Widget.window, GTK_STATE_NORMAL,
+                           GtkShadowType[Style], nil, @Widget, nil,
+           Rect.left, Rect.top, Rect.Right - Rect.Left, Rect.Bottom - Rect.Top);
+        InflateRect(Rect, -1, -1);
       end;
     end;
   end;
@@ -4456,6 +4456,9 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.70  2002/05/17 10:45:23  lazarus
+  MG: finddeclaration for stupid things like var a:a;
+
   Revision 1.69  2002/05/16 18:26:08  lazarus
   MG: fixed selection painting of non highlighter