MyCity » Pascal -> Delphi » Velicina komponenti u zavisnosti od forme

Velicina komponenti u zavisnosti od forme

Napisano na dan: 23.4.2007
4

Velicina komponenti u zavisnosti od forme
Pagination Prethodna strana

Idi na vrh

Poslao: 03 Maj 2007 09:37
Idi na vrh
offline
  • Srđan Tot
  • Am I evil? I am man, yes I am.
  • Pridružio: 12 Jul 2005
  • Poruke: 2483
  • Gde živiš: Ljubljana

Verujem da pisem u ime svih koji su ucestvovali u ovoj temi... molim te, postuj kod da vidimo kako si implementirao promenu velicine kontrola.

Nemoj da mislis da ti ne verujem... samo me interesuje kako izgleda kod koji ti se brine o kontrolama na formi.



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
Poslao: 03 Maj 2007 12:28
Idi na vrh
offline
  • Pridružio: 13 Apr 2007
  • Poruke: 452
  • Gde živiš: Beograd

Evo ovako

var HOld,WOld,HNew,WNew, ...... procedure TForm1.FormCreate(Sender: TObject); begin HOld := Form1.Height; WOld := Form1.Width; end; procedure TForm1.PostValue; begin         with Form1.Image1 do begin                 Image1.Width := 337;                 Image1.Height := 313;                 Image1.Left := 24;                 Image1.Top := 104;         end; procedure TForm1.ResizeComponents; var i: integer; begin  for i := 0 to ComponentCount-1 do if (Components[i] is TImage) then     begin      (Components[i] as TImage).Left:=      (Components[i] as TImage).Left * WNew div WOld;      (Components[i] as TImage).Top:=      (Components[i] as TImage).Top * HNew div HOld;      (Components[i] as TImage).Width:=      (Components[i] as TImage).Width * WNew div WOld;      (Components[i] as TImage).Height:= (      Components[i] as TImage).Height * HNew div HOld;     end; procedure TForm1.OnAfterResize(var Msg: TMessage); begin  HNew:= Height;  WNew:= Width;         PostValue;         ResizeComponents; end;

Ovaj kod je samo za image1 , jer bi bilo previse da sam napisao kod za celu formu

Loshmi mi je mnogo pomogao oko ovoga

Wink Exclamation



MyCity » Pascal -> Delphi » Velicina komponenti u zavisnosti od forme

Ko je trenutno na forumu
 

Ukupno su 1232 korisnika na forumu :: 54 registrovanih, 7 sakrivenih i 1171 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: 8u47, airsuba, Alibaba1981, amonsrb, Apok, aramis s, babaroga, bagor10, Bobrock1, Boris Bosiljčić, ccoogg123, celik, cemix, dankisha, darkstar101, dejina811, djordje92sm, dolinalima, Dorcolac, flash12, Georgius, GORDI, goxin, havoc995, HrcAk47, ILGromovnik, ivicasimo, JOntra, kikisp, kjkszpj, Koridor, Krvava Devetka, kybonacci, LUDI, mean_machine, mercedesamg, Mercury, mile23, milenko crazy north, nextyamb, opt1, panzerwaffe, Parker, procesor, raso7, Rogan33, Sančo, Shinobi, slonic_tonic, vathra, wizzardone, Zaledjeni, šumar bk2, 1107