paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-04 15:40:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

implemented TMemo.SelLength, improved OI hints

Browse Source 
git-svn-id: trunk@3959 -
This commit is contained in:
mattias 2003-03-25 13:00:39 +00:00
parent 1b47078742
commit fa65a6108c
1 changed files with 55 additions and 67 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

60
designer/objectinspector.pp
View File

@ -172,12 +172,13 @@ type
FBorderStyle:TBorderStyle;
FStates: TOIPropertyGridStates;
//hint stuff
// hint stuff
FHintTimer : TTimer;
FHintWindow : THintWindow;
FLastMouseMovePos : TPoint;
Procedure HintTimer(sender: TObject);
Procedure ResetHintTimer(Sender: TObject; Shift: TShiftstate; X,Y: Integer);
Procedure HintTimer(Sender: TObject);
Procedure ResetHintTimer;
procedure OnUserInput(Sender: TObject; Msg: Cardinal);
procedure OnIdle(Sender: TObject);
procedure IncreaseChangeStep;
@ -225,7 +226,6 @@ type
ARect: TRect; State: TOwnerDrawState);
procedure WMVScroll(var Msg: TWMScroll); message WM_VSCROLL;
procedure WMMouseMove(var Msg: TWMMouseMove); message WM_MOUSEMOVE;
procedure WMSize(var Msg: TWMSize); message WM_SIZE;
procedure SetBorderStyle(Value: TBorderStyle);
procedure SetBackgroundColor(const AValue: TColor);
@ -416,7 +416,6 @@ begin
Parent:=Self;
Visible:=false;
Enabled:=false;
OnMouseMove := @ResetHintTimer;
OnMouseDown := @ValueEditMouseDown;
OnDblClick := @ValueEditDblClick;
OnExit:=@ValueEditExit;
@ -430,7 +429,6 @@ begin
Visible:=false;
Enabled:=false;
Parent:=Self;
OnMouseMove := @ResetHintTimer;
OnMouseDown := @ValueEditMouseDown;
OnDblClick := @ValueEditDblClick;
OnExit:=@ValueComboBoxExit;
@ -470,6 +468,9 @@ begin
FHintWindow.Caption := 'This is a hint window'#13#10'Neat huh?';
FHintWindow.HideInterval := 4000;
FHintWindow.AutoHide := True;
Application.AddOnUserInputHandler(@OnUserInput);
Application.AddOnIdleHandler(@OnIdle);
end;
procedure TOIPropertyGrid.UpdateScrollBar;
@ -546,6 +547,8 @@ end;
destructor TOIPropertyGrid.Destroy;
var a:integer;
begin
Application.RemoveOnUserInputHandler(@OnUserInput);
Application.RemoveOnIdleHandler(@OnIdle);
FItemIndex:=-1;
for a:=0 to FRows.Count-1 do Rows[a].Free;
FreeAndNil(FRows);
@ -1169,6 +1172,16 @@ begin
end;
end;
procedure TOIPropertyGrid.OnUserInput(Sender: TObject; Msg: Cardinal);
begin
ResetHintTimer;
end;
procedure TOIPropertyGrid.OnIdle(Sender: TObject);
begin
end;
procedure TOIPropertyGrid.EndDragSplitter;
begin
if FDragging then begin
@ -1560,9 +1573,9 @@ begin
Position := Mouse.CursorPos;
Window := FindLCLWindow(Position);
if not(Assigned(window)) then Exit;
if not(Assigned(Window)) then Exit;
//get the parent until parent is nil
// get the parent until parent is nil
While Window.Parent <> nil do
Window := Window.Parent;
@ -1572,10 +1585,6 @@ begin
if (window <> Window2) then Exit;
if ( (FLastMouseMovePos.X <= 0) or (FLastMouseMOvePos.Y <= 0)
or (FLastMouseMovePos.X >= Width) or (FLastMouseMovePos.Y >= Height)) then
Exit;
Position := ScreenToClient(Position);
if ((Position.X <=0) or (Position.X >= Width) or (Position.Y <= 0)
or (Position.Y >= Height)) then
@ -1625,34 +1634,13 @@ begin
FHintWindow.ActivateHint(Rect,AHint);
end;
Procedure TOIPropertyGrid.ResetHintTimer(Sender : TObject; Shift: TShiftstate; X,Y : Integer);
Procedure TOIPropertyGrid.ResetHintTimer;
begin
if FHintWIndow.Visible then
FHintWindow.Visible := False;
FHintTimer.Enabled := False;
FHintTimer.Enabled := not ((ssLeft in Shift) or (ssRight in Shift) or (ssMiddle in Shift));
if (Sender is TOIPropertyGrid) then
Begin
FLastMouseMovePos.X := X;
FLastMouseMovePos.Y := Y;
end
else
begin //account for the controls position. THis is used for the FCurrentEdit control
FLastMouseMovePos.X := TWinControl(sender).Left+X;
FLastMouseMovePos.Y := TWinControl(Sender).Top+Y;
end;
end;
procedure TOIPropertyGrid.WMMouseMove(var Msg: TWMMouseMove);
var
Shift : TShiftState;
begin
inherited;
Shift := KeystoShiftState(Msg.Keys); //KeystoShiftState found in Forms.pp
ResetHintTimer(self,Shift,Msg.pos.x,Msg.Pos.Y);
FHintTimer.Enabled := not FDragging;
end;
procedure TOIPropertyGrid.ValueEditMouseDown(Sender : TObject;