Solved

TOutline component

Posted on 1998-09-11
8
615 Views
Last Modified: 2008-02-20
I think this should be an easy one; I need a TOutline component where the elements can have different colors and/or fonts.
I've seen one once, but I deleted it, and I can't seem to loctate it again.

It MUST run on windows 3.1 (Delphi 1).

/Pede

0
Comment
Question by:pede
  • 5
  • 3
8 Comments
 
LVL 8

Expert Comment

by:ZifNab
ID: 1339372
Hi pede,

 this one? (has corrected owner draw event)

 http://sunsite.icm.edu.pl/delphi/ftp/d10free/outlinep.zip

regards, Zif.
0
 
LVL 1

Author Comment

by:pede
ID: 1339373
Sort of. You mean I should ownerdraw the text?

/Pede

0
 
LVL 8

Expert Comment

by:ZifNab
ID: 1339374
Yep, why not?
0
 
LVL 1

Author Comment

by:pede
ID: 1339375
OK, I will draw the text myself, but I dont really know how to start on this. Do you have a small example of a 'OnDrawItem'-procedure? I tried this line -  (Control as TOutline).Canvas.TextRect(Rect, 0,0, 'Test'); - and I expected that 'Test' would be drawn for every item in the tree, but I only got it once (in the top-left corner of the tree-canvas). And what about the lines connecting the items, and the bitmaps? They are all gone.

/Pede
 
0
Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

 
LVL 1

Author Comment

by:pede
ID: 1339376
Is the above the old bug of the TOutline? Maybe my project is still using the old one. I have now removed outline.dcu from /lib and I can still compile without errors. Are the lines (the connecting ones) supposed to be drawn by the control?

/Pede

0
 
LVL 1

Author Comment

by:pede
ID: 1339377
OK, its all working now. Zifnab, please propose an answer so you can get your points ;)

/Pede

0
 
LVL 8

Accepted Solution

by:
ZifNab earned 50 total points
ID: 1339378
Pede,

 I'm just on vacation now, just checking all these q'ns. I see I´ve to answer this one... are you sure? Everything Ok? If not, just say what's wrong, and when I'm back... I´ll try to help you further...

Zif.
0
 
LVL 1

Author Comment

by:pede
ID: 1339379
I've got it all working now. Thank you for your help.

/Pede

0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

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

Suggested Solutions

Title # Comments Views Activity
how to draw animated progressbar in Tvirtualstringtree 5 117
PDF library for Delphi 2 105
Create a path if not exists 7 69
Firemonkey android show image from resource ? 1 33
In this tutorial I will show you how to use the Windows Speech API in Delphi. I will only cover basic functions such as text to speech and controlling the speed of the speech. SAPI Installation First you need to install the SAPI type library, th…
Introduction Raise your hands if you were as upset with FireMonkey as I was when I discovered that there was no TListview.  I use TListView in almost all of my applications I've written, and I was not going to compromise by resorting to TStringGrid…
This tutorial gives a high-level tour of the interface of Marketo (a marketing automation tool to help businesses track and engage prospective customers and drive them to purchase). You will see the main areas including Marketing Activities, Design …
This Micro Tutorial demonstrates using Microsoft Excel pivot tables, how to reverse engineer competitors' marketing strategies through backlinks.

896 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

Need Help in Real-Time?

Connect with top rated Experts

19 Experts available now in Live!

Get 1:1 Help Now