source: cprs/branches/tmg-cprs/CPRS-Chart/Options/fOptionsReportsCustom.pas@ 1166

Last change on this file since 1166 was 453, checked in by Kevin Toppenberg, 16 years ago

Initial upload of TMG-CPRS 1.0.26.69
File size: 23.1 KB
Line 
1//kt -- Modified with SourceScanner on 8/8/2007
2unit fOptionsReportsCustom;
3
4interface
5
6uses
7 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
8 StdCtrls, ExtCtrls, Spin, ORCtrls, fOptions, ComCtrls, ORFn, ORNet, Grids, uConst,
9 ORDtTm, rCore, DKLang;
10
11type
12 TfrmOptionsReportsCustom = class(TForm)
13 Panel1: TPanel;
14 Bevel3: TBevel;
15 btnApply: TButton;
16 btnCancel: TButton;
17 Panel2: TPanel;
18 grdReport: TCaptionStringGrid;
19 edtMax: TCaptionEdit;
20 odbStop: TORDateBox;
21 odbStart: TORDateBox;
22 odbTool: TORDateBox;
23 btnOK: TButton;
24 Panel3: TPanel;
25 edtSearch: TCaptionEdit;
26 Label1: TLabel;
27 DKLanguageController1: TDKLanguageController;
28 function ValFor(ACol, ARow: Integer): string;
29 procedure FormCreate(Sender: TObject);
30 procedure grdReportMouseDown(Sender: TObject; Button: TMouseButton;
31 Shift: TShiftState; X, Y: Integer);
32 procedure grdReportKeyPress(Sender: TObject; var Key: Char);
33 procedure grdReportDrawCell(Sender: TObject; ACol, ARow: Integer;
34 Rect: TRect; State: TGridDrawState);
35 procedure UMDelayEvent(var Message: TMessage); Message UM_DELAYEVENT;
36 procedure edtMaxExit(Sender: TObject);
37 procedure btnApplyClick(Sender: TObject);
38 procedure btnCancelClick(Sender: TObject);
39 procedure odbStartExit(Sender: TObject);
40 procedure odbStopExit(Sender: TObject);
41 procedure FormClose(Sender: TObject; var Action: TCloseAction);
42 procedure odbStartKeyPress(Sender: TObject; var Key: Char);
43 procedure odbStopKeyPress(Sender: TObject; var Key: Char);
44 procedure edtMaxKeyPress(Sender: TObject; var Key: Char);
45 procedure btnOKClick(Sender: TObject);
46 procedure edtSearchChange(Sender: TObject);
47 procedure edtSearchKeyPress(Sender: TObject; var Key: Char);
48 procedure FormShow(Sender: TObject);
49 procedure grdReportKeyDown(Sender: TObject; var Key: Word;
50 Shift: TShiftState);
51 procedure FormDestroy(Sender: TObject);
52 private
53 { Private declarations }
54 //startDate,endDate,
55 maxOcurs,signal: integer;
56 rptList: TStringList;
57 fDropColumn: Integer;
58 sDate,eDate: string;
59 procedure ShowEditor(ACol, ARow: Integer; AChar: Char);
60 public
61 { Public declarations }
62 end;
63var
64 frmOptionsReportsCustom: TfrmOptionsReportsCustom;
65
66const
67 Col_StartDate = 1;
68 Col_StopDate = 2;
69 Col_Max = 3;
70 TAB = #9;
71
72procedure DialogOptionsHSCustom(topvalue, leftvalue, fontsize: integer; var actiontype: Integer);
73
74implementation
75
76uses rOptions, uOptions, fReports, uCore, uAccessibleStringGrid;
77
78{$R *.DFM}
79
80procedure TfrmOptionsReportsCustom.UMDelayEvent(var Message: TMessage);
81{ after focusing events are completed for a combobox, set the key the user typed }
82begin
83 case Message.LParam of
84 Col_StartDate:
85 begin
86 odbStart.Visible := True;
87 odbStart.Text := Chr(Message.WParam);
88 end;
89 COL_StopDate :
90 begin
91 odbStop.Visible := True;
92 odbStop.Text := Chr(Message.WParam);
93 end;
94 COL_Max :
95 begin
96 edtMax.Visible := True;
97 edtMax.Text := Chr(Message.WParam);
98 end;
99 end;
100end;
101
102procedure DialogOptionsHSCustom(topvalue, leftvalue, fontsize: integer; var actiontype: Integer);
103var
104 frmOptionsReportsCustom: TfrmOptionsReportsCustom;
105begin
106 frmOptionsReportsCustom := TfrmOptionsReportsCustom.Create(Application);
107 actiontype := 0;
108 try
109 with frmOptionsReportsCustom do
110 begin
111 if (topvalue < 0) or (leftvalue < 0) then
112 Position := poScreenCenter
113 else
114 begin
115 Position := poDesigned;
116 Top := topvalue;
117 Left := leftvalue;
118 end;
119 ResizeAnchoredFormToFont(frmOptionsReportsCustom);
120 ShowModal;
121 actiontype := btnApply.Tag;
122 end;
123 finally
124 frmOptionsReportsCustom.Release;
125 end;
126end;
127
128procedure TfrmOptionsReportsCustom.FormCreate(Sender: TObject);
129begin
130 rptList := TStringList.Create;
131 TAccessibleStringGrid.WrapControl(grdReport);
132end;
133
134procedure TfrmOptionsReportsCustom.ShowEditor(ACol, ARow: Integer; AChar: Char);
135
136 procedure PlaceControl(AControl: TWinControl);
137 var
138 ARect: TRect;
139 begin
140 with AControl do
141 begin
142 ARect := grdReport.CellRect(ACol, ARow);
143 SetBounds(ARect.Left + grdReport.Left + 2, ARect.Top + grdReport.Top + 2,
144 ARect.Right - ARect.Left - 1 , ARect.Bottom-ARect.Top -1 );
145 Visible := True;
146 Tag := ARow;
147 BringToFront;
148 Show;
149 SetFocus;
150 end;
151 end;
152 procedure Synch(AEdit: TEdit; const edtText: string);
153 begin
154 AEdit.Text := edtText;
155 AEdit.SelectAll;
156 end;
157begin
158 inherited;
159 if ARow = 0 then Exit; //header row
160 with grdReport do if (ARow = Pred(RowCount)) and (ACol > 4 ) then Exit;
161 case ACol of
162 Col_StartDate: begin
163 if (ARow > 0 ) then
164 begin
165 PlaceControl(odbStart);
166 Synch(odbStart,ValFor(Col_StartDate,ARow));
167 if AChar <> #0 then PostMessage(Handle, UM_DELAYEVENT, Ord(AChar), COL_StartDate);
168 end;
169 end;
170 Col_StopDate: begin
171 if (ARow > 0 ) then
172 begin
173 PlaceControl(odbStop);
174 Synch(odbStop, ValFor(Col_StopDate,ARow));
175 if AChar <> #0 then PostMessage(Handle, UM_DELAYEVENT, Ord(AChar), COL_StopDate);
176 end;
177 end;
178 Col_Max: begin
179 if (ARow > 0 ) and (StrToInt(ValFor(Col_Max,ARow)) > 0) then
180 begin
181 PlaceControl(edtMax);
182 Synch(edtMax, ValFor(Col_Max,ARow));
183 fDropColumn := Col_Max;
184 if AChar <> #0 then PostMessage(Handle, UM_DELAYEVENT, Ord(AChar), COL_Max);
185 end;
186 end;
187 end;
188end;
189
190function TfrmOptionsReportsCustom.ValFor(ACol, ARow: Integer): string;
191begin
192 Result := grdReport.Cells[ACol, ARow];
193end;
194
195procedure TfrmOptionsReportsCustom.grdReportKeyPress(Sender: TObject;
196 var Key: Char);
197begin
198 inherited;
199 if grdReport.Col = 1 then
200 sDate := grdReport.Cells[grdReport.Col,grdReport.Row];
201 if grdReport.Col = 2 then
202 eDate := grdReport.Cells[grdReport.Col,grdReport.Row];
203 if (grdReport.Col = 3) and (grdReport.Cells[grdReport.Col, grdReport.Row]='') then
204 Exit else if Length(grdReport.Cells[3, grdReport.Row]) > 0 then maxOcurs := StrToInt( grdReport.Cells[3,grdReport.Row]);
205 if Key = #13 then ShowEditor(grdReport.Col, grdReport.Row, #0);
206 if Key = #9 then
207 begin
208 odbStart.Visible := False;
209 odbStop.Visible := False;
210 edtMax.Visible := False;
211 ShowEditor(grdReport.Col, grdReport.Row, #0);
212 end;
213 if Key in [#32..#127] then ShowEditor(grdReport.Col, grdReport.Row, Key);
214 signal := 0;
215end;
216
217procedure TfrmOptionsReportsCustom.grdReportMouseDown(Sender: TObject;
218 Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
219var
220 ACol,ARow: integer;
221begin
222 inherited;
223 if (not User.ToolsRptEdit) then // For users with Reports settings edit parameter not set.
224 begin
225 abort;
226 exit;
227 end;
228 grdReport.MouseToCell(X,Y,ACol,ARow);
229 if (ARow < 1) or (ACol < 1) then
230 begin
231 odbStop.Visible := False;
232 odbStart.Visible := False;
233 edtMax.Visible := False;
234 Exit;
235 end;
236 if ACol = 1 then
237 begin
238 odbStop.Visible := False;
239 edtMax.Visible := False;
240 sDate := grdReport.Cells[1,ARow];
241 ShowEditor(ACol, ARow, #0);
242 end;
243 if ACol = 2 then
244 begin
245 odbStart.Visible := False;
246 edtMax.Visible := False;
247 eDate := grdReport.Cells[2,ARow];
248 ShowEditor(ACol, ARow, #0);
249 end;
250 if (ACol = 3) and (grdReport.Cells[ACol,ARow]='') then
251 begin
252 odbStart.Visible := False;
253 odbStop.Visible := False;
254 Exit;
255 end
256 else if (ACol = 3) and (strtoint(grdReport.Cells[ACol,ARow])>0) then
257 begin
258 odbStart.Visible := False;
259 odbStop.Visible := False;
260 maxOcurs := strtoint(grdReport.Cells[ACol,ARow]);
261 ShowEditor(ACol, ARow, #0);
262 end
263 else
264 begin
265 grdReport.Col := 0;
266 grdReport.Row := ARow;
267 end;
268 signal := 0;
269end;
270
271procedure TfrmOptionsReportsCustom.grdReportDrawCell(Sender: TObject; ACol,
272 ARow: Integer; Rect: TRect; State: TGridDrawState);
273begin
274 inherited;
275 grdReport.Canvas.TextRect(Rect, Rect.Left+2, Rect.Top+2,
276 Piece(grdReport.Cells[ACol, ARow], TAB, 1));
277
278end;
279
280procedure TfrmOptionsReportsCustom.edtMaxExit(Sender: TObject);
281var
282 newValue: String;
283 code, I: integer;
284begin
285 if edtMax.Modified then
286 begin
287 newValue := edtMax.Text;
288 if length(newValue) = 0 then
289 begin
290// InfoBox('Invalid value of max occurences', 'Warning', MB_OK or MB_ICONWARNING); <-- original line. //kt 8/8/2007
291 InfoBox(DKLangConstW('fOptionsReportsCustom_Invalid_value_of_max_occurences'), DKLangConstW('fOptionsReportsCustom_Warning'), MB_OK or MB_ICONWARNING); //kt added 8/8/2007
292 edtMax.Text := IntToStr(maxOcurs);
293 edtMax.SetFocus;
294 edtMax.SelectAll;
295 end;
296 if length(newValue) > 0 then
297 begin
298 Val(newValue, I, code);
299 if I = 0 then begin end; //added to keep compiler from generating a hint
300 if code <> 0 then
301 begin
302// InfoBox('Invalid value of max occurences', 'Warning', MB_OK or MB_ICONWARNING); <-- original line. //kt 8/8/2007
303 InfoBox(DKLangConstW('fOptionsReportsCustom_Invalid_value_of_max_occurences'), DKLangConstW('fOptionsReportsCustom_Warning'), MB_OK or MB_ICONWARNING); //kt added 8/8/2007
304 edtMax.Text := IntToStr(maxOcurs);
305 edtMax.SetFocus;
306 edtMax.SelectAll;
307 end;
308 if code = 0 then
309 begin
310 if strtoint(edtMax.Text) <= 0 then
311 begin
312// InfoBox('the value of max should be greater than 0', 'Warning', MB_OK or MB_ICONWARNING); <-- original line. //kt 8/8/2007
313 InfoBox(DKLangConstW('fOptionsReportsCustom_the_value_of_max_should_be_greater_than_0'), DKLangConstW('fOptionsReportsCustom_Warning'), MB_OK or MB_ICONWARNING); //kt added 8/8/2007
314 edtMax.Text := intToStr(maxOcurs);
315 edtMax.SetFocus;
316 edtMax.SelectAll;
317 exit;
318 end;
319 grdReport.Cells[Col_Max, edtMax.Tag] := edtMax.Text;
320 if compareStr(Piece(Piece(grdReport.Cells[0,edtMax.Tag],TAB,2),'^',2),'M')=0 then
321 begin
322 edtMax.Visible := False;
323 btnApply.Enabled := True;
324 Exit;
325 end;
326 grdReport.Cells[0,edtMax.Tag] := grdReport.Cells[0,edtMax.Tag] + '^M';
327 edtMax.Visible := False;
328 btnApply.Enabled := True;
329 end;
330 end;
331 end;
332end;
333
334procedure TfrmOptionsReportsCustom.btnApplyClick(Sender: TObject);
335var
336 valueStartdate, valueStopdate,valueMax, rpt, values,name: string;
337 i: integer;
338begin
339 for i := 1 to grdReport.RowCount do
340 begin
341 if CompareStr(Piece(Piece( grdReport.Cells[0,i],TAB,2),'^',2),'M')=0 then
342 begin
343 rpt := Piece(Piece( grdReport.Cells[0,i],TAB,2),'^',1);
344 name := Piece( grdReport.Cells[0,i],TAB,1);
345 odbTool.Text := grdReport.Cells[1,i];
346 valueStartDate := odbTool.RelativeTime;
347 odbTool.Text := grdReport.Cells[2,i];
348 valueStopDate := odbTool.RelativeTime;
349 valueMax := grdReport.Cells[3,i];
350 if Length(valueMax)<1 then
351 valueMax := '7';
352 values := valueStartdate + ';' + valueStopDate + ';' + valueMax;
353//{ if CompareStr(name,'Imaging (local only)')=0 then // imaging report id is hard coded to be 10000 <-- original line. //kt 8/8/2007
354{ if CompareStr(name,DKLangConstW('fOptionsReportsCustom_Imaging_xlocal_onlyx'))=0 then // imaging report id is hard coded to be 10000 //kt added 8/8/2007
355 values := valueStartdate + ';' + valueStopDate + ';;;' + valueMax
356 else}
357 rpcSetIndividualReportSetting(rpt, values);
358 end;
359 end;
360 btnApply.Enabled := False;
361 odbStart.Visible := False;
362 odbStop.Visible := False;
363 edtMax.Visible := False;
364 frmReports.LoadTreeView;
365 with frmReports.tvReports do
366 begin
367 if Items.Count > 0 then
368 Selected := Items.GetFirstNode;
369 frmReports.tvReportsClick(Selected);
370 end;
371end;
372
373procedure TfrmOptionsReportsCustom.btnCancelClick(Sender: TObject);
374begin
375 rptList.Clear;
376 Close;
377end;
378
379
380procedure TfrmOptionsReportsCustom.odbStartExit(Sender: TObject);
381//const
382//TX_BAD_START = 'The start date is not valid.'; <-- original line. //kt 8/8/2007
383//TX_STOPSTART = 'The start date must not be after the stop date.'; <-- original line. //kt 8/8/2007
384var
385 x,ErrMsg,datestart,datestop: String;
386 TX_BAD_START : string; //kt
387 TX_STOPSTART : string; //kt
388
389begin
390 TX_BAD_START := DKLangConstW('fOptionsReportsCustom_The_start_date_is_not_validx'); //kt added 8/8/2007
391 TX_STOPSTART := DKLangConstW('fOptionsReportsCustom_The_start_date_must_not_be_after_the_stop_datex'); //kt added 8/8/2007
392 if odbStart.text = '' then
393 begin
394// InfoBox(TX_BAD_START, 'Warning', MB_OK or MB_ICONWARNING); <-- original line. //kt 8/8/2007
395 InfoBox(TX_BAD_START, DKLangConstW('fOptionsReportsCustom_Warning'), MB_OK or MB_ICONWARNING); //kt added 8/8/2007
396 odbStart.Visible := True;
397 odbStart.Text := sDate;
398 odbStart.Setfocus;
399 odbStart.SelectAll;
400 exit;
401 end;
402 if odbStart.Text = sDate then
403 exit;
404 ErrMsg := '';
405 odbStart.Validate(x);
406 if Length(x) > 0 then
407 begin
408 ErrMsg := TX_BAD_START;
409// InfoBox(TX_BAD_START, 'Warning', MB_OK or MB_ICONWARNING); <-- original line. //kt 8/8/2007
410 InfoBox(TX_BAD_START, DKLangConstW('fOptionsReportsCustom_Warning'), MB_OK or MB_ICONWARNING); //kt added 8/8/2007
411 odbStart.Visible := True;
412 odbStart.Text := sDate;
413 odbStart.Setfocus;
414 odbStart.SelectAll;
415 exit;
416 end;
417 datestart := odbStart.RelativeTime;
418 datestop := MakeRelativeDateTime(
419 StrToFMDateTime(grdReport.Cells[Col_StopDate,odbStart.Tag])
420 );
421 delete(datestart,1,1);
422 delete(datestop,1,1);
423 if StrToIntDef(datestart,0)> StrToIntDef(datestop,0) then
424 begin
425// InfoBox(TX_STOPSTART, 'Warning', MB_OK or MB_ICONWARNING); <-- original line. //kt 8/8/2007
426 InfoBox(TX_STOPSTART, DKLangConstW('fOptionsReportsCustom_Warning'), MB_OK or MB_ICONWARNING); //kt added 8/8/2007
427 odbStart.Text := grdReport.Cells[Col_StopDate,odbStart.Tag];
428 odbStart.SetFocus;
429 odbStart.SelectAll;
430 exit;
431 end;
432 grdReport.Cells[Col_StartDate, odbStart.Tag] := DateToStr(FMDateTimeToDateTime(odbStart.FMDateTime));
433 odbStart.Visible := False;
434 btnApply.Enabled := True;
435 if compareStr(Piece(Piece(grdReport.Cells[0,odbStart.Tag],TAB,2),'^',2),'M')=0 then
436 Exit;
437 grdReport.Cells[0,odbStart.Tag] := grdReport.Cells[0,odbStart.Tag] + '^M';
438end;
439
440procedure TfrmOptionsReportsCustom.odbStopExit(Sender: TObject);
441//const
442//TX_BAD_STOP = 'The stop date is not valid.'; <-- original line. //kt 8/8/2007
443//TX_BAD_ORDER = 'The stop date must not be earlier than start date.'; <-- original line. //kt 8/8/2007
444var
445 x, ErrMsg,datestart,datestop: string;
446 TX_BAD_STOP : string; //kt
447 TX_BAD_ORDER : string; //kt
448begin
449 TX_BAD_STOP := DKLangConstW('fOptionsReportsCustom_The_stop_date_is_not_validx'); //kt added 8/8/2007
450 TX_BAD_ORDER := DKLangConstW('fOptionsReportsCustom_The_stop_date_must_not_be_earlier_than_start_datex'); //kt added 8/8/2007
451 if odbStop.text = '' then
452 begin
453// InfoBox(TX_BAD_STOP, 'Warning', MB_OK or MB_ICONWARNING); <-- original line. //kt 8/8/2007
454 InfoBox(TX_BAD_STOP, DKLangConstW('fOptionsReportsCustom_Warning'), MB_OK or MB_ICONWARNING); //kt added 8/8/2007
455 odbStop.Visible := True;
456 odbStop.Text := eDate;
457 odbStop.Setfocus;
458 odbStop.SelectAll;
459 exit;
460 end;
461
462 if odbStop.Text = eDate then
463 exit;
464
465 ErrMsg := '';
466 odbStop.Validate(x);
467 if Length(x) > 0 then
468 begin
469 ErrMsg := TX_BAD_STOP;
470// InfoBox(TX_BAD_STOP, 'Warning', MB_OK or MB_ICONWARNING); <-- original line. //kt 8/8/2007
471 InfoBox(TX_BAD_STOP, DKLangConstW('fOptionsReportsCustom_Warning'), MB_OK or MB_ICONWARNING); //kt added 8/8/2007
472 odbStop.Visible := True;
473 odbStop.Text := eDate;
474 odbStop.Setfocus;
475 odbStop.SelectAll;
476 exit;
477 end;
478
479 datestart := MakeRelativeDateTime(
480 StrToFMDateTime(grdReport.Cells[Col_StartDate,odbStop.Tag])
481 );
482 datestop := odbStop.RelativeTime;
483 delete(datestart,1,1);
484 delete(datestop,1,1);
485 if StrToIntDef(datestart,0)> StrToIntDef(datestop,0) then
486 begin
487// InfoBox(TX_BAD_ORDER, 'Warning', MB_OK or MB_ICONWARNING); <-- original line. //kt 8/8/2007
488 InfoBox(TX_BAD_ORDER, DKLangConstW('fOptionsReportsCustom_Warning'), MB_OK or MB_ICONWARNING); //kt added 8/8/2007
489 odbStop.Text := grdReport.Cells[Col_StartDate,odbStop.Tag];
490 odbStop.SetFocus;
491 odbStop.SelectAll;
492 exit;
493 end;
494 grdReport.Cells[Col_StopDate, odbStop.Tag] := DateToStr(FMDateTimeToDateTime(odbStop.FMDateTime));
495 odbStop.Visible := False;
496 btnApply.Enabled := True;
497 if compareStr(Piece(Piece(grdReport.Cells[0,odbStop.Tag],TAB,2),'^',2),'M')=0 then
498 Exit;
499 grdReport.Cells[0,odbStop.Tag] := grdReport.Cells[0,odbStop.Tag] + '^M';
500end;
501
502
503procedure TfrmOptionsReportsCustom.FormClose(Sender: TObject;
504 var Action: TCloseAction);
505begin
506 Close;
507 rptList.Clear;
508end;
509
510procedure TfrmOptionsReportsCustom.odbStartKeyPress(Sender: TObject;
511 var Key: Char);
512begin
513 if Key = #13 then
514 begin
515 odbStart.Visible := False;
516 Perform(WM_NextDlgCtl, 0, 0);
517 exit;
518 end;
519end;
520
521procedure TfrmOptionsReportsCustom.odbStopKeyPress(Sender: TObject;
522 var Key: Char);
523begin
524 if Key = #13 then
525 begin
526 odbStop.Visible := False;
527 Perform(WM_NextDlgCtl, 0, 0);
528 exit;
529 end;
530end;
531
532procedure TfrmOptionsReportsCustom.edtMaxKeyPress(Sender: TObject;
533 var Key: Char);
534begin
535 if Key = #13 then
536 begin
537 edtMax.Visible := False;
538 Perform(WM_NextDlgCtl, 0, 0);
539 exit;
540 end;
541end;
542
543procedure TfrmOptionsReportsCustom.btnOKClick(Sender: TObject);
544begin
545 if btnApply.Enabled then
546 btnApplyClick(self);
547 Close;
548end;
549
550procedure TfrmOptionsReportsCustom.edtSearchChange(Sender: TObject);
551var
552 i: integer;
553 needle,hay: String;
554 selRect: TGridRect;
555
556begin
557 if (edtSearch.Modified) and (signal=0) then
558 begin
559 needle := UpperCase(edtSearch.text);
560 if length(needle)=0 then
561 begin
562 selRect.Left := 0;
563 selRect.Top := 1;
564 selRect.Right := 0;
565 selRect.Bottom := 1;
566 grdReport.Selection := selRect;
567 grdReport.TopRow := 1;
568 exit;
569 end;
570 for i := 1 to grdReport.RowCount do
571 begin
572 hay := Piece(UpperCase(grdReport.Cells[0,i]),TAB,1);
573 hay := Copy(hay,0,length(needle));
574 if Pos(needle, hay) > 0 then
575 begin
576 selRect.Left := 0;
577 selRect.Top := i;
578 selRect.Right := 0;
579 selRect.Bottom := i;
580 grdReport.Selection := selRect;
581 grdReport.TopRow := i;
582 exit;
583 end;
584 end;
585 end;
586 if (edtSearch.Modified) and (signal=1) then
587 begin
588 signal := 0;
589 end;
590 Exit;
591end;
592
593procedure TfrmOptionsReportsCustom.edtSearchKeyPress(Sender: TObject;
594 var Key: Char);
595begin
596 if Key = #13 then
597 begin
598 Perform(WM_NextDlgCtl, 0, 0);
599 edtSearch.Text := '';
600 exit;
601 end;
602end;
603
604procedure TfrmOptionsReportsCustom.FormShow(Sender: TObject);
605var
606 i,rowNum: integer;
607 startOff,stopOff: string;
608 today: TFMDateTime;
609begin
610 today := FMToday;
611 signal := 0;
612 rptList := TStringList.Create;
613 CallV('ORWTPD GETSETS',[nil]);
614 MixedCaseList( RPCBrokerV.Results );
615 rptList := TStringList(RPCBrokerV.Results);
616 SortByPiece(rptList,'^',2);
617 rowNum := rptList.Count;
618 grdReport.RowCount := rowNum + 1;
619// grdReport.Cells[0,0] := 'Report Name'; <-- original line. //kt 8/8/2007
620 grdReport.Cells[0,0] := DKLangConstW('fOptionsReportsCustom_Report_Name'); //kt added 8/8/2007
621// grdReport.Cells[1,0] := 'Start Date'; <-- original line. //kt 8/8/2007
622 grdReport.Cells[1,0] := DKLangConstW('fOptionsReportsCustom_Start_Date'); //kt added 8/8/2007
623// grdReport.Cells[2,0] := 'Stop Date'; <-- original line. //kt 8/8/2007
624 grdReport.Cells[2,0] := DKLangConstW('fOptionsReportsCustom_Stop_Date'); //kt added 8/8/2007
625// grdReport.Cells[3 ,0] := 'Max'; <-- original line. //kt 8/8/2007
626 grdReport.Cells[3 ,0] := DKLangConstW('fOptionsReportsCustom_Max'); //kt added 8/8/2007
627
628 for i := 1 to grdReport.RowCount-1 do
629 begin
630 grdReport.Cells[0,i] := Piece(rptList[i-1],'^',2)+ TAB + Piece(rptList[i-1],'^',1);
631 startOff := Piece(Piece(rptList[i-1],'^',3),';',1);
632 stopOff := Piece(Piece(rptList[i-1],'^',3),';',2);
633 delete(startOff,1,1);
634 delete(stopOff,1,1);
635 grdReport.Cells[1,i] := DateToStr(FMDateTimeToDateTime(FMDateTimeOffsetBy(today, StrToIntDef(startOff,0))));
636 grdReport.Cells[2,i] := DateToStr(FMDateTimeToDateTime(FMDateTimeOffsetBy(today, StrToIntDef(stopOff,0))));
637 grdReport.Cells[3,i] := Piece(Piece(rptList[i-1],'^',3),';',3);
638 end;
639 if not edtSearch.Focused then
640 edtSearch.SetFocus;
641// btnCancel.Caption := 'Cancel'; <-- original line. //kt 8/8/2007
642 btnCancel.Caption := DKLangConstW('fOptionsReportsCustom_Cancel'); //kt added 8/8/2007
643 if (not User.ToolsRptEdit) then // For users with Reports settings edit parameter not set.
644 begin
645 grdReport.onKeyPress := nil;
646 grdReport.onMouseDown := nil;
647 odbStart.readOnly := true;
648 odbStart.onExit := nil;
649 odbStart.onKeyPress := nil;
650 odbStop.readOnly := true;
651 odbStop.onExit := nil;
652 odbStop.onKeyPress := nil;
653 edtMax.readOnly := true;
654 odbTool.readOnly := true;
655 btnOK.visible := false;
656 btnApply.visible := false;
657// btnCancel.Caption := 'Close'; <-- original line. //kt 8/8/2007
658 btnCancel.Caption := DKLangConstW('fOptionsReportsCustom_Close'); //kt added 8/8/2007
659 end;
660end;
661
662procedure TfrmOptionsReportsCustom.grdReportKeyDown(Sender: TObject;
663 var Key: Word; Shift: TShiftState);
664begin
665 if (Key = VK_TAB) then
666 begin
667 if ssShift in Shift then
668 begin
669 EdtSearch.SetFocus;
670 Key := 0;
671 end
672 else if ssCtrl in Shift then
673 begin
674 if User.ToolsRptEdit then
675 btnApply.SetFocus
676 else
677 btnCancel.SetFocus;
678 Key := 0;
679 end;
680 end;
681 if Key = VK_ESCAPE then begin
682 EdtSearch.SetFocus;
683 Key := 0;
684 end;
685end;
686
687procedure TfrmOptionsReportsCustom.FormDestroy(Sender: TObject);
688begin
689 TAccessibleStringGrid.UnwrapControl(grdReport);
690end;
691
692end.
693
Note: See TracBrowser for help on using the repository browser.