Delphi Dünyası Facebook'ta

Duyurular

Kodbank İndir

! CODEBANK 2012 !

İNDİRMEK&DETAYLI BİLGİ ALMAK İÇİN BURAYI TIKLAYINIZ.

« önceki sonraki »
Sayfa: [1]   Aşağı git

Gönderen Konu: Graphic - ColorToRGB  (Okunma sayısı 1718 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı CMNSOFT

  • Delphi 2 Level 4
  • ****
  • İleti: 82
  • Rep: +2/-2
  • Cinsiyet: Bay
    • http://www.cmnsoft.com
Graphic - ColorToRGB
« : 21 Ekim 2005 15:48:16 »
Kod:  (Unknown Language)
  1. procedure TForm1.Button1Click(Sender: TObject);
  2.  
  3. var
  4.  
  5.   TheRgbValue : TColorRef;
  6.  
  7. begin
  8.  
  9.   if ColorDialog1.Execute then begin
  10.  
  11.     TheRgbValue := ColorToRGB(ColorDialog1.Color);
  12.  
  13.     ShowMessage(Format('%.2x%.2x%.2x',
  14.  
  15.                        [GetRValue(TheRGBValue),
  16.  
  17.                         GetGValue(TheRGBValue),
  18.  
  19.                         GetBValue(TheRGBValue)]));
  20.  
  21.   end;
  22.  
  23. end;
Kayıtlı
:::::::::::::::::::: www.CMNSOFT.com ::::::::::::::::::::
Sayfa: [1]   Yukarı git
« önceki sonraki »