-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathHttpRecurringFrm.cpp
More file actions
93 lines (83 loc) · 3.16 KB
/
HttpRecurringFrm.cpp
File metadata and controls
93 lines (83 loc) · 3.16 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
/*
Project: LL_Check
Module:
Description:
Author: Martin Gäckler
Address: Hofmannsthalweg 14, A-4030 Linz
Web: https://www.gaeckler.at/
Copyright: (c) 1988-2024 Martin Gäckler
This program is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, version 3.
You should have received a copy of the GNU General Public License
along with this program. If not, see <http://www.gnu.org/licenses/>.
THIS SOFTWARE IS PROVIDED BY Martin Gäckler, Austria, Linz ``AS IS''
AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR
CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF
USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
SUCH DAMAGE.
*/
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "DataUnit.h"
#include "HttpRecurringFrm.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
THttpRecurringForm *HttpRecurringForm = NULL;
//---------------------------------------------------------------------------
__fastcall THttpRecurringForm::THttpRecurringForm(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall THttpRecurringForm::FormClose(TObject *,
TCloseAction &Action)
{
Action = caFree;
TableHttpRecurring->Close();
HttpRecurringForm = NULL;
}
//---------------------------------------------------------------------------
void __fastcall THttpRecurringForm::FormShow(TObject *)
{
TableHttpRecurring->Open();
}
//---------------------------------------------------------------------------
void __fastcall THttpRecurringForm::TableHttpRecurringCalcFields(
TDataSet *)
{
try
{
TableHttpRecurringSHORT_URL->AsString = TableHttpRecurringHTTP_URL->AsString;
}
catch( ... )
{
TableHttpRecurringSHORT_URL->AsString = "Unkown";
TableHttpRecurring->Refresh();
}
}
//---------------------------------------------------------------------------
void __fastcall THttpRecurringForm::DBGridDrawColumnCell(TObject *,
const TRect &Rect, int DataCol, TColumn *Column,
TGridDrawState State)
{
TGridDrawState empty;
if( State == empty )
{
if( TableHttpRecurringLAST_STATUS->AsInteger != 200 )
DBGrid->Canvas->Brush->Color = clYellow;
else if( TableHttpRecurringLAST_TIME->AsFloat >= TableHttpRecurringMAX_TIME->AsFloat )
DBGrid->Canvas->Brush->Color = clRed;
}
DBGrid->DefaultDrawColumnCell( Rect, DataCol, Column, State);
}
//---------------------------------------------------------------------------