//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 ;)
Dzięki, ale szukam możliwości stworzenia i drukowania zawartości IMAGE bez zapisywania na dysku. Dodano po 10 Problem rozwiązany :) Printer.Canvas.Draw(0, 0, Image1.Picture.Graphic); Dzięki za zainteresowanie Pozdrawiam Puchała
Jak obrócić bitmapę w TImage w Delphi VCL? Używam Inc(Dir,10); i chcę płynnie animować obraz – GDI+, Graphics32, Skia4Delphi, obrót o dowolny kąt, obsługa timera.
1. ja bym nie uzywal Free tylko delete bmp, Free to sie ostalo z Delphi ;) 2. hm, zawsze przy drugim razie sie wylacza? czy przy jakichs konkretnych obrazkach, kod wyglada jakos niegroznie
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...
Czemu sporo? with PaintBox.Canvas do begin Lock; //mażemy stare CopyRect(OldRect,Bmp.Canvas,OldRect&... //rysujemy nowe LineTo(x,y); Elipse(NewRect); Unlock; end; //i kopia do bitmapy: Bmp.Canvas.LineTo(x,y); Z kolei OnPaint: with PaintBox.Canvas do begin Lock; Draw(ClipRect,Bmp.Canvas.ClipRect... Unlock; end;...
Mam wersję 2010 :cry: Odnośnie samego obrotu to nie jest problem, wszystko pięknie działa, ale tylko przy niewielkiej ilości punktów i małym rozmiarze... Może jakieś inne pomysły? P.S. Czy jest dostępny w Polsce Delphi XE2, jeśli tak to jaka jest jego cena?
Mam pytanko co do rysowania linii. coś w stylu. Image1.Canvas.LineTo(100,100); jak wyłączyć aby nie łaczyło mi koniec linii z początkiem. Chodzi o to że jak rysuje wykres a potem zaczynam kolejny na tym samym Image to mi łaczy koniec pierwszego z poczatkiem drugiego. drugi problem, Jak wyczyściś pole: Image? do tej pory rysowałem prostokąt....
Spróbuj tego : http://obrazki.elektroda.net/98_12597645...
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 :=...
Może i mnie wyśmiejesz ponieważ rozwiązanie jest bardzo proste a efekt taki sobie, ale jest to najprostsze moim zdaniem rozwiązanie a czasem najprostsze okazują się niezastąpionymi ;) Po prostu sposób ten wykorzystuje zdolność "rozciągania" obrazka przez komponent Image
Sugeruję zapoznać się z tym wątkiem : [url=http://www.elektroda.pl/rtvforum/to... jak szybko wyświetlać odcinki na image'u ?
Oto czym na razie posługuję się przy dorywczym serwisie komputerów, zwykle niestety u klienta. Założeniem było wydać jak najmniej pieniędzy podczas kompletowania narzędzi. Mam nadzieję, że każdy znajdzie choć jedną przydatną rzecz. Skrzynka narzędziowa , a w niej: * Tester zasilaczy ATX (40zł) * Zarabiarka gniazd RJ45 (20zł) * Zarabiarka wtyków RJ45...
Nie :( Jednak bardzo dziękuję za odp. Udało mi się to zrobić na 2 form jak jedna ma alpha 255 to druga ma 0. I tak na przemian... uzyskuję efekt przenikania jednej planszy w drugą. Jednak problem polega by tego dokonać na jednej form. Kanał alpha posiada tylko Form a image już nie.
Image Edit Borlanda będzie pasował. W builderze C++ i w delphi znajdziesz w katalogu BIN. Generalnie program do ikonek ale obsługuje kursory, bitmapy, i pliki resource. Ale i tak paint najlepszy.
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...
Witam. Tworzę projekt związany z grą w grę planszową. Stworzyłem już system losowania ilości oczek w kostce, a teraz chciałbym stworzyć procedurę dzięki której, w zależności od ilości wylosowanych oczek, będzie rysowana odpowiednia kostka. Lecz nijak bym próbował to nie mogę zacząć. Proszę bardzo o jakieś podpowiedzi. PS mam dwa pola typu image (plansza...
Dziala , tylko bardziej chodzilo mi o cos takiego zeby wyswietlalo liste pasujacych wynikow Ale najpierw musisz tę listę jakoś utworzyć, lub skądś pobrać, prawda ? Możesz to zrobić, bardzo prosto nawet przy pomocy jednego TEdit-a i np. Jednego TMemo. Umieść na formie jeden TEdit i jedno TMemo. Do zdarzenia OnChange dla TEdit-a napisz taką procedurę...
Witam. Mam do zrobienia w Delphi model koloru RGB (taki jak jest w Adobe Photoshop). Zrobiłem już wybieranie za pomoca przycisków R, G, B. mam zrobiony suwak i kwadrat z wartoscia na jakiej jest ten suwak. Wszytsko ładnie działa pokazuje mi wartość , kolor w Image się zmienia Jedno czego nie potrafie zrobić to ażeby było tak jak np. w Adobe Photoshop...
Wybieram plik i ścieżkę dostępu poprzez FileOpenDialog. To działa, wyświetlam ją w Label, ale tego stringa nie wiem jak przekazać do ShellExecute aby uruchomić wybrany program (lub otworzyc skojarzony plik). Gdy podam w ShellExecute ścieżkę i plik jawnie to OK, lecz jak wstawię w to miejsce zmienną to nic, chociaż w zmiennej jest cała ścieżka wraz z...
C:\Documents and Settings\Dawid>d: D:\>cd "\Dokumenty\Delphi\avi2wavXY" D:\Dokumenty\Delphi\avi2wavXY>dir Wolumin w stacji D to INST I DANE Numer seryjny woluminu: 4030-00C4 Katalog: D:\Dokumenty\Delphi\avi2wavXY 29.03.2009 13:44 <DIR> . 29.03.2009 13:44 <DIR> .. 23.07.2008 13:35...
Pod delphi to się robi tak: Making screenshots is actually easier than you may have assumed. This tip makes screenshots of the desktop only, but you can implement it to your needs. A lot of people have asked me how to get an image of the screen. For various reasons :-) I think this is a very usefull idea so I decide to include it in my FAQ....
Jesli dobrze pamietam TImageList posiada metode: GetBitmap( pozycja, bitmapa); no i zaloze sie (tez nei pamietam dokladnie) ze TImage posiada metode SetImage // edit: dokladnie mozna zrobic to tak (wybacz jesli beda bledy nie jestem specialista od delphi) Var image : TImage; imgList : TImageList; bmp : TBitmap; Begin imgList.GetBitmap(...
Witaj Najprościej to w szablonie raportu umieszczasz komponent graficzny (bitmapę lub metafile) i w property 'Image" wskazujesz na wcześniej przygotowany plik graficzny wykresu. W załączniku przykład.
Mam pytanie dotyczace grafiki w delphi.Czy mozna jakos odczytac kolor jakiegos piksela z obrazka (np.komponentu image).Cos odwrotnego do convas.moveto(y,x); canvas.lineto(y,x);
Ja bym spróbował Image.canvas.pixels , ale tego nie testowałem.
Nie ma takiej możliwości, grzebanie w pamięci jest zablokowane, ale zawsze można operować na obiektach Image albo podobnych do których jest dostęp przez odpowiednie metody obiektu tbitmap.
DZieki!!! Dziala w 100% :D
Tu jest wszystko co potrzeba: http://www.lazarus.freepascal.org/ a tu obrazek: http://wiki.lazarus.freepascal.org/Image... Po polsku niema za wiele o lazarusie, ale właściwie wszystko co zostało napisane o Delphi można zastosować do Lazarusa. Jednak ostrzegam, jest to wersja 0.9.2 i np niema debuggera jeszcze ...
Zamiast wczytywać ręcznie BMP, można wykorzytsać gotowe komponenty Delphi. uses Graphics, jpeg; var Image : TGraphic; begin Image := TJPEGImage.Create; try Image.LoadFromFile('plik_do_binaryza... { teraz można dostać się do pikseli poprzez Image.Canvas.Pixels } { można wykonać binaryzację czy cokolwiek } Image.SaveToFile('plik_po_binaryzacj...
najprosciem zrobic to tak: wczytaj bitmape do image, nastepnie za pomoca funkcji image.canvas.pixel[x,y]:=Tcolor; gdzie x,y to wspolrzedne pixela, a TColor to kolor w postaci HEX $RRGGBB. Pewnie nastepne pytanie bedzie brzmialo jak zapisac wartosc z ineger'a do tej zmiennej TColor. Rozwiazac to mozna nawiele sposobow, mozesz np tak: (Kazdy kolor jest...
Otwórz Notatnik i wklej w nim: Windows Registry Editor Version 5.00 Z menu Notatnika > Plik > Zapisz jako > Ustaw rozszerzenie na Wszystkie pliki > Zapisz jako FIX.REG > z prawokliku opcja Scal Zresetuj system.sprawdź w services.msc czy usługa Windows Defender wróciła do normy.
Kod który wysyła plik: <form method="post" enctype="multipart/form-data"&... <input type="file" name="fileupload" class="textfield" size="10"> <br /> <br /> <input type="submit" value=" Host it! " /> </form> Do serwera jest przesyłane: POST...
Witam, Mam mały problem. Pisze program, w którym na podstawiem obliczonych danych ustawia mi w Image któryś z obrazków z ImageList. W ImageList mam 10 obrazków. Procedure TForm.Button1Click(Sender: TObject); (...) x:=Label1.Caption; //obliczona wartość a:=StrToInt(x[1]); //pobieram pierwszą cyfrę ImageList1.GetBitmap(a, Image1.Picture.Bitmap); Wszystko...
W zakładce Additional masz komponent image. Włóż sobie go na formę i potem możesz do każdego przycisku dać polecenie: procedure TForm1.Button1Click(Sender: TObject); begin Image1.Picture.LoadFromFile('c:\... end;
Kwestia wczytywania do Memo jest prosta - jak chcesz widzieć, to tak, jak nie to nie. Jednak jeśli będziesz chciał operować na tych liczbach to najlepiej wczytać je do dynamicznej tablicy, albo od biedy do TStringList. Y... "Styczna" to mi się kojarzy z pochodną funkcji ;) Co do klikania - najlepiej zrób sam wykres na Image i przy klikaniu obliczaj,...
To IMG to jakiś faktyczny wczytatny obrazek z dysku ? czy też poprostu umieścić komponent image na formie ?
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...
Chciałam się zapytać czy ktoś wie jak można ten program przerobić, żeby nie używać "Fly" i zrobić ruchomy obrazek zamiast napisu ? Kod wczytanego z pliku jest taki: " Bitmap.LoadFromFile('D:\1.jpg')" ale mi chodzi o obrazek już utworzony w Delphi "Image" na który został wczytany obrazek. unit DemoFrm; interface uses Windows, Messages, SysUtils, Variants,...
Witam! Podczas pisania programu natrafiłem na pewien problem. Mam do obsługi ponad 300 komponentów Image w Delphi. Nazwy komponentów wyglądają tak: Foto1, Foto2, ..., Foto300, itd. Chciałem wykorzystać pętlę łączącą nazwę FOTO z numerem porządkowym, ale jak to połączyć? "FOTO" jest typu STRING, numer typu INTEGER, a nazwa komponentu to TImage - ma ktoś...
Praktycznie wszystko w Windows jest tak czy inaczej prostokątem, np przyjmowanie kliknięć odbywa się w prostokątnych obszarach *) Czym innym jest pytanie "czy coś może wyglądać jak trójkąt" - większość obiektów VCL można powiązać z obrazkiem (bitmap, image) *) da się znacznym wysiłkiem.
Witam!! Mam tak banalny problem: Rysuje wykres na canvasie komponentu image i chcialbym po prostu zmienic tlo w image i na prawde nie wiem jak to zrobic...(zmienic tlo do wykresu)
ja zrobilem to tak na pomysle MirkaCZ inc(curve); X := OriginalX - Round(sin256(curve)*200); y:=y+0.5; le jezeli tworze obiekty przez : var i:integer; begin for i:=1 to 5 do begin with TWrog.Create(form1.dxspriteengine.en... do begin Image := form1.dxImageList.Items[1]; Width := Image.Width; Height := Image.Height;...
W jaki sposób uniknąć podanego na zdjęciach efektu, aby po maksymalizacji (lub ręcznym rozciąganiu) formy wszystkie komponenty łądnie skalowały sie do aktualnego rozmiaru formatki? Normalny widok formy: img296.imageshack.us/my.php?image=normal... Po maksymalizacji formy: img185.imageshack.us/my.php?image=maxxw8...
Albo(chyba najprościej) kliknij na Image Ctrl+X, następnie kliknij na panel i Ctrl+V. Kod też się nie straci.
Witam jak wstawiam komponent Image to podczas gdy po nim rysuje to całe pole robocze mam koloru białego chcę je zmienić na inny z palety TColor? Jak to zrobić?
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;...
Witam Rysuję rysunek na Image. Następnie otwieram plik tylko do sczytania danych poprzez okno dialogowe OpenDialog. Okno dialogowe marze mi mój rysunek. Jak zrobić aby rysunek cały czas był na ekranie. Jak wyczyścic Image z poprzedniego rysunku. Dzięki Zamykam. - arnoldziq
Oczywiście, że obrazki można ładować z zasobów. Jest wiele przykładów jak to zrobić, np: https://stackoverflow.com/questions/4125... i jeszcze trochę uwag dla nowszych Delphi https://stackoverflow.com/questions/1094...
jak to możesz ściągnąć w 60min. to ja się właśnie pytam jak to się stało!! borland_delphi_2005_enterprise_with_inst... tu masz nazwę pliku, zapuść sobie w eMulu...
Jak potrafisz programować to mogę np. zaproponować Delphi. Ładujemy obrazek do pola image (np. 20 x 20) i sprawdzamy pixel po pixelu kolor. Sprawdzoną linie możemy np. od razu wyrzucać na port LPT. Proponuję sterowanie multipleksowane. Panel powinien być 16 x 16 albo 24 x 24 bo takie układy cyfrowe można dostać :). Na wersy dekoder podpięty do licznika,...
error image enigma2 image kernel image
samsung pralka uszkodzenie myjka ultradźwiękowa jaką kupić radio pinout
skoda octavia błędy skoda octavia błędy
Wyważarka do kół startuje, ale zaraz staje - usterki Wyważarka ATS W320 - uruchamia się, ale zatrzymuje
