opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2026-03-13 09:24:25 +08:00
Code Issues Packages Projects Releases Wiki Activity

Code cosmetic: Clean up ugly event name

Browse Source
This commit is contained in:
Ansgar Becker
2009-03-03 22:49:36 +00:00
parent f7b0cfc92c
commit 0bb025c250
2 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
source/main.dfm
View File

@@ -485,7 +485,7 @@ object MainForm: TMainForm
MultiLine = True
TabHeight = 22
TabOrder = 1
OnChange = pcChange
OnChange = PageControlMainChange
object tabHost: TTabSheet
Caption = 'Host'
ImageIndex = 1

14
source/main.pas
View File

@@ -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;