Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Allexandr © (2007-02-24 02:18:00)
Здравствуйте.
Нужно значение цвета в ColorDialog сохранить в строку.
Подскажите как это сделать? может есть что-то вроде inttostr только для цвета?
Спасибо!

Allexandr (2007-02-24 04:00:00) [1]
RASkov, спасибо, но этим пока воспользоваться пока не могу :)
Моя цель поянть и научится, а не просто передрать :)
код я на компе сохранил, буду искать людей, которые проконсультируют по этому вопросу подробно :)

RASkov (2007-02-24 03:54:00) [2]
> [17] koha © (24.02.07 03:49)

Это что за указы?! Иди спи.

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

Вот ответишь в этой ветке и все я спать пойду!!
http://www.delphimaster.ru/cgi-bin/forum.pl?id=1172274829&n=18

RASkov (2007-02-24 03:46:00) [4]
> [14] koha © (24.02.07 03:34)

Иди поспи..., не мучай себя :)

RASkov (2007-02-24 03:44:00) [5]
> [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;

koha (2007-02-24 03:34:00) [6]

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

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

Allexandr (2007-02-24 03:31:00) [7]
RASkov, не подскажешь, можно каким-нибудь аналогичным способом сохранит fontdialog1.Font
Или его нужно расчленить на несколько составляющих (размер, цвет, начертание)?

Германн (2007-02-24 03:25:00) [8]

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

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

RASkov (2007-02-24 03:22:00) [9]
> константу цвета когоже еще.

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

koha (2007-02-24 03:20:00) [10]

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

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

Allexandr (2007-02-24 03:19:00) [11]
RASkov, спасибо!

Германн (2007-02-24 03:16:00) [12]

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

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

koha (2007-02-24 03:13:00) [13]

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

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

RASkov (2007-02-24 03:09:00) [14]
> [4] koha © (24.02.07 03:00)

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

RASkov (2007-02-24 03:07:00) [15]
> Allexandr

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

ColorToString()
StringToColor()

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

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

koha (2007-02-24 03:00:00) [16]

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

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

Германн (2007-02-24 02:55:00) [17]

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

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

Allexandr (2007-02-24 02:36:00) [18]
Пользователь настраивает цвет формы через КолорДиалог, я хочу что бы значение колорДиалога сохранилось в текстовом документе. а при повторном открытии приложения с текстового документа прочитать то значение цвета.

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

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

Германн (2007-02-24 02:26:00) [19]

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

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »