Jump to content

Search the Community

Showing results for tags 'menu'.



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. lynkfs

    menu component

    Probably not the most inspiring topic, but just sharing a menu component I needed for some project. There are quite a few css based menu components around, but I wanted to have a pure smart one. This one has an unlimited number of submenus and is instantiated as a hamburger menu on a toolbar Hamburger := TCHMenu.Create(self); //nodes : id,parent,description,procedure Hamburger.Add('root','','Hamburger menu'); //root Hamburger.Add( 'projects','root','Projects'); Hamburger.Add( 'project0','projects','New project'); Hamburger.Add( 'project1','projects','Open project'); Hamburger.Add( 'project2','projects','Delete project'); Hamburger.Add( 'designers','root','Designer'); Hamburger.Add( 'designer0','designers','Domain info',clickproc); //<== execproc Hamburger.Add( 'designer1','designers','Data development'); ... Hamburger.Add( 'designer5','designers','Goal Metrics'); //some test cases below Hamburger.Add( 'test','project0','test3'); // test level 3 Hamburger.Add( 'designer5','designers','Goal Metrics'); //test on double entries Hamburger.Add( 'test0','root','test',procedure begin writeln('clickproc'); end); //test on no children Hamburger.Add( 'designer6','designers','extra test'); //test on out of order demo and project files on the .../Menu subdir
  2. HI. I have this code and works ok (on application declaration unit) FHeader := TW3HeaderControl.Create(Display); FHeader.SetBounds(5, -10, 100, 40); FHeader.Caption := 'xxxxxx'; FHeader.BackButton.Caption := '&larr;'; //arrow left FHeader.NextButton.Caption := '&#9776;'; //hamburger menu FHeader.NextButton.OnClick := createMenu; ... procedure TApplication.CreateMenu(Sender: TObject); begin FfrmMenu := TfrmMenu.Create(Application.Display.View); FfrmMenu.Name := 'MainMenu'; Application.RegisterFormInstance(FfrmMenu, true); Application.GotoForm('MainMenu', feFromRight); Application.GotoForm('MainMenu', feFromRight); end; (the menu appears when i press next button, but the header is visible on login form .) And this one that does not FHeader := TW3HeaderControl.Create(Display); FHeader.SetBounds(5, -10, 100, 40); FHeader.Caption := 'xxxxxx'; FHeader.BackButton.Caption := '&larr;'; //arrow left FHeader.NextButton.Caption := '&#9776;'; //hamburger menu FHeader.NextButton.OnClick := OpenMenu; ... createMenu(Application) procedure TApplication.CreateMenu(Sender: TObject); begin if FfrmMenu = nil then begin ShowMessage('Control 0'); //show message FfrmMenu := TfrmMenu.Create(Application.Display.View); FfrmMenu.Name := 'MainMenu'; Application.RegisterFormInstance(FfrmMenu, true); end; end; procedure TApplication.OpenMenu; begin ShowMessage('Control 1'); //show message Application.GotoForm('MainMenu', feFromRight); //don't show form menu ShowMessage('Control 2'); //show message end; The objective is to open a login form with the header not enabled and, if the password is correct, enable the header and see a menu when clicking on the next button. I do not see what I'm doing wrong
  3. Hi. In a multi-form project, how to design a bar like this? visible on all forms. (Go to the previous form, display a menu, etc.) Thank!
  4. When open contextual menu on form desing, apears this. Version 3.0.0.201
×
×
  • Create New...