coloru bir texte yazdırmak sonrada formun rengini o textten

[yuksel2004]

colordialogdan seçilen rengi bir edite yazdırmak o editin içeriğinide text dosyaya yazdırmak istiyorum.program açılırkende o text dosyadan okuyup textin içeriğini edite yazdıracak.formlarda rengini o editin içeriğinden alack.tip dönüştürmelerinde hata yapıyorum.colortostring formülüde işe yaramadı.
Form1.color:=colortostring(edit1.text) ifadesinde hata veriyo.İnteger değil diyo.İnteger istiyo.Bu konuda bilginiz varsa yardımınızı rica ediyorum.teşekkürler.

[mrmarman]

- Windows'un standart veya temalarda kullanılan renk kodları olan clRed, clWindow vb. renk kodları dışında özel bir renk kodu seçimi yaptıysan formatı şu şekilde olmalı...
(Başında $ var)

Kod: Tümünü seç

$00000040

[freeman35]

Öncelikle forum kurallarını iyi oku, daha önce yazdığın mesaja devam et
viewtopic.php?t=9223

ayrıca delphi içinde help var yani sadece F1 basıcaksın ve aradığını yazıcaksın.

Kod: Tümünü seç

procedure TForm1.FormActivate(Sender: TObject);

var
  MyIniFile: TIniFile;
begin
  MyIniFile := TIniFile.Create('myapp.ini');
  with MyIniFile do
  begin
    if ReadBool('AutoLoad', 'FormProperties', False) = True then
    begin
      Visible := ReadBool('FormOptions', 'Visible', True);
      Color := TColor(ReadInteger('FormOptions', 'Color', clNormalBackground));
      Caption := ReadString('FormOptions', 'Caption', 'Main');
  end;
  MyIniFile.Free;

end;

Kolay gele

[yuksel2004]

Kusura bakmayın.Nereye yazacağımı gerçekten düşündüm ama ilk mesajımda kodu denemeden olduğunu söylemiştiröm.O yüzden oraya bir daha bakılmayacağını düşündüm.O yüzden tekrar yazdım.Düşüncesizce yapılmış bir şey değildi.Verdiğiniz kodlar işime yaradı.Teşekkür ederim.Ayrıca şuu fonksiyonları da buldum.Çalışıyor.Belki başkalarının işine yarar.

Kod: Tümünü seç

scolor xxxxxx formatında olmalı. 
X hex kod olmalı. 

} 
function 
  HexToTColor( sColor : string ) 
    : TColor; 
begin 
  Result := 
    RGB( 
      { RED degeri } 
      StrToInt( '$'+Copy( sColor, 1, 2 ) ), 
      { GREEN degeri } 
      StrToInt( '$'+Copy( sColor, 3, 2 ) ), 
      { MAVI DEGERI } 
      StrToInt( '$'+Copy( sColor, 5, 2 ) ) 
    ); 
end; 

//=================================================


{
  Return TColor value in XXXXXX format
  (X being a hex digit)
}
function
  TColorToHex( Color : TColor )
    : string;
begin
  Result :=
    { red value }
    IntToHex( GetRValue( Color ), 2 ) +
    { green value }
    IntToHex( GetGValue( Color ), 2 ) +
    { blue value }
    IntToHex( GetBValue( Color ), 2 );
end;


//========================================================



{
  sColor should be in XXXXXX format
  (X being a hex digit)
}
function
  HexToTColor( sColor : string )
    : TColor;
begin
  Result :=
    RGB(
      { get red value }
      StrToInt( '$'+Copy( sColor, 1, 2 ) ),
      { get green value }
      StrToInt( '$'+Copy( sColor, 3, 2 ) ),
      { get blue value }
      StrToInt( '$'+Copy( sColor, 5, 2 ) )
    );
end;

//=====================================================================


function ColorToHtml1(Color: TColor): string;
var
  COL: LongInt;
begin
  COL := ColorToRGB(Color);
  { first convert TColor to Integer to remove the higher bits }
  { erst TColor zu Integer, da die Unnötigen höheren Bit entfernt werden }
  Result := '#' + IntToHex(COL and $FF, 2) +
    IntToHex(COL shr 8 and $FF, 2) +
    IntToHex(COL shr 16 and $FF, 2);
end;


function ColorToHtml2(Clr: TColor): string;
begin
  Result := IntToHex(clr, 6);
  Result := '#' + Copy(Result, 5, 2) + Copy(Result, 3, 2) + Copy(Result, 1, 2);
end;

function HtmlToColor(Color: string): TColor;
begin
  Result := StringToColor('$' + Copy(Color, 6, 2) + Copy(Color, 4, 2) + Copy(Color, 2, 2));
end;

// Example:

procedure TForm1.Button1Click(Sender: TObject);
var
  ColorTemp: TColor;
  ident: string;
begin
  Edit1.Text := ColorToHtml($808080);    // $808080 (clGray) ----> #808080
  ColorTemp  := HtmlToColor(Edit1.Text); // #808080 -----> $808080 (clGray)
  ColorToIdent(StringToColor(IntToStr(ColorTemp)), ident); // ---> ident = clGray
  Edit2.Text := ident; // clGray
end;

//========================================================================


function ColorStr(Color: TCustomColor): String;
  begin
    {$IFDEF WIN32}
      ColorStr := GetEnumName(TypeInfo(TCustomColor), Ord(Color))
    {$ELSE}
      ColorStr := GetEnumName(TypeInfo(TCustomColor), Ord(Color))^
    {$ENDIF}
  end {ColorStr};