Go Premium for a chance to win a PS4. Enter to Win

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 243
  • Last Modified:

How tp create MSOutlook like side tool bar

Hi Experts,

I would like to know, the procedures to create the tool bar similar to MSOutlook side bar. If you have any ideas for this please let me know.

Please Do not suggest any third party components because this code should work for kylix environment also. So please  just give ideas for doing this (Atleast show me the code written by other persons)

thanks in advance
Koundinya

0
sudhakar_koundinya
Asked:
sudhakar_koundinya
  • 4
  • 3
  • 2
  • +3
1 Solution
 
snehanshuCommented:
Hi!
  I downloaded this component with source code. the outlookbar here seems to be derived from TComponent, so I hope that would help you.
http://www.torry.net/vcl/bars/outlookbars/outlook.zip

http://www.torry.net/outlookbars.htm

...Snehanshu
0
 
sudhakar_koundinyaAuthor Commented:
Ok

I am looking at your first suggested link, I will let you know if this is helpful for kylix environment also
0
 
snehanshuCommented:
Good luck...
:-)
0
What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

 
robert_marquardtCommented:
The Jedi VCL http://sourceforge.net/projects/jvcl contains such a control also.

Please reconsider your decision to introduce such a control to Linux.
Keep in mind that such Microsoft controls are not well received there.
0
 
geobulCommented:
LOL, Robert is absolutely right :-)
0
 
huiyueCommented:
Just use VCL component
0
 
ThoseBugCommented:
add a panel (leftPanel) align alleft and inside add four panels (pnlItem1 , pnlItem2, pnlItem3, pnlItem4) in every pnlItem add one panel (pnlItem1Title, pnlItem2Title, pnlItem3Title, pnlItem3Title)
you must declare a global var
                          WeightList : TObjectList;

in the create form event
//****************************************
procedure TForm1.FormCreate(Sender: TObject);
begin
WeightList := TObjectList.Create;
  WeightList.OwnsObjects := False;
  WeightList.Add(pnlItem1);
  WeightList.Add(pnlItem2);
  WeightList.Add(pnlItem3);
  WeightList.Add(pnlItem4);
  pnlItem1Title.OnClick(pnlItem1Title);
end;
//*****************************************
in the pnlItem1title click event

procedure TForm1.pnlItem1TitleClick(Sender: TObject);
var
  i, n: integer;
begin
  n:=0;
  for i := 0 to WeightList.Count -1 do
  begin
    (WeightList[i] as TPanel).Align := alNone;
    (WeightList[i] as TPanel).Height := 20;
    if WeightList[i] = (Sender as TPanel).Parent then
      n := i;
  end;
  for i := n - 1 downto 0 do
    (WeightList[i] as TPanel).Align := alTop;
  for i := WeightList.Count-1 downto n + 1 do
    (WeightList[i] as TPanel).Align := alBottom;
    (WeightList[n] as TPanel).Align := alClient;
end;

assign all the pnlItemTitle to procedure TForm1.pnlItem1TitleClick(Sender: TObject);

hope this help you. if you have difficults just ask to me.
0
 
sudhakar_koundinyaAuthor Commented:
0
 
sudhakar_koundinyaAuthor Commented:
>>Please reconsider your decision to introduce such a control to Linux.
Keep in mind that such Microsoft controls are not well received there.


Ok I know that the ole concepts that we are implementing here are not supported in kylix. But any other logics by chance?

to ThoseBug:

Nope that does not give any help :(

to huiyue:

Starting from Delphi 7 we need to create clx that helps us to create both windows based and unix based components. Unfortunately VCL components does not give any help for kylix environment
0
 
huiyueCommented:
I don't use kylix,so sorry about my suggestion.
0
 
snehanshuCommented:
>>the following does not give any help for kylix
Well then, I too can't help. Never used kylix. Sorry.
...Snehanshu
0
 
sudhakar_koundinyaAuthor Commented:
Great,

that comments helped me a lot, I got the idea and i could able to manage the same  code  with slight modifications,  hence I am giving points to you

thanks,
Koundinya
0

Featured Post

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

  • 4
  • 3
  • 2
  • +3
Tackle projects and never again get stuck behind a technical roadblock.
Join Now