From 0bb025c2509b67cb175bfb92afe710421f3a9752 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Tue, 3 Mar 2009 22:49:36 +0000
Subject: [PATCH] Code cosmetic: Clean up ugly event name

---
 source/main.dfm |  2 +-
 source/main.pas | 14 +++++++-------
 2 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/source/main.dfm b/source/main.dfm
index fb951e46..f33cc747 100644
--- a/source/main.dfm
+++ b/source/main.dfm
@@ -485,7 +485,7 @@ object MainForm: TMainForm
       MultiLine = True
       TabHeight = 22
       TabOrder = 1
-      OnChange = pcChange
+      OnChange = PageControlMainChange
       object tabHost: TTabSheet
         Caption = 'Host'
         ImageIndex = 1
diff --git a/source/main.pas b/source/main.pas
index f2ad179f..9c5ec5b0 100644
--- a/source/main.pas
+++ b/source/main.pas
@@ -570,7 +570,7 @@ type
     procedure SynCompletionProposal1Execute(Kind: SynCompletionType;
       Sender: TObject; var CurrentInput: WideString; var x, y: Integer;
       var CanExecute: Boolean);
-    procedure pcChange(Sender: TObject);
+    procedure PageControlMainChange(Sender: TObject);
     procedure ValidateControls(FrmIsFocussed: Boolean = true);
     procedure ValidateQueryControls(FrmIsFocussed: Boolean = true);
     function FieldContent(ds: TDataSet; ColName: WideString): WideString;
@@ -3460,7 +3460,7 @@ begin
   tabData.TabVisible := false;
 
   Caption := winName;
-  pcChange( Self );
+  PageControlMainChange( Self );
 end;
 
 
@@ -3781,7 +3781,7 @@ begin
       DisplayRowCountStats(MatchingRows);
       dataselected := true;
 
-      pcChange(self);
+      PageControlMainChange(Sender);
     end;
   finally
     DataGrid.Header.Columns.EndUpdate;
@@ -3875,7 +3875,7 @@ end;
 {***
   Occurs when active tab has changed.
 }
-procedure TMainForm.pcChange(Sender: TObject);
+procedure TMainForm.PageControlMainChange(Sender: TObject);
 var
   tab: TTabSheet;
 begin
@@ -4184,7 +4184,7 @@ end;
 procedure TMainForm.ShowDBProperties(db: WideString);
 begin
   Screen.Cursor := crHourglass;
-  pcChange( Self );
+  PageControlMainChange(Self);
   ShowStatus( STATUS_MSG_READY );
   Screen.Cursor := crDefault;
 end;
@@ -4356,7 +4356,7 @@ begin
     Screen.Cursor := crDefault;
   end;
 
-  pcChange( Self );
+  PageControlMainChange(Self);
   ShowStatus( STATUS_MSG_READY );
   showstatus(ActiveDatabase + ': '+ SelectedTable + ': ' + IntToStr(ListColumns.RootNodeCount) +' column(s)', 0);
   Screen.Cursor := crDefault;
@@ -4552,7 +4552,7 @@ begin
   dataselected := false;
   PageControlMain.ActivePage := tabData;
   viewdata(self);
-  pcChange( Self );
+  PageControlMainChange(Self);
 end;