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].
-
Jak sprawdzić, czy dany znak jest dużą literą (polskiego) alfabetu? Chodzi tu o w miarę prosty sdposób.
-
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.
-
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?
- 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]