paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-30 17:30:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

added mouse cursors for 8 uni directions, imlemented for gtk

Browse Source 
git-svn-id: trunk@6577 -
This commit is contained in:
mattias 2005-01-13 22:07:10 +00:00
parent 407a9f452a
commit 617a25c02d
3 changed files with 27 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
designer/controlselection.pp
View File

@ -489,9 +489,9 @@ implementation
const const
GRAB_CURSOR: array[TGrabIndex] of TCursor = ( GRAB_CURSOR: array[TGrabIndex] of TCursor = (
crSizeNWSE, crSizeNS, crSizeNESW, crSizeNW, crSizeN, crSizeNE,
crSizeWE, crSizeWE, crSizeW, crSizeE,
crSizeNESW, crSizeNS, crSizeNWSE crSizeSW, crSizeS, crSizeSE
); );
GRAB_POSITIONS: array [TGrabIndex] of TGrabPositions = ( GRAB_POSITIONS: array [TGrabIndex] of TGrabPositions = (

15
lcl/controls.pp
View File

@ -238,10 +238,18 @@ const
crCross = TCursor(-3); crCross = TCursor(-3);
crIBeam = TCursor(-4); crIBeam = TCursor(-4);
crSize = TCursor(-22); crSize = TCursor(-22);
crSizeNESW = TCursor(-6); crSizeNESW = TCursor(-6); // diagonal north east - south west
crSizeNS = TCursor(-7); crSizeNS = TCursor(-7);
crSizeNWSE = TCursor(-8); crSizeNWSE = TCursor(-8);
crSizeWE = TCursor(-9); crSizeWE = TCursor(-9);
crSizeNW = TCursor(-23);
crSizeN = TCursor(-24);
crSizeNE = TCursor(-25);
crSizeW = TCursor(-26);
crSizeE = TCursor(-27);
crSizeSW = TCursor(-28);
crSizeS = TCursor(-29);
crSizeSE = TCursor(-30);
crUpArrow = TCursor(-10); crUpArrow = TCursor(-10);
crHourGlass = TCursor(-11); crHourGlass = TCursor(-11);
crDrag = TCursor(-12); crDrag = TCursor(-12);
@ -256,7 +264,7 @@ const
crHandPoint = TCursor(-21); crHandPoint = TCursor(-21);
crSizeAll = TCursor(-22); crSizeAll = TCursor(-22);
crLow = TCursor(-22); crLow = TCursor(-30);
type type
TWndMethod = procedure(var TheMessage: TLMessage) of Object; TWndMethod = procedure(var TheMessage: TLMessage) of Object;
@ -2808,6 +2816,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.266 2005/01/13 22:07:10 mattias
added mouse cursors for 8 uni directions, imlemented for gtk
Revision 1.265 2005/01/08 14:23:56 micha Revision 1.265 2005/01/08 14:23:56 micha
move taborder and tabstop to twincontrol move taborder and tabstop to twincontrol

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

@ -385,6 +385,14 @@ begin
CursorToGDKCursor[crSizeNS] := GDK_SB_V_DOUBLE_ARROW; CursorToGDKCursor[crSizeNS] := GDK_SB_V_DOUBLE_ARROW;
CursorToGDKCursor[crSizeNWSE] := GDK_TOP_LEFT_CORNER; CursorToGDKCursor[crSizeNWSE] := GDK_TOP_LEFT_CORNER;
CursorToGDKCursor[crSizeWE] := GDK_SB_H_DOUBLE_ARROW; CursorToGDKCursor[crSizeWE] := GDK_SB_H_DOUBLE_ARROW;
CursorToGDKCursor[crSizeNW] := GDK_TOP_LEFT_CORNER;
CursorToGDKCursor[crSizeN] := GDK_TOP_SIDE;
CursorToGDKCursor[crSizeNE] := GDK_TOP_RIGHT_CORNER;
CursorToGDKCursor[crSizeW] := GDK_LEFT_SIDE;
CursorToGDKCursor[crSizeE] := GDK_RIGHT_SIDE;
CursorToGDKCursor[crSizeSW] := GDK_BOTTOM_LEFT_CORNER;
CursorToGDKCursor[crSizeS] := GDK_BOTTOM_SIDE;
CursorToGDKCursor[crSizeSE] := GDK_BOTTOM_RIGHT_CORNER;
CursorToGDKCursor[crUpArrow] := GDK_LEFT_PTR; CursorToGDKCursor[crUpArrow] := GDK_LEFT_PTR;
CursorToGDKCursor[crHourGlass]:= GDK_CLOCK; CursorToGDKCursor[crHourGlass]:= GDK_CLOCK;
CursorToGDKCursor[crDrag] := GDK_SAILBOAT; CursorToGDKCursor[crDrag] := GDK_SAILBOAT;
@ -432,6 +440,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.219 2005/01/13 22:07:10 mattias
added mouse cursors for 8 uni directions, imlemented for gtk
Revision 1.218 2005/01/08 11:03:18 mattias Revision 1.218 2005/01/08 11:03:18 mattias
implemented TPen.Mode=pmXor from Jesus implemented TPen.Mode=pmXor from Jesus