From 8210ffc6afac88019d8f5a77d0aa9c834113db95 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Thu, 6 Oct 2022 22:25:25 +0000
Subject: [PATCH] tvplanit: Cosmetic changes in VpPrtFmt

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8520 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/tvplanit/source/vpprtfmt.pas | 93 -------------------------
 1 file changed, 93 deletions(-)

diff --git a/components/tvplanit/source/vpprtfmt.pas b/components/tvplanit/source/vpprtfmt.pas
index 6df3d547b..67d820b69 100644
--- a/components/tvplanit/source/vpprtfmt.pas
+++ b/components/tvplanit/source/vpprtfmt.pas
@@ -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.