* * *

Author Topic: ATTabs  (Read 14950 times)

esvignolo

  • Full Member
  • ***
  • Posts: 140
  • Using FPC in Windows, Linux, Macos
Re: -
« Reply #15 on: August 21, 2014, 12:31:41 am »
Version 1.1.x. Now it's tested, in real application SynWrite. It works as expected, minor issues fixed.

Work on delphi too?


Version 1.1.x. Now it's tested, in real application SynWrite. It works as expected, minor issues fixed.

Hi Alex22 can u share the SynWrite build into FPC? Do u make it multi-plattaform?

Thanks

Alextp

  • Hero Member
  • *****
  • Posts: 547
    • UVviewsoft
-
« Reply #16 on: August 21, 2014, 12:34:50 am »
U see word "Delphi" on github page? yes. So Delphi too

esvignolo

  • Full Member
  • ***
  • Posts: 140
  • Using FPC in Windows, Linux, Macos
Re: ATTabs 1.1 released
« Reply #17 on: August 21, 2014, 12:35:39 am »
Thanks

pacopenin

  • Newbie
  • Posts: 4
Re: ATTabs 1.1 released
« Reply #18 on: September 04, 2014, 05:51:40 pm »
Support icons in Tabs?

Thanks.

Alextp

  • Hero Member
  • *****
  • Posts: 547
    • UVviewsoft
-
« Reply #19 on: September 04, 2014, 05:59:48 pm »
Can draw icons using custom-draw.

BTW, ATTabs 1.2 released.

lanmi

  • Newbie
  • Posts: 4
Re: ATTabs 1.2 released
« Reply #20 on: February 08, 2016, 01:34:58 pm »
HI,
Good work Alex. I 've tested ATTAbs on Win8.1 and Ubuntu 15.04 with 1.4.4 lazarus and all working good so far. I like creating components at runtime. I tried your example with TFrame as components container and also add TabTag property into TATTabData object for easier relations with Tframes. Do you have other approach to this issue? Thank you and keep up with good work.
« Last Edit: February 08, 2016, 01:57:39 pm by lanmi »

Alextp

  • Hero Member
  • *****
  • Posts: 547
    • UVviewsoft
Re: ATTabs 1.2 released
« Reply #21 on: February 08, 2016, 01:37:32 pm »
With what issue? What is prob you are solving.

lanmi

  • Newbie
  • Posts: 4
Re: ATTabs 1.2 released
« Reply #22 on: February 08, 2016, 02:02:20 pm »
Well, it's not an issue, only want know how you use tabs in real application. I mean, when I create tabs at runtime i also create Tframe at runtime which will "connected" with the tab over this newly introduced TabTag property(both will have same tag number). O yes, thank you for your prompt response :)

Alextp

  • Hero Member
  • *****
  • Posts: 547
    • UVviewsoft
Re: ATTabs 1.2 released
« Reply #23 on: February 08, 2016, 02:29:08 pm »
Well... create Tabs, create for each tab Frame. Place into tab's TabObject - link to frame. When user makes tab 3 active, you do GetTabData for index 3,
in TabData you have TabObject--it's link to frame.

lanmi

  • Newbie
  • Posts: 4
Re: ATTabs 1.2 released
« Reply #24 on: February 08, 2016, 02:38:16 pm »
Ok, i will try that. Thanks again

lanmi

  • Newbie
  • Posts: 4
Re: ATTabs 1.2 released
« Reply #25 on: February 08, 2016, 03:59:29 pm »
This is how I did to set visible speciffic frame and set active tab. i removed TabTag property as it is not needed. Thanks again.

Code: Pascal  [Select]
  1. procedure TForm1.ShowFrameByTag(frametag:integer);
  2.  var
  3.  d: TATTabData;
  4.  i:integer;
  5.  begin
  6. for i:=0 to t.TabCount-1 do begin
  7.  d:= t.GetTabData(i);
  8.  if (d.TabObject as Tframe).tag=frametag then begin
  9.  t.TabIndex:=i;
  10. (d.TabObject as Tframe).Show end else
  11. (d.TabObject as Tframe).Hide;
  12.    end;
  13.   end;
  14.  
  15.  
  16.  

Alextp

  • Hero Member
  • *****
  • Posts: 547
    • UVviewsoft
Re: ATTabs 1.2 released
« Reply #26 on: March 28, 2017, 05:30:40 pm »
This is ATTabs fix which is made today:
"x" buttons were pressed by mouse-down, and they must press like in all Windows apps by mouse-down/mouse-up (click),
this is fixed, now x pressed on mouse-up.

valdir.marcos

  • Sr. Member
  • ****
  • Posts: 292
Re: ATTabs
« Reply #27 on: April 15, 2017, 08:50:52 am »
Code: Text  [Select]
  1. https://github.com/Alexey-T/ATTabs
  2. readme.md:
  3. Documentation is at the Wiki page of github.

Where is the documentation for ATTabs?
Wiki seems to be invisible or blocked.

valdir.marcos

  • Sr. Member
  • ****
  • Posts: 292
Re: ATTabs
« Reply #28 on: April 15, 2017, 09:00:37 am »
Code: Pascal  [Select]
  1. procedure TfrmMain.AddTabSheet(NewForm: TForm; ImageIndex: Integer);
  2. var
  3.   TabSheet: TTabSheet;
  4.   Form: TForm;
  5. begin
  6.   TabSheet := TTabSheet.Create(Self);
  7.  
  8.   TabSheet.PageControl := PageControl1;
  9.   TabSheet.Caption := Form.Caption;
  10.   TabSheet.ImageIndex := ImageIndex;
  11.  
  12.   Form := NewForm.Create(TabSheet);
  13.   Form.Parent := TabSheet;
  14.   Form.ParentWindow := TabSheet.Handle;
  15.   Form.Align := alClient;
  16.   Form.BorderStyle := bsNone;
  17.   Form.Show;
  18.  
  19.   PageControl1.ActivePage := TabSheet;
  20. end;
  21.  

How can I transform the above TPageControl code to insert a TForm in a TTabSheet in the below ATTab code for a new tab?

Code: Pascal  [Select]
  1. procedure TForm1.btnAddClick(Sender: TObject);
  2. begin
  3.   t.AddTab(t.TabIndex+1, 'test '+StringOfChar('n', Random(20)), nil, false, Random(65000));
  4. end;
  5.  

How will I be able close the tab with the Form embedded?
How will I be able to prevent the same Form to be opened more than once?

Thanks for your effort and patience.
« Last Edit: April 15, 2017, 09:03:07 am by valdir.marcos »

Alextp

  • Hero Member
  • *****
  • Posts: 547
    • UVviewsoft
Re: ATTabs
« Reply #29 on: April 15, 2017, 10:10:27 am »
>Where is the documentation for ATTabs?
 

It was blocked. Now: https://github.com/Alexey-T/ATTabs/wiki

 

Recent

Get Lazarus at SourceForge.net. Fast, secure and Free Open Source software downloads Open Hub project report for Lazarus