Jump to content

Search the Community

Showing results for tags 'TW3EditBox'.



More search options

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Categories

There are no results to display.

Forums

  • Welcome to Smart Mobile Studio
    • News and Information
    • Pre-Sales Questions
    • Smart In the Media
    • Smart Contests
    • Meta
  • Smart Mobile Studio Discussion
    • General
    • IDE
    • RTL
    • Code
    • Client Server
    • Platform
    • Graphics
    • Deployment
    • Suggestion box
  • Smart Mobile Studio support
    • Support
    • Bug report
  • General Discussion
    • Pascal
    • Delphi
    • Javascript
    • HTML/HTML5
    • CSS
  • Resources
    • Website
    • Download Smart Mobile Studio

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Joined

  • Start

    End


Group


Website URL


Location


Interests


Company name


Position

Found 4 results

  1. I've set an input field as follows: edPhoto1.InputType := itFile; w3_setAttrib(edPhoto1.Handle, 'id', 'cameraInput'); w3_setAttrib(edPhoto1.Handle, 'capture', 'camera'); w3_setAttrib(edPhoto1.Handle, 'accept', 'image/jpg'); But seem I can't retreive the selected file name in edPhoto1.Text or Value property.
  2. Demo When running program locally in the IDE's browser the keycode for enter is 13 as expected. When running program on chrome, mozilla or other browsers keycode = 69.
  3. IElite

    TLabelEdit

    I needed a component that made it easier to place a lot of labels and TEdit controls on a form. So, I wrote this simple version of a TLabelEdit component it has the following public properties: property Label: TW3Label read fLabel; property Edit: TW3EditBox read fEdit; property Spacing: Integer read fSpacing write fSpacing; property Margins: Integer read fMargins write fMargins; Spacing - space between the Label and edit control only Margins - space on outside boundary of both the label and edit controls (i.e. space on left, right of both Label and Edit, as well as top of label and bottom of edit). example run-time creation code: fLabelEdit:= TLabelEdit.Create(self); fLabelEdit.Handle.style.setProperty('background-color', 'white'); fLabelEdit.Label.Handle.style.setProperty('background-color', 'Red'); fLabelEdit.Edit.Handle.style.setProperty('color', 'red'); fLabelEdit.Left:= 10; fLabelEdit.Top:= 10; fLabelEdit.Width:= 128; fLabelEdit.Height:= 64; fLabelEdit.Margins:= 2; fLabelEdit.Spacing:= 2; Full unit code below. Let me know if you see anything that can be improved. Shane unit LabelEdit; interface uses SmartCL.System, System.Colors, SmartCL.Components, SmartCL.Controls; type TLabelEdit = class(TW3CustomControl) private fLabel: TW3Label; fEdit: TW3EditBox; fSpacing: Integer; fMargins: Integer; protected procedure Resize; override; procedure InitializeObject; override; procedure FinalizeObject; override; public property Label: TW3Label read fLabel; property Edit: TW3EditBox read fEdit; property Spacing: Integer read fSpacing write fSpacing; property Margins: Integer read fMargins write fMargins; end; implementation procedure TLabelEdit.InitializeObject; begin inherited; Height:= 64; Width:= 128; Spacing:= 0; Margins:= 0; FLabel := TW3Label.Create(Self); FLabel.Font.Name := 'verdana'; FLabel.Font.Color := RGBToColor($FF, $FF, $FF); FLabel.Font.Weight := 'bold'; FLabel.Font.Size := 18; FLabel.Caption := ClassName; FLabel.AlignText := taLeft; FEdit := TW3EditBox.Create(Self); end; procedure TLabelEdit.FinalizeObject; begin FLabel.Free; FEdit.Free; inherited; end; procedure TLabelEdit.Resize; begin inherited; fLabel.SetBounds(fMargins, fMargins, clientWidth-(fMargins * 2), (clientHeight Div 2)-(fMargins * 2)); fEdit.SetBounds(fMargins, (fLabel.Top + fLabel.Height) + fSpacing + fMargins, clientwidth-(fMargins * 2), (clientHeight Div 2) - (fMargins * 2) - (fSpacing)); end; end.
  4. When you drop a control (e,g, TW3EditBox) on a form in design-time, there is a default control size. In the case of a TW3EditBox, it is (128X32). When you create the same control at runtime the size by default is (171X17) If I review the source code for the control, there is no default size set in (SmartCL.Controls.EditBox) or any of its ancestors Where do these default values some from?
×
×
  • Create New...