VPF::глюк с 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

почему? и как быть

duhen

Дата 3.1.2008, 21:18 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

пока вы думали блин... нашел причину и устранил
отвечу сам себе . пусть останется для потомков мож кому надо
а прикол в том что у Delphi Enterprise 7 есть глюк с программным заданием св-ва прозрачности для формы. его нуно указывать тока в свойствах формы писать в исходник для динамической смены значания не рекомендуется тк вызывает йелиментарное отсутствие прозрачности
ЗЫ
ещё раз пишу
это для потомков
хотите удаляйте мне пофигу
ЗЫЗЫ Просто так получилось что нашел сам ответ а для других оставил smile

Qu1nt

Дата 3.1.2008, 21:27 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

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

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

Это сообщение отредактировал(а) Qu1nt - 3.1.2008, 21:30

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 такая проблема отсутствует.

--------------------

Мой первый сайт и моя первая программа!!!!!

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