Jump to content

Search the Community

Showing results for tags 'label'.



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 3 results

  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.
  2. How to change the style of a TW3Header text? .lblHeader{ color: #005CB9; } If I drop a TW3Label on the form and set its StyleClass = lblHeader'; it works fine however, if I try to change the Style class of the one on the headercontrol, it doesn't work W3HeaderControl1.Title.StyleClass:= 'lblHeader'; I have tried it in both the InitializeForm and InitializeObjects methods and nothing! thanks
  3. COMFIED

    Label Text Wrap

    How can I modify the properties of W3label so that the caption text auto-wraps into multiple lines (like a memo) while aligned to top-left?
×