lineto() - laczy ci linie od punktu w ktorym aktualnie jest ustawiony wskaznik poczatku do punktu o wspolrzednych podanych jako parametry funkcji, czyli linie laczy ci razem, bo na koncu ostatniej znajduje sie aktualny wskaznik od ktorego ma zaczynac rysowanie przyklad przyklad Image1.Canvas.LineTo(100,100); Image1.Canvas.LineTo(50,50);...
Spróbuj tego : http://obrazki.elektroda.net/98_12597645...
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
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(...
Oczywiście, że jest dostępny, a lada moment dostępny będzie XE3. http://www.embarcadero.com.pl/sprzedaz/c... Więc z czym w zasadzie masz problem z tym obrotem? Bo nie bardzo chyba zrozumiałem. Skoro wiesz jak wykonać, a na czasie nie zależy... Co do alternatyw - zawsze można zaprząc do tego np Direct X (co w zasadzie robi własnie XE2...
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);
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;...
//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 ;)
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.
DZieki!!! Dziala w 100% :D
Sugeruję zapoznać się z tym wątkiem : [url=http://www.elektroda.pl/rtvforum/to... jak szybko wyświetlać odcinki na image'u ?
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.
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
To IMG to jakiś faktyczny wczytatny obrazek z dysku ? czy też poprostu umieścić komponent image na formie ?
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,...
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...
jak mnie pamiec nie myli to w DEPLHI na zakladce "indy clients" jest komponent TIdHTTP mozna by sie bylo nim pobawic (zamiast socketami) wykorzystujac to co wyzej kolega napisal
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.
Witam, jak mogę zrobic tło w Delphi, znaczy się mam tapetkę i chciałbym ją ustawić jako tło mojego programu???, pozdrawiam vcd_a wstaw na całości formatki (align - allClient) komponent image z palety Additional i do image przypisz oczywiście obrazek.
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,...
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. 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 :=...
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...
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...
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;
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...
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
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)
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.
Albo(chyba najprościej) kliknij na Image Ctrl+X, następnie kliknij na panel i Ctrl+V. Kod też się nie straci.
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 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,...
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 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
Piszę aplikację, która wykorzystuje 2 porty com = z kontrolki ComPort (3,1 pod Dlphi 7). Problem jest taki, że w pewnym momencie "sam z siebie" pojawił się problem z kompilacją programu. W momencie, gdy na pusty formularz przeciagnę dwie kontrolki i gdy od razu otwieram porty, np w zdarzeniu FormCreate pojawia się błąd kompilacji. Komunikat mówi, żer...
Ja bym spróbował Image.canvas.pixels , ale tego nie testowałem. ta medota odczytasz kolor piksla ale to polowa sukcesu parametry X,Y chce okresic za pomoca najechanei kursorem na te pozycje i tu jest problem ... :/
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 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ć?
do dopasowanie wczytaniej bitmapy nagryzmoliłem takie coś tylko Image1.Left:= 0; Image1.Top:= 0; Image1.Align:= alNone; procedure BitmapaToImageSize(Bitmapa: TBitmap; Image: TImage); begin // Image.Width:= Bitmapa.Width; Image.Height:= Bitmapa.Height; Image.Picture.Bitmap.Width:= Bitmapa.Width; Image.Picture.Bitmap.Height:=...
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...
1. sprawdzam czy jest wciśnięty przycisk myszy - jeśli tak to przesuwam obraz o "przesunięcie" - czyli myszą możesz przesuwać powiększony fragment. Przerysowuję podanymi przez Ciebie metodami - same odcinki - przed przesunięciem rysuję biały kwadrat o wielkości painboxa, wyliczam nowe odcinki w nowych miejscach i rysuję.... działa dobrze ale przerysowuje...
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...
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;...
Potrzebuję tworzyć sobie dynamicznie( procedure ChIm(const Num : byte); begin numer_zdj:=Num; ChangeImages; //to jest moja własna procedura end; ChangeImages; w OnCreate działa bez problemu, zaś w funkcji ChIm wywala błąd: Prosiłbym o jakąś podpowiedź co i jak mam zrobić, żeby to działało o ile da się to zrobić. Pozdrawiam
Witam Mam problem z komponentem TeeChart, a właściwie z poprawnym rysowaniem wykresów. Na poniższych linkach pokazane są wykresy, jeden z komponentu TeeChart, a drugi, na tych samych danych wykonany w Excelu: 1. Delphi http://img257.imageshack.us/my.php?image... 2. Excel http://img210.imageshack.us/my.php?image... Różnica...
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;...
Witam! Udalo sie komus zainstalowac komponent cport http://sourceforge.net/projects/comport w delphi 6?? mam z tym spory problem.. ciiagle wyrzuca jakies bledy np: [Fatal Error] DsgnCPort6.dpk(32): Bad file format: 'c:\program files\borland\delphi6\Lib\designide.dcp' poradzil ktos sobie z tym?? ps. screeny innych bledow jakie wyrzucalo prz probie kompilacji/instalacji...:...
Trochę namieszałeś z tą procedurą IdHTTPServer1CommandGet. To klient (przeglądarka) powinien decydować co chce od ciebie pobrać. Nie możesz wysyłać zawartości pliku HTML i zawartości obrazków równocześnie, nie "pytany" o to przez przeglądarkę. Klient wysyła zapytanie o stronę główną do serwera (twój program). Serwer odpowiada wysyłając kod strony, z...
Możesz co najmniej na trzy sposoby właściwie, najzwyczajniej: Image1.Picture.LoadFromFile('podfold... lub (. to katalog bieżący) Image1.Picture.LoadFromFile('.\podfo... lub (chyba najpewniejszy) var dir: String; begin dir := ExtractFilePath(Application.ExeName&... Image1.Picture.LoadFromFile(dir...
Troszkę mało informacji na temat języka w którym to piszesz ale już mogę ci powiedzieć standardowo nie ma rameczki do zaznaczania (w znanych mi językach programowania) trzeba sobie takąwą zrobić (troche zabawy z tym jest) ewentualnie skorzystać z jakiegoś komponentu (jak dla delphi lub buildera) a pozniej tablica to po prostu nastepna bitmapa ktora...
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...
Witam, od paru godzin usiłuję napisać program rysujący krzywą interpolującą na podstawie podanych przeze mnie węzłów. Znalazłem w internecie kilka programów, ale albo kod jest dla mnie za bardzo skomplikowany, albo aplikacja jest w pliku .exe i nie mogę wejść do kodu. Na razie mam zrobione rysowanie na komponencie 'Image' węzłów na podstawie wprowadzonych...
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 ...
Po przerwie powracam do tematu. Sporo komponentów znalazłem ale niektóre jednak trzeba zrobić ręcznie (za własne komponenty VCL jeszcze się nie biore ;) ), używam do tego pustego Image i ustawiam Transparent:=True w chwili rozpoczęcia rysowania np lini: Tasma_101.canvas.MoveTo(0,30); Tasma_101.Canvas.LineTo(Tasma_101.Wi... cało...
Cześć! Jestem początkującym, program mam 1 dzień, Mam dwa pytanie więc tak: -Jak dodać playlistę do odtwarzacz mp3 w Delphi -Czy jest możliwość przesuwanie image(obrazu). 1.Pierwsze pytanie raczej nie trzeba tłumaczyć ;] 2. Natomiast drugie, chodzi mi o takie coś jak jest tu : unit sada1; interface uses Windows, Messages, SysUtils, Variants, Classes,...
Jest ona bardzo rozbudowana - sama deklaracja to ok. 500 linii kodu, więc zamieszczę część tej deklaracji, ponieważ mam dość złożoną strukturę (kilka stopni dziedziczenia) tej klasy. [syntax=delphi] TLayer = class type Nibble = 0..15; private FName : String; FVisible : Boolean; FTransparent : Byte; FContrast : Nibble; ... dalsze pola, właściwości i...
Możesz wykorzystać komunikaty cm_MouseEnter i cm_MouseLeave generowane przez Delphi do sprawdzenia pozycji myszki. I przerobić sobie np. komponent TImage: Możesz mnie jeszcze uświadomić jak to przerobić, tzn. gdzie wkleić ten kod, bo nigdy jeszcze nie robiłem czegoś takiego :-(
Witam, robie pewien edytor do gry który pozwala na rozpoczecie gry w wybranym sektorze, po nacisnieciu na wybrany kwadrat (jest ich 256, wczytalem duza mape a nastepnie wstawilem 256 komponentow image ktore odpowiadaja za klikniecie. Łącznie wyszlo ok. 260 procedur) X i Y ładuje się do Edit1 i Edit2 następnie opcją zapisz zapisuje do pliku .ini. Edytor...
Mam taki oto problemik z programem. W programie jest główna forma. Z niej wywoływanych jest kilka form modalnych - w trakcie działania programu po naciśnięciu określonego przycisku. Ale jest problem. Przy kompilacji wyskakuje mi błąd: http://img177.imageshack.us/img177/3184/... Przy krokowym sprawdzaniu programu wychodzi że błąd ten wyskakuje...
Może zdarzenie OnChange? Occurs when an item in the list is about to change. typedef void __fastcall (__closure *TLVChangingEvent)(System:... Sender, TListItem* Item, TItemChange Change, bool &AllowChange); __property TLVChangingEvent OnChanging = {read=FOnChanging, write=FOnChanging}; Description Write an OnChanging...
Mam problem - w aplikacji DELPHI4 mojej na tle formy mam bitmapę (image) działało wszystko długo i dobrze, ale w miarę "rozrastania się" czasami po uruchomienu nie pojawiało się tło. Dziś już wcale się nie pojawia (dopisałem następnych kilka linijek kodu). Acha !!! Zapomniałem wspomnieć że wszystko jest ok po zminimalizowaniu i przywruceniu, lub jak...
Witam moj problem przedstawia sie nastepujaco jestesmy jakims tam samolotem i atakuja nas chordy wroga... i wszystko do czasu jest ok : w dxtimerze mam ... var RandEnemy : integer; begin if not DXDraw.CanDraw then exit; DXInput.Update; DXSpriteEngine.Move(LagCount); DXSpriteEngine.Dead; DXDraw.Surface.Fill(0); DXSpriteEngine.Draw;...
załaduj ikonki do komponentu ImageList, a następnie we właściwości "Images" PageControl'a ustaw nazwę komponentu ImageList. Pozdrawiam.
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...
a może ktoś wie jak zrobić coś podobnego? http://img828.imageshack.us/img828/8252/...
Wyniki sesji masz tutaj: http://www.gpw.com.pl/gpw.asp?cel=notowa... Np. dla notowan ciaglych rynku podstawowego masz: http://www.gpw.com.pl/zrodla/gpw/spws/sp... Trzeba sie podszyc pod przegladarke i polaczyc z hostem "www.gpw.com.pl" na port 80, i wyslac zapytanie np. jak IE: GET http://www.gpw.com.pl/zrodla/gpw/spw...
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...
Mam wykres z testu rozruchowego fordowskim IDS-em sprawnej pompy Delphi w silniku 2,0tdci (całość na rozruszniku). Ponieważ 1 MPa to 10 barów, wychodzi na to, że po krótkim czasie (2 sek) pompa może podać nawet 1200 barów (a nie tylko żądane 200 ma duży zapas)... Test był robiony na ciepłym silniku (tzn dosyć szybko kręcił). http://img403.imageshack.us/img403/4623/...
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...
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));...
To co jest poza ekranem i sam nie zadbasz o pamiętaniu tego jest po prostu gubione. Stwórz obiekt typu TBitmap, na nim wykonuj operacje i wyświetlaj go na komponencie TImage. Obrazek ten będzie mógł zmieniać dowolnie swoją wielkość i zależnie od parametrów formy będzie można go skrolować. http://pl.wikibooks.org/wiki/Delphi/Bitm... Przykład: [syntax=delphi]unit...
Może spróbuj tak: with Image1.Canvas do begin Brush.Color:=clWhite; //Kolor dowolny , taki przyjmie Kanwa. FillRect(ClipRect); end;
Jeśli do skalowania wykorzystujesz własność Stretch, to po prostu zmieniaj ją (Image1.Stretch := not Image1.Stretch)
oto i kod : unit Main; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DXClass, DXDraws, MMSystem, D3DUtils, DirectX; type TMainForm = class(TDXForm) DXDraw: TDXDraw; DXTimer: TDXTimer; DXImageList: TDXImageList; procedure DXTimerTimer(Sender: TObject; LagCount: Integer);...
Może nie autorem ale autorami są mechanicy którzy nie posiadając drogiego sprzętu w ten sposób lokalizują tego typu usterki. I jest to metoda naprawdę sprawdzona i skuteczna. -system zasobnikowy lub sferyczny https://delphi.com/shared/images/ppd/pwr... -szyna http://rb-kwin.bosch.com/pl-PL/start/pro...
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...
Nawiązuję do wątku założonego wcześniej, zgodnie z radą przechodząc z Delphi do PHP. Dopisuję więc pytanie tutaj. // Wstęp Od razu mówię, że NIE CHCĘ GOTOWCA, chcę się czegoś naprawdę nauczyć, więc będę wdzięczny za wskazanie kilku rzeczy w kodzie, który na bieżąco poprawiam. To mój pierwszy strzał z PHP, ale wcześniej naprawdę skomplikowane i duże...
To sa moje ustawienia, przy których zazwyczaj pracuję : {$A+,B-,C+,D+,E-,F-,G+,H+,I+,J+,K-,L+,M-... {$MINSTACKSIZE $00004000} {$MAXSTACKSIZE $00100000} {$IMAGEBASE $15000000} W swoim kodzie wejdź w pustą linię, gdzieś na początku kodu i naciśnij kombinację klawiszy : Przytrzymać CTRL oraz dwa razy O . (Literka O...
Pobierz zmodyfikowane źródło i kompilat z : http://www.skyview.pl/ic.zip Programik jest domyślnie dla 176*132. Jęzeli chcesz obrabiać inny wymiar wywołaj z parametrami np. "imageconverter 200 300" (parametry oddzielone spacjami)
Witam ! Twoj projekt jest bez watpienia 6/6 !!! kiedy go zobaczylem stwierdzilem ze musze miec cos podobnego :) wiec zabralem sie za budowe wiertarki numerycznej do plytek PCB, ma pelnic takze funkcje malej frezarki do niewielkich przedmiotow. Jak narazie wszystko jest w poczatkowym stadium. Zakladajac ze uda mi sie usunac wszelkie luzy, wedlug obliczen...
Witam i dziękuję za odpowiedź. Jeżeli już posiadam zwykłe karty MiFare na 13,56Mhz lub tagi Unique 125kHz IMPRO (r): [url=http://www.impro.net/index.php/hard... to czy jest szansa po ich przyklejeniu na szybę pojazdu na odczytanie przez wymieniony sprzęt RFID UHF czy należy...
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....
Dodano po 50 Poniższe linijki przypisują wartości do pola, ale po kolei opiszę co i jak: [syntax=delphi] nazwa.Text:=tabButow[StrToInt(naszeButy.... //przypisanie wartości do pola nazwa z tablicy, po wybranym indeksie z pola wyboru naszeButy z tablicy rekordów rozmiar.Text:=tabButow[StrToInt(naszeBut...
Dziękuje za odzew na mój post, Alternator ma oznaczenie na obudowie 14,5V 190 A pochodzi z Touareg lub Porsche Cayenne 4,5l Turbo, dodatkowo ma wbudowaną pompkę do chłodzenia go wodą. Wyprodukowała go firma Delphi w 2006 roku. Zaraz poszukam w necie takiego żebyście mi uwierzyli. Pozdrawiam, Dodano po 58 Tak chciałbym żeby wyglądał mój wiatraczek. http://img257.imageshack.us/img257/9672/...
MPPS jak ponizej, chyba nie obsłuży tego sterownika Delphi http://i00.i.aliimg.com/wsphoto/v3/67705... BDM 100 też chyba nie będzie pasował http://image.made-in-china.com/2f0j00ivJ...
Zgadzam się z Tobą, ale nic mi to nie daje gdyż zwiększając częstotliwość próbkowania dwukrotnie mogę przechwycić 2 razy więcej próbek w tym samym czasie. Problem tkwi w tym, że po dokonaniu transformaty połowa przebiegu będzie wychodziła poza pasmo akustyczne. Poniżej screeny mojego programu testowego. Widać jak po zmianie częstotliwości próbkowania...
Każdy kolor, jest budowany z 3 składowych RGB. Wystarczy odpowiednio dobrać tolerancję dla danej składowej koloru. Odpal sobie zamieszczony programik i 'pojeździj' myszką po obrazku. Własciwie cały program 'mieści' się w jednej procedurze i jednej funkcji do formatowania wyniku. [syntax=delphi]function ColorToRGBstring(Color: TColor): string; var R,G,B...
otwieram obrazek np bmp opendialog i ląduje na formie jako image1 koduję: image1.Picture.Graphic.SavetoStream(f); f.Position := 0; Memo1.Lines.Text := IdEncoderMIME1.Encode(f); i ładnie w memo1 jest zakodowany obrazek teraz chcę zdekodować: Memo1.Lines.savetostream(f); //nagrywa do strumienia f (chyba) IdDecoderMIME1.Decode(f); //dekoduje strumień f...
glapsson, very interesting the development of the information. the vin and pincode is correct, I am studying the keys of said algorithm. I could share the information collected to see if I can contribute something. I attach images https://obrazki.elektroda.pl/7294801100_... https://obrazki.elektroda.pl/2559498600_...
Kopiowałem DLL i do folderu z aplikacją i do folderu Debug oraz System32. Błąd powstaje podczas kompilacji, jak również przy włączeniu aplikacji. A więc przedstawiam na początek: http://www.fotosalezjanie.granitowa.stre... Widać komponent na formatce oraz wprowadzone dane, niestety zmieniając "Connected"...
Dziękuję za odp. Pozwolę sobie zadać jeszcze jedno pytanie. na podstawie zebranej informacji został wyświetlony zdjęcie Image3 jak zapisać ten obraz w postaci jpg. w Delphi jestem początkujący. Dziękuję.
Dalej nie do końca rozumiem. Mój kod wygląda w skrócie tak: Form4 type TForm4 = class(TForm) Image1: TImage; Label1: TLabel; RadioGroup1: TRadioGroup; Button1: TButton; Memo1: TMemo; Image2: TImage; procedure RadioGroup1Click(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } s:...
A po co ta cała szopka z Application.ExeName ? nie łatwiej zrobić od razu? Image2.Picture.LoadFromFile('liczby\... Gdy uruchamiam przycisk to tylko słyszę dźwięk jakby wystąpił jakiś błąd ale się nie pojawia. Widocznie plik *.wav nie znajduje się w tym folderze lub źle podajesz ścieżkę do pliku Ogólnie jak używasz delphi to zainteresuj...
Witam! Mam jedno proste pytanie. Chcę otworzyć plik graficzny w Image1, więc używam polecenia: Image1.Picture.LoadFromFile('Nazwa pliku'); Mam jednak inny problem. Mam już otwarty plik i muszę znać jego nazwę, jakim poleceniem ją odczytać i wyświetlić w Edit1:
[syntax=delphi][/syntax][syntax=delphi][... Witam, mam problem z instalacją programu do diagnostyki delphi. Niby zrobiłem wszystko tak jak pisało w instrukcji, a gdy próbuje go włączyć to wyskakuje taki błąd. Ktoś miał juz podobny problem albo wie co zrobić? https://iv.pl/images/c7dc1e2bac0f9cab835...
(at)chisel Testuje i wygląda na to że pomogło :) Zobaczymy jeszcze na innych systemach i komputerach czy wszystko jest ok. Dzięki Mam jeszcze jeden problem i nie wiem po jakie stronie. Czy po stronie programu czy to problem od strony układu ft232. Mianowicie chodzi o odczyt stanu jaki jest na pinie układu FT232. Obecnie jak układ jest podpięty cały...
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, ComCtrls; type TForm1 = class(TForm) Image1: TImage; //Work area Image2: TImage; //Drag cursor eg 12x12 StatusBar1: TStatusBar; Timer1: TTimer; procedure FormCreate(Sender: TObject); procedure...
Witam! Mam taki kod : Image1.Picture.LoadFromFile(e:\' obrazek.bmp'); Kod ten jak wiecie ładuje obrazek z określonej lokalizacji(e:\). Problem polega na tym że jak przenoszę ten program lub komuś wysyłam to już nie można załadować tego obrazka ,wyskakuje że nie można znależć określonej ścieżki itp. Czy można to jakoś ominąć tak żeby ten obrazek wszędzie...
Użyj TImage a kolor pixeli możesz odczytywać/modyfikować za pomocą: Image1.Canvas.Pixels[X,Y] lub za pomocą szybszej metody przy użyciu: ScanLine Pozdrawiam...
error image enigma2 image image enigma
hyosung moduł sonda uruchomienie emachines płyta główny
multimetr aneng ekspres nespresso
Kapsułka utknęła w DeLonghi Nespresso Inissia EN80.B Jak wyciągnąć blokadę kierownicy w Piaggio Liberty