View previous topic :: View next topic |
Author |
Message |
NocK
Joined: 06 Jan 2005 Posts: 107
|
Posted: Mon Aug 01, 2005 10:19 am Post subject: Kadru maiņa |
|
Es tagad mēģinu uztaisīt kautko līdzīgu slaidšovam. Tur sanāk ka bildes pēc kārtas parādās noteiktā secībā (mācos strādāt ar daudziem failiem utt.). Vienkārša bilžu mirgošana neizskatās ļoti smuki. Vai var kautkā panākt, lai notiek vienmērīga pāreja no vienas bildes uz otru? T.i. pirmā bilde pakāpeniski paliek tumša un tad no tumsas parādās otrā bilde. Vai iespējams panākt tādu? Ja tur jāraksta kilometriem programmas teksta... Jākaras |
|
Back to top |
|
|
NocK
Joined: 06 Jan 2005 Posts: 107
|
Posted: Mon Aug 01, 2005 10:26 am Post subject: |
|
Ā, un vēl... Gribēju sākt mēgināt mācīties DelphiX komponenti, taču uzreiz uzdūros sienai. Sāku mācīties no Ra001 tutoriāļiem. Tur itkā viss normāli līdz momentam, kad tur sākas programmas teksts (tāds lamerisms). Tur ir tā, ka darba sākumam būtu jāiespruž šāda rindiņa:
Code: |
uses .... DXClass, DXSounds;
TF_xxx = class(TDXForm)
private
Procedure DoDXDraw(LagCount: Integer);
end;
|
Taču, kad es pie sevis pie private raktu to Procedure DoDXDraw(LagCount: Integer); viņš rāda kļudu. Kurā vietā man ir kļūda? ko es nesapratu pareizi? Vēlāk to DoDXDraw jāizmanto, taču viņš saka ka tāda murga nav. Un tālāk tur vispār klasi jāveido
Code: |
TGeneralSprite = class(TImageSprite)
private
FImageName: String;
procedure SetImageName(const Value: String);
procedure SetImage(NewImage: TPictureCollectionItem);
public
constructor Create(Engine : TEngine); virtual;
destructorDestroy;override;
property ImageName : String read FImageName write SetImageName;
end; |
Šito murgu es arī nevaru iespraust (jaunajā unitā).
HELP ME!!!! Šamais jautājums laikam ir bišku svarīgāks par iepriekšējo. |
|
Back to top |
|
|
GiGa Indago Uzvarētājs
Joined: 25 Sep 2003 Posts: 887
|
Posted: Mon Aug 01, 2005 10:48 am Post subject: |
|
Kas attiecas uz pirmo postu - mazliet vieglaak buutu atbildet, ja Tu pateiktu (un paraadiitu attieciigo kodu), kaadaa veidaa Tu vispaar ziimee taas bildes :)
Par otro - arii dereetu zinaat, kaadu kljuudu izmet Vai vinsh kluudu izmet tad, kad taa DoDXDraw ir jaaizsauc? Vai tieshi tajaa klases deklaracijaa? _________________
|
|
Back to top |
|
|
ra001 Site Admin
Joined: 20 Jan 2003 Posts: 452 Location: Latvija
|
Posted: Mon Aug 01, 2005 10:58 am Post subject: |
|
Pasaki kādu kļūdu izmet.
Vari rakstīm man mailu, noteikti atbildēšu.
Atzīstos, ka dažas nepilnības tutoriālos varētu būt, kaut gan centos visas kļūdas maksimāli izķert. |
|
Back to top |
|
|
NocK
Joined: 06 Jan 2005 Posts: 107
|
Posted: Mon Aug 01, 2005 11:06 am Post subject: |
|
1. Man ir procedūra
Code: |
procedure slide(ipict:integer);
begin
Intro.iPicture.Picture.LoadFromFile(Intro.iPictBox.Lines[ipict]);
end;
|
Šim vesela procedūra veltīta, jo tur vēl pielikšu dažas funkcijas un tad vispār universāla fīča sanāks.
Code: |
procedure TIntro.FormCreate(Sender: TObject);
begin
intr:=0;
//Formas saakumaa tiek lasiiti ziimeejumu faili
iPictBox.Lines.LoadFromFile('iPictBox.cax');
//Palaizham taimeri
slidex.Enabled:=true;
end;
|
Kad rodas forma viņš nolasa "bildes" ListBoksā (iPictBox). Tur rodas tās adreses uz bildēm. Un galugalā:
Code: |
procedure TIntro.slidexTimer(Sender: TObject);
begin
intr:=intr+1;
slide(intr);
end;
|
Taimerī mainās bildes numurs (Listboksa Line). Nezinu vai pietiekami izsmeļoši paskaidroju...
2. Viņš izmet kļūdu tieši tajā klases deklarācijā. Uzreiz izmet logu ar uzrakstu:
Error
Field F_delphix.DoDXDraw does not have a corresponding component. Remove the declaration?
Nu i standarta podziņas Yes No Cancel un Help. Vot tāds pīrāgs. Man ir Delphi 7 un tas DelphiX arī liekas ir viņam domātais. Njā... |
|
Back to top |
|
|
bubu Indago Uzvarētājs
Joined: 23 Mar 2004 Posts: 3223 Location: Riga
|
Posted: Mon Aug 01, 2005 11:10 am Post subject: |
|
Code: | destructorDestroy;override; |
Šitā nav tava kļūda? |
|
Back to top |
|
|
ra001 Site Admin
Joined: 20 Jan 2003 Posts: 452 Location: Latvija
|
Posted: Mon Aug 01, 2005 11:13 am Post subject: |
|
2. Tur ir kaut kādas problēmas ar formas klase nosaukumu un formas mainīgā nosaukumu, pārbaudi vai deklarācijā un implementācijā klases nosaukumi ir vienādi.
Last edited by ra001 on Mon Aug 01, 2005 11:17 am; edited 1 time in total |
|
Back to top |
|
|
NocK
Joined: 06 Jan 2005 Posts: 107
|
Posted: Mon Aug 01, 2005 11:13 am Post subject: |
|
ra001 wrote: | Pasaki kādu kļūdu izmet.
Vari rakstīm man mailu, noteikti atbildēšu.
Atzīstos, ka dažas nepilnības tutoriālos varētu būt, kaut gan centos visas kļūdas maksimāli izķert. |
Varbūt man kautkur ir kļūda, nez. Rādu otro vietu kur met kļūdu:
Skaties, pēc tutoriāļa tur gandrīz uzreiz jāveido to uO_Sprites, pareiz? Code: |
unit uO_Sprites;
interface
type
[b]TGeneralSprite = class(TImageSprite)[/b]
|
Viņš uzreiz izdala to GeneralSprite = class utt.. un raksta:
[Error] uO_Sprites.pas(6): Undeclared identifier: 'TImageSprite'
Šite viņu kautkur vajag deklarēt. Tik es ar DelphiX vispār nepazīstams un ar Delphi laikam arī ļoti gudrs nosaukties nevaru... Laikam priekš manis tutoriālis vienkārši ir bišku nepilnīgs... |
|
Back to top |
|
|
bubu Indago Uzvarētājs
Joined: 23 Mar 2004 Posts: 3223 Location: Riga
|
Posted: Mon Aug 01, 2005 11:15 am Post subject: |
|
Tev nav deklarēta klase TImageSprite. To arī tas paziņojums saka. |
|
Back to top |
|
|
NocK
Joined: 06 Jan 2005 Posts: 107
|
Posted: Mon Aug 01, 2005 11:18 am Post subject: |
|
ra001 wrote: | 2. Tur ir kaut kādas problēmas ar formas klaes nosaukumu un formas mainīgā nosaukumu, pārbaudi vai deklarācijā un implementāvijā klases nosaukumi ir vienādi. |
Vai drīkst izteikties bišku lameriskākā valodā? Visur nosaukumi vienādi. Un... ē... kur var atrast to deklarāciju? Par viņu viņš man i lamājas!
P.S. Par mani nesmieties! Vienkārši laikam sagribējās man uzreiz par daudz... Es tikai mācos! |
|
Back to top |
|
|
ra001 Site Admin
Joined: 20 Jan 2003 Posts: 452 Location: Latvija
|
Posted: Mon Aug 01, 2005 11:18 am Post subject: |
|
Code: |
[b]TGeneralSprite = class(TImageSprite)[/b]
|
tos [b] Tu arī raksti unitā??? |
|
Back to top |
|
|
ra001 Site Admin
Joined: 20 Jan 2003 Posts: 452 Location: Latvija
|
Posted: Mon Aug 01, 2005 11:19 am Post subject: |
|
Atsūti man uz mailu savus unitus es paskatīšos, kas tur un kā.... |
|
Back to top |
|
|
NocK
Joined: 06 Jan 2005 Posts: 107
|
Posted: Mon Aug 01, 2005 11:21 am Post subject: |
|
ra001 wrote: |
tos [b] Tu arī raksti unitā??? |
Nē protams. Es vienkārši domāju, ka te viņš to izdalīs. Sorry, nesanāca. |
|
Back to top |
|
|
NocK
Joined: 06 Jan 2005 Posts: 107
|
Posted: Mon Aug 01, 2005 11:30 am Post subject: |
|
bubu
Kur tā klase ir jādeklarē??? |
|
Back to top |
|
|
NocK
Joined: 06 Jan 2005 Posts: 107
|
Posted: Mon Aug 01, 2005 11:32 am Post subject: |
|
ra001
nosūtīju. |
|
Back to top |
|
|
|