//deklaracja zmiennej Image :TImage; Image := TImage.Create; Image.Parent := Form1; Image.Left := 5; Image.Top := 15; Image.Width := 32; Image.Height := 32; Image.AutoSize := False; Image.Stretch := True; Image.Visible := True; itd. Image.Free; PS. jakbym cos zle napisal to Kolega Dżyszla mnie pewnie poprawi :) ja tam wole C++ Buildera ;)
A tak na marginesie - animacja grafiki to trochę nie za dużo jak na początek? Może by zrobienie zwykłego Painta wystarczyło? Jeśli już jakaś animacja, to zacznij od zwykłego przesuwania obiektów (np. TShape i odświeżanie przez metodę Repaint). Wiem, że to będzie wyglądało źle, ale w prostszy sposób zrealizuje animację.
Robisz najprościej tablicę elementów TImage i odwołujesz się jak do normalnego image o nazwie będącej zmienną. Wszak To jest dokłądnie to samo. Czemu wskaźnik? for(int i=0;i<10;i++) ImagesTable[i]=TImage->Create... . . . for(int i=0;i<10;i++) ImagesTable[i]->Free()... (mogę mieszać, nie...
Rzeczywiście, TImage i canvas są w tym przypadku niezastąpione. http://obrazki.elektroda.net/46_12614902... procedure TForm1.Button1Click(Sender: TObject); var x : integer; step , y : real; begin image1.Canvas.Pen.Width:=1; image1.Canvas.Pen.Color:=clblack; image1.Canvas.MoveTo(0,(Image1.H... div 2));...
Chciałbym mieć animowany obrazek w TImage, jak to zrobić? :( Już nie mam pomysłów. A może ktoś wie jak znaleźć info na ten tema? Pozdrawiam
int y=StrToInt(RevS);
Jeszcze raz dzięki one_eddie za pomoc. Wszystko już działa ale chciałem się podzielić jedną uwagą gdyby ktoś tutaj w przyszłości szukał pomocy... Jeśli dynamicznie ( w programie ) zmieniasz obrazek w obiekcie TImage pobierając go z TImageList to przed kolejnym użyciem kodu który podał one_eddie należy wyczyścić obiekt TImage. Image2.Picture := nil;...
Czyli z BMP do Timage ?
Po co pobierasz X i Y myszy z Mouse jak masz jak na tacy podane X i Y poprzez argumenty zdarzenia MouseMove ? Zobacz: procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X , Y : Integer); Wystarczy teraz wykonać: procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Label1.Caption:=IntToStr(X);...
FloodFill, względnie FillRect(angle) (piszę z głowy, więc coś koło tego).
Jezeli chodzi o odswiezanie to teoretycznie nie powinno sie tak dziac jak mowisz, czyli po przeslonieciu oknem i potem odslonieciu powinno byc wszystko widoczne - chociaz moge sie mylic, dawno nie pisalem w Delphi ;) Zauwaz jednak, ze jak bedziesz odswierzal caly obrazek to bedzie nieprzyjemny efekt migotania obrazka - lepiej by bylo zrobic glowne tlo...
Timage nie ma opcji onmouse leave
OnPaint Alternatywnie rysować po Canvie TImage - on sam się przerysowuje.
Witam. Tworzę w delphi kilka obiektów Image dynamicznie: ... //globalne zmienne: image: array[0..63] of TImage nri: integer ... // procedura tworząca obiekty TImage: image[nri]:=Timage.Create... Image[nri].Parent := Form1; Image[nri].Left := 5+nri*10; Image[nri].Top :=...
Tak na "chłopski rozum" to rzutowanie typów to nic innego jak konwersja typów. Zauważ, że funkcja FindComponent() zwraca wynik typu TComponent, który nie posiada metod TImage (Picture, Bitmap,FreeImage,itp). TImage(FindComponent()) "mówi" kompilatorowi, że znaleziony komponent jest typu TImage i jako taki powinien być traktowany w programie. Pozdrawiam...
Możesz wstawić na formę komponent TImage i odpowiednio oprogramować zdarzenia myszy. [url=http://4programmers.net/Delphi/Goto... jest jakiś przykład.
Sugeruję zapoznać się z tym wątkiem : [url=http://www.elektroda.pl/rtvforum/to... jak szybko wyświetlać odcinki na image'u ?
Nikt na nic nie wpadnie - nie da się z TImage uzyskać w żaden sposób nazwy pliku... No chyba, ze zaczniesz przeszukiwać dysk pod kątem identycznych plików graficznych ;)
Ale mówiłem - skoro i zmienia Ci się dajmy na to od 1 do 1000 to jak możesz wykorzystywać ten indeks do tablicy Foto? i jest indeksem tablicy Controls, a tablica Foto w tym przypadku powinna być indeksowana zmienną j
Witam! Piszę sobie grę Puzzle .Mam już komponent TImage dla którego napisałem kod żeby go sobie przesuwać , i faktycznie można go przesuwać .Ale chciałbym go umieścić np. w jakieś siatce tak jak to jest w puzzlach i żeby został przyciągnięty przez tą siatkę .Jak narazie to nie mam pomysłu jak to zrobić ,dlatego proszę o pomoc . Z góry dziękuje za podpowiedzi.
Witam, w delphi mogłem użyć poniższego kodu żeby wykasować obrazek z obiektu image o nazwie s, gdzie s była to zmienna... for k := 1 to Pred(form1.ComponentCount) do if form1.Components[k] is Timage then with form1.Components[k] as timage do if Name = s then Picture:=nil; czy jest jakiś porównywalny sposób na uzyskanie...
Użyj nałożonego TPaint i dokonuj za każdym razem mazania starej pozycji poprzez nadpsianie jej danymi z TIMage (TBitmap) i narysowaniem prostokąta. Włączenie rysowania robisz w OnMouseDown (ustawiasz falgę), rysowanie w OnMouseMove (jeśli flaga ustawiona), a wyłączenie (skasowanie flagi) + ewentualne akcje w OnMouseUp (jeśli flaga ustawiona)
Oki... to w taki razie mam takie pytanie.... Jak chcę zrobić formę przeźroczystą za pomocą :TransparentColor. I na tej formie jeszcze umieścić Tlabel jakis lub Timage z obrazem png z kanałem alpha. to dzieje się coś takiego: kolor użyty do wycięcia czyli TransparenColor zostaje w miejscu kanału alpha png oraz na obrzeżasz liter komponentu Tlabel. Jak...
Najprościej to będzie utworzyć katalog zawierający spis rysunków w postaci pyt nr_pyt .bmp , a następnie przy przechodzeniu do następnych pytań dokonać takiej operacji PicFile:=ExtractFilePath(Applica... if FileExists(PicFile) then begin Image1.Picture.LoadFromFile(PicFile&... Image1.Show;...
Witam ponownie! Z powyższym problemem sobie poradziłem. Pojawił się natomiast kolejny. Poniżej kod funkcji, która zamienia wszystkie kolory na odcienie szarości: { BYTE R,G,B,BW; Graphics::TBitmap *Tmp; Tmp = new Graphics::TBitmap(); Tmp->PixelFormat=pf24bit; Tmp->Assign(CurrentImg); //CurrentImg przechowuje...
Zaznacz TImage w inspektorze obiektów (Obiect TreeView) i przeciągnij na TPanel, zmieni wtedy swoją hierarchię w drzewku, nie stracisz kodu który miałeś napisany dla TImage. Pozdrawiam
Witam (at)faber W jaki sposób przypisac obrazek ???, jestem początkujący programista :p, i jeszcze nie robiłem czegoś takiego, proszę o wyrozumiałość, dziękuję i pozdrawiam vcd_a Po tym jak wstawisz komponent image w object inspector klikasz na właściwość picture i pojawią się 3 kropki obok - klikasz na nie poźniej load i dalej sobie poradzisz :D Oczywiście...
(at)Dżyszla: marnyc mówi, że nie zna się na Borlandzie, ani na dynamicznym tworzeniu komponentów, a Ty mu mieszasz z Delphi. Tutaj przykład dla C++: [syntax=cpp] const int max = 100; TImage *img[max]; for (int i = 0; i < max; ++i) { img[i] = new TImage(this); img[i]->Parent = Form1; } img[0]->Picture->LoadFromFile("C:\...
Raczej: unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ImgList, ComCtrls, ExtCtrls, ToolWin; type Tabl = array[0..100] of real; type TForm2 = class(TForm) ToolBar1: TToolBar; Image1: TImage; ToolButton1: TToolButton;
Witam!! Rysuje wykres na Timage i chcialbym zmienic tlo timage.Jak to zrobic z poziomy programu?? Pozdro/smalski Zamykam. - arnoldziq
OnPaint wykonujesz wtedy, kiedy taki komunikat dostajesz. Na BMP rysujesz równolegle lecz bez kropki. Nie używaj TImage ze względów wydajnościowych oraz zajętości pamięci. Wystartczy Bmp:=TBitmap.Create; A na końcu zwalnianie.
Ja to robię tak. Na formie rysuję czarny prostokąt. Na to nakładam TImage Następnie na czarnym prostokącie rysuje (TImage.canvas- i rysunek) Co robię żle. Czy istnieje możliwośc w Object Inspectorze od TImage narysowac czarny prostokat.
Bez całego kodu tego wątku, to możemy tylko zgadywać, co się dzieje.
Racja. Bardzo dziękuję za tę uwagę. Ale chyba jednak zostanę z tym obiektem TImage na Formie, bo wygodniej mi go utworzyć na TScrollBarze. Z drugiej zaś strony nie potrafię odświeżyć z poziomu wątku, który dotychczas obsługiwał bezpośrednio rysowanie na Canvas formy Tlo: [syntax=delphi]Tlo.Canvas.Rectangle(a, b, c, d); [/syntax] a który zamieniałem...
Witam, natknąłem się na następujący trudność: Podczas tworzenia na formie obiektu Timage przypisuje mu img.enabled:=false; później w programie potrzebuję zmienić ten parametr na true ale nie wiem jak. TImage jest tworzony dynamicznie w taki sposób: rocedure TForm1.CreateImg(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,...
ale czemu w procedurze obsługi jest taka dziwna wartość? Jeśli definiujesz zmienną lokalną (w procedurze, funkcji), pamiętaj aby przypisać jej wartość początkową. W Twoim przypadku zmienna lokalna miała wartość obszaru pamięci RAM gdzie została ulokowana (sieczka).
Możesz malować po canvas, a co do czyszczenia to nie ma takiej gotowej funkcji, najprościej rysować wypełniony prostokąt. A co do konstrukcji programu to polecam najpierw wygenerować obraz tła (osie, zarysy etc) w obiekcie TBitmap, następnie utworzyć nowy obiekt TBitmap skopiować do niego obiekt z tłem, następnie namalować interesujący obraz a na końcu...
Jestem na takim etapie i niby wszystko działa a nie widać efektu/ obrazka [syntax=Delphi] Unit1; ... procedure TForm2.FormCreate(Sender: TObject); var ImageDC : HDC; begin ImageDC:= Image.Picture.Bitmap.Canvas.Handle; MojImage:= TMojImage.Create(ImageDC); end; [/syntax] [syntax=Delphi] Unit2; ... type TMojImage= class private public FImage : TImage;...
Nie musi jako podkładka służyć TLabel może być inny komponent ,który przyciągnie mi TImage .
JIIIS - w pewnych przypadkach wygodniej jest skorzystać z TImage, którego nie trzeba ręcznie przerysowywać ;) i do czego służy w ogóle funkcja Dormant ?? delphi akurat nie znam :/ tom - a w pliku pomocy nie masz? ;) Poza tym BC++B i Delphi to na tyle bliźniacze produkty, że kod - po zmianie systematyki - jest w zasadzie identyczny.
Athlon XP 1600: 320x240 - 180fps 640x480 - 45fps Jak widać Builderowy TImage nie jest taki zły. Program nie robi nic innego, tylko rysuje - za każdym razem całą klatkę od nowa. Osobiście na cele oscyloskopowe raczej bym kasował pojedynczo piksele z poprzedniego pomiaru i rysował je od nowa.
Witam !!! Mam dwa TImage na Formie do jednego napisałem kod żeby go można było przesuwać , i właśnie jak nałoże ten TImage który przesuwam na ten drugi ,widoczny jest ten drugi a mi chodzi o to żeby widoczny był ten pierwszy . Pozdrawiam.
Podesłałbym Ci mój projekt, nad którym pracują od paru miesięcy: modelowanie obiektów w 3d na podstawie zdjęć przedmiotu w rzeczywistości. Dla użytkowników Delphi, jest spore ułatwienie. Mamy dostępny komponent videograb. Wyglądem przypomina TImage, ale ma taki patent, że wyświetla obraz z kamery internetowej i można go zapisać do schowka, do obiektu...
Witam, Czy jest jakaś możliwość wczytania dużego zdjęcia do Timage zanim uruchomi się nasz program? Nie chcę aby było widać jak obraz(jpg) o rozmiarach 8000x8000 zawiesza na parę sekund program.. Trochę kombinowałem z Splash Screen ale nic mi nie wychodzi... Z góry dzięki;)
Diwne, że w ogóle załadowało Ci jpg do TImage. Jeśli chcesz 'porządnie' obsługiwać jpg, powinieneś dodać do sekcji uses słowo JPEG. W programiku deklarujesz zmienną np. x typu TJPEGImage i tworzysz ją (x:=TJPEGImage.Create). Do tej zmiennej można ładować pliki jpg. I na koniec wyświatlasz obrazek : Image1.Picture.Assign(X) Trochę to pokręcone, ale modół...
Drodzy koledzy. Widzę, że w temat zaczyna się wkradać chaos. Zamieszczacie kody które "zaciemniają" cały proces w niewiarygodny sposób. Autor tematu chciał pokazać obraz z pliku JPEG w kontrolce TImage. Po co tworzyć jakieś wydumane połączenia z plikami BMP lub zapisywanie ich na dysku? Cała operacja odczytu i wyświetlenia pliku JPEG zawiera się w kilku...
Jeszcze mam pytanie czy można jakoś inaczej zapisać w Delpi długość, szerokość i widzialność obiektów ? Bo mi wskazuje błąd na "Width", "Height" i "Visible". Błąd Ci wyskakuje, bo TForm.FindComponent zwraca zazwyczaj klasę TComponent , która nijak się nie na do TImage i jego cech, których używasz. Jak już koniecznie chcesz sobie życie komplikować,...
na pewno nie układaj tyle komponentów bo nie dość że się komp zmuli konkretnie po tym programie, to Ty będziesz to pisał ze dwa lata...jak do każdego z ponad 30tys. komponentów chcesz napisać procedurkę....lol... Użyj TImage, masz tam onMouseDown (taki event) on wykrywa naciśnięcie klawisza myszki nad obszarem i pojade względne (lewy górny róg obrazka...
No o to mi chodziło. Sprecyzowanie: 1. Pasek po lewej stronie z ikonkami. 2. Przeciągając ikonki na pole robocze można ustawiać. 3. Ikonki są blokami warunkowymi i wykonawczymi. 4. ikonki będzie najprościej zrobić przez obiekt TImage (w Delphi) Jak to zrobię to podeślę ze źródłami. Będzie to uniwersalne. (Ja zrobię na BASCOMA(tylko ten język programowania...
Z użyciem ScanLine, kolor jest zmieniany prawie w czasie rzeczywistym - sprawdziłem. To może kolega się kodem podzieli? :P Tu nie ma się czym dzielić :-). Do konwersji RGB->HSV->RGB użyłem "na szybko" znalezionego unit'a: [url=http://users.atw.hu/delphicikk/list... [syntax=delphi]unit Main; interface uses Winapi.Windows,...
delphi otwieranie plików delphi kalibracja delphi sondy delphi
komputer wirtualizacja utlenia alkohol serwisant elektronik
samsung ue55d8000 ołowiowa pasta lutownicza
Jak wyczyścić bęben światłoczuły w drukarce? Homelite F2020 - Czy to dobra podkaszarka?
