paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 10:18:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

Shane

Browse Source 
git-svn-id: trunk@175 -
This commit is contained in:
lazarus 2001-02-06 18:19:38 +00:00
parent ee40879606
commit 77cd73123e
8 changed files with 54 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/synedit/synedit.pp
View File

@ -1078,6 +1078,7 @@ end;
procedure TCustomSynEdit.DecPaintLock;
begin
Writeln('IN DECPAINT');
Dec(fPaintLock);
if (fPaintLock = 0) and HandleAllocated then begin
if sfScrollbarChanged in fStateFlags then
@ -2658,6 +2659,7 @@ procedure TCustomSynEdit.SetCaretXY(Value: TPoint);
var
nMaxX: integer;
begin
Writeln('IN SETCARETXY');
nMaxX := fMaxLeftChar;
if Value.Y > Lines.Count then
Value.Y := Lines.Count;
@ -3163,8 +3165,12 @@ var
cf: TCompositionForm;
{$ENDIF}
begin
Writeln('IN UPDATECARET');
Writeln('PAINTLOCK = '+inttostr(PaintLock));
if (PaintLock <> 0) or not Focused then
Include(fStateFlags, sfCaretChanged)
Begin
Include(fStateFlags, sfCaretChanged);
end
else begin
Exclude(fStateFlags, sfCaretChanged);
CX := CaretXPix + FCaretOffset.X;

10
ide/uniteditor.pp
View File

@ -398,9 +398,12 @@ end;
{------------------------------G O T O L I N E ---------------------------------}
Function TSOurceEditor.GotoLine(Value : Integer) : Integer;
Var
P : TPoint;
Begin
CurrentCursorYLine := Value;
CurrentCursorXLine := 0;
P.X := 0;
P.Y := Value;
FEditor.CaretXY := P;
end;
{------------------------------G O T O M E T H O D ---------------------------------}
@ -805,7 +808,7 @@ if Command >= ecFirstParent then
except
GotoLine(0);
end;
TMainIDE(TSourceNotebook(FAOwner).MainIDE).SpeedButton4.Visible := False;
TMainIDE(TSourceNotebook(FAOwner).MainIDE).speedbutton4.visible := not TMainIDE(TSourceNotebook(FAOwner).MainIDE).speedbutton4.visible;
end;
ecPeriod : Begin
@ -1130,6 +1133,7 @@ Begin
end;
sCompl.ItemList := S;
End;
Procedure TSourceEditor.ccOnTimer(sender : TObject);

7
lcl/include/control.inc
View File

@ -805,7 +805,9 @@ begin
if (IsVisible or (csDesigning in ComponentState) and not (csNoDesignVisible in ControlStyle)) and
(Parent <> nil) and (Parent.HandleAllocated) then
Begin
CNSendMessage(LM_REDRAW,Self,Nil);
// CNSendMessage(LM_REDRAW,Self,Nil);
Rect := BoundsRect;
InvalidateRect(parent.handle,@Rect, True);
end;
end;
@ -1287,6 +1289,9 @@ end;
{ =============================================================================
$Log$
Revision 1.12 2001/02/06 18:19:37 lazarus
Shane
Revision 1.11 2001/02/04 04:18:12 lazarus
Code cleanup and JITFOrms bug fix.
Shane

14
lcl/include/wincontrol.inc
View File

@ -1543,6 +1543,17 @@ end;
------------------------------------------------------------------------------}
procedure TWinControl.WMWindowPosChanged(var Message : TLMWindowPosChanged);
begin
if Message.WindowPos <> nil
then with Message.WindowPos^ do
begin
FLeft := X;
FWidth := cX;
FTop := Y;
FHeight := cY;
Assert(False, Format('Trace:[TWinControl.WMWindowPosChanged] %s --> Message.WindowPos(%d, %d)(%d, %d)', [ClassName, X, Y, cx, cy]));
end
else Assert(False, Format('Trace:[TWinControl.WMWindowPosChanged] %s --> Message.WindowPos = nil', [ClassName]));
inherited WMWindowPosChanged(Message);
end;
@ -1904,6 +1915,9 @@ end;
{ =============================================================================
$Log$
Revision 1.18 2001/02/06 18:19:37 lazarus
Shane
Revision 1.17 2001/02/06 14:52:47 lazarus
Changed TSpeedbutton in gtkobject so it erases itself when it's set to visible=false;
Shane

4
lcl/interfaces/gtk/gtkint.pp
View File

@ -83,6 +83,7 @@ type
Cursor_Cross : pGDKCursor;
Cursor_Hand1 : pGDKCursor;
Cursor_XTerm : pGDKCursor;
Cursor_StdArrow : pGDKCursor;
public
constructor Create;
destructor Destroy; override;
@ -239,6 +240,9 @@ end.
{ =============================================================================
$Log$
Revision 1.6 2001/02/06 18:19:38 lazarus
Shane
Revision 1.5 2001/02/01 19:34:50 lazarus
TScrollbar created and a lot of code added.

8
lcl/interfaces/gtk/gtkobject.inc
View File

@ -116,6 +116,7 @@ begin
gdk_Cursor_Destroy(Cursor_Cross);
gdk_Cursor_Destroy(Cursor_Hand1);
gdk_Cursor_Destroy(Cursor_XTerm);
gdk_Cursor_Destroy(Cursor_StdArrow);
gtk_object_unref(PGTKObject(FGTKToolTips));
FGTKToolTips := nil;
@ -155,6 +156,7 @@ begin
Cursor_Cross := gdk_Cursor_New(gdk_Cross);
Cursor_Hand1 := gdk_Cursor_New(gdk_Hand1);
Cursor_XTerm := gdk_Cursor_New(gdk_XTerm);
Cursor_StdArrow := gdk_Cursor_New(4);
gtk_key_snooper_install(@GTKKeySnooper, @FKeyStateList);
@ -1018,7 +1020,8 @@ begin
crCross : gdk_window_set_cursor (pgtkWidget(TWinControl(Sender).Handle)^.window, Cursor_Cross);
crHandPoint: gdk_window_set_cursor (pgtkWidget(TWinControl(Sender).Handle)^.window, Cursor_hand1);
crIBeam : gdk_window_set_cursor (pgtkWidget(TWinControl(Sender).Handle)^.window, Cursor_XTerm);
// crDefault : CursorType := GDK_Arrow;
crHourGlass: gdk_window_set_cursor (pgtkWidget(TWinControl(Sender).Handle)^.window, Cursor_Watch);
crDefault : gdk_window_set_cursor (pgtkWidget(TWinControl(Sender).Handle)^.window, Cursor_StdArrow);
else
Exit;
end;
@ -2674,6 +2677,9 @@ end;
{ =============================================================================
$Log$
Revision 1.29 2001/02/06 18:19:38 lazarus
Shane
Revision 1.28 2001/02/06 14:52:47 lazarus
Changed TSpeedbutton in gtkobject so it erases itself when it's set to visible=false;
Shane

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

@ -2976,7 +2976,6 @@ var
GTKObject: PGTKObject;
begin
//TODO: [TgtkObject.ShowCaret] Finish (in gtkwinapi.inc)
Assert(False, Format('Trace:> [TgtkObject.ShowCaret] HWND: 0x%x', [hWnd]));
GTKObject := PGTKObject(HWND);
@ -3153,6 +3152,9 @@ end;
{ =============================================================================
$Log$
Revision 1.19 2001/02/06 18:19:38 lazarus
Shane
Revision 1.18 2001/02/04 04:18:12 lazarus
Code cleanup and JITFOrms bug fix.
Shane

6
lcl/interfaces/gtk/gtkwinapiwindow.pp
View File

@ -379,6 +379,9 @@ procedure GTKAPIWidgetClient_SetCaretPos(Client: PGTKAPIWidgetClient; AX, AY: In
var
IsVisible: Boolean;
begin
Writeln('[GTKAPIWIDGETCLIENT] SetCaretPos');
Writeln('ax,ay = '+inttostr(ax)+','+Inttostr(ay));
if Client = nil
then begin
WriteLn('WARNING: [GTKAPIWidgetClient_SetCaretPos] Got nil client');
@ -542,6 +545,9 @@ end.
{ =============================================================================
$Log$
Revision 1.2 2001/02/06 18:19:38 lazarus
Shane
Revision 1.1 2000/07/13 10:28:30 michael
+ Initial import