ColorDialog сохранить цвет

← →
Allexandr © (2007-02-24 02:18) [0]

Здравствуйте.
Нужно значение цвета в ColorDialog сохранить в строку.
Подскажите как это сделать? может есть что-то вроде inttostr только для цвета?
Спасибо!

← →
Германн © (2007-02-24 02:26) [1]

>
> Allexandr © (24.02.07 02:18)
>
> Здравствуйте.
> Нужно значение цвета в ColorDialog сохранить в строку.

Скажи сначала зачем тебе это нужно, двоешник?

← →
Allexandr © (2007-02-24 02:36) [2]

Пользователь настраивает цвет формы через КолорДиалог, я хочу что бы значение колорДиалога сохранилось в текстовом документе. а при повторном открытии приложения с текстового документа прочитать то значение цвета.

Пожалуйста не нужно оскорблять. Я не двоешник, я начинающий самоучка. Учусь по книге Фленова "Библия Делфи".

Сейчас пишу программы, которые пользы в быту почти что не принесут. Пишу для того, что бы лучше запоминать теорию, получать практические знания, "набивать" руку.

← →
Германн © (2007-02-24 02:55) [3]

> Пожалуйста не нужно оскорблять. Я не двоешник, я начинающий
> самоучка. Учусь по книге Фленова "Библия Делфи".

Да если б я имел в замыслах тебя оскорбить, я б ещё и не то написал бы! :)
Но зачем спамить?
А по сабжу IntToStr и StrToInt спасут ОРД. Если поймёшь, конечно. :(

← →
koha © (2007-02-24 03:00) [4]

> Германн © (24.02.07 02:55) [3]

- может подскажешь как ее в шестнацетиричный формат сохранить?

← →
RASkov (2007-02-24 03:07) [5]

> Allexandr

> Подскажите как это сделать?

ColorToString()
StringToColor()

> я хочу что бы значение колорДиалога сохранилось в текстовом документе
> а при повторном открытии приложения с текстового документа
> прочитать то значение цвета.

Ради этого не надо ничего никуда переводить....
Ты б на этом форуме про Мишу Фленова не упоминал бы, т.е. его книги.:)
У меня, кстати, есть его книжка - могу подарить - "ДГХ" - весчь.

← →
RASkov (2007-02-24 03:09) [6]

> [4] koha © (24.02.07 03:00)

ее - это кого? Хотя, ладно... вопрос Германну, пусть он и думает.....

← →
koha © (2007-02-24 03:13) [7]

> ее - это кого? Хотя, ладно...

константу цвета когоже еще.

← →
Германн © (2007-02-24 03:16) [8]

> koha © (24.02.07 03:00) [4]
>
>
> > Германн © (24.02.07 02:55) [3]
>
> - может подскажешь как ее в шестнацетиричный формат сохранить?
>
>

А кого "её"? Мы тут вроде про женщин и не говорили :)))
Но может и подскажу, если ты определишься с термином "шестнадцатиричный формат"! И, кстати, исправишь свою двойку по русскому хотя бы на четвёрку! :)

← →
Allexandr © (2007-02-24 03:19) [9]

RASkov, спасибо!

← →
koha © (2007-02-24 03:20) [10]

> Но может и подскажу, если ты определишься с термином "шестнадцатиричный
> формат"

- здесь крожок любителей русского языка?
это чтобы выглядело вот так приблизительно:
color:=$FF00FF

← →
RASkov (2007-02-24 03:22) [11]

> константу цвета когоже еще.

S: String;
S:="$"+IntToHex(clRed, 8);

← →
Германн © (2007-02-24 03:25) [12]

> koha © (24.02.07 03:20) [10]
>
>
> > Но может и подскажу, если ты определишься с термином "шестнадцатиричный
> > формат"
>
>
> - здесь крожок любителей русского языка?

Нет. Но здесь есть круг "нелюбителей" тех, кому язык не известен. Русский ли, английский и т.п.

← →
Allexandr © (2007-02-24 03:31) [13]

RASkov, не подскажешь, можно каким-нибудь аналогичным способом сохранит fontdialog1.Font
Или его нужно расчленить на несколько составляющих (размер, цвет, начертание)?

> Нет. Но здесь есть круг "нелюбителей" тех, кому язык не
> известен. Русский ли, английский и т.п.

- и чего так строго? вы просто не понимаете, что россия занимает 12 часовых поясов, у вас может около 3х часов ночи а у нас уже 8:30 и этот кто то "не любитель" русского языка не потому его не любит, что поцифист какой-нибудь, а потому, что уже глаза слипаются так как всю ночь просидел в "инете" и уж какой там русский язык - слова бы подобрать нужные и не уснуть бы.

← →
RASkov (2007-02-24 03:44) [15]

> [13] Allexandr © (24.02.07 03:31)

расчленять :)

procedure GetFontFromIni(const FlIni: String; Fnt: TFont); var FIni: TIniFile; begin FIni:= TIniFile.Create(FlIni); Fnt.Name:=FIni.ReadString("FONTDATA", "FName", "Courier New Cyr"); Fnt.Color:=TColor(FIni.ReadInteger("FONTDATA", "FColor", clBlack)); Fnt.Pitch:=TFontPitch(FIni.ReadInteger("FONTDATA", "FPitch", 0)); Fnt.Size:=FIni.ReadInteger("FONTDATA", "FSize", 8); Fnt.Style:=TFontStyles(Byte(FIni.ReadInteger("FONTDATA", "FStyle", 0))); FIni.Free; end; procedure SetFontToIni(const FlIni: String; Fnt: TFont); var FIni: TIniFile; begin FIni:= TIniFile.Create(FlIni); FIni.WriteString("FONTDATA", "FName", Fnt.Name); FIni.WriteInteger("FONTDATA", "FColor", Fnt.Color); FIni.WriteInteger("FONTDATA", "FPitch", ORD(Fnt.Pitch)); FIni.WriteInteger("FONTDATA", "FSize", Fnt.Size); FIni.WriteInteger("FONTDATA", "FStyle", Byte(Fnt.Style)); FIni.Free; end; procedure TForm1.FormCreate(Sender: TObject); begin GetFontFromIni(ExtractFileDir(ParamStr(0))+"\memo.ini", Memo1.Font); end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin SetFontToIni(ExtractFileDir(ParamStr(0))+"\memo.ini", Memo1.Font); end;

← →
RASkov (2007-02-24 03:46) [16]

> RASkov (24.02.07 03:46) [16]
> > [14] koha © (24.02.07 03:34)Иди поспи..., не мучай себя
> :)

Вот ответишь в этой ветке и все я спать пойду!!
http://delphimaster.net/view/2-1172274829/

← →
RASkov (2007-02-24 03:54) [18]

RASkov, спасибо, но этим пока воспользоваться пока не могу :)
Моя цель поянть и научится, а не просто передрать :)
код я на компе сохранил, буду искать людей, которые проконсультируют по этому вопросу подробно :)

ColorDialog сохранить цвет Найти похожие ветки