?
Solved

How tp create MSOutlook like side tool bar

Posted on 2003-11-11
12
Medium Priority
?
242 Views
Last Modified: 2010-04-05
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
Comment
Question by:sudhakar_koundinya
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 4
  • 3
  • 2
  • +3
12 Comments
 
LVL 5

Expert Comment

by:snehanshu
ID: 9720776
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
 
LVL 14

Author Comment

by:sudhakar_koundinya
ID: 9720810
Ok

I am looking at your first suggested link, I will let you know if this is helpful for kylix environment also
0
 
LVL 5

Expert Comment

by:snehanshu
ID: 9720834
Good luck...
:-)
0
Concerto's Cloud Advisory Services

Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.

 
LVL 11

Expert Comment

by:robert_marquardt
ID: 9720962
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
 
LVL 17

Expert Comment

by:geobul
ID: 9721852
LOL, Robert is absolutely right :-)
0
 

Expert Comment

by:huiyue
ID: 9727244
Just use VCL component
0
 
LVL 3

Accepted Solution

by:
ThoseBug earned 400 total points
ID: 9727629
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
 
LVL 14

Author Comment

by:sudhakar_koundinya
ID: 9728390
0
 
LVL 14

Author Comment

by:sudhakar_koundinya
ID: 9728418
>>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
 

Expert Comment

by:huiyue
ID: 9737045
I don't use kylix,so sorry about my suggestion.
0
 
LVL 5

Expert Comment

by:snehanshu
ID: 9737140
>>the following does not give any help for kylix
Well then, I too can't help. Never used kylix. Sorry.
...Snehanshu
0
 
LVL 14

Author Comment

by:sudhakar_koundinya
ID: 9737243
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

Free Tool: SSL Checker

Scans your site and returns information about your SSL implementation and certificate. Helpful for debugging and validating your SSL configuration.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

The uses clause is one of those things that just tends to grow and grow. Most of the time this is in the main form, as it's from this form that all others are called. If you have a big application (including many forms), the uses clause in the in…
Introduction I have seen many questions in this Delphi topic area where queries in threads are needed or suggested. I know bumped into a similar need. This article will address some of the concepts when dealing with a multithreaded delphi database…
Do you want to know how to make a graph with Microsoft Access? First, create a query with the data for the chart. Then make a blank form and add a chart control. This video also shows how to change what data is displayed on the graph as well as form…
This tutorial will teach you the special effect of super speed similar to the fictional character Wally West aka "The Flash" After Shake : http://www.videocopilot.net/presets/after_shake/ All lightning effects with instructions : http://www.mediaf…
Suggested Courses

718 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question