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

tvplanit: some cosmetic changes

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8410 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-08-21 15:41:34 +00:00
parent 2e7958650e
commit caa6bd6368
5 changed files with 17 additions and 97 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
components/tvplanit/source/vpalarmdlg.lfm
View File

@ -16,7 +16,7 @@ object AlarmNotifyForm: TAlarmNotifyForm
OnKeyDown = FormKeyDown OnKeyDown = FormKeyDown
OnShow = FormShow OnShow = FormShow
Position = poDefault Position = poDefault
LCLVersion = '1.6.4.0' LCLVersion = '2.3.0.0'
object SnoozeCaption: TLabel object SnoozeCaption: TLabel
AnchorSideLeft.Control = lTime AnchorSideLeft.Control = lTime
AnchorSideTop.Control = Bevel1 AnchorSideTop.Control = Bevel1
@ -31,6 +31,7 @@ object AlarmNotifyForm: TAlarmNotifyForm
BorderSpacing.Right = 8 BorderSpacing.Right = 8
BorderSpacing.Bottom = 8 BorderSpacing.Bottom = 8
Caption = 'SnoozeCaption' Caption = 'SnoozeCaption'
Color = clDefault
Constraints.MinWidth = 200 Constraints.MinWidth = 200
ParentColor = False ParentColor = False
end end
@ -44,6 +45,7 @@ object AlarmNotifyForm: TAlarmNotifyForm
Width = 45 Width = 45
BorderSpacing.Top = 4 BorderSpacing.Top = 4
Caption = 'lSubject' Caption = 'lSubject'
Color = clDefault
Font.Style = [fsBold] Font.Style = [fsBold]
ParentColor = False ParentColor = False
ParentFont = False ParentFont = False
@ -58,6 +60,7 @@ object AlarmNotifyForm: TAlarmNotifyForm
BorderSpacing.Left = 8 BorderSpacing.Left = 8
BorderSpacing.Top = 8 BorderSpacing.Top = 8
Caption = 'lTime' Caption = 'lTime'
Color = clDefault
ParentColor = False ParentColor = False
end end
object DismissBtn: TButton object DismissBtn: TButton
@ -162,6 +165,7 @@ object AlarmNotifyForm: TAlarmNotifyForm
BorderSpacing.Top = 8 BorderSpacing.Top = 8
BorderSpacing.Right = 8 BorderSpacing.Right = 8
Caption = 'lNotes' Caption = 'lNotes'
Color = clDefault
ParentColor = False ParentColor = False
WordWrap = True WordWrap = True
end end
@ -180,7 +184,7 @@ object AlarmNotifyForm: TAlarmNotifyForm
Shape = bsTopLine Shape = bsTopLine
end end
object EventDialog: TVpEventEditDialog object EventDialog: TVpEventEditDialog
Version = 'v1.05' Version = 'v1.12'
TimeFormat = tf24Hour TimeFormat = tf24Hour
Options = [] Options = []
Placement.Position = mpCenterTop Placement.Position = mpCenterTop
@ -188,7 +192,7 @@ object AlarmNotifyForm: TAlarmNotifyForm
Placement.Left = 10 Placement.Left = 10
Placement.Height = 412 Placement.Height = 412
Placement.Width = 705 Placement.Width = 705
left = 224 Left = 224
top = 16 Top = 16
end end
end end

2
components/tvplanit/source/vpalarmdlg.pas
View File

@ -123,7 +123,7 @@ var
AlarmNotifyForm: TAlarmNotifyForm; AlarmNotifyForm: TAlarmNotifyForm;
begin begin
if (Event <> nil) and (not Event.AlertDisplayed) then begin if (Event <> nil) and (not Event.AlertDisplayed) then begin
AlarmNotifyForm := TAlarmNotifyForm.Create(Self); AlarmNotifyForm := TAlarmNotifyForm.Create(Self);
try try
try try
Event.AlertDisplayed := true; Event.AlertDisplayed := true;

57
components/tvplanit/source/vpbaseds.pas
View File

@ -402,10 +402,8 @@ type
property AfterEnter; property AfterEnter;
property AfterExit; property AfterExit;
property OnMouseWheel; property OnMouseWheel;
end; end;
{TVpControlLink} {TVpControlLink}
TVpControlLink = class(TVpComponent) TVpControlLink = class(TVpComponent)
private private
@ -453,7 +451,6 @@ type
end; end;
implementation implementation
uses uses
@ -510,7 +507,6 @@ begin
SetActiveDate(Now); SetActiveDate(Now);
end; end;
{=====}
destructor TVpCustomDataStore.Destroy; destructor TVpCustomDataStore.Destroy;
begin begin
@ -532,7 +528,6 @@ begin
inherited; inherited;
end; end;
procedure TVpCustomDataStore.DeleteResource(Res: TVpResource); procedure TVpCustomDataStore.DeleteResource(Res: TVpResource);
begin begin
if Res = nil then if Res = nil then
@ -603,7 +598,6 @@ begin
FNotifiers.Delete (i); FNotifiers.Delete (i);
end; end;
end; end;
{=====}
procedure TVpCustomDataStore.DeregisterWatcher(Watcher: THandle); procedure TVpCustomDataStore.DeregisterWatcher(Watcher: THandle);
var var
@ -618,7 +612,6 @@ begin
Exit; Exit;
end; end;
end; end;
{=====}
procedure TVpCustomDataStore.dsOnTimer(Sender: TObject); procedure TVpCustomDataStore.dsOnTimer(Sender: TObject);
var var
@ -671,7 +664,6 @@ begin
DecodeTime(Now, NHour, NMin, NSec, NMSec); DecodeTime(Now, NHour, NMin, NSec, NMSec);
dsAlertTimer.Interval := (60 - NSec) * 1000; dsAlertTimer.Interval := (60 - NSec) * 1000;
end; end;
{=====}
procedure TVpCustomDataStore.dsDoOnAlert(Event: TVpEvent); procedure TVpCustomDataStore.dsDoOnAlert(Event: TVpEvent);
begin begin
@ -779,14 +771,12 @@ begin
if Assigned(FOnDateChanged) then if Assigned(FOnDateChanged) then
FOnDateChanged(Self, FActiveDate); FOnDateChanged(Self, FActiveDate);
end; end;
{=====}
procedure TVpCustomDataStore.SetAutoConnect(Value: Boolean); procedure TVpCustomDataStore.SetAutoConnect(Value: Boolean);
begin begin
if Value <> FAutoConnect then if Value <> FAutoConnect then
FAutoConnect := value; FAutoConnect := value;
end; end;
{=====}
procedure TVpCustomDataStore.SetConnected(const Value: boolean); procedure TVpCustomDataStore.SetConnected(const Value: boolean);
var var
@ -861,7 +851,6 @@ begin
NotifyDependents; NotifyDependents;
end; end;
end; end;
{=====}
procedure TVpCustomDataStore.SetEventTimerEnabled(Value: Boolean); procedure TVpCustomDataStore.SetEventTimerEnabled(Value: Boolean);
begin begin
@ -875,14 +864,12 @@ begin
end; end;
end; end;
end; end;
{=====}
procedure TVpCustomDataStore.SetDayBuffer(Value: Integer); procedure TVpCustomDataStore.SetDayBuffer(Value: Integer);
begin begin
FDayBuffer := Value; FDayBuffer := Value;
SetRange(FActiveDate - FDayBuffer, FActiveDate + FDayBuffer); SetRange(FActiveDate - FDayBuffer, FActiveDate + FDayBuffer);
end; end;
{=====}
procedure TVpCustomDataStore.Load; procedure TVpCustomDataStore.Load;
begin begin
@ -906,28 +893,24 @@ begin
if not Loading then if not Loading then
NotifyDependents; NotifyDependents;
end; end;
{=====}
procedure TVpCustomDataStore.RefreshContacts; procedure TVpCustomDataStore.RefreshContacts;
begin begin
if not Loading then if not Loading then
NotifyDependents; NotifyDependents;
end; end;
{=====}
procedure TVpCustomDataStore.RefreshTasks; procedure TVpCustomDataStore.RefreshTasks;
begin begin
if not Loading then if not Loading then
NotifyDependents; NotifyDependents;
end; end;
{=====}
procedure TVpCustomDataStore.RefreshResource; procedure TVpCustomDataStore.RefreshResource;
begin begin
if not Loading then if not Loading then
NotifyDependents; NotifyDependents;
end; end;
{=====}
procedure TVpCustomDataStore.PurgeResource(Res: TVpResource); procedure TVpCustomDataStore.PurgeResource(Res: TVpResource);
begin begin
@ -999,7 +982,6 @@ begin
NewHandle.Handle := Watcher; NewHandle.Handle := Watcher;
FNotifiers.Add(NewHandle); FNotifiers.Add(NewHandle);
end; end;
{=====}
procedure TVpCustomDataStore.NotifyDependents; procedure TVpCustomDataStore.NotifyDependents;
var var
@ -1016,7 +998,6 @@ begin
end; end;
NotifyLinked; NotifyLinked;
end; end;
{=====}
procedure TVpCustomDataStore.SetRange(StartTime, EndTime: TDateTime); procedure TVpCustomDataStore.SetRange(StartTime, EndTime: TDateTime);
begin begin
@ -1136,6 +1117,7 @@ begin
FLinkedOwner := nil; FLinkedOwner := nil;
end; end;
{ TVpEventDragObject } { TVpEventDragObject }
function TVpEventDragObject.GetDragImages: TDragImageList; function TVpEventDragObject.GetDragImages: TDragImageList;
@ -1158,7 +1140,6 @@ begin
FDragTitle := ADragTitle; FDragTitle := ADragTitle;
bmp := TBitmap.Create; bmp := TBitmap.Create;
try try
// bmp.Canvas.Font.Name := 'Arial';
bmp.Canvas.Font.Style := Bmp.Canvas.Font.Style + [fsItalic]; bmp.Canvas.Font.Style := Bmp.Canvas.Font.Style + [fsItalic];
bmp.Height := ACellRect.Bottom - ACellRect.Top; bmp.Height := ACellRect.Bottom - ACellRect.Top;
bmp.Width := ACellRect.Right - ACellRect.Left; bmp.Width := ACellRect.Right - ACellRect.Left;
@ -1221,7 +1202,6 @@ destructor TVpResourceCombo.Destroy;
begin begin
inherited; inherited;
end; end;
{=====}
{$IFNDEF LCL} {$IFNDEF LCL}
procedure TVpResourceCombo.CNCommand (var Msg: TWMCommand); procedure TVpResourceCombo.CNCommand (var Msg: TWMCommand);
@ -1235,20 +1215,17 @@ begin
inherited; inherited;
end; end;
{$ENDIF} {$ENDIF}
{=====}
procedure TVpResourceCombo.VpDataStoreChanged(var Msg: {$IFDEF DELPHI}TMessage{$ELSE}TLMessage{$ENDIF}); procedure TVpResourceCombo.VpDataStoreChanged(var Msg: {$IFDEF DELPHI}TMessage{$ELSE}TLMessage{$ENDIF});
begin begin
Unused(Msg); Unused(Msg);
LoadItems; LoadItems;
end; end;
{=====}
function TVpResourceCombo.GetAbout: string; function TVpResourceCombo.GetAbout: string;
begin begin
Result := VpVersionStr; Result := VpVersionStr;
end; end;
{=====}
procedure TVpResourceCombo.LoadItems; procedure TVpResourceCombo.LoadItems;
var var
@ -1279,7 +1256,6 @@ begin
rcLoading := false; rcLoading := false;
end; end;
end; end;
{=====}
procedure TVpResourceCombo.ResourceChanged(Sender: TObject); procedure TVpResourceCombo.ResourceChanged(Sender: TObject);
begin begin
@ -1289,14 +1265,13 @@ begin
OldItemIndex := ItemIndex; OldItemIndex := ItemIndex;
end; end;
end; end;
{=====}
procedure TVpResourceCombo.SetAbout(const Value: string); procedure TVpResourceCombo.SetAbout(const Value: string);
begin begin
Unused(Value); Unused(Value);
//Empty on purpose //Empty on purpose
end; end;
{=====}
procedure TVpResourceCombo.SetResourceUpdateStyle(const v: TVpResourceUpdate); procedure TVpResourceCombo.SetResourceUpdateStyle(const v: TVpResourceUpdate);
begin begin
if v <> FResourceUpdateStyle then begin if v <> FResourceUpdateStyle then begin
@ -1355,7 +1330,6 @@ begin
end; end;
{ TVpLinkableControl } { TVpLinkableControl }
constructor TVpLinkableControl.Create(AOwner: TComponent); constructor TVpLinkableControl.Create(AOwner: TComponent);
@ -1376,7 +1350,6 @@ begin
end; end;
FLastPrintLine := -1; FLastPrintLine := -1;
end; end;
{=====}
destructor TVpLinkableControl.Destroy; destructor TVpLinkableControl.Destroy;
begin begin
@ -1384,7 +1357,6 @@ begin
ControlLink.Detach(Self); ControlLink.Detach(Self);
inherited; inherited;
end; end;
{=====}
function TVpLinkableControl.CheckCreateResource : Boolean; function TVpLinkableControl.CheckCreateResource : Boolean;
var var
@ -1459,7 +1431,6 @@ begin
Invalidate; Invalidate;
end; end;
end; end;
{=====}
procedure TVpLinkableControl.SetControlLink(const Value: TVpControlLink); procedure TVpLinkableControl.SetControlLink(const Value: TVpControlLink);
var var
@ -1493,21 +1464,18 @@ begin
end; end;
end; end;
end; end;
{=====}
procedure TVpLinkableControl.CMEnter(var Msg: {$IFDEF DELPHI}TMessage{$ELSE}TLMessage{$ENDIF}); procedure TVpLinkableControl.CMEnter(var Msg: {$IFDEF DELPHI}TMessage{$ELSE}TLMessage{$ENDIF});
begin begin
Unused(Msg); Unused(Msg);
invalidate; invalidate;
end; end;
{=====}
procedure TVpLinkableControl.CMExit(var Msg: {$IFDEF DELPHI}TMessage{$ELSE}TLMessage{$ENDIF}); procedure TVpLinkableControl.CMExit(var Msg: {$IFDEF DELPHI}TMessage{$ELSE}TLMessage{$ENDIF});
begin begin
Unused(Msg); Unused(Msg);
invalidate; invalidate;
end; end;
{=====}
{ TVpControlLink } { TVpControlLink }
@ -1547,7 +1515,6 @@ begin
FPrinter := TVpPrinter.Create (Self); FPrinter := TVpPrinter.Create (Self);
FLocalization := TVpLocalization.Create; FLocalization := TVpLocalization.Create;
end; end;
{=====}
destructor TVpControlLink.Destroy; destructor TVpControlLink.Destroy;
var var
@ -1574,7 +1541,6 @@ begin
DependentList.Free; DependentList.Free;
inherited; inherited;
end; end;
{=====}
procedure TVpControlLink.ReleaseDependents; procedure TVpControlLink.ReleaseDependents;
var var
@ -1582,10 +1548,7 @@ var
begin begin
for I := pred(DependentList.Count) downto 0 do for I := pred(DependentList.Count) downto 0 do
Detach(TVpDependentInfo(DependentList[i]).Component); Detach(TVpDependentInfo(DependentList[i]).Component);
// for I := 0 to pred(DependentList.Count) do
// Detach(TVpDependentInfo(DependentList.List^[I]).Component);
end; end;
{=====}
procedure TVpControlLink.Detach(Sender: TComponent); procedure TVpControlLink.Detach(Sender: TComponent);
var var
@ -1593,10 +1556,8 @@ var
begin begin
try try
for I := 0 to pred(DependentList.Count) do for I := 0 to pred(DependentList.Count) do
// if TVpDependentInfo(DependentList.List^[I]).Component = Sender then
if TVpDependentInfo(DependentList[I]).Component = Sender then if TVpDependentInfo(DependentList[I]).Component = Sender then
begin begin
// TVpDependentInfo(DependentList.List^[I]).Free;
TVpDependentInfo(DependentList[I]).Free; TVpDependentInfo(DependentList[I]).Free;
DependentList.Delete(I); DependentList.Delete(I);
if Sender is TVpLinkableControl then if Sender is TVpLinkableControl then
@ -1607,7 +1568,6 @@ begin
// swallow exceptions // swallow exceptions
end; end;
end; end;
{=====}
procedure TVpControlLink.Attach(Sender: TComponent); procedure TVpControlLink.Attach(Sender: TComponent);
var var
@ -1617,7 +1577,6 @@ var
begin begin
Exists := false; Exists := false;
for I := 0 to pred(DependentList.Count) do for I := 0 to pred(DependentList.Count) do
// if TVpDependentInfo(DependentList.List^[I]).Component = Sender then begin
if TVpDependentInfo(DependentList[I]).Component = Sender then begin if TVpDependentInfo(DependentList[I]).Component = Sender then begin
Exists := true; Exists := true;
Break; Break;
@ -1631,19 +1590,16 @@ begin
DependentList.Add(Link); DependentList.Add(Link);
end; end;
end; end;
{=====}
function TVpControlLink.GetDependentList : TList; function TVpControlLink.GetDependentList : TList;
begin begin
Result := DependentList; Result := DependentList;
end; end;
{=====}
procedure TVpControlLink.LoadLocalizationInfo (const FileName : string); procedure TVpControlLink.LoadLocalizationInfo (const FileName : string);
begin begin
LocalizationFile := FileName; LocalizationFile := FileName;
end; end;
{=====}
procedure TVpControlLink.Notify(Sender: TComponent; procedure TVpControlLink.Notify(Sender: TComponent;
NotificationType: TVpNotificationType; const Value: Variant); NotificationType: TVpNotificationType; const Value: Variant);
@ -1658,7 +1614,6 @@ begin
end; end;
end; end;
end; end;
{=====}
procedure TVpControlLink.SetCityStateZipFormat(const Value: String); procedure TVpControlLink.SetCityStateZipFormat(const Value: String);
begin begin
@ -1675,14 +1630,13 @@ begin
if FDatastore <> nil then FDatastore.LinkToControls(Owner); if FDatastore <> nil then FDatastore.LinkToControls(Owner);
end; end;
end; end;
{=====}
procedure TVpControlLink.SetDefaultCountry (const v : string); procedure TVpControlLink.SetDefaultCountry (const v : string);
begin begin
if v <> FDefaultCountry then begin if v <> FDefaultCountry then begin
FDefaultCountry := v; FDefaultCountry := v;
end; end;
end; end;
{=====}
procedure TVpControlLink.SetLocalizationFile (const v : string); procedure TVpControlLink.SetLocalizationFile (const v : string);
var var
@ -1701,13 +1655,11 @@ begin
end; end;
end; end;
end; end;
{=====}
procedure TVpControlLink.SetPrinter (const v : TVpPrinter); procedure TVpControlLink.SetPrinter (const v : TVpPrinter);
begin begin
FPrinter.Assign (v); FPrinter.Assign (v);
end; end;
{=====}
procedure TVpControlLink.TriggerOnGetVariable(Sender : TObject; procedure TVpControlLink.TriggerOnGetVariable(Sender : TObject;
VarName: string; Found: Boolean; var Value: string; VarName: string; Found: Boolean; var Value: string;
@ -1716,7 +1668,6 @@ begin
if Assigned (FOnGetVariable) then if Assigned (FOnGetVariable) then
FOnGetVariable (Sender, VarName, Found, Value, Change); FOnGetVariable (Sender, VarName, Found, Value, Change);
end; end;
{=====}
procedure TVpControlLink.TriggerOnPageEnd(Sender: TObject; PageNum: Integer; procedure TVpControlLink.TriggerOnPageEnd(Sender: TObject; PageNum: Integer;
ADate: TDateTime; LastPage: Boolean); ADate: TDateTime; LastPage: Boolean);
@ -1724,7 +1675,6 @@ begin
if Assigned (FOnPageEnd) then if Assigned (FOnPageEnd) then
FOnPageEnd (Sender, PageNum, ADate, LastPage); FOnPageEnd (Sender, PageNum, ADate, LastPage);
end; end;
{=====}
procedure TVpControlLink.TriggerOnPageStart(Sender: TObject; PageNum : Integer; procedure TVpControlLink.TriggerOnPageStart(Sender: TObject; PageNum : Integer;
ADate : TDateTime); ADate : TDateTime);
@ -1732,6 +1682,5 @@ begin
if Assigned (FOnPageStart) then if Assigned (FOnPageStart) then
FOnPageStart (Sender, PageNum, ADate); FOnPageStart (Sender, PageNum, ADate);
end; end;
{=====}
end. end.

38
components/tvplanit/source/vpcontactgrid.pas
View File

@ -322,6 +322,7 @@ uses
(*****************************************************************************) (*****************************************************************************)
{ TVpContactHeadAttr } { TVpContactHeadAttr }
(*****************************************************************************) (*****************************************************************************)
constructor TVpContactHeadAttr.Create(AOwner: TVpContactGrid); constructor TVpContactHeadAttr.Create(AOwner: TVpContactGrid);
begin begin
inherited Create; inherited Create;
@ -331,13 +332,11 @@ begin
FColor := clSilver; FColor := clSilver;
FBordered := true; FBordered := true;
end; end;
{=====}
destructor TVpContactHeadAttr.Destroy; destructor TVpContactHeadAttr.Destroy;
begin begin
FFont.Free; FFont.Free;
end; end;
{=====}
procedure TVpContactHeadAttr.SetBordered(Value: Boolean); procedure TVpContactHeadAttr.SetBordered(Value: Boolean);
begin begin
@ -346,7 +345,6 @@ begin
Grid.Invalidate; Grid.Invalidate;
end; end;
end; end;
{=====}
procedure TVpContactHeadAttr.SetColor(Value: TColor); procedure TVpContactHeadAttr.SetColor(Value: TColor);
begin begin
@ -355,7 +353,6 @@ begin
Grid.Invalidate; Grid.Invalidate;
end; end;
end; end;
{=====}
procedure TVpContactHeadAttr.SetFont(Value: TVpFont); procedure TVpContactHeadAttr.SetFont(Value: TVpFont);
begin begin
@ -364,10 +361,11 @@ begin
Grid.Invalidate; Grid.Invalidate;
end; end;
end; end;
{=====}
(*****************************************************************************)
{ TVpCGInPlaceEdit } { TVpCGInPlaceEdit }
(*****************************************************************************)
constructor TVpCGInPlaceEdit.Create(AOwner: TComponent); constructor TVpCGInPlaceEdit.Create(AOwner: TComponent);
begin begin
@ -687,7 +685,6 @@ begin
neInvalidate : Invalidate; neInvalidate : Invalidate;
end; end;
end; end;
{=====}
procedure TVpContactGrid.cgHookUp; procedure TVpContactGrid.cgHookUp;
var var
@ -703,7 +700,6 @@ begin
end; end;
end; end;
end; end;
{=====}
function TVpContactGrid.ContactIsVisible(AIndex: Integer): Boolean; function TVpContactGrid.ContactIsVisible(AIndex: Integer): Boolean;
var var
@ -741,7 +737,6 @@ function TVpContactGrid.GetControlType : TVpItemType;
begin begin
Result := itContacts; Result := itContacts;
end; end;
{=====}
procedure TVpContactGrid.DeleteActiveContact(Verify: Boolean); procedure TVpContactGrid.DeleteActiveContact(Verify: Boolean);
var var
@ -767,7 +762,6 @@ begin
end; end;
end; end;
end; end;
{=====}
{$IFDEF LCL} {$IFDEF LCL}
function TVpContactGrid.DoMouseWheel(Shift: TShiftState; WheelDelta: Integer; function TVpContactGrid.DoMouseWheel(Shift: TShiftState; WheelDelta: Integer;
@ -803,14 +797,12 @@ procedure TVpContactGrid.Paint;
begin begin
RenderToCanvas(Canvas, Rect(0, 0, Width, Height), ra0, 1, Now, -1, -1, gr30Min, False); RenderToCanvas(Canvas, Rect(0, 0, Width, Height), ra0, 1, Now, -1, -1, gr30Min, False);
end; end;
{=====}
procedure TVpContactGrid.PaintToCanvas(ACanvas: TCanvas; ARect: TRect; procedure TVpContactGrid.PaintToCanvas(ACanvas: TCanvas; ARect: TRect;
Angle: TVpRotationAngle); Angle: TVpRotationAngle);
begin begin
RenderToCanvas(ACanvas, ARect, Angle, 1, Now, -1, -1, gr30Min, True); RenderToCanvas(ACanvas, ARect, Angle, 1, Now, -1, -1, gr30Min, True);
end; end;
{=====}
procedure TVpContactGrid.RenderToCanvas(RenderCanvas: TCanvas; procedure TVpContactGrid.RenderToCanvas(RenderCanvas: TCanvas;
RenderIn: TRect; Angle: TVpRotationAngle; Scale: Extended; RenderIn: TRect; Angle: TVpRotationAngle; Scale: Extended;
@ -875,7 +867,6 @@ begin
end; end;
end; end;
end; end;
{=====}
procedure TVpContactGrid.SetColor(Value: TColor); procedure TVpContactGrid.SetColor(Value: TColor);
begin begin
@ -884,7 +875,6 @@ begin
Invalidate; Invalidate;
end; end;
end; end;
{=====}
procedure TVpContactGrid.cgCalcRowHeight; procedure TVpContactGrid.cgCalcRowHeight;
var var
@ -903,7 +893,6 @@ begin
cgRowHeight := cgRowHeight + TextMargin * 2; cgRowHeight := cgRowHeight + TextMargin * 2;
Canvas.Font.Assign(SaveFont); Canvas.Font.Assign(SaveFont);
end; end;
{=====}
procedure TVpContactGrid.SetDrawingStyle(const Value: TVpDrawingStyle); procedure TVpContactGrid.SetDrawingStyle(const Value: TVpDrawingStyle);
begin begin
@ -912,7 +901,6 @@ begin
Repaint; Repaint;
end; end;
end; end;
{=====}
procedure TVpContactGrid.SetBarColor(Value: TColor); procedure TVpContactGrid.SetBarColor(Value: TColor);
begin begin
@ -921,13 +909,11 @@ begin
Invalidate; Invalidate;
end; end;
end; end;
{=====}
function TVpContactGrid.GetBarWidth: Integer; function TVpContactGrid.GetBarWidth: Integer;
begin begin
result := FBarWidth - (ExtraBarWidth * 2); result := FBarWidth - (ExtraBarWidth * 2);
end; end;
{=====}
procedure TVpContactGrid.SetBarWidth(Value: Integer); procedure TVpContactGrid.SetBarWidth(Value: Integer);
begin begin
@ -936,7 +922,6 @@ begin
Invalidate; Invalidate;
end; end;
end; end;
{=====}
procedure TVpContactGrid.SetContactIndex(Value: Integer); procedure TVpContactGrid.SetContactIndex(Value: Integer);
begin begin
@ -946,7 +931,6 @@ begin
else else
FContactIndex := -1; FContactIndex := -1;
end; end;
{=====}
procedure TVpContactGrid.SetColumnWidth(Value: Integer); procedure TVpContactGrid.SetColumnWidth(Value: Integer);
begin begin
@ -957,7 +941,6 @@ begin
Invalidate; Invalidate;
end; end;
end; end;
{=====}
{$IFNDEF LCL} {$IFNDEF LCL}
procedure TVpContactGrid.WMSize(var Msg: TWMSize); procedure TVpContactGrid.WMSize(var Msg: TWMSize);
@ -972,7 +955,6 @@ begin
{ force a repaint } { force a repaint }
Invalidate; Invalidate;
end; end;
{=====}
procedure TVpContactGrid.CreateParams(var Params: TCreateParams); procedure TVpContactGrid.CreateParams(var Params: TCreateParams);
begin begin
@ -986,7 +968,6 @@ begin
{$ENDIF} {$ENDIF}
end; end;
end; end;
{=====}
procedure TVpContactGrid.CreateWnd; procedure TVpContactGrid.CreateWnd;
begin begin
@ -1164,7 +1145,6 @@ begin
end; end;
end; end;
end; end;
{=====}
{$IFNDEF LCL} {$IFNDEF LCL}
procedure TVpContactGrid.WMNCHitTest(var Msg: TWMNCHitTest); procedure TVpContactGrid.WMNCHitTest(var Msg: TWMNCHitTest);
@ -1194,7 +1174,6 @@ begin
Cursor := FOldCursor; Cursor := FOldCursor;
end; end;
end; end;
{=====}
{$IFNDEF LCL} {$IFNDEF LCL}
procedure TVpContactGrid.WMSetCursor(var Msg: TWMSetCursor); procedure TVpContactGrid.WMSetCursor(var Msg: TWMSetCursor);
@ -1211,7 +1190,6 @@ begin
else inherited; else inherited;
end; end;
{$ENDIF} {$ENDIF}
{=====}
{$IFNDEF LCL} {$IFNDEF LCL}
procedure TVpContactGrid.WMLButtonDblClk(var Msg: TWMLButtonDblClk); procedure TVpContactGrid.WMLButtonDblClk(var Msg: TWMLButtonDblClk);
@ -1245,8 +1223,6 @@ begin
end; end;
end; end;
{=====}
{$IFNDEF LCL} {$IFNDEF LCL}
procedure TVpContactGrid.WMKillFocus(var Msg : TWMKillFocus); procedure TVpContactGrid.WMKillFocus(var Msg : TWMKillFocus);
{$ELSE} {$ELSE}
@ -1308,7 +1284,6 @@ begin
end; end;
Invalidate; Invalidate;
end; end;
{=====}
procedure TVpContactGrid.cgEditInPlace(Sender: TObject); procedure TVpContactGrid.cgEditInPlace(Sender: TObject);
begin begin
@ -1318,7 +1293,6 @@ begin
cgClickTimer.Enabled := false; cgClickTimer.Enabled := false;
EditContact; EditContact;
end; end;
{=====}
procedure TVpContactGrid.EditContact; procedure TVpContactGrid.EditContact;
var var
@ -1430,7 +1404,6 @@ begin
cgInPlaceEditor.SelectAll; cgInPlaceEditor.SelectAll;
end; end;
end; end;
{=====}
procedure TVpContactGrid.EndEdit(Sender: TObject); procedure TVpContactGrid.EndEdit(Sender: TObject);
var var
@ -1756,7 +1729,6 @@ begin
Key := 0; Key := 0;
inherited; inherited;
end; end;
{=====}
{$IFNDEF LCL} {$IFNDEF LCL}
procedure TVpContactGrid.WMHScroll(var Msg: TWMHScroll); procedure TVpContactGrid.WMHScroll(var Msg: TWMHScroll);
@ -1793,7 +1765,6 @@ begin
end; end;
Invalidate; Invalidate;
end; end;
{=====}
{$IFNDEF LCL} {$IFNDEF LCL}
procedure TVpContactGrid.VpDataStoreChanged (var Msg : TMessage); procedure TVpContactGrid.VpDataStoreChanged (var Msg : TMessage);
@ -1806,7 +1777,6 @@ begin
DataStore.Resource.Contacts.ContactSort := SortBy; DataStore.Resource.Contacts.ContactSort := SortBy;
end; end;
{$ENDIF} {$ENDIF}
{=====}
procedure TVpContactGrid.cgScrollHorizontal(Rows: Integer); procedure TVpContactGrid.cgScrollHorizontal(Rows: Integer);
begin begin
@ -1823,7 +1793,6 @@ begin
if FContactsBefore < 0 then FContactsBefore := 0; if FContactsBefore < 0 then FContactsBefore := 0;
end; end;
{=====}
procedure TVpContactGrid.SetHScrollPos; procedure TVpContactGrid.SetHScrollPos;
var var
@ -1847,7 +1816,6 @@ begin
end; end;
SetScrollInfo(Handle, SB_HORZ, SI, True); SetScrollInfo(Handle, SB_HORZ, SI, True);
end; end;
{=====}
procedure TVpContactGrid.SetPrintNumColumns (const v : Integer); procedure TVpContactGrid.SetPrintNumColumns (const v : Integer);
begin begin

5
components/tvplanit/source/vpdata.pas
View File

@ -2085,7 +2085,6 @@ begin
end; end;
end; end;
end; end;
{=====}
procedure TVpSchedule.AllDayEventsByDate(Date: TDateTime; EventList: TList); procedure TVpSchedule.AllDayEventsByDate(Date: TDateTime; EventList: TList);
var var
@ -2108,9 +2107,9 @@ begin
end; end;
end; end;
end; end;
{=====}
(* wp: Commented because it is not called from anywhere...
(* wp: Removed because it is not called from anywhere...
{ binary search } { binary search }
function TVpSchedule.FindTimeSlot(StartTime, EndTime: TDateTime): Boolean; function TVpSchedule.FindTimeSlot(StartTime, EndTime: TDateTime): Boolean;