[CheshireCat]

The errors still exists in version 8.52 … 😕

[CheshireCat]

Hello,

you can try to turn off the “Center filling” option.

[CheshireCat]

Hello Hamilton,

sorry for the late reply and thanks for your appreciation.

1. I can not reproduce this issue with version 8.51

2. Indeed, it looks very dark on your screenshot. But I think the display settings affect it, on my systems (desktop and notebook) it looks normal. If others have also this problem I'll change it of course 🙂

[CheshireCat]

Hello and welcome to the AC-Forum,

the following code snippet should work:

Code:

procedure TForm2.pm1Popup(Sender: TObject);
var i:Integer;
mi:TMenuItem;

begin
for i:=pm1.Items.Count-1 downto 1 do
pm1.Items.Free;
mi:=TMenuItem.Create(pm1);
mi.Caption:=inttostr(Random(10));
pm1.Items.Add(mi);
sSkinManager1.SkinableMenus.HookPopupMenu(pm1, True); // <-- Add this line
end;

I hope I could help you …

[CheshireCat]

Hello,

today I want to present my new skin. It looks similar to the great “Snow Leopard” with a slight slope to the new iTunes interface. The skin is “duty-free” and you can use it for your applications 😉

[attachment=6533:Snow Leopard2.jpg]

[attachment=6534:Snow Leopard2.zip]

Have fun …

[CheshireCat]

Hello,

here is the finished result for my office 2013 skin. The package includes the skin in three different colors: blue, green and red. The skin is free for all Alpha Controls user.

Have fun …

[attachment=6439:Office2013.zip]

[CheshireCat]

Hello,

nice API-Call, but it cannot draw a gradient with different angles. Take a look to my attached demo, it shows an example how you can use GDI+ functions for drawing gradients. I hope this is what you've been looking for.

[attachment=6334:gradient.jpg] [attachment=6335:DrawGradient.zip]

[CheshireCat]

Hello,

you can try the following steps:

1. Adding a second SkinManager on Form2 with the same stored skins and/or skin directory

2. Before you display Form2 set the selected skin in Form1: Form2.sSkinManager1.SkinName := skinmanager.SkinName;

I hope it works 🙂

[CheshireCat]

Use ControlAtPos to determine which child control is at the specified location within the control. With the variables dwEffect you can control whether files should be placed.

Code:

function TForm2.DragOver(grfKeyState: Longint; pt: TPoint; var dwEffect: Longint): HResult;
begin
if ControlAtPos(ScreenToClient(pt), False) is TsImage then // which control is under the mouse pointer?
dwEffect := DROPEFFECT_COPY // effect DROPEFFECT_COPY or DROPEFFECT_MOVE drop allowed
else dwEffect := DROPEFFECT_NONE; // effect DROPEFFECT_NONE prevents drop files outside TsImage

if (DropTargetHelper <> nil) then OleCheck(DropTargetHelper.DragOver(pt, dwEffect));

Result := S_OK;
end;

Click on the link below for useful information about Drag'n'Drop 🙂

Implementing Professional Drag & Drop

[CheshireCat]

'wesley wrote:

I need you to Drag Images Display the Thumbnail Image Dragged.

so I use DragDrop Component Suite. is possible to do this in this example?

Hello,

yes, it is possible. Check out the new demo 🙂

[attachment=6312:DragFileDemo.zip]

[CheshireCat]

See the debug options you can find a list with exceptions that are not displayed. A further possibility might be to rebuild the DCU file for this form.

[CheshireCat]

Hello Giuseppe,

the DFM works correctly (see image), but without a line of code is it difficult to help. What happens in OnCreate and OnActivate? A silent exception could be suppressed in these procedures and an error-free behavior is no longer guaranteed.

[attachment=6308:DFM_File.jpg]

[CheshireCat]

'wesley wrote:

I Must Disable Property ExtendedBorders DragDrop to Work Properly.

Hello,

watch the attached demo, it shows drag'n'drop with files from explorer. The function works correctly and fast when ExtendedBorder is enabled.

[attachment=6305:DragFileDemo.zip]

[CheshireCat]

Hello,

who is interested can test this little skin. The skin has the appearance of new office 2013 or skype and is consciously simply held, but with a very small size.

[attachment=6295:office_2013.jpg]

[attachment=6296:Office2013_blue_beta.zip]

[CheshireCat]

Hello,

I think you have too many controls on your form. This reduce the performance.

You have read this topic? -> Optimize an application speed

Maybe it can help you for more performance 🙂

[CheshireCat]

Hello,

you can set Visible to False for each item.

[CheshireCat]

Hello Giuseppe,

I can not reproduce your problem, you sure are a TsPanel is below?

I believe a standard panel is beneath the controls 🙂

[CheshireCat]

many thanks, works everything perfect in 8.31

[CheshireCat]

Many thanks, works everything perfect in 8.31

[CheshireCat]

'Dennis445' wrote:

… is this the best way to have several file types show?

I think this is the best way 🙂

[Author]

Posts