paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-09 04:07:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

ideinf: apply fields patch of taka_jp (issue #0015387)

Browse Source 
git-svn-id: trunk@23319 -
This commit is contained in:
paul 2009-12-30 10:11:36 +00:00
parent bad42d79bc
commit b08a1b3733
3 changed files with 21 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ideintf/fieldseditor.lfm
View File

@ -1,7 +1,7 @@
object DSFieldsEditorFrm: TDSFieldsEditorFrm
Left = 44
Left = 22
Height = 288
Top = 58
Top = 29
Width = 215
HorzScrollBar.Page = 214
VertScrollBar.Page = 287
@ -27,7 +27,6 @@ object DSFieldsEditorFrm: TDSFieldsEditorFrm
TabOrder = 0
end
object PopupMenu1: TPopupMenu
OnPopup = PopupMenu1Popup
left = 8
top = 144
object MenuItem1: TMenuItem
@ -60,6 +59,7 @@ object DSFieldsEditorFrm: TDSFieldsEditorFrm
end
end
object ActionList1: TActionList
OnUpdate = ActionList1Update
left = 40
top = 144
object AddFieldsActn: TAction

28
ideintf/fieldseditor.lrs
View File

@ -1,8 +1,8 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TDSFieldsEditorFrm','FORMDATA',[
'TPF0'#18'TDSFieldsEditorFrm'#17'DSFieldsEditorFrm'#4'Left'#2','#6'Height'#3
+' '#1#3'Top'#2':'#5'Width'#3#215#0#18'HorzScrollBar.Page'#3#214#0#18'VertScr'
'TPF0'#18'TDSFieldsEditorFrm'#17'DSFieldsEditorFrm'#4'Left'#2#22#6'Height'#3
+' '#1#3'Top'#2#29#5'Width'#3#215#0#18'HorzScrollBar.Page'#3#214#0#18'VertScr'
+'ollBar.Page'#3#31#1#13'ActiveControl'#7#13'FieldsListBox'#7'Caption'#6#13'F'
+'ields Editor'#12'ClientHeight'#3' '#1#11'ClientWidth'#3#215#0#7'OnClose'#7
+#20'FieldsEditorFrmClose'#9'OnDestroy'#7#22'FieldsEditorFrmDestroy'#8'Positi'
@ -10,18 +10,18 @@ LazarusResources.Add('TDSFieldsEditorFrm','FORMDATA',[
+'dsListBox'#4'Left'#2#0#6'Height'#3' '#1#3'Top'#2#0#5'Width'#3#215#0#5'Align'
+#7#8'alClient'#10'ItemHeight'#2#0#11'MultiSelect'#9#7'OnClick'#7#13'ListBox1'
+'Click'#9'OnKeyDown'#7#20'FieldsListBoxKeyDown'#9'PopupMenu'#7#10'PopupMenu1'
+#8'TabOrder'#2#0#0#0#10'TPopupMenu'#10'PopupMenu1'#7'OnPopup'#7#15'PopupMenu'
+'1Popup'#4'left'#2#8#3'top'#3#144#0#0#9'TMenuItem'#9'MenuItem1'#6'Action'#7
+#13'AddFieldsActn'#7'OnClick'#7#20'AddFieldsActnExecute'#0#0#9'TMenuItem'#9
+'MenuItem2'#6'Action'#7#16'DeleteFieldsActn'#7'OnClick'#7#23'DeleteFieldsAct'
+'nExecute'#0#0#9'TMenuItem'#9'MenuItem5'#6'Action'#7#7'NewActn'#7'OnClick'#7
+#14'NewActnExecute'#0#0#9'TMenuItem'#9'MenuItem3'#6'Action'#7#10'MoveUpActn'
+#7'OnClick'#7#17'MoveUpActnExecute'#0#0#9'TMenuItem'#9'MenuItem4'#6'Action'#7
+#12'MoveDownActn'#7'OnClick'#7#19'MoveDownActnExecute'#0#0#9'TMenuItem'#9'Me'
+'nuItem6'#6'Action'#7#13'SelectAllActn'#7'OnClick'#7#20'SelectAllActnExecute'
+#0#0#9'TMenuItem'#9'MenuItem7'#6'Action'#7#15'UnselectAllActn'#7'OnClick'#7
+#22'UnselectAllActnExecute'#0#0#0#11'TActionList'#11'ActionList1'#4'left'#2
+'('#3'top'#3#144#0#0#7'TAction'#13'AddFieldsActn'#8'Category'#6#6'Fields'#7
+#8'TabOrder'#2#0#0#0#10'TPopupMenu'#10'PopupMenu1'#4'left'#2#8#3'top'#3#144#0
+#0#9'TMenuItem'#9'MenuItem1'#6'Action'#7#13'AddFieldsActn'#7'OnClick'#7#20'A'
+'ddFieldsActnExecute'#0#0#9'TMenuItem'#9'MenuItem2'#6'Action'#7#16'DeleteFie'
+'ldsActn'#7'OnClick'#7#23'DeleteFieldsActnExecute'#0#0#9'TMenuItem'#9'MenuIt'
+'em5'#6'Action'#7#7'NewActn'#7'OnClick'#7#14'NewActnExecute'#0#0#9'TMenuItem'
+#9'MenuItem3'#6'Action'#7#10'MoveUpActn'#7'OnClick'#7#17'MoveUpActnExecute'#0
+#0#9'TMenuItem'#9'MenuItem4'#6'Action'#7#12'MoveDownActn'#7'OnClick'#7#19'Mo'
+'veDownActnExecute'#0#0#9'TMenuItem'#9'MenuItem6'#6'Action'#7#13'SelectAllAc'
+'tn'#7'OnClick'#7#20'SelectAllActnExecute'#0#0#9'TMenuItem'#9'MenuItem7'#6'A'
+'ction'#7#15'UnselectAllActn'#7'OnClick'#7#22'UnselectAllActnExecute'#0#0#0
+#11'TActionList'#11'ActionList1'#8'OnUpdate'#7#17'ActionList1Update'#4'left'
+#2'('#3'top'#3#144#0#0#7'TAction'#13'AddFieldsActn'#8'Category'#6#6'Fields'#7
+'Caption'#6#11'&Add fields'#9'OnExecute'#7#20'AddFieldsActnExecute'#8'ShortC'
+'ut'#3'-@'#0#0#7'TAction'#16'DeleteFieldsActn'#8'Category'#6#6'Fields'#7'Cap'
+'tion'#6#7'&Delete'#9'OnExecute'#7#23'DeleteFieldsActnExecute'#8'ShortCut'#2

6
ideintf/fieldseditor.pas
View File

@ -49,6 +49,7 @@ type
MenuItem4: TMenuItem;
MenuItem5: TMenuItem;
PopupMenu1: TPopupMenu;
procedure ActionList1Update(AAction: TBasicAction; var Handled: Boolean);
procedure AddFieldsActnExecute(Sender: TObject);
procedure DeleteFieldsActnExecute(Sender: TObject);
procedure FieldsEditorFrmClose(Sender: TObject;
@ -60,7 +61,6 @@ type
procedure ListBox1Click(Sender: TObject);
procedure MoveDownActnExecute(Sender: TObject);
procedure MoveUpActnExecute(Sender: TObject);
procedure PopupMenu1Popup(Sender: TObject);
procedure SelectAllActnExecute(Sender: TObject);
procedure UnselectAllActnExecute(Sender: TObject);
protected
@ -304,7 +304,8 @@ begin
if bModified then fDesigner.Modified;
end;
procedure TDSFieldsEditorFrm.PopupMenu1Popup(Sender: TObject);
procedure TDSFieldsEditorFrm.ActionList1Update(AAction: TBasicAction;
var Handled: Boolean);
var
b: boolean;
i, SelectedCount: integer;
@ -360,6 +361,7 @@ begin
finally
GlobalDesignHook.AddHandlerSetSelection(@OnSetSelection);
end;
ActionList1.UpdateAction(nil);
end;
procedure TDSFieldsEditorFrm.OnComponentRenamed(AComponent: TComponent);