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

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

@ -1490,8 +1490,6 @@ begin
end; end;
end; end;
function TJvTFCustomGlance.DateIsSelected(ADate: TDate): Boolean; function TJvTFCustomGlance.DateIsSelected(ADate: TDate): Boolean;
begin begin
Result := Sel.IndexOf(ADate) <> -1; 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; procedure DragOver(Source: TObject; X, Y: Integer; State: TDragState;
var Accept: Boolean); override; 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; property Replicating: Boolean read FReplicating;
procedure Paint; override; procedure Paint; override;
procedure DrawDDButton(ACanvas: TCanvas); procedure DrawDDButton(ACanvas: TCanvas);
@ -737,6 +741,25 @@ begin
Result := Rel - TopLine; Result := Rel - TopLine;
end; 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; procedure TJvTFGVTextControl.DoViewerDblClick;
begin begin
if FHasScrolled then if FHasScrolled then