|
Poslao: 24 Apr 2007 15:07
|
offline
- LittleHacker
- Ugledni građanin
- Pridružio: 13 Apr 2007
- Poruke: 452
- Gde živiš: Beograd
|
Pa ja to nisam dobro razumeo..................sada kapiram...........HVALA
Dopuna: 24 Apr 2007 15:07
E sad nastaje drugi prolem............imam 17 formi i u svakoj po oko 10
komponenti........ali to cu resiti sam...........
|
|
|
|
|
Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
|
|
|
Poslao: 24 Apr 2007 15:29
|
offline
- Srki_82
- Moderator foruma
- Srđan Tot
- Am I evil? I am man, yes I am.
- Pridružio: 12 Jul 2005
- Poruke: 2483
- Gde živiš: Ljubljana
|
Nije bitno koliko formi ili komponenti imas... neka funkcija protrci kroz sve forme, a na svakoj formi neka protrci kroz sve potrebne komponente.
|
|
|
|
|
|
|
|
|
Poslao: 24 Apr 2007 16:38
|
offline
- loshmi_sr
- Građanin
- Pridružio: 08 Jan 2007
- Poruke: 279
- Gde živiš: Srbija
|
LittleHacker ::Pa znam to ali ko ce na 170 mesta to da uradi.............
Možda ti ovako nešto pomogne:
//deklarises
j,W,H: Integer;
...
procedure TForm1.ResizeEdits;
begin
for j := 0 to ComponentCount-1 do
if (Components[j] is TEdit) then
begin
(Components[j] as TEdit).Left:= //iskombinuj
(Components[j] as TEdit).Top:= //iskombinuj
(Components[j] as TEdit).Width:= //iskombinuj
(Components[j] as TEdit).Height:= //iskombinuj
end;
end;
...
//pozoves
W:= Form1.Height;
H:= Form1.Width;
ResizeEdits;
...
Pišem iz glave, probaj, pa javi ako nastanu problemi.
|
|
|
|
|
|
|
Poslao: 24 Apr 2007 16:58
|
offline
- Srki_82
- Moderator foruma
- Srđan Tot
- Am I evil? I am man, yes I am.
- Pridružio: 12 Jul 2005
- Poruke: 2483
- Gde živiš: Ljubljana
|
TApplication ti omogucava da prodjes kroz sve forme, a svaka forma ti omogucava da prodjes kroz sve komponente na njoj. Dovoljno je da napises samo jednu funkciju koja ce da se brine o svim formama.
Iako je moguce sve uraditi u samo jednoj funkciji, malo je bezveze da svaki put kada se jedna forma promeni, menjas bas sve forme. Zbog toga napravis jednu funkciju kojoj mozes da kazes da obradi samo jednu odredjenu formu, a u drugoj funkciji mozes, ako ti je to uopste potrebno, da pozoves prvu za svaku kreiranu formu.
|
|
|
|
|
|
|
Poslao: 24 Apr 2007 23:30
|
offline
- LittleHacker
- Ugledni građanin
- Pridružio: 13 Apr 2007
- Poruke: 452
- Gde živiš: Beograd
|
Srki ovo nece da radi...............
H := Form1.height;
W := Form1.width;
RasterLab1.Left := StrToInt(FloatToStr(24 * W / 777));
RasterLab1.Top := StrToInt(FloatToStr(16 * H / 505));
RasterLab1.Width := StrToInt(FloatToStr(737 * W / 777));
RasterLab1.Height := StrToInt(FloatToStr(81 * H / 505));
Nemoze string(float u ovom slucaju) da pretvori u integer........sta da radim.........???
|
|
|
|
|
|
|
Poslao: 24 Apr 2007 23:44
|
offline
- Srki_82
- Moderator foruma
- Srđan Tot
- Am I evil? I am man, yes I am.
- Pridružio: 12 Jul 2005
- Poruke: 2483
- Gde živiš: Ljubljana
|
Zasto uopste pretvaras broj u string pa iz stringa u broj!?
|
|
|
|
|
|
|
|
|
Poslao: 25 Apr 2007 07:27
|
offline
- LittleHacker
- Ugledni građanin
- Pridružio: 13 Apr 2007
- Poruke: 452
- Gde živiš: Beograd
|
Zato sto onako prijavljuje incopatible tyes string and extended.........
Dopuna: 25 Apr 2007 7:27
Evo koda koji radi
H := Form1.height;
W := Form1.width;
RasterLab1.Left := Trunc(24 * W / 777);
RasterLab1.Top := Trunc(16 * H / 505);
RasterLab1.Width := Trunc(737 * W / 777);
RasterLab1.Height := Trunc(81 * H / 505);
Posto imamo real broj a stranice se prdstavljaju u integeru
moramo ove vrednosti pretvoriti u integer...........
Trunc upravo to i radi.......
|
|
|
|
|
|
|
Poslao: 25 Apr 2007 08:29
|
offline
- Pridružio: 24 Feb 2007
- Poruke: 167
- Gde živiš: Babusnica
|
Nema svaka komponenta tu mogucnost.
|
|
|
|
|
|
