VPF::Проблема с таймером и фреймом - Форум программистов

Gigabyte

Дата 7.6.2006, 15:47 (ссылка)

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

Загрузка ...

Студент-халявщик

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

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

на фрейме находиться Image
к нему можно спокойно обращаться без каких либо ошибок
но если создать фрейм то все меняется - проект не запускается
и если я напишу form1.page1. то в всплывающем меню нет image`а(page1- фрейм)

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

Yanis

Дата 7.6.2006, 15:51 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

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

В Unit1 Alt+F11 проббовал нажимать?

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

*щёлк*

Gigabyte

Дата 7.6.2006, 16:06 (ссылка)

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

Загрузка ...

Студент-халявщик

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

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

щас попробовал:
ничего не изменилось

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

Yanis

Дата 7.6.2006, 16:11 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

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

Gigabyte
Какие ошибки хотя бы возникают? Я телепатор дома оставил...

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

*щёлк*

skyboy

Дата 7.6.2006, 16:30 (ссылка)

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

Загрузка ...

неОпытный

Профиль
Группа: Модератор
Сообщений: 9820
Регистрация: 18.5.2006
Где: Днепропетровск

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

Цитата(Gigabyte @ 7.6.2006, 15:47

)

на фрейме находиться Image
к нему можно спокойно обращаться без каких либо ошибок
но если создать фрейм то все меняется - проект не запускается

Так он есть или его нет?
Ты описываешь форму с Image'om. Сохраняешь её. И добавляешь на другую форму, аки фрейм. Так? И после этого пытаешься обращаться к Image'y как? Form1.Image1? Или всё-таки Form1.Frame1.Image1?

Gigabyte

Дата 7.6.2006, 18:06 (ссылка)

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

Загрузка ...

Студент-халявщик

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

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

Цитата(Yanis @ 7.6.2006, 17:11

)

Какие ошибки хотя бы возникают?

гворит что нет image`а

Цитата(skyboy @ 7.6.2006, 17:30

)

Так он есть или его нет?
Ты описываешь форму с Image'om. Сохраняешь её. И добавляешь на другую форму, аки фрейм. Так?

фаил->новый->фрейм
все работало до тех пор пока я не добавилна form1 таймер

Цитата(skyboy @ 7.6.2006, 17:30

)

И после этого пытаешься обращаться к Image'y как? Form1.Image1? Или всё-таки Form1.Frame1.Image1?

image находиться на фрейме
естественно Form1.Frame1.Image1

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

Yanis

Дата 7.6.2006, 18:14 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

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

Ты тестовый проект создал? Кинь его сюда.

Добавлено @ 18:15
Ты тестовый проект создал? Кинь его сюда.

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

*щёлк*

Gigabyte

Дата 7.6.2006, 20:19 (ссылка)

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

Загрузка ...

Студент-халявщик

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

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

Цитата(Yanis @ 7.6.2006, 19:14

)

Ты тестовый проект создал?

в смысле тестовый проект

вот код что у меня получился

Код


unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button: TButton;
    Edit: TEdit;
    WebBrowser1: TWebBrowser;
    page1: Tpage;
    Button1: TButton;
    Edit1: TEdit;
    procedure ButtonClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
var  dbutons:array[1..1000] of Tbutton;
var dEdits:array[2..1000] of Tedit;



procedure  dCreateButton(x,y,w,h,n:integer;cap:string);
begin
dButons[n]:=TButton.Create(form1.page1.GetParentComponent);
dButons[n].Left:=x;
dButons[n].Top:=y;
dButons[n].Width:=w;
dButons[n].Height:=h;
dButons[n].Caption:=cap;

end;

procedure  dCreateEdit(x,y,w,h,n:integer;text:string);
begin
dEdits[n]:=TEdit.Create(form1.page1.GetParentComponent);
dEdits[n].Left:=x;
dEdits[n].Top:=y;
dEdits[n].Width:=w;
dEdits[n].Height:=h;
dEdits[n].Text:=text;

end;

procedure  dRectangle(x0,y0,x,y:integer;pcolor,bcolor:string);
var tempcp,tempcb:tcolor;
begin

tempcp:=form1.page1.Image1.Canvas.Pen.Color;
tempcb:=form1.page1.Image1.Canvas.Brush.Color;
form1.page1.Image1.Canvas.Pen.Color:=stringtocolor(pcolor);
form1.page1.Image1.Canvas.Brush.Color:=stringtocolor(bcolor);
form1.page1.Image1.Canvas.Rectangle(x0,y0,x,y);
form1.page1.Image1.Canvas.Pen.Color:=tempcp;
form1.page1.Image1.Canvas.brush.Color:=tempcb;
end;

procedure  dEllipse(x0,y0,x,y:integer;pcolor,bcolor:string);
var tempcp,tempcb:tcolor;
begin

tempcp:=form1.page1.Image1.Canvas.Pen.Color;
tempcb:=form1.page1.Image1.Canvas.Brush.Color;
form1.page1.Image1.Canvas.Pen.Color:=stringtocolor(pcolor);
form1.page1.Image1.Canvas.Brush.Color:=stringtocolor(bcolor);
form1.page1.Image1.Canvas.Ellipse(x0,y0,x,y);
form1.page1.Image1.Canvas.Pen.Color:=tempcp;
form1.page1.Image1.Canvas.brush.Color:=tempcb;
end;

procedure  dPoint(x,y:integer;color:string);
begin
form1.page1.Image1.Canvas.Pixels[x,y]:=stringtocolor(color);
end;

procedure  dText(x,y:integer;text:string);
begin
form1.page1.Image1.Canvas.TextOut(x,y,text);
end;

procedure  dLine(x0,y0,x,y:integer;color:string);
var tempc:tcolor;
begin
tempc:=form1.page1.Image1.Canvas.Pen.Color;
form1.page1.Image1.Canvas.Pen.Color:=stringtocolor(color);
form1.page1.Image1.Canvas.MoveTo(x0,y0);
form1.page1.Image1.Canvas.LineTo(x,y);
form1.page1.Image1.Canvas.Pen.Color:=tempc;
end;

procedure index(comanda:string);
var t:array[0..1000] of string;
l,k,n:integer;
begin
k:=0;

l:=length(comanda);
 for n:=1 to l do
  begin
      t[k]:=t[k]+comanda[n];
    if comanda[n]='^' then k:=k+1;

  end;

 for n:=0 to k-1 do
  begin
    delete(t[n],length(t[n]),1);
  end;
if t[0]='dPoint' then dPoint(strtoint(t[1]),strtoint(t[2]),t[3]);
if t[0]='dLine' then dLine(strtoint(t[1]),strtoint(t[2]),strtoint(t[3]),strtoint(t[4]),t[5]);
if t[0]='dText' then dText(strtoint(t[1]),strtoint(t[2]),t[3]);
if t[0]='dCreateEdit' then dCreateEdit(strtoint(t[1]),strtoint(t[2]),strtoint(t[3]),strtoint(t[4]),strtoint(t[5]),t[6]);
if t[0]='dRectangle' then dRectangle(strtoint(t[1]),strtoint(t[2]),strtoint(t[3]),strtoint(t[4]),t[5],t[6]);
if t[0]='dEllipse' then dEllipse(strtoint(t[1]),strtoint(t[2]),strtoint(t[3]),strtoint(t[4]),t[5],t[6]);
if t[0]='dCreateButton' then dCreateButton(strtoint(t[1]),strtoint(t[2]),strtoint(t[3]),strtoint(t[4]),strtoint(t[5]),t[6]);
form1.Edit1.Text:=t[0];

end;









procedure TForm1.ButtonClick(Sender: TObject);
var l:integer;
Ifiletype,t:string;
begin
l:=length(edit.Text);
t:=edit.Text;
Ifiletype:=t[l-4]+t[l-3]+t[l-2]+t[l-1]+t[l];
if  Ifiletype='.wdlp' then
   begin
     webbrowser1.Width:=0;
     webbrowser1.Height:=0;
    end
   else
    begin
    webbrowser1.Navigate(edit.Text);
     webbrowser1.Width:=810;
     webbrowser1.Height:=550;
    end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
index(edit1.Text);
end;

end.

я заметил что image перестает быть видимым когда в uses добовляешь ExtCtrls

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

skyboy

Дата 7.6.2006, 20:58 (ссылка)

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

Загрузка ...

неОпытный

Профиль
Группа: Модератор
Сообщений: 9820
Регистрация: 18.5.2006
Где: Днепропетровск

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

Gigabyte, можешь сархивировать весь проект полностью и прикрепить?

Gigabyte

Дата 7.6.2006, 21:40 (ссылка)

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

Загрузка ...

Студент-халявщик

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

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

Проект сдесь проект

Это сообщение отредактировал(а) Gigabyte - 7.6.2006, 21:55

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

skyboy

Дата 7.6.2006, 22:43 (ссылка)

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

Загрузка ...

неОпытный

Профиль
Группа: Модератор
Сообщений: 9820
Регистрация: 18.5.2006
Где: Днепропетровск

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

поменяй местами unit'ы в uses-секции. "Фреймовые" юниты сделай последними в объявлении - у меня так всё заработало, когда поменял местами.

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