Jump to content

Search the Community

Showing results for tags 'Compond Component'.



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 1 result

  1. 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.
×
×
  • Create New...