Forum Replies Created
-
Posts
-
Understand now, it will be improved in the next release.
And another thing is that same issue of RotateArrows if own Glyphs are added manually or from ImageList. It works only for default Glyphs from loaded skin.
Do you mean arrows in comboboxes?
My Exe file is attached. After start under Win 10 the form is shown and app icon in taskbar is visible..
How it works in your Win 10 system?Thank you.
Try this code in the OnGetItemDrawData:procedure TForm1.sComboBox1GetItemDrawData(Sender: TObject; var ItemDrawData: TacItemDrawData); begin ItemDrawData.HtmlText := ItemDrawData.Text; // Copy text for a current Item ItemDrawData.Text := ''; // Use HtmlText end;This event is called for an each Item and text should be different for each Item.
By the way, ‘Cyan’ color is not handled. Main 16 colors are added for parsing.
You can use a number format for colors there.The LineVisible parameter should be defined to False in the OnGetMenuExtraLineData event:
procedure TForm1.sSkinManager1GetMenuExtraLineData(FirstItem: TMenuItem; var SkinSection, Caption: String; var Glyph: TBitmap; var LineVisible: Boolean); begin // Check a first item in popup menu if FirstItem = Multilinetext1 then begin // Show line in this SubMenu LineVisible := True; Caption := 'Additional information bar' end else LineVisible := False; end;Can you show a demo with checkboxes, please?
I have trying checkboxes with glyphs received from ImageList and animation works there (skins should be active).I think, Parent panel should be skinned too.
If this parent panel will have changed color then children will have it too.
I can change a test project if you upload it.Если DoubleBuffered True, то картинка выводится не сразу по мере отрисовки, а сначала рендерится в памяти, помогает избежать мерцания (если контрол это поддерживает).
Thank you, but TsTitleBar component doesn’t exist in these projects.
Are you sure these files are correct?Thank you. Try this:
procedure TForm1.sSkinManager1GetMenuExtraLineData(FirstItem: TMenuItem; var SkinSection, Caption: string; var Glyph: TBitmap; var LineVisible: Boolean); begin Glyph := TBitmap.Create; Glyph.Width := sAlphaImageList1.Width; Glyph.Height := sAlphaImageList1.Height; sAlphaImageList1.GetBitmap32(0, Glyph); end;If you make pf24bit, then transparent part is lost.
