pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

jvcllaz: Activate mousewheel support for appointments displayed within day cells of JvTFWeeks and JvTFMonths .

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7115 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-08-10 16:15:15 +00:00
parent 23a82fa5b8
commit 93c3a3bf73
3 changed files with 29 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
components/jvcllaz/examples/JvTimeFramework/tfmain.lfm
View File

@ -1,7 +1,7 @@
object MainForm: TMainForm
Left = 568
Left = 577
Height = 613
Top = 55
Top = 179
Width = 477
Caption = 'UTF Demo 1: PhotoOp'
ClientHeight = 613
@ -22,9 +22,9 @@ object MainForm: TMainForm
Height = 515
Top = 73
Width = 477
ActivePage = TabSheet1
ActivePage = TabSheet3
Align = alClient
TabIndex = 0
TabIndex = 2
TabOrder = 0
object TabSheet1: TTabSheet
Caption = 'Day View'
@ -1207,6 +1207,7 @@ object MainForm: TMainForm
object GlanceTextViewer1: TJvTFGlanceTextViewer
ShowStartEndTimeInHint = False
LineSpacing = 2
ShowLineDDButton = False
left = 304
top = 136
end
@ -1214,6 +1215,7 @@ object MainForm: TMainForm
ShowStartEndTimeInHint = False
LineSpacing = 2
ShowStartEnd = False
ShowLineDDButton = False
left = 304
top = 192
end

2
components/jvcllaz/run/JvTimeFramework/jvtfglance.pas
View File

@ -1490,8 +1490,6 @@ begin
end;
end;
function TJvTFCustomGlance.DateIsSelected(ADate: TDate): Boolean;
begin
Result := Sel.IndexOf(ADate) <> -1;

23
components/jvcllaz/run/JvTimeFramework/jvtfglancetextviewer.pas
View File

@ -121,6 +121,10 @@ type
procedure DragOver(Source: TObject; X, Y: Integer; State: TDragState;
var Accept: Boolean); override;
// mouse wheel support
function DoMouseWheelDown(Shift: TShiftState; MousePos: TPoint): Boolean; override ;
function DoMouseWheelUp(Shift: TShiftState; MousePos: TPoint): Boolean; override;
property Replicating: Boolean read FReplicating;
procedure Paint; override;
procedure DrawDDButton(ACanvas: TCanvas);
@ -737,6 +741,25 @@ begin
Result := Rel - TopLine;
end;
function TJvTFGVTextControl.DoMouseWheelDown(Shift: TShiftState;
MousePos: TPoint): Boolean;
begin
Result := inherited;
if not Result then begin
Scroll(+1);
Result := true;
end;
end;
function TJvTFGVTextControl.DoMouseWheelUp(Shift: TShiftState;
MousePos: TPoint): Boolean;
begin
Result := inherited;
if not Result then begin
Scroll(-1);
end;
end;
procedure TJvTFGVTextControl.DoViewerDblClick;
begin
if FHasScrolled then