opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-26 11:17:57 +08:00
Code Issues Packages Projects Releases Wiki Activity

Update nomenclature.

Browse Source
This commit is contained in:
rosenfield.albert
2008-10-10 01:04:16 +00:00
parent 35be9c3621
commit c3d7ff9f5b
5 changed files with 40 additions and 40 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
source/fieldeditor.pas
View File

@ -18,7 +18,7 @@ type
TFieldEditForm = class(TForm)
pc: TPageControl;
tabField: TTabSheet;
tabColumn: TTabSheet;
ButtonCancel: TButton;
ButtonOK: TButton;
lblName: TLabel;
@ -329,7 +329,7 @@ procedure TFieldEditForm.FormShow(Sender: TObject);
begin
if fMode in [femFieldUpdate, femFieldAdd] then
begin
pc.ActivePage := tabField;
pc.ActivePage := tabColumn;
EditFieldName.SetFocus();
end;
@ -640,7 +640,7 @@ end;
procedure TFieldEditForm.pcChange(Sender: TObject);
begin
// Set FMode, according to selected tab
if pc.ActivePage = tabField then
if pc.ActivePage = tabColumn then
begin
if FModeWhenCalled = femFieldUpdate then
begin
@ -1094,12 +1094,12 @@ begin
femFieldUpdate:
begin
ButtonOK.Caption := 'Update Field';
ButtonOK.Caption := 'Update Column';
end;
femFieldAdd:
begin
ButtonOK.Caption := 'Add Field';
ButtonOK.Caption := 'Add Column';
end;
femIndexEditor: