paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-14 12:19:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@1694 -
This commit is contained in:
lazarus 2002-05-17 10:45:23 +00:00
parent ad90cde830
commit d1941058d2
4 changed files with 27 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/codetools/finddeclarationtool.pas
View File

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

6
components/synedit/synedit.pp
View File

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

5
lcl/include/customcontrol.inc
View File

@ -63,7 +63,7 @@ end;
Paint event handler. Paint event handler.
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
procedure TCustomControl.WMPaint(var Message: TLMPaint); procedure TCustomControl.WMPaint(var Message: TLMPaint);
begin begin
Include(FControlState, csCustomPaint); Include(FControlState, csCustomPaint);
inherited WMPaint(Message); inherited WMPaint(Message);
Paint; // TODO move this to the PaintWindow function; Paint; // TODO move this to the PaintWindow function;
@ -75,6 +75,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $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 Revision 1.3 2002/05/10 06:05:51 lazarus
MG: changed license to LGPL MG: changed license to LGPL

29
lcl/interfaces/gtk/gtkwinapi.inc
View File

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