Forum Replies Created
-
Posts
-
Hello
Hint content can't be changed while the hint is visible, some changes in component should be added for changing of hint on the fly.
Hello
TsAlphaImageList component can change Width and Height properties on the fly, maybe this feature can help you?
Hello and I'm sorry for a delay.
I see an issue, but I have not an idea now – how to fix that. I need more time for researching.
Hello
You can find a code with frames creation in the ASkinDemo.exe
Also in this demo : http://www.alphaskins.com/sfiles/demos/framebar.zip
Hello
I'm sorry, but this control can't be added into free edition now. Maybe later, but I'm not sure.
This edition is free for use, but have limited amount of available controls. You can use Full version where a lot of controls are supported and fully available.
Hello
This dialog is not standard system dialog. This is a Delphi form and you can disable an automatic skinning of forms in SkinningRules.srStdForms property.
But you can try to skin all controls there also. All used controls should be added in SkinManager.ThirdParty list.
You can just add two predefined lists there : “Standard VCL” and “Woll2Woll” (SkinningRules.srStdForms and SkinningRules.srThirdParty must be enabled in this case).
Hello Darcy
I have checked all files now and they are Ok, maybe you can share your PC with me? I'll try to solve an issue with installation.
Он не должен требовать Dcu, может Вы 'Build' нажали?
Вообще, проще поставить компоненты, которые используются и в Delphi и в Builder.
Для этого нужно убрать пакеты из Builder и инсталлировать их в Delphi, указав “Generate all C++ files” в настройках “Linker” пакетов.
Эта тема будет перемещена в русский раздел скоро.
I have removed AlphaControls from the test project, and when this project is started with CS5 then colors of MenuBar were reset to default system colors. It's normal?
Hello
You have full sources of the package or precompiled files only?
Maybe you have pressed 'Build' without sources?
Hello
Look this topic please : http://www.alphaskins.com/forum/index.php?showtopic=5293&st=0&p=30943&hl=*dll*&fromsearch=1&#entry30943
Hello and I'm sorry for a delay.
Why you not uses the TsFontComboBox component? Some features are not exists there?
Here is a code of items drawing from TsFontComboBox :
Code:procedure TsFontComboBox.DrawItem(Index: Integer; Rect: TRect; State: TOwnerDrawState);
var
Bmp, fBmp : TBitmap;
aRect, BRect : TRect;
TmpColor : TColor;
TmpFontClass : TFontClass;
ts : TSize;
sNdx : integer;
CI : TCacheInfo;
DrawStyle : longint;
begin
TmpFontClass := nil;
Bmp := nil;
if (Index >= 0) and (Index < Items.Count) and (Items.Objects[Index] nil) then begin
TmpFontClass := TFontClass(Items.Objects[Index]);
fBmp := FBitmaps[ord(TmpFontClass.FntType)];
fBmp.Transparent := True;
aRect := Classes.Rect(0, 0, fBmp.Height, fBmp.Width);
end
else fBmp := nil;
if SkinData.Skinned then begin
Bmp := CreateBmp32(WidthOf(Rect), HeightOf(Rect));
Bmp.Canvas.Font.Assign(Font);
if odComboBoxEdit in State then CI := MakeCacheInfo(SkinData.FCacheBmp, Rect.Left, Rect.Top) else begin
CI.Bmp := nil;
CI.Ready := False;
CI.FillColor := Color;
end;
if (odSelected in State) then begin
CI.Bmp := nil;
CI.Ready := False;
CI.FillColor := Color;
sNdx := SkinData.SkinManager.GetSkinIndex(s_Selection);
if sNdx < 0
then FillDC(Bmp.Canvas.Handle, Classes.Rect(0, 0, Bmp.Width, Bmp.Height), SkinData.SkinManager.GetHighLightColor(odFocused in State))
else PaintItem(sNdx, s_Selection, CI, True, integer(odFocused in State), Classes.Rect(0, 0, Bmp.Width, Bmp.Height), Point(0, 0), Bmp, SkinData.SkinManager)
end
else begin
sNdx := -1;
if CI.Ready
then BitBlt(Bmp.Canvas.Handle, 0, 0, Bmp.Width, Bmp.Height, CI.Bmp.Canvas.Handle, CI.X, CI.Y, SRCCOPY)
else FillDC(Bmp.Canvas.Handle, Classes.Rect(0, 0, Bmp.Width, Bmp.Height), Color);
end;
if Assigned(TmpFontClass) then begin
brect := classes.Rect(0, 0, Bmp.Height, Bmp.Height);
Bmp.Canvas.Draw(bRect.Left, bRect.Top, fBmp);
aRect.Right := Bmp.Width;
aRect.Left := brect.right;
if DrawFont then Bmp.Canvas.Font.Name := TmpFontClass.FntName;
DrawStyle := DT_NOPREFIX or DT_EXPANDTABS or DT_SINGLELINE or DT_VCENTER or DT_NOCLIP;
InflateRect(aRect, -1, 0);
if sNdx = -1 then begin
if odSelected in State then Bmp.Canvas.Font.Color := SkinData.SkinManager.GetHighLightFontColor(odFocused in State) else begin
if ControlIsActive(SkinData) and (SkinData.SkinManager.gd[SkinData.SkinIndex].States > 1)
then Bmp.Canvas.Font.Color := SkinData.SkinManager.gd[SkinData.SkinIndex].HotFontColor[1]
else Bmp.Canvas.Font.Color := SkinData.SkinManager.gd[SkinData.SkinIndex].FontColor[1];
end;
Bmp.Canvas.Brush.Style := bsClear;
AcDrawText(Bmp.Canvas.Handle, TmpFontClass.FntName, aRect, DrawStyle);
end
else WriteTextEx(Bmp.Canvas, PChar(TmpFontClass.FntName), True, aRect, DrawStyle, sNdx, (odFocused in State), SkinData.SkinManager);
end;
BitBlt(Canvas.Handle, Rect.Left, Rect.Top, Bmp.Width, Bmp.Height, Bmp.Canvas.Handle, 0, 0, SRCCOPY);
FreeAndNil(Bmp);
end
else begin
if odSelected in State then TmpColor := ColorToRGB(clHighLight) else TmpColor := ColorToRGB(Color);
FillDC(Canvas.Handle, Rect, TmpColor);
if Assigned(TmpFontClass) then begin
brect := classes.Rect(rect.left, rect.top, rect.bottom – rect.top + rect.left, rect.bottom);
Canvas.Draw(bRect.Left, bRect.Top, fBmp);
Rect.Left := Rect.Left + brect.right;
if DrawFont then Canvas.Font.Name := TmpFontClass.FntName;
if odSelected in State then Canvas.Font.Color := ColorToRGB(clHighlightText) else Canvas.Font.Color := Font.Color;GetTextExtentPoint32(Canvas.Handle, PChar(TmpFontClass.FntName), Length(TmpFontClass.FntName), ts);
Canvas.Brush.Style := bsClear;
Canvas.TextRect(Rect, Rect.Left + 1, Rect.Top + (HeightOf(Rect) – ts.cy) div 2, TmpFontClass.FntName);
end;
end;
end;
