paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-23 01:59:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

qt: fill custom colors for QColorDialog

Browse Source 
git-svn-id: trunk@17339 -
This commit is contained in:
paul 2008-11-11 13:07:28 +00:00
parent b36d20730f
commit a58c67f820
1 changed files with 17 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lcl/interfaces/qt/qtwsdialogs.pp
View File

@ -457,14 +457,29 @@ var
AQtColor: QColorH;
ARgb: QRgb;
ReturnBool: Boolean;
ColorDialog: TColorDialog absolute ACommonDialog;
procedure FillCustomColors;
var
i, AIndex, CustomColorCount: integer;
AColor: TColor;
begin
CustomColorCount := QColorDialog_customCount();
for i := 0 to ColorDialog.CustomColors.Count - 1 do
if ExtractColorIndexAndColor(ColorDialog.CustomColors, i, AIndex, AColor) then
if AIndex < CustomColorCount then
QColorDialog_setCustomColor(AIndex, AColor);
end;
begin
AColor := ColorToRgb(TColorDialog(ACommonDialog).Color);
AColor := ColorToRgb(ColorDialog.Color);
AQColor.Alpha := $FFFF;
AQColor.ColorSpec := 1;
AQColor.Pad := 0;
ColorRefToTQColor(AColor, AQColor);
AQtColor := QColor_create(PQColor(@AQColor));
ARgb := QColor_rgba(AQtColor);
FillCustomColors;
ARgb := QColorDialog_getRgba(ARgb, @ReturnBool,
TQtWSCommonDialog.GetDialogParent(ACommonDialog));
@ -473,7 +488,7 @@ begin
try
QColor_toRgb(AQtColor, @AQColor);
TQColorToColorRef(AQColor, AColor);
TColorDialog(ACommonDialog).Color := AColor;
ColorDialog.Color := AColor;
finally
QColor_destroy(AQtColor);
end;