[CLOSED] Code cleanup at nested procedures SaveState

[lagprogramming]

Code: Pascal  [Select][+][-]

1.   procedure SaveState;
2.   begin
3.     if DCIndex <> 0 then exit;
4.     DCIndex := SaveDC(DC);
5.   end;

  The above procedure can be found nested inside procedure TWin32ThemeServices.DrawText, function TCanvas.TextExtent and procedure TCanvas.TextRect. Before calling SaveState each time DCIndex is set to 0 which makes the line "if DCIndex <> 0 then exit;" useless.
The following patch removes the line from all three nested procedures.

[AlexTP]

Posted to https://gitlab.com/freepascal.org/lazarus/lazarus/-/issues/40649