| Autor | Správa |
|---|
tomas0620
Užívateľ
Založený: 13.12.2009
Príspevky: 62
 |  Zaslal: Pi 27.05.11 16:59 |   |
Prosím vás mohli by ste mi poradit ako mam urobit program v Delphi, ktorý mi bude zobrazovat GIF obrázok???
Dakujem
//premenovane, Daron |
| |
   |
|
ac.milan
Administrátor
Založený: 17.04.2008
Príspevky: 11053
Bydlisko: Myjava
Vek: 25
| | Zaslal: Pi 27.05.11 18:03 | |
a co uz mas hotove? s ktorou castou si nevies rady?
to je uloha do skoly? |
_________________
PC: Gigabyte GA-M52L-S3 / Athlon II X3 445 @ 3,1GHz / AM1 2x2GB DDR2 800 MHz / (RMA) Gigabyte HD7750 1GB OC@880MHz (RMA) / Seagate 7200.12 500GB / Creative Audigy SE / Fortron GP 350W 80+ / 24" BenQ G2420HDBL / Genius SP-HF1800A
NB: MSI M670X-091SK ( 2x1GB DDR2 667MHz ) | |
  |
|
tomas0620
Užívateľ
Založený: 13.12.2009
Príspevky: 62
| | Zaslal: Pi 27.05.11 19:14 | |
No ano je to do skoly .... a co mam urobene? asi nic... Viem totizto urobit program ktory mi zobrazi bitmapove obrazky ale ako urobit program aby zobrazil gif obrazok tak to netusim .. viem ze potrebujem nejake kniznice alebo ako to nazvat., aj som si nieco stiahol ale vobec neviem kam to mam ulozit a co s tym ..... viete pomoct? |
| |
|
|
walther
Užívateľ
Založený: 24.01.2008
Príspevky: 10194
Bydlisko: Bratislava
Vek: 24
| | Zaslal: Pi 27.05.11 19:15 | |
odporúčam kuknúť pravidlá fóra, bez nejakej vlastnej iniciatívy ti tu nikto pomáhať nebude...  |
| |
|
|
Fico
Skúsený užívateľ
Založený: 11.01.2009
Príspevky: 1052
| | Zaslal: Pi 27.05.11 19:57 | |
|
|
|
walther
Užívateľ
Založený: 24.01.2008
Príspevky: 10194
Bydlisko: Bratislava
Vek: 24
| | Zaslal: Pi 27.05.11 20:36 | |
viem Fico, tebe je jedno, či sa daný človek niečo naučí alebo nie  |
| |
|
|
Forty-
Užívateľ
Založený: 01.04.2010
Príspevky: 343
| | Zaslal: Pi 27.05.11 21:15 | |
google.com/search?q=delphi+gif+images |
| |
|
|
Fico
Skúsený užívateľ
Založený: 11.01.2009
Príspevky: 1052
| | Zaslal: So 28.05.11 10:01 | |
Nie, tak som to nemyslel, walther, ale ze postnut temu, kde sa to uz riesilo, nie je problem  |
| |
|
|
tomas0620
Užívateľ
Založený: 13.12.2009
Príspevky: 62
| | Zaslal: Ne 29.05.11 11:41 | |
diki.. potreboval by som este link odkial mozem stiahnut ten unit GifImage. Prosim. |
| |
|
|
Fico
Skúsený užívateľ
Založený: 11.01.2009
Príspevky: 1052
| | Zaslal: Ne 29.05.11 11:50 | |
Ved v tej teme som ho postol. Stiahnes balik a tam je .pas subor. Ten len pripoj v projekte, on sa skompiluje samostatne. |
| |
|
|
tomas0620
Užívateľ
Založený: 13.12.2009
Príspevky: 62
| | Zaslal: Ne 29.05.11 14:05 | |
Prepáč mi ale voliako to tam nevidim :/ mohol by si mi sem napisat ten link? Dakujem. |
| |
|
|
Fico
Skúsený užívateľ
Založený: 11.01.2009
Príspevky: 1052
| | Zaslal: Ne 29.05.11 14:18 | |
Hodil som ti to priamo na pastebin:
http://pastebin.com/0BSuEv7z
Skopiruj a uloz trebars ako GifImage.pas a v projekte iba klasicky pripoj do uses. |
| |
|
|
tomas0620
Užívateľ
Založený: 13.12.2009
Príspevky: 62
| | Zaslal: So 04.06.11 12:34 | |
Diki moc cely program mi ide , pridal som tam este aj menu ..... ale teraz by som chcel aby som mohol kreslit na ten obrazok .... Na bitmapovy obrazko viem ako sa to robi no neviem ako na gif. Mohli by ste mi pomoct? .... Prikladam aj zdrojovy kod co mam zatial napisane :
| kód: | var
Form1: TForm1;
implementation
{$R *.dfm}
var
Kreslime:Boolean=False;
procedure TForm1.Button1Click(Sender: TObject);
begin
image1.Picture.LoadFromFile('1.gif');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
image1.Picture.LoadFromFile('2.gif');
end;
procedure TForm1.Otvori1Click(Sender: TObject);
begin
if Opendialog1.Execute then
Image1.picture.LoadFromFile(OpenDialog1.FileName);
end;
procedure TForm1.Uloi1Click(Sender: TObject);
begin
showmessage('Obrázok uložíte tak, že za názov doplníte .gif ');
if SaveDialog1.Execute then
Image1.Picture.SaveToFile(SaveDialog1.FileName);
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
image1.Picture.LoadFromFile('3.gif');
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
image1.Picture.LoadFromFile('4.gif');
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
image1.Picture.LoadFromFile('5.gif');
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
image1.Picture.LoadFromFile('6.bmp');
end;
procedure TForm1.Exit1Click(Sender: TObject);
begin
close;
end;
procedure TForm1.Oprograme1Click(Sender: TObject);
begin
showmessage('Tento program bol vytvorený v Delphi 7 dňa 30. mája 2011. Autorom je Tomáš Čičman.');
end;
procedure TForm1.Button7Click(Sender: TObject);
begin
image1.canvas.FillRect(image1.ClientRect);
end;
procedure TForm1.ImageMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Kreslime:=True;
Image1.Canvas.MoveTo(X,Y);
end;
procedure TForm1.ImageMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if Kreslime then Image1.Canvas.LineTo(X,Y);
end;
procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Kreslime:=False;
end;
end. |
Ďakujem |
| |
|
|
Fico
Skúsený užívateľ
Založený: 11.01.2009
Príspevky: 1052
| | Zaslal: So 04.06.11 13:05 | |
Neviem neviem, ale ja tu nevidim ani zmienku o gif platne. Ty tu pouzivas TImage komponent, a nikde tu nevidim vytvaranie TGifImage-u, pricom si vravel, ze ti to ide. Mozes, prosim, vysvetlit, preco si tam dal TImage, ak chces pracovat s TGifImage? |
| |
|
|
tomas0620
Užívateľ
Založený: 13.12.2009
Príspevky: 62
| | Zaslal: So 04.06.11 14:14 | |
Prepac asi som slepy lebo TImage tam nikde nevidim .. vidim tam len TForm1.....
Tu je cely program ako ho mam: http://www.ulozto.sk/9223242/gif-rar
A gifi mi normalne idu .....
Ja len Neviem ako kreslit do toho gif obrazku...
Dufam ze nevadi ze som dal link na stiahnute. Ak ano tak sa ospravedlnujem. |
| |
|
|
|
