1 Topic by prahousefamily (edited by prahousefamily 2019-11-27 08:45:04)

  • Registered: 2014-02-17
  • Posts: 376

Topic: Example Dashboard Admin Layout

Easy Try Layout popular Dashboard Admin Layout

https://i.ibb.co/tH0nnRN/2019-11-27-15-32-25.png
https://i.ibb.co/F7MHxV1/2019-11-27-15-32-48.png


Open Code

var
splitter00 : Tsplitter ;
procedure Form1_Panel4_OnClick (Sender: TObject);
begin
    Form1.PageControl1.ActivePageIndex := 2 ;
    Form1.Panel2.Color := clwhite ;
    Form1.Panel3.COlor := clwhite ;
    Form1.Panel4.COlor := $0092C200 ;
end;
procedure Form1_Panel3_OnClick (Sender: TObject);
begin
    Form1.PageControl1.ActivePageIndex := 1 ;
    Form1.Panel2.Color := clwhite ;
    Form1.Panel3.COlor := $0092C200 ;
    Form1.Panel4.COlor := Clwhite ;
end;
procedure Form1_Panel2_OnClick (Sender: TObject);
begin
    Form1.PageControl1.ActivePageIndex := 0 ;
    Form1.Panel2.Color := $0092C200 ;
    Form1.Panel3.COlor := Clwhite ;
    Form1.Panel4.COlor := Clwhite ;
end;
begin
    //Form1
    Form1.Panel1.Align := AlLeft ;
    splitter00 := Tsplitter.Create(Form1) ;
    splitter00.parent := Form1 ;
    splitter00.Align := alleft ;
    splitter00.Left := 100 ;
    splitter00.Width:= 5 ;
    Form1.PageControl1.Align := AlClient ;
    Form1.PageControl1.Pages[0].TabVisible := false;
    Form1.PageControl1.Pages[1].TabVisible := false;
    Form1.PageControl1.Pages[2].TabVisible := false;
end.
Post's attachments

Attachment icon dash.zip 15.11 kb, 487 downloads since 2019-11-27 

My Visual Database : I Love You
Easy For Beginner Student For Me
  • Registered: 2014-02-14
  • Posts: 10,294

Re: Example Dashboard Admin Layout

Thank you!

Dmitry.
  • dbk
  • Member
  • Offline
  • Registered: 2016-04-26
  • Posts: 121

Re: Example Dashboard Admin Layout

Very cool! i like these interfaces!

Thank you for the example prahousefamily, much appreciated!

I also make these kind of layouts but i generally use tabcontrol and hide the edges with images or other panels.