[mol]

'Pierrotsc' wrote:

What code do i need to write to point it to the skinmanager on the mainform?

uses

sSkinManager;

on your scanning form?

-Uwe

[mol]

You would have to override CustomDrawSubItem() to perform your own drawing, I guess.

https://groups.google.com/forum/#!topic/borland.public.delphi.language.delphi.win32/gHt8XKcgUAU

-Uwe

[mol]

Hi Dick,

AFAIK, Firefox and Chrome do not allow user-defined painting of scrollbars, but there are other ways such as WebKit CSS to achieve this. IE is important though because the TWebBrowser component is based on it.

-Uwe

[mol]

Serge,

Just remember that it is possible to change all scrollbar elements with CSS through IE-proprietary tags. Might interfere with the painting of your own scrollbars.

-Uwe

[mol]

LOL!

-Uwe

[mol]

Might be the Z-order. Have you tried to bring the control to the front by right-clicking on it and then selecting Control -> Bring to Front?

-Uwe

[mol]

Thanks, Serge. As I told you already in my e-mail, the code works perfectly when changing the background color of a VirtualStringTree or VirtualExplorerTreeview. Unfortunately though, the background color is the only color that can be changed this way. Selection colors, font colors and so on stay the same no matter what. Unless somebody else knows a solution, I will probably just go ahead and create my own skin.

-Uwe

[mol]

Hi Serge

Unfortunately, this solution doesn't seem to work for me. I've sent you a little demo project via e-mail.

Thanks

-Uwe

[mol]

I guess Serge is using this:

http://msdn.microsoft.com/en-us/library/windows/desktop/dd144927%28v=vs.85%29.aspx

-Uwe

[mol]

Hi Friedemann

'Schmidtze' wrote:

but then I have to lock a lot of panels always

Just replace Panel1 with Form1, or you follow my advice from a few weeks ago and finally ditch SpTbx… 😀

-Uwe

[mol]

Friedemann,

'Schmidtze' wrote:

where do you think I should insert this?

I would use the OnClick event of the toolbar item. Have you tried

{…}

SendMessage(Panel1.Handle, WM_SETREDRAW, 0, 0);

Open your dialog here

{…}

SendMessage(Panel1.Handle, WM_SETREDRAW, 1, 0);

RedrawWindow(Panel1.Handle, nil, 0, RDW_FRAME or RDW_INVALIDATE or RDW_ALLCHILDREN or RDW_NOINTERNALPAINT);

in that event already?

-Uwe

[mol]

Hi Friedemann

Does LockWindowUpdate(Form1.Handle) do the trick?

-Uwe

[mol]

Pete,

'Pete wrote:

Is there a way for child windows I can see: 'don't draw a border'.

Use frames instead of forms. Much easier to handle in a complex application IMO.

-Uwe

[mol]

Great. Looking forward to your demo, Serge.

[mol]

Serge

Congrats for the new version. That looks very promising. One question though: are third party controls like VirtualExplorerTreeview and similar also handled? For example, can you change the scrollbar width of a third party control as well now? I don't want to install the beta just yet because of time constraints.

Thanks

Uwe

[mol]

Dennis

Why don't you assign the procedure to the ShellTree's OnClick event dynamically then?

Code:

public
TNotifyEvent = procedure(Sender: TObject) of object;

procedure TForm1.TreeClick(Sender: TObject);
begin
{…}
end;

TFrame1(sFrameBar1.Items[0].Frame).ShellTree.OnClick := TreeClick; // After an instance of the frame has been created

-Uwe

[mol]

What are you doing in the OnClick event? If you don't have to access or manipulate the selected file for example, you could simply write a separate procedure which can be called from both the ShellTree and the main form.

Code:

procedure DoSomething;
begin
{…}
end;

procedure ShellTreeClick;
begin
DoSomething;
end;

-Uwe

[mol]

Dennis

http://www.alphaskins.com/forum/index.php?showtopic=7316&st=0&p=40306&hl=framebar&fromsearch=1&#entry40306

-Uwe

[mol]

'Jeremy©JTECH' wrote:

the code you posted will overwrite the group box's client area

Well, you wanted to get rid of the border… 😉

Here's another approach which should work: http://delphidabbler.com/tips/74

Quote:

Wouldn't a new TRANSPARENT setting make more sense

Don't know; I hardly ever work with transparency. If I recall correctly, there are always problems associated with TWinControls and transparency. What happens if you put those on a semi-transparent TFrame? Isn't the painting too much of a hassle?

-Uwe

[mol]

'Jeremy©JTECH' wrote:

Can the border on TGroupBox be made invisible?

I would think so. You could derive your own groupbox and override the paint method (untested):

Code:

type
tBorderless=class(TGroupbox)
protected
procedure Paint; Override;
end;

procedure tBorderless.Paint;
var
R: TRect;
begin
with Canvas do
begin
R := ClientRect;
Brush.Color := Color;
FillRect(R);
end;
end;

[Author]

Posts