Nigdy nie korzystałem z siatki grid, ale za to fajnie można podobny efekt osiągnąć tworząc siatkę prostych elementów typu Label, Edit. Przesyłam więc kod źródłowy programu, który generuje na formatce w zdarzeniu OnCreate formy tabelę złożoną z 10 wierszy, a w każdym z nich z dwa pola tekstowe i jedno combo. Jednak nie oznacza to, że w pamięci można...
nieeeeee.... trzeba bylo sprawdzic najpierw... jak nacisniesz klawisz OK w PrintDialog to to wlasnie ustawia sie odpowiedni index (drukarke) w PrinterIndex a wg PrinterIndex mozesz pobrac nazwe drukarki (printer.Printers.Strings przyklad odczytania nazwy drukarki
Chodzi o to, że mamy Integer, a drugi argument AddObject musi być typu TObject. Nie pamiętam, czy wstępna konwersja na Pointer jest potrzebna - możesz spróbować od razu robić z Integera TObject. W każdym razie wykorzystujemy fakt, że zarówno wskaźniki, jak integery mają po 4 bajty. Nie jest to zbyt eleganckie, ale działa :) Elegancko byłoby zdefiniować...
Ja z poziomu Delphi zamieniać kolory na bitmapach. Coś takiego mnie interesuje mój podstawowy obrazek który wczytuje z pliku bmp, jpg lub inny format graficzny, jest na nim zdjęcie przedmiotu który składa się z 4 kolorów np. żółty, zielony, czerwony, czarny - wszystko na białym tle lub innym do ustalenia. Chcę by moja aplikacja za pomocą 4 parametrów...
Użyj ComboBox w trybie simple edit (czy jakoś tak). On ma z automatu opcję podpowiedzi, trzeba mu tylko zapełnić listę nazw.
Jeśli ma być przede wszystkim proste to olej te liczby losowe, jak rysowanie różnych figur o różnych kolorach tła i krawędzi i ew. różnej grubości krawędzi. O ile to nie jest za proste to możesz zrobić tak: jakieś combobox i tam wybór figury potem 2 buttony każdy otwiera colordialog a poza tym jakiś spinefit który określa grubość no i sama figura możesz...
Zazwyczaj ComboBox służy do wyboru czegoś co już isnieje. Nie stosuje się takiej metody żeby dodać nowy element. Proponuję właśnie przez Edita i jakiś przycisk. A co do daty to: NazwaPliku:=FormatDateTime('loka... polecam informacje o FormatDateTime żeby nie było rok chce 2 cyfrowo miesiące z nazwami...
Oto wersja ewaluacyjna :) , wykonana "na szybkiego". Czy o coś takiego chodziło ? procedure TForm1.ComboBox1Enter(Sender: TObject); var M,L: integer; begin M:=0; with ComboBox1,Canvas,Items do begin for L:=0 to Count-1 do //pętla wyszukiwania najdłuższego ciągu M:=Max(M,TextWidth(Items[... if M>0...
Jest darmowy, również do zastosowań komercyjnych.
mam pytanie jak wczytac wszystko z pliku txt do combobox ... mam problem bo mi wczytuje tylko 1 wiersz... plik txt zawiera : 1 2 3 4 i kod mam taki do wczytywania do comboboxa : procedure TForm1.FormCreate(Sender: TObject); var F: TextFile; S: string; begin if FileExists('plik.txt') then begin AssignFile(F, 'plik.txt');...
Dostęp do bazy MS Access-a w Delphi można uzyskać dość łatwo. Na przykład za pomocą komponentów ADO. Potrzebujesz do tego dwóch komponentów : TADOConnection oraz TADOTable. Napisałem na szybko aplikację do połączenia z plikiem MDB, ale jest ona napisana w Delphi 2009, wiec raczej jej pod Delphi 7 nie otworzysz. Nie jest to jednak problem, bo aplikacja...
Nie jestem specjalista od VB, ale zgodnie z logiką (np. Delphi), dgvCombo.Items(1) Nie odwołuje się do wybranego przez Ciebie elementu, a jedynie do drugiego ( index 1) elementu na liście Combo. Jezeli na liście Combo masz elementy, np. : 100,200,300 to dgvCombo.Items(0) zwróci 100, dgvCombo.Items(1) zrwóci 200 itd. Poza tym (ciągle opieram...
Jak w temacie, Delphi 3, baza paradox, Pole lookup przedstawia w czymś podobnym do combobox liste szczegolow należących do danego rekordu (w tym przypadku jest to lista plików należących do danego rekordu), chcialbym wyszukać tylko te rekordy w których lista plików w polu lookup zawiera określony plik... Dzieki z gory za pomoc.
Nie zapomnij także ustawić tych ComboBox-ów z właściwościami portu.
Witam, mam problem z wyświetleniem określonej liczby elementów listy. W ComboBox ustawiłem DropDownCount na 5, ustawiłem styl na DropDownList. Przy kliknięciu okno rozwija się i wyświetla wszystkie jednak elementy. Dopiero przy zmianie stylu na DropDownVariable uzyskuję założony efekt. Moje pytanie brzmi dlaczego? Czy DropDownCount działa wyłącznie...
Dlaczego 18 ? Standardowa wysokość ComboBox-a to 21...
Nie widzę tu pytania, więc powiem tylko, że musisz zapisać w jakimś pliku text najlepiej DateToStr który pamiętał by o której ma być wywołana dana procedura. Później już tylko sprawdzasz czy aktualna data i godzina odpowiada (czy jest równa lub trochę większa-zalaży co ile chcesz sprawdzać) zapisanej w pliku, jeżeli tak to włącza sie procedura i tyle.
Pośpieszyłem się z tym linkiem...sorry Nie zauważyłem, że to C++...nie delphi.
Przekopałem cały internet i nigdzie nic nie znalazłem na rozwiązanie swojego problemu. W swoim programie mam komponent combobox z czterema elementami 1,2,3,4 jak ma wyglądać procedura aby po naciśnięciu np 1 załadowalo mi się określone zdjęcie?
Witam, Proszę o pomoc z zapytaniem sql. Do tej pory używałem Firebirda i poniższe zapytanie działało mi bez problemu zwracając wartości o które pytałem, niestety po przejściu na MSSQL2005 nie zwraca żadnej wartości. Dodam że tabele są identyczne. with ADOQuery3, SQL do begin Close; Clear; Add('SELECT SUM(MASY_DZIEN.MASA_MAX)FROM (SELECT...
TAuthenticationType = (atNone, atLogin); TAuthenticationType to typ wyliczeniowy. Możesz podłączyć te wartości np. do ComboBox-a. Dodano po 2 procedure TForm1.ComboBox1Change(Sender: TObject); begin if ComboBox1.ItemIndex=0 then // 'z logowaniem' SMTP.AuthenticationType := atLogin else //bez logowania SMTP.AuthenticationType...
Witam, Mam MSSQL2005 i Delphi2007 Pro. oraz takie zapytanie pobierające dane z bazy: with ADOQuery1, SQL do begin Close; Clear; Add('SELECT ID,WAGA,FABRYKA,ZAKLAD,MASA,CZAS,DATA FROM DATA WHERE MASA BETWEEN :masa_od AND :masa_do AND DATA BETWEEN :data_od AND :data_do '); Parameters.ParamByName('masa_od')... :=...
W jaki sposób zmniejszyć standardowe kontrolki (checkbox, combobox, radiobutton, list box, combobox itd). Zmniejszanie ich uchwytami powoduje jedynie "okrojenie". Skala pozostaje taka sama. Druga sprawa, to jak ustawić rozmiar tekstu, np 5 lub 6. Zdaje się, że jawnie mniejszy od 8 nie można ustawić. Da się to jakoś obejść?
Zastosuj coś takiego : [syntax=sql]SELECT * FROM '+Combobox1.Text+' Where UPPER('+Combobox2.Text+') LIKE UPPER("%'+Edit1.text+'%")[/syntax] Albo jakąś wariację.
Czesc Nie wiem czy dobrze zrozumialem o co chodzi ale aby sie to wyswietliło potrzebna jest jeszcze linijka: UpdateData(false); A jesli dane masz w dwoch formach to nie zapominaj o zmiennych globalnych i o deklaracji drugiej formy. Hmmm.... Niestety nie dziala w ten sposob tak jak bym tego chcial :| Jednak nie modyfikuje tego zapisu. Napisze jeszcze...
Witam. Mam na TPanel wiele różnych obiektów / edit, checkbox, combobox, etc... , w jaki sposób zrobić wszystkie nieaktywne? Jak robię nieaktywny panel to w sumie nie da się zmienić zawartości kontrolek ale wyglądają jak aktywne / w sumie ich parametr enable nadal jest aktywny więc pewnie dlatego. Ja chciałbym, żeby użytkownik widział że są nieaktywne.
var s : string; begin s:=InputBox('Dodaj serwer SMTP :', 'Adres server SMTP', ''); Combobox1.Items.Add(s); ComboBox1.Items.SaveToFile('SMTP.txt... U mnie to działa bez błedu i nic się nie wysypuje.
Poniżej kod programu napisanego w Builder C++ a w zalączniku dodany skompilowany exe'c //--------------------------------------... #include <vcl.h> #pragma hdrstop #include "silnik_u.h" //--------------------------------------... #pragma package(smart_init) #pragma...
Tu masz konsolkę SQL którą jakiś czas temu namalowałem :) działa z każdym zapytaniem to rozwiązanie ma tylko taką wadę że kiedy chcesz usunąć tabelę którą oglądasz w DBGridzie wyskakuje wyjątek ale ją usuwa, ale chyba nie masz tego problemu. [syntax=delphi]procedure TForm1.Button4Click(Sender: TObject); begin // konsola sql try SQLQuery1.Open; if SQLQuery1.Active...
Witam, ComboBox1.Items.Add('treść_pozycji_listy... Mam nadzieję, że tym razem o to chodzi. Pozdrawiam
Też ostatnio szukałem skin'ów do Delphi 7 Pro ale jedyne co znalazłem to wersje Lite lub Demo. Poszukaj: VclSkin - pełny pakiet z tym, że w górnej belce okna zamiast naszego caption'a widnieje napis "VclSkin Demo" i nie można (tzn ja nie mogłem) tego zmienić. AlphaControls Lite - kilka kontrolek freeware (Panel, Button, Edit, CheckBox, ComboBox, Gauge,...
Sam sobie odpowiem:). Znalazłem komponent, który pozwala zrobić coś takiego na stronie delphi.icm.edu.pl. Komponent nazywa sie XStringGrid. Ale przykład, który tam jest mnie nie wystarcza i nie radzę sobie z obiektem ComboBoxEditor. Ma ktoś doświadczenia z tym? Pozdrawiam, P.
1. To gdzie w tym kodzie próbujesz wczytać tą notatkę? 2. Skoro wiersz o numerze 0 również wczytujesz z pliku to czemu na numer 0 ma reagować błędem? 3. Wczytujesz wiersze o numerach 0...rowcount-1, do ComboBox'a dodajesz 1..StringGrid1.RowCount-1 po czym ten element z ItemIndex=0 czyli 1-ke uważasz za błędną? 4. Czy wiesz że możesz w ComboBox dać właściwość...
Nie prościej, o ile jest dostępna w Delphi, skorzystać z funkcji QueryDosDevice (http://msdn.microsoft.com/en-us/library... Dzięki temu nie bawimy się w komponenty i kod jest bardziej przenaszalny. Przykład użycia: if (DWORD length = QueryDosDevice(NULL, buf, bufSize)) { for (DWORD i=0; i < length; ++i)...
Witam Was koledzy Otoz mam taki oto fragment kodu: procedure TForm8.Button1Click(Sender: TObject); var p: system.text; begin if SaveDialog1.Execute then begin System.Assign(p,SaveDialog1.FileName... try Append(p); except rewrite(p); end; write(p,Edit1.Text+';'); write(p,Edit2.Text+';'); write(p,Edit3.Text+';');...
Witam od razu przyznaję że marny zemnie programista tworze sobie katalog części oparty o firebirda, całość powstaje w Lzarusie :) Napisałem taką procedurę do wyszukiwania [syntax=pascal]begin if CheckBox1.Checked then begin try if SQLQuery1.Active then SQLQuery1.Close; // jesli SQLQuery1 wlaczony to wylacz // uaktualnianie DBGrida if IBConnection1.Connected...
Witam, korzystam z pakietu bibliotek MX Components aby połączyć Delphi ze sterownikiem Mitsubishi FX3U, dokładniej rzecz ujmując to używam tylko biblioteki ACTPCCOM. Na jednej formie zrobiłem komunikacje, a na drugiej odbieram i wysyłam dane, problem w tym że gdy tak to jest zrobione to żadnych danych na sterownik nie mogę ani wysłać ani odebrać. Gdy...
Tak o rozwiązałem, [syntax=pascal]var A : string; // nr id begin A:=Form1.SQLQuery1.FieldByName('ID').AsS... Form1.SQLQuery1.FieldByName('ID').AsStri... Form1.SQLQuery1.Open; if Form1.SQLQuery1.Active then Form1.SQLQuery1.Close; // jesli SQLQuery1 wlaczony to wylacz // uaktualnianie DBGrida if Form1.IBConnection1.Connected then Form1.IBConnection1.Connected:=false;...
Mam duży problem i nie wiem co z tym zrobić :cry: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, ColorGrd, ExtDlgs; type TForm1 = class(TForm) Button1: TButton; PaintBox1: TPaintBox; ListBox1: TListBox; ListBox2: TListBox; ComboBox1: TComboBox;...
Zrobiłem sobie taki prosty terminal w Lazarusie i mam jeden mały problem bo Lazarusa znam prawie wcale otóż potrzeba mi wypisywać w Memo linie z portu szeregowego tak jak występują znaki końca linii w terminalu tak ma się stworzyć linia Memo. Teraz natomiast tworzę linię w Memo jak tylko obiorę dane z portu szeregowego problem w tym, że nie pokrywają...
Siemanko, nie musisz korzystać ze zdarzeń aby doczytać dane z bufora, możesz np. rozwiązać ten problem przez osobny watek który będzie odczytywał dane, może napisz do czego to chcesz wykorzystać. Tu masz namiastkę kody jak możesz to zaimplementować. Ps. tu akurat wykorzystałem do komunikacji klase z paczki synaser. unit Unit1; {$mode objfpc}{$H+}...
Witam Napisałem mały programik do komunikacji z układem ft232 na podstawie materiałów udostępnionych przez producenta: http://www.ftdichip.com/Support/Software... opierałem się na pliku "Example 2" i sterowanie wyjściami CBUS w układzie. Niby wszystko fajnie steruje się i działa ale jest mały problem bo czasami wywala mi...
Wiekszosc zmiennych, to zmienne globalne. [syntax=delphi] var Form1: TForm1; usb:dword; pbDriverInstalled :integer = 0; lpguid:tguid; bufer: array[0..255] of byte; buferin: array[0..255] of byte; ib,dl,odczyt:word; poz:TstringList; ini:tinifile; rf:TRodzajflasha; [/syntax] W pierwszej wersji poz bylo tworzone w oncreate formy i mialo byc wykorzystywane...
Witam. Mam taki problem. Chcę odczytać dane z Metexa. Służy u mnie do tego taka procedura: Poprawiłem temat. Wrzuciłem kod w syntax. Zamykam po 10 latach bez odpowiedzi Autora.
Nie wystarczy wybór zestawu kodów? Ja to widzę tak: Kody umieszczamy w katalogu z programem w osobnych plikach .dat i nazwach: Opel Corsa - interfejs, Opel Corsa - kody błyskowe, VAG i t.d. Program przy uruchomieniu szuka plików .dat w swoim katalogu i wczytuje ich nazwy do ComboBoxa (listy rozwijanej) z której użytkownik dokonuje wyboru właściwego...
Buforze jest informacja ile stron zostało wysłanych ale nie informacji w ilu kopiach jest drukowane. Znalazłem w internecie gotowy kod, który daje informację o wysłanych kopiach, możecie mi powiedzie dlaczego nie działa poprawnie? [syntax=DELPH] unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,...
Drukuję pewien obrazek przy użyciu klasy Printer. Wygląda to tak Printer.BeginDoc; //Wczytanie szablonu Printer.Canvas.StretchDraw(Rect(... 10, 4900, 3200), B); //Wpisanie danych do wydruku Printer.Canvas.TextOut(100+30*8, 60*8, ComboBox1.Text); Printer.Canvas.TextOut(100+300*8, 60*8, 'jakiś napis'); Printer.Canvas.TextOut(100+30*8,...
Hm, czy jest ktoś w stanie powiedzieć mi, dlaczego nie chce mi działać: ComboBox1Change(Self); ? Kompilator wywala błąd: 'Undeclared identifier: ComboBox1Change'. A znajduję to polecenie na 100 różnych stronach, w dużej ilości przykładów.... ------------ Ok, nie było pytania.
To ja może powiem c udało mi się na razie zrobić -połączyć się z bazą -wyświetlać nazwy tabel w comboboxie -po kliknięciu na nazwę w comboboxie wyświetla mi się jej zawartość w dbgridzie -po naciśnięciu przycisku eksportuję wyświetlaną tabelę w bgridzie do exela -prosta wyszukiwarka Wystarczyła by mi ewentualnie jakaś podpowiedź co do składni zapytania...
Witam porady kolegi za bardzo mi nic nie dały ponieważ chciałem to w jak najprostszy sposób wykonać eksport tabeli wyświetlanej w DBGridzie do nowo otwartego arkusza Excela Pobrałem komponent http://www.scip.be/index.php?Page=Compon... I niestety nie wiem jak to ugryźć Połączenie z bazą MySQL-ową tworzę za pomocą elementów SQLConnection1...
delphi combobox combobox wybór excel combobox
termostat naprawa hd44780 krzaki zwrotnice kalkulator
mikrokomputer cobra1 mikrokomputer cobra1
Oznaczenia ECE, VP2, FL w radiu Fiat 250 FL VP2 ECE Jak wyłączyć tryb demo w piekarniku Ariston FZ 1002 C.1 IX?
