jak pobrać z ColorDialog kolor zapisany hexem??
z+
0
0
nie wiem czy chodzi ci o to, ale gdzies na forum widzialem funkcje ColorToHex...poszukaj
0
zakladajac ze pnlKolor to TPanel
[code]var
Kolor:String;
R, G, B: Integer;
begin
R:=GetRValue(pnlKolor.Color);
G:=GetGValue(pnlKolor.Color);
B:=GetBValue(pnlKolor.Color);
Kolor:=IntToHex(R,2)+IntToHex(G,2)+IntToHex(B,2);
ShowMessage(Kolor);[/code]
PS: dziekuję dla DryoBatesa :)
0
A w jakei jzakładce jest ColorDialog.Bo nie moge znaleŹć w dialogach nie mam :(
0
TColorDialog domyślnie jest w zakładce Dialogs, ale każdy komponent można przemieszczać pomiędzy zakładkami.
0
Pochwalony!
normal na HEX :P :
var
HEXik: String;
begin
if ColorDialog1.Execute then
begin
HEXik := IntToHEX(ColorDialog1.Color):
end;
end;
Z HEX na normal:
function ZmienZHEXNaNormalny(HEX: String): Integer;
var
S: String;
begin
S := '$' + HEX;
Result := StrToInt(S);
end;
PS. nazwę tej procedurki możesz ewentualnie zmienić :P
0
ha a ja zrobiłem to tak:
[code]if KolorDialog.Execute then begin
Rgb := ColorToRGB(KolorDialog.Color);
Edytor.SelText := (Format('#%.2x%.2x%.2x', [GetRValue(Rgb), GetGValue(Rgb), GetBValue(Rgb)]));[/code]
dzieki za pomoc, może kiedyś skorzystam :p