Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> глюк с string to color 
:(
    Опции темы
duhen
Дата 3.1.2008, 20:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 12
Регистрация: 11.9.2006

Репутация: нет
Всего: нет



пишу вот такой текст
Код

procedure TForm1.FormCreate(Sender: TObject);
begin
if ParamCount=0 then ShowMessage('Не указан фйал') else begin
Memo1.Lines.LoadFromFile(ParamStr(1));
try
Form1.Width:=StrToInt(Memo1.Lines.Strings[0]);
except
ShowMessage('Это не число:-(');
Application.Terminate;
end;
try
Form1.Height:=StrToInt(Memo1.Lines.Strings[1]);
except
ShowMessage('Это не число:-{(');
Application.Terminate;
end;
try
WebBrowser1.Navigate(Memo1.Lines.Strings[2]);
except
ShowMessage('Че то адрес не тот');
end;
end;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
ShowWindow (Application.handle, SW_HIDE);
if not Length(Memo1.Lines.Strings[3])=0 then Form1.TransparentColor:=true;
Form1.TransparentColorValue:=StringToColor(Memo1.Lines.Strings[3]);
end;

в файле в четвёртой строке пишу clRed
прога бачить а прозрачности нет smile 
почему? и как быть
PM MAIL   Вверх
duhen
Дата 3.1.2008, 21:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 12
Регистрация: 11.9.2006

Репутация: нет
Всего: нет



пока вы думали блин... нашел причину и устранил
отвечу сам себе . пусть останется для потомков мож кому надо
а прикол в том что у Delphi Enterprise 7 есть глюк с программным заданием св-ва прозрачности для формы. его нуно указывать тока в свойствах формы писать в исходник для динамической смены значания не рекомендуется тк вызывает йелиментарное отсутствие прозрачности
ЗЫ
ещё раз пишу
это для потомков
хотите удаляйте мне пофигу
ЗЫЗЫ Просто так получилось что нашел сам ответ а для других оставил smile 
PM MAIL   Вверх
Qu1nt
Дата 3.1.2008, 21:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 602
Регистрация: 13.1.2007

Репутация: 18
Всего: 50



duhen, Delphi 7 нету, но в Turbo Delphi такая проблема отсутствует.

Это сообщение отредактировал(а) Qu1nt - 3.1.2008, 21:30
PM MAIL   Вверх
ivan219
  Дата 3.1.2008, 21:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 2
Всего: 12



Цитата(duhen @  3.1.2008,  21:18 Найти цитируемый пост)
а прикол в том что у Delphi Enterprise 7 есть глюк с программным заданием св-ва прозрачности для формы.

А вот и врёшь smile всё внём путём smile 
Код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
begin
 TransparentColor := True;
 TransparentColorValue := clBlack;
end;

end.

Label1 становится позрачным!!!

Добавлено через 1 минуту и 35 секунд
Цитата(Qu1nt @  3.1.2008,  21:27 Найти цитируемый пост)
 Delphi 7 нету, но в Turbo Delphi такая проблема отсутствует.

 smile 
PM MAIL ICQ   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.0989 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.