Parę pytań

0

Hej!
Mam kilka dręczących mnie pytań, na które nie mogę znaleźć odpowiedzi ( Help Delphi odpada - jest po angielsku, Internet i FAQ tam zawarte też - brak częstego połączenia). Jeżeli ktoś zna odpowiedzi na poniżzsze pytania lub wie, gdzie ich szukać, to proszę, by podzielił się ze mną swoją wiedzą. Byłbym wdzięczny za przysyłanie odpowiedzi na mój e-mail [email protected].

  1. Jak sprawdzić, czy dany znak jest dużą literą (polskiego) alfabetu? Chodzi tu o w miarę prosty sdposób.

  2. Pliki typowanerekordowe. Jak usunąć z nich programowo jakiś rekord. Qłaściwie mam ListView na którym są wyświetlone wszystkie rekordy. Kliknięcie na daną pozycję w ListView'ie ma usuwać odpowiadający rekord.

  3. Jest jeszce jeden problem ... A nawet dwa.
    Oto pierwsza funcja

==================

var
Forma: TForma;
Colors : array[0..255] of TColor;

implementation

{$R *.dfm}

procedure TForma.WyliczKolory(KolorPoczatkowy,KolorKoncowy: TColor);
var
BeginRGB: array[0..2] of Byte;
RGBDifference: array[0..2] of Integer;
i: Integer;
R, G, B: Byte;
begin

BeginRGB[0] := GetRValue(ColorToRGB(KolorPoczatkowy));
BeginRGB[1] := GetGValue(ColorToRGB(KolorPoczatkowy));
BeginRGB[2] := GetBValue(ColorToRGB(KolorPoczatkowy));

RGBDifference[0] := GetRValue(ColorToRGB(KolorKoncowy)) - BeginRGB[0];
RGBDifference[1] := GetGValue(ColorToRGB(KolorKoncowy)) - BeginRGB[1];
RGBDifference[2] := GetBValue(ColorToRGB(KolorKoncowy)) - BeginRGB[2];

for i := 0 to 255 do
begin
R := BeginRGB[0] + MulDiv(i, RGBDifference[0], 255);
G := BeginRGB[1] + MulDiv(i, RGBDifference[1], 255);
B := BeginRGB[2] + MulDiv(i, RGBDifference[2], 255);
Colors[i] := RGB(R, G, B); // zmienna Colors to globalna tablica [0..255] kolorow
end;
end;

==================
Ten kod był kiedyś na forum, gdzies VI-VII 2002, Pytanie jest następujące:
Jak wykorzystać tablicę kolorów, tak by powstał efekt przechodzenias jednego koloru w drugi? (Taki efekt między jasno- i ciemnoniebieskim występuje w niektórych instalatorach).

Oto drugi kod - tęz gdzieś tu jest.

function TForma.FnTecza(iMin, iMax, i: Integer): TColor;
var
m: Double;
r, g, b, mt: Byte;
begin
m := (i - iMin)/(iMax - iMin + 1) * 6;
mt := (round(frac(m)*$FF));
case Trunc(m) of
0: begin
R := $FF;
G := mt;
B := 0;
end;
1: begin
R := $FF - mt;
G := $FF;
B := 0;
end;
2: begin
R := 0;
G := $FF;
B := mt;
end;
3: begin
R := 0;
G := $FF - mt;
B := $FF;
end;
4: begin
R := mt;
G := 0;
B := $FF;
end;
5: begin
R := $ff;
G := 0;
B := $FF - mt;
end;
end; // case

Result := rgb(R,G,B);
end;

=========================

Jak wykiorzystac tę funkcję?

mciSendString('Set cdaudio door open wait',nil,0,handle);
mciSendString('Set cdaudio door closed wait',nil,0,handle);

Kody umożkliwiające wysuwanie i otwieranie CDRoOMu o dowolnej literze (uses MMsystem).
Skąd pochodzi parametr w cuisdzysłowiu?

  1. Teraz coś lżejszego:
    Jest sobie komponenet JustOne - ma służyc tylko do pojeduynczego uruchamniia aplikacji (np. wygaszczay eekranu). Jak go wykorzystać?

Czekam na odpowiedzi.
[email protected]
[browar]

0

<font size="12"><font color="red">PISZ KONKRETNE TEMATY !!!:-)</span></span>

0

tey, tutaj są mili i uczynni ludzie, jednak <font color="red">niemożna</span> ich wykorzystywać aż tak bardzo, komu sie bedzie chciało wysłać ci odpowiedź na maila ? jak robiłeś tego <font color="red">temata</span> to mogłes <font color="red">se</span> ustawić żeby odpowiedzi były przysyłane na maila, tak jest wygodniej dla ciebie bo masz pewnośc że przeczytasz każdą odpowiedź i dla tych co <font color="red">bedom</span> ci chcieli pomóc.

<font size="14">//Drugi kudlaty :-) poprawiaj swoje bledy</span>

0
  1. Pisz konkretne tematy.
  2. Ci co odpowiadają niech oprócz wychowywania :) też pomagają
  3. Nie jestem pewien czy znaku nie sprawdza się jakoś tak:

if a (oczywiście a jest typu Char) in ['A'..'Z'] = True then Jest dużą literą.

0

if a (oczywiście a jest typu Char) in ['A'..'Z'] = True then Jest dużą literą.

Ponieważ miało działać z polskim alfabetem, proponuję:

if AnsiUpperCase(s)=s then DuzaLitera;

0

odnośnie 5: po prostu rzucasz ten komponent na formę i o nic się nie martwisz - on nie ma chyba nawet żadnych parametrów...

0
  1. Pisz konkretne tematy.
  2. Ci co odpowiadają niech oprócz wychowywania też pomagają

Ktoś'u :-), akurat nie znam odpowiedzi na pytania które nasz nowy forumowicz zadał, ale staram się, aby o małego:-D znał najważniejszą zasadę o tematach :-)

0

Kiedyś napisałem coś takiego może ci się do tego paska przyda pokombinuj. To gotowy programik

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
ScrollBar1: TScrollBar;
ScrollBar2: TScrollBar;
ScrollBar3: TScrollBar;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Panel1: TPanel;
procedure Button1Click(Sender: TObject);
procedure ScrollBar1Change(Sender: TObject);
procedure ScrollBar2Change(Sender: TObject);
procedure ScrollBar3Change(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Panel1Click(Sender: TObject);
procedure Label6Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
r,g,b:byte;
implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
close;
end;

procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
r:=ScrollBar1.Position;
label4.caption:=IntToStr(ScrollBar1.Position);
panel1.color:=rgb(r,g,b);
end;

procedure TForm1.ScrollBar2Change(Sender: TObject);
begin
g:=ScrollBar2.Position;
label5.caption:=IntToStr(ScrollBar2.Position);
panel1.color:=rgb(r,g,b);
end;

procedure TForm1.ScrollBar3Change(Sender: TObject);
begin
b:=ScrollBar3.Position;
label6.caption:=IntToStr(ScrollBar3.Position);
panel1.color:=rgb(r,g,b);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

procedure TForm1.Panel1Click(Sender: TObject);
begin

end;

procedure TForm1.Label6Click(Sender: TObject);
begin

end;

end.

0
  1. http://vogl.iglu.cz - poszukaj kurs->podstawy->pliki - masz tam taki gotowy kod :)
0

dzięki wszystkim za potrusdzenoie się [cya] :d

0

Eureka!!!

Kiedy zainstalowałem windows 95, odkryłem niespodziewane.
W głównym katalogu dysku, znajdowały się instrukcje do...
ściśle tajnej $#$#@$!@ misji.

Zdadzwoniłem do głównej siedziby Microsoftu (R & TM). Odebrał jakiś
pan Bill Gates i powiedział, że to bardzow ważna misja, ale nie ma czasu gadać bo jest zajęty...

user image
[diabel]

Potem mi to przysłał. No i stało się. Pojechałem do szpitala ze stwierdzonym zawałem serca. Nie rozumieli mojego toku myślenia. Majaczyłem i muwiłem że to lepsze niż gra w piłkę. Rozpoczęłę tajną
misję NORTON 2 REAKTYWACJA. Nie wiem na czym to polegało. Widocznie nie rozumiałem ich toku myślenia.

Dostałęm się do serwera WP.PL. Teraz zaaplikujemy lekarstwo.
...i włożyłem wtyczkę... do gniazdka ... OnetKonekt a TPSA zniszczyłem.
Złapali mnie i wsadzili do wariatkowa. :-[ .

Pomocy! Błagam o apelację pod numer: [email protected]

Rydzyk

1 użytkowników online, w tym zalogowanych: 0, gości: 1