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

jvcllaz: Activate printing in JvTimeFramework demo. Still issues with font size.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7100 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-08-07 22:43:50 +00:00
parent 41e17a30f3
commit 0436c5f2ce
7 changed files with 109 additions and 52 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -560,7 +560,7 @@ object MainForm: TMainForm
Left = 198
Height = 24
Hint = 'New Appointment'
Top = 8
Top = 7
Width = 24
NumGlyphs = 2
Images = ImageList
@ -824,7 +824,7 @@ object MainForm: TMainForm
ClientHeight = 25
ClientWidth = 445
TabOrder = 2
object Label1: TLabel
object IconsProvidedLabel: TLabel
AnchorSideLeft.Control = Panel2
AnchorSideTop.Control = Panel2
Left = 5
@ -835,10 +835,10 @@ object MainForm: TMainForm
Caption = 'Icons provided by'
ParentColor = False
end
object Label2: TLabel
AnchorSideLeft.Control = Label1
object IconsLink: TLabel
AnchorSideLeft.Control = IconsProvidedLabel
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Label1
AnchorSideTop.Control = IconsProvidedLabel
AnchorSideTop.Side = asrCenter
Left = 103
Height = 15
@ -849,9 +849,9 @@ object MainForm: TMainForm
Font.Color = clBlue
ParentColor = False
ParentFont = False
OnClick = Label2Click
OnMouseEnter = Label2MouseEnter
OnMouseLeave = Label2MouseLeave
OnClick = IconsLinkClick
OnMouseEnter = IconsLinkMouseEnter
OnMouseLeave = IconsLinkMouseLeave
end
end
object utfScheduleManager1: TJvTFScheduleManager
@ -871,7 +871,7 @@ object MainForm: TMainForm
end
object StateImageList: TImageList
left = 112
top = 280
top = 248
Bitmap = {
4C69040000001000000010000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
@ -1116,33 +1116,33 @@ object MainForm: TMainForm
ShowStartEndTimeInHint = False
LineSpacing = 2
left = 304
top = 144
top = 136
end
object GlanceTextViewer2: TJvTFGlanceTextViewer
ShowStartEndTimeInHint = False
LineSpacing = 2
ShowStartEnd = False
left = 304
top = 200
top = 192
end
object dbUTF: TSQLite3Connection
Connected = False
LoginPrompt = False
KeepConnection = False
Transaction = SQLTransaction
left = 104
top = 384
left = 96
top = 328
end
object SQLTransaction: TSQLTransaction
Active = False
Action = caCommit
Database = dbUTF
left = 100
top = 440
left = 96
top = 384
end
object ImageList: TImageList
left = 112
top = 211
top = 192
Bitmap = {
4C69070000001000000010000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000005A3B261C0000
@ -1546,7 +1546,11 @@ object MainForm: TMainForm
OnApptProgress = JvTFDaysPrinter1ApptProgress
GridStartTime = 0
GridEndTime = 0
left = 304
top = 259
left = 352
top = 248
end
object PrintDialog: TPrintDialog
left = 256
top = 248
end
end

40
components/jvcllaz/examples/JvTimeFramework/tfmain.pas
View File

@ -34,8 +34,9 @@ uses
LCLIntf,
SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, sqldb, sqlite3conn, //DBTables,
ComCtrls, StdCtrls, Buttons, ExtCtrls, ImgList, DateTimePicker, JvTFManager,
JvTFDays, JvTFGlance, JvTFGlanceTextViewer, JvTFMonths, JvTFWeeks;
ComCtrls, StdCtrls, Buttons, ExtCtrls, ImgList, DateTimePicker, PrintersDlgs,
JvTFManager, JvTFDays, JvTFGlance, JvTFGlanceTextViewer, JvTFMonths,
JvTFWeeks;
type
@ -44,9 +45,10 @@ type
TMainForm = class(TForm)
ImageList: TImageList;
JvTFDaysPrinter1: TJvTFDaysPrinter;
Label1: TLabel;
Label2: TLabel;
IconsProvidedLabel: TLabel;
IconsLink: TLabel;
Panel2: TPanel;
PrintDialog: TPrintDialog;
utfScheduleManager1: TJvTFScheduleManager;
StateImageList: TImageList;
NeedApptsQuery: TSQLQuery;
@ -81,12 +83,11 @@ type
PrintButton: TBitBtn;
dbUTF: TSQLite3Connection;
SQLTransaction: TSQLTransaction;
procedure Label2Click(Sender: TObject);
procedure Label2MouseEnter(Sender: TObject);
procedure Label2MouseLeave(Sender: TObject);
procedure utfScheduleManager1PostAppt(Sender: TObject; Appt: TJvTFAppt);
procedure utfScheduleManager1DeleteAppt(Sender: TObject; Appt: TJvTFAppt);
procedure utfScheduleManager1RefreshAppt(Sender: TObject; Appt: TJvTFAppt);
procedure IconsLinkClick(Sender: TObject);
procedure IconsLinkMouseEnter(Sender: TObject);
procedure IconsLinkMouseLeave(Sender: TObject);
procedure ModeComboChange(Sender: TObject);
procedure ViewSchedsButtonClick(Sender: TObject);
procedure HideSchedButtonClick(Sender: TObject);
@ -103,10 +104,12 @@ type
procedure NewApptButtonClick(Sender: TObject);
procedure EditApptButtonClick(Sender: TObject);
procedure DeleteApptButtonClick(Sender: TObject);
procedure JvTFDays1DateChanging(Sender: TObject; var NewDate: TDate);
procedure JvTFDays1DateChanged(Sender: TObject);
procedure JvTFDays1GranularityChanged(Sender: TObject);
procedure JvTFDays1DblClick(Sender: TObject);
procedure JvTFDaysPrinter1ApptProgress(Sender: TObject; Current,
Total: Integer);
procedure JvTFDaysPrinter1AssembleProgress(Sender: TObject; Current,
@ -116,11 +119,15 @@ type
procedure utfScheduleManager1LoadBatch(Sender: TObject; BatchName: String;
BatchStartDate, BatchEndDate: TDate);
procedure utfScheduleManager1DeleteAppt(Sender: TObject; Appt: TJvTFAppt);
procedure utfScheduleManager1PostAppt(Sender: TObject; Appt: TJvTFAppt);
procedure utfScheduleManager1RefreshAppt(Sender: TObject; Appt: TJvTFAppt);
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure PrintButtonClick(Sender: TObject);
private
{ Private declarations }
public
@ -577,6 +584,9 @@ end;
procedure TMainForm.PrintButtonClick(Sender: TObject);
begin
if not PrintDialog.Execute then
exit;
with JvTFDaysPrinter1 do
begin
// "Copy" the display properties from the JvTFDays control
@ -626,20 +636,20 @@ begin
PrintProgress.ProgressBar1.Position := Current;
end;
procedure TMainForm.Label2Click(Sender: TObject);
procedure TMainForm.IconsLinkClick(Sender: TObject);
begin
OpenURL('https://icons8.com');
end;
procedure TMainForm.Label2MouseEnter(Sender: TObject);
procedure TMainForm.IconsLinkMouseEnter(Sender: TObject);
begin
Label2.Font.Style := Label2.Font.Style + [fsUnderline];
IconsLink.Font.Style := IconsLink.Font.Style + [fsUnderline];
Screen.Cursor := crHandPoint;
end;
procedure TMainForm.Label2MouseLeave(Sender: TObject);
procedure TMainForm.IconsLinkMouseLeave(Sender: TObject);
begin
Label2.Font.Style := Label2.Font.Style - [fsUnderline];
IconsLink.Font.Style := IconsLink.Font.Style - [fsUnderline];
Screen.Cursor := crDefault;
end;