स्केलबी()

Question

के उपयोग के बाद मूल रूप से डेल्फी TForm को रीसेट करने के लिए कैसे करें मैं उपयोगकर्ता द्वारा अपने नियंत्रण अनुपात के आकार के साथ एक फॉर्म को आकार देने की अनुमति देना चाहता हूं। स्केलबी (एन, एम) मेरे लिए ठीक काम करता है लेकिन अगर बार-बार दोहराया जाता है तो संचयी गोल करने वाली त्रुटियां होती हैं। इसका मुकाबला करने के लिए मैं बस स्केलबी() से पहले अपनी डिफ़ॉल्ट उपस्थिति और आकार में फॉर्म को फिर से बनाने के लिए कॉल के साथ आगे बढ़ना चाहता हूं और फिर स्केलबी को विभिन्न मानों के साथ कॉल करना चाहता हूं। मुझे पता है कि मैं अपने फॉर्म को एक पैनल के भीतर होस्ट करके (और इसे डिस्पोजेक्ट/रीरेटिंग) कर सकता हूं, लेकिन क्या कोई कॉल है जो स्केलबी() के उपयोग के बाद फॉर्म रीसेट करेगा?

संपादित करें - मैं डेल्फी XE2 उपयोग कर रहा हूँ और यह भी एक घटक या अन्य कोड (भुगतान या मुफ्त) के साथ किसी की सफलता में रुचि होगी बड़े करीने से एक रूप पैमाने पर करने के - मेरे अपने डाउनलोड एक काम कर समाधान का उत्पादन नहीं किया है।

Answer 1

EasySize (TFormResizer) घटक का प्रयास करें।
TFormResizer घटक फ़ॉर्म आकार में परिवर्तन के दौरान किसी भी रूप (या पैनल) पर सभी नियंत्रणों का आकार बदलता है।
मैंने इसे सफलतापूर्वक साल पहले उपयोग किया - डी 5/7 के साथ काम करता है। आपको XE2 के लिए छोटे समायोजन करने की आवश्यकता हो सकती है (मेरे पास XE2 नहीं है, इसलिए मैं इसका परीक्षण नहीं कर सकता)।

उपयोग:

uses 
    ..., Easysize; 

type 
    TForm1 = class(TForm) 
    ...   
    procedure FormCreate(Sender: TObject); 
    procedure FormResize(Sender: TObject); 
    private 
    FR: TFormResizer; 
    end; 

... 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
    FR := TFormResizer.Create(Self); 
    FR.ResizeFonts := True; 
    FR.InitializeForm; 
end; 

procedure TForm1.FormResize(Sender: TObject); 
begin 
    FR.ResizeAll; 
end; 

end. 

Answer 2

एक समाधान फॉर्म के सभी घटक नियंत्रणों पर फ़ॉर्म के घटक गुणों का उपयोग करना होगा और उन्हें अपने मूल मूल्य पर वापस रीसेट करना होगा।

निम्न आलेख उदाहरण कोड है: http://delphi.about.com/od/adptips2005/qt/storecontrolpos.htm

यह एक अलग उद्देश्य के लिए है, लेकिन यह कठिन करने के लिए अपनी आवश्यकताओं के कोड को संशोधित करने के लिए नहीं किया जाना चाहिए।

Answer 3

सबसे पहले, मूल पैमाने पर करने के पैमाने को समायोजित फिर नए पैमाने पर करने के लिए पैमाने। उदाहरण के लिए, ऑनरिजइज़ ईवेंट में एक फॉर्म स्केल करने के लिए:

... 
    private 
    FDesignHeight: Integer; 
    FDesignWidth: Integer; 
    FPrevWidth: Integer; 
    end; 

... 

procedure TForm1.FormShow(Sender: TObject); 
begin 
    FDesignHeight := Height; 
    FDesignWidth := Width; 
    FPrevWidth := Width; 
    Scaled := True; 
end; 

procedure TForm1.FormResize(Sender: TObject); 
begin 
    if Scaled then 
    begin 
    DisableAlign; 
    ScaleBy(FDesignWidth, FPrevWidth); 
    ScaleBy(Width, FDesignWidth); 
    EnableAlign; 
    end; 
    FPrevWidth := Width; 
end; 

procedure TForm1.FormCanResize(Sender: TObject; var NewWidth, 
    NewHeight: Integer; var Resize: Boolean); 
begin 
    NewHeight := Round(NewWidth * FDesignHeight/FDesignWidth); 
end;