Anonymous | Login | Signup for a new account | 2019-02-18 02:14 CET |
Main | My View | View Issues | Change Log | Roadmap | Docs |
Viewing Issue Simple Details [ Jump to Notes ] | [ View Advanced ] [ Issue History ] [ Print ] | ||||||
ID | Category | Severity | Reproducibility | Date Submitted | Last Update | ||
0002579 | [JEDI VCL] 04 Feature Request | minor | always | 2005-01-31 01:18 | 2005-02-27 14:01 | ||
Reporter | carlosw | View Status | public | ||||
Assigned To | jfudickar | ||||||
Priority | normal | Resolution | fixed | ||||
Status | resolved | Product Version | 3.00 BETA 2 | ||||
Summary | 0002579: Minor improvements for JvDynControlEngineDBTools.pas | ||||||
Description |
1) TJvDynControlDataSourceEditDialog.CreateDynControlDialog: - All 3 buttons are created as <Default> buttons. this is incorrect IMHO - Only the CloseButton should be created as <Default> and <Cancel> 2) TJvDynControlDataSourceEditDialog.ShowDialog: - The Mainpanel should receive the focus // Give the MainPanel the focus MainPanel.TabOrder := 0; Result := FForm.ShowModal; 3) Ability to put an image on the buttons 4) Enable/Disable reasons for the buttons ala JvParameterList :) |
||||||
Additional Information |
Implementation for 3) Ability to put an image on the buttons in TJvDynControlDataSourceEditDialog.CreateDynControlDialog if CloseButtonCaption <> '' then begin CloseButton := DynControlEngine.CreateButton(Form, FButtonPanel, '', CloseButtonCaption, '', OnCloseButtonClick, True, False); FButtonPanel.Height := CloseButton.Height + ArrangeSettings.BorderTop * 2; CloseButton.Top := ArrangeSettings.BorderTop; CloseButton.Anchors := [akTop, akRight]; CloseButton.Left := LeftPos - CloseButton.Width - ArrangeSettings.BorderLeft; LeftPos := CloseButton.Left; CloseButton.TabOrder := 0; ++ if Supports(CloseButton, IJvDynControlButton, IJvButton) then ++ with IJvButton do ++ ControlSetGlyph(CloseButtonGlyph); end; if CancelButtonCaption <> '' then begin CancelButton := DynControlEngine.CreateButton(Form, FButtonPanel, '', CancelButtonCaption, '', OnCancelButtonClick, False, True); FButtonPanel.Height := CancelButton.Height + ArrangeSettings.BorderTop * 2; CancelButton.Top := ArrangeSettings.BorderTop; CancelButton.Anchors := [akTop, akRight]; CancelButton.Left := LeftPos - CancelButton.Width - ArrangeSettings.DistanceHorizontal; LeftPos := CancelButton.Left; CancelButton.TabOrder := 0; ++ if Supports(CancelButton, IJvDynControlButton, IJvButton) then ++ with IJvButton do ++ ControlSetGlyph(CancelButtonGlyph); end; if PostButtonCaption <> '' then begin PostButton := DynControlEngine.CreateButton(Form, FButtonPanel, '', PostButtonCaption, '', OnPostButtonClick, False, False); FButtonPanel.Height := PostButton.Height + ArrangeSettings.BorderTop * 2; PostButton.Top := ArrangeSettings.BorderTop; PostButton.Anchors := [akTop, akRight]; PostButton.Left := LeftPos - PostButton.Width - ArrangeSettings.DistanceHorizontal; PostButton.TabOrder := 0; ++ if Supports(PostButton, IJvDynControlButton, IJvButton) then ++ with IJvButton do ++ ControlSetGlyph(PostButtonGlyph); end; |
||||||
Tags | No tags attached. | ||||||
Attached Files | |||||||
|
Mantis 1.1.6[^] Copyright © 2000 - 2008 Mantis Group |