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

tvplanit: Cosmetic changes in VpPrtFmt

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8520 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-10-06 22:25:25 +00:00
parent caa086942e
commit 8210ffc6af
1 changed files with 0 additions and 93 deletions
Download Patch File Download Diff File Expand all files Collapse all files

93
components/tvplanit/source/vpprtfmt.pas
View File

@ -487,7 +487,6 @@ begin
FName := '';
FValue := '';
end;
{=====}
destructor TVpAttributeItem.Destroy;
begin
@ -495,7 +494,6 @@ begin
FCollection := nil;
inherited Destroy;
end;
{=====}
// TVpAttributes *************************************************************
@ -505,33 +503,28 @@ begin
inherited Create(TVpAttributeItem);
FOwner := AOwner;
end;
{=====}
{$IFNDEF VERSION5}
procedure TVpAttributes.Delete(Item: integer);
begin
GetItem(Item).Free;
end;
{=====}
{$ENDIF}
function TVpAttributes.GetItem(Index: Integer): TVpAttributeItem;
begin
Result := TVpAttributeItem(inherited GetItem(Index));
end;
{=====}
function TVpAttributes.GetOwner: TPersistent;
begin
Result := FOwner;
end;
{=====}
procedure TVpAttributes.SetItem(Index: Integer; Value: TVpAttributeItem);
begin
inherited SetItem(Index, Value);
end;
{=====}
// TVpPrintShape *************************************************************
@ -544,7 +537,6 @@ begin
FBrush := TBrush.Create;
FShape := ustRectangle;
end;
{=====}
destructor TVpPrintShape.Destroy;
begin
@ -554,13 +546,11 @@ begin
FBrush := nil;
inherited Destroy;
end;
{=====}
function TVpPrintShape.GetOwner: TPersistent;
begin
Result := FOwner;
end;
{=====}
procedure TVpPrintShape.PaintToCanvas(ACanvas: TCanvas; ARect: TRect;
Angle: TVpRotationAngle; Viewport: TRect);
@ -625,19 +615,16 @@ begin
OldPen.Free;
end;
end;
{=====}
procedure TVpPrintShape.SetBrush(const v: TBrush);
begin
FBrush.Assign(v);
end;
{=====}
procedure TVpPrintShape.SetPen(const v: TPen);
begin
FPen.Assign(v);
end;
{=====}
// TVpPrintCaption ***********************************************************
@ -649,7 +636,6 @@ begin
FFont := TFont.Create;
FCaption := '';
end;
{=====}
destructor TVpPrintCaption.Destroy;
begin
@ -657,13 +643,11 @@ begin
FFont := nil;
inherited Destroy;
end;
{=====}
function TVpPrintCaption.GetOwner: TPersistent;
begin
Result := FOwner;
end;
{=====}
procedure TVpPrintCaption.PaintToCanvas(ACanvas: TCanvas; ARect: TRect;
Angle: TVpRotationAngle; Viewport: TRect; RealString: string);
@ -678,13 +662,11 @@ begin
ACanvas.Font := OldFont;
end;
end;
{=====}
procedure TVpPrintCaption.SetFont(const v: TFont);
begin
FFont.Assign(v);
end;
{=====}
// TVpPrintFormatElementItem *************************************************
@ -707,7 +689,6 @@ begin
FDayOffsetUnits := duDay;
FVisible := True;
end;
{=====}
destructor TVpPrintFormatElementItem.Destroy;
begin
@ -719,7 +700,6 @@ begin
FCaption := nil;
inherited Destroy;
end;
{=====}
function TVpPrintFormatElementItem.GetDisplayName: string;
begin
@ -728,7 +708,6 @@ begin
else
Result := inherited GetDisplayName;
end;
{=====}
procedure TVpPrintFormatElementItem.SetCaption(const v: TVpPrintCaption);
begin
@ -742,7 +721,6 @@ begin
end else
FCaption.Assign(v);
end;
{=====}
procedure TVpPrintFormatElementItem.SetDayOffset(const v: Integer);
begin
@ -758,7 +736,6 @@ begin
end else
FDayOffset := v;
end;
{=====}
procedure TVpPrintFormatElementItem.SetDayOffsetUnits(const v: TVpDayUnits);
begin
@ -774,7 +751,6 @@ begin
end else
FDayOffsetUnits := v;
end;
{=====}
procedure TVpPrintFormatElementItem.SetElementName(const v: string);
begin
@ -790,7 +766,6 @@ begin
end else
FElementName := v;
end;
{=====}
procedure TVpPrintFormatElementItem.SetHeight(const v: Extended);
begin
@ -806,7 +781,6 @@ begin
end else
FHeight := v;
end;
{=====}
procedure TVpPrintFormatElementItem.SetItemType(const v: TVpItemType);
begin
@ -822,7 +796,6 @@ begin
end else
FItemType := v;
end;
{=====}
procedure TVpPrintFormatElementItem.SetLeft(const v: Extended);
begin
@ -838,7 +811,6 @@ begin
end else
FLeft := v;
end;
{=====}
procedure TVpPrintFormatElementItem.SetMeasurement(const v: TVpItemMeasurement);
begin
@ -854,7 +826,6 @@ begin
end else
FMeasurement := v;
end;
{=====}
procedure TVpPrintFormatElementItem.SetRotation(const v: TVpRotationAngle);
begin
@ -870,7 +841,6 @@ begin
end else
FRotation := v;
end;
{=====}
procedure TVpPrintFormatElementItem.SetShape(const v: TVpPrintShape);
begin
@ -886,7 +856,6 @@ begin
end else
FShape.Assign(v);
end;
{=====}
procedure TVpPrintFormatElementItem.SetTop(const v: Extended);
begin
@ -903,7 +872,6 @@ begin
end else
FTop := v;
end;
{=====}
procedure TVpPrintFormatElementItem.SetVisible(const v: Boolean);
begin
@ -919,7 +887,6 @@ begin
end else
FVisible := v;
end;
{=====}
procedure TVpPrintFormatElementItem.SetWidth(const v: Extended);
begin
@ -935,7 +902,6 @@ begin
end else
FWidth := v;
end;
{=====}
// TVpPrintFormatElement *****************************************************
@ -945,7 +911,6 @@ begin
inherited Create(TVpPrintFormatElementItem);
FOwner := AOwner;
end;
{=====}
function TVpPrintFormatElement.GetItem(Index: Integer): TVpPrintFormatElementItem;
begin
@ -956,7 +921,6 @@ function TVpPrintFormatElement.GetOwner: TPersistent;
begin
Result := FOwner;
end;
{=====}
procedure TVpPrintFormatElement.NotifyAll(Item: TCollectionItem);
var
@ -994,7 +958,6 @@ begin
(Notifier as TVpControlLink).Printer.NotifyLinked;
end;
end;
{=====}
{$IFDEF VERSION6}
procedure TVpPrintFormatElement.Notify(Item: TCollectionItem; Action: TCollectionNotification);
@ -1003,13 +966,11 @@ begin
NotifyAll(Item);
end;
{$ENDIF}
{=====}
procedure TVpPrintFormatElement.SetItem(Index: Integer; Value: TVpPrintFormatElementItem);
begin
inherited SetItem(Index, Value);
end;
{=====}
procedure TVpPrintFormatElement.Update(Item: TCollectionItem);
var
@ -1041,7 +1002,6 @@ begin
(Notifier as TVpControlLink).Printer.NotifyLinked;
end;
end;
{=====}
// TVpPrintFormatItem *************************************************
@ -1060,7 +1020,6 @@ begin
FDefaultDayInc := 1;
FVisible := True;
end;
{=====}
destructor TVpPrintFormatItem.Destroy;
begin
@ -1072,7 +1031,6 @@ begin
inherited Destroy;
end;
{=====}
function TVpPrintFormatItem.GetDisplayName: string;
begin
@ -1081,7 +1039,6 @@ begin
else
Result := inherited GetDisplayName;
end;
{=====}
procedure TVpPrintFormatItem.SetDayInc(const v: Integer);
begin
@ -1096,7 +1053,6 @@ begin
end else
FDayInc := v;
end;
{=====}
procedure TVpPrintFormatItem.SetDayIncUnits(const v: TVpDayUnits);
begin
@ -1111,7 +1067,6 @@ begin
end else
FDayIncUnits := v;
end;
{=====}
procedure TVpPrintFormatItem.SetDescription(const v: string);
begin
@ -1124,7 +1079,6 @@ begin
end else
FDescription := v;
end;
{=====}
procedure TVpPrintFormatItem.SetElements(const v: TVpPrintFormatElement);
begin
@ -1132,7 +1086,6 @@ begin
if Assigned(Collection) then
Collection.NotifyAll(Self);
end;
{=====}
procedure TVpPrintFormatItem.SetFormatName(const v: string);
begin
@ -1147,7 +1100,6 @@ begin
end else
FFormatName := v;
end;
{=====}
procedure TVpPrintFormatItem.SetVisible(const v: Boolean);
begin
@ -1162,7 +1114,6 @@ begin
end else
FVisible := v;
end;
{=====}
// TVpPrintFormat ************************************************************
@ -1172,19 +1123,16 @@ begin
inherited Create(TVpPrintFormatItem);
FOwner := AOwner;
end;
{=====}
function TVpPrintFormat.GetItem(Index: Integer): TVpPrintFormatItem;
begin
Result := TVpPrintFormatItem(inherited GetItem(Index));
end;
{=====}
function TVpPrintFormat.GetOwner: TPersistent;
begin
Result := FOwner;
end;
{=====}
procedure TVpPrintFormat.NotifyAll(Item: TCollectionItem);
begin
@ -1202,7 +1150,6 @@ begin
(FOwner as TVpControlLink).Printer.NotifyLinked;
end;
end;
{=====}
{$IFDEF VERSION6}
procedure TVpPrintFormat.Notify(Item: TCollectionItem; Action: TCollectionNotification);
@ -1211,13 +1158,11 @@ begin
NotifyAll(Item);
end;
{$ENDIF}
{=====}
procedure TVpPrintFormat.SetItem(Index: Integer; Value: TVpPrintFormatItem);
begin
inherited SetItem(Index, Value);
end;
{=====}
procedure TVpPrintFormat.Update(Item: TCollectionItem);
begin
@ -1234,7 +1179,6 @@ begin
(FOwner as TVpControlLink).Printer.NotifyLinked;
end;
end;
{=====}
// TVpPrinter ****************************************************************
@ -1261,7 +1205,6 @@ begin
CreateWorkControls;
end;
{=====}
destructor TVpPrinter.Destroy;
begin
@ -1273,7 +1216,6 @@ begin
DestroyWorkControls;
inherited;
end;
{=====}
procedure TVpPrinter.AddDefaultVariables(Date: TDateTime);
@ -1326,7 +1268,6 @@ begin
AddDataStoreVars;
end;
{=====}
procedure TVpPrinter.AddVariable(VarName: string; Value: string);
var
@ -1342,13 +1283,11 @@ begin
NewVar.Name := VarName;
NewVar.Value := Value;
end;
{=====}
procedure TVpPrinter.ChangeVariable(VarName, NewValue: string);
begin
AddVariable(VarName, NewValue);
end;
{=====}
procedure TVpPrinter.CheckPrintFormat;
begin
@ -1358,13 +1297,11 @@ begin
if (CurFormat < 0) or (CurFormat >= PrintFormats.Count) then
raise EVpPrintFormatError.Create(RSBadPrintFormat);
end;
{=====}
procedure TVpPrinter.ClearVariables;
begin
FVariables.Clear;
end;
{=====}
procedure TVpPrinter.CreateWorkControls;
begin
@ -1396,7 +1333,6 @@ begin
TVpGanttView(FGanttView).Parent := FParent;
{$ENDIF}
end;
{=====}
procedure TVpPrinter.DestroyWorkControls;
begin
@ -1420,7 +1356,6 @@ begin
FParent.Free;
{$ENDIF}
end;
{=====}
function TVpPrinter.DeleteVariable(VarName: string): Boolean;
var
@ -1434,7 +1369,6 @@ begin
end;
Result := False;
end;
{=====}
procedure TVpPrinter.DeregisterAllWatchers;
var
@ -1446,7 +1380,6 @@ begin
FNotifiers.Delete (i);
end;
end;
{=====}
procedure TVpPrinter.DeregisterWatcher(Watcher: THandle);
var
@ -1460,7 +1393,6 @@ begin
Exit;
end;
end;
{=====}
function TVpPrinter.HaveVariable(VarName: string): Boolean;
var
@ -1472,7 +1404,6 @@ begin
Exit;
Result := False;
end;
{=====}
function TVpPrinter.Find(const v: string): Integer;
var
@ -1485,13 +1416,11 @@ begin
Exit;
end;
end;
{=====}
function TVpPrinter.GetOwner: TPersistent;
begin
Result := FOwner;
end;
{=====}
procedure TVpPrinter.LoadFromFile(FileName: string; Append: Boolean);
var
@ -1518,7 +1447,6 @@ begin
FElementIndex := -1;
NotifyLinked;
end;
{=====}
function TVpPrinter.LookupVariable(VarName: string): string;
var
@ -1531,7 +1459,6 @@ begin
Break;
end;
end;
{=====}
procedure TVpPrinter.NotifyLinked;
var
@ -1541,7 +1468,6 @@ begin
if Assigned(FNotifiers[i]) then
PostMessage(PVpWatcher(FNotifiers[i]).Handle, Vp_PrintFormatChanged, 0, 0);
end;
{=====}
procedure TVpPrinter.PaintToCanvasRect(ACanvas: TCanvas; ARect: TRect;
ADate: TDateTime);
@ -1816,7 +1742,6 @@ begin
DebugLn('[TVpPrinter.PaintToCanvas] EXIT');
{$ENDIF}
end;
{=====}
procedure TVpPrinter.Print(APrinter: TPrinter; StartDate, EndDate: TDateTime);
var
@ -2010,7 +1935,6 @@ begin
NewHandle.Handle := Watcher;
FNotifiers.Add(NewHandle);
end;
{=====}
procedure TVpPrinter.RenderPage(ACanvas: TCanvas; ARect: TRect; PageNum: Integer;
var ADate: TDateTime; EndDate: TDateTime; var StartContact: Integer;
@ -2129,7 +2053,6 @@ begin
FLastContact := OldContact;
end;
end;
{=====}
function TVpPrinter.ReplaceVariables(const s: string): string;
type
@ -2237,7 +2160,6 @@ begin
end;
end;
end;
{=====}
procedure TVpPrinter.SaveToFile(FileName: string);
var
@ -2423,7 +2345,6 @@ begin
CloseFile(fpOut);
end;
end;
{=====}
procedure TVpPrinter.SetBottomMargin(const v: Extended);
begin
@ -2432,7 +2353,6 @@ begin
NotifyLinked;
end;
end;
{=====}
procedure TVpPrinter.SetCurFormat(const v: Integer);
begin
@ -2446,14 +2366,12 @@ begin
NotifyLinked;
end;
end;
{=====}
procedure TVpPrinter.SetDefaultXMLFileName(const v: string);
begin
if v <> FDefaultXMLFileName then
FDefaultXMLFileName := v;
end;
{=====}
procedure TVpPrinter.SetLeftMargin(const v: Extended);
begin
@ -2462,7 +2380,6 @@ begin
NotifyLinked;
end;
end;
{=====}
procedure TVpPrinter.SetMarginUnits(const v: TVpItemMeasurement);
begin
@ -2471,14 +2388,12 @@ begin
NotifyLinked;
end;
end;
{=====}
procedure TVpPrinter.SetPrintFormats(const v: TVpPrintFormat);
begin
FPrintFormats.Assign(v);
NotifyLinked;
end;
{=====}
procedure TVpPrinter.SetRightMargin(const v: Extended);
begin
@ -2487,7 +2402,6 @@ begin
NotifyLinked;
end;
end;
{=====}
procedure TVpPrinter.SetTopMargin(const v: Extended);
begin
@ -2496,7 +2410,6 @@ begin
NotifyLinked;
end;
end;
{=====}
procedure TVpPrinter.SetUseFormComponents(const v: Boolean);
begin
@ -2510,7 +2423,6 @@ begin
NotifyLinked;
end;
end;
{=====}
procedure TVpPrinter.UpdateDateVariables(Date: TDateTime);
begin
@ -2549,13 +2461,11 @@ begin
AddVariable('yyyy', FormatDateTime('yyyy', Date));
AddVariable('/', FormatDateTime('/', Date));
end;
{=====}
function TVpPrinter.ValidFormat(const v: Integer): Boolean;
begin
Result := (v >= 0) and (v < FPrintFormats.Count);
end;
{=====}
procedure TVpPrinter.xmlPrintFormatAttribute(oOwner: TObject;
sName, sValue: DOMString; bSpecified: Boolean);
@ -2568,7 +2478,6 @@ begin
Item.Name := UTF8Encode(sName);
Item.Value := UTF8Encode(sValue);
end;
{=====}
procedure TVpPrinter.xmlPrintFormatEndElement(oOwner: TObject;
sValue: DOMString);
@ -2581,7 +2490,6 @@ begin
FElementIndex := -1;
FAttributes.Clear;
end;
{=====}
procedure TVpPrinter.xmlPrintFormatStartElement(oOwner: TObject;
sValue: DOMString);
@ -3009,6 +2917,5 @@ begin
end;
FAttributes.Clear;
end;
{=====}
end.