| Цитата(DarkProg @ 24.4.2010, 22:38) | В DRKB есть готовое решение.
P.S. Не ленитесь юзать поиск. |
Я так понял, Вы имели в виду это решение
| Код |
procedure AdjustResolution(oForm:TForm);
var
iPercentage:integer;
begin
if Screen.Width > 640 then
begin
iPercentage:=Round(((Screen.Width-640)/640)*100)+100;
oForm.ScaleBy(iPercentage,100);
end;
end;
|
Попробовал вставить его в свою прогу. Получилось вот так (код, не относящийся к делу опущен):
| Код |
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls, Buttons, XPMan, ExtCtrls, Grids, DBGrids,
Mask, DB, DBTables, DBCtrls, Menus;
type
procedure FormCreate(Sender: TObject);
procedure AdjustResolution(oForm:TForm);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
wid:string;
implementation
{$R *.dfm}
procedure TForm3.FormCreate(Sender: TObject);
begin
AdjustResolution(oForm:TForm);
end;
procedure AdjustResolution(oForm:TForm);
var
iPercentage:integer;
begin
if Screen.Width > 1280 then
begin
iPercentage:=Round(((Screen.Width-1280)/1280)*100)+100;
oForm.ScaleBy(iPercentage,100);
end;
end;
end.
|
В итоге получаю следующие сообщения:
[Error] Unit3.pas(383): Undeclared identifier: 'oForm'
[Error] Unit3.pas(383): Statement expected, but expression of type 'Class reference' found
[Error] Unit3.pas(141): Unsatisfied forward or external declaration: 'TForm3.AdjustResolution'
[Fatal Error] Project1.dpr(8): Could not compile used unit 'Unit3.pas'
Прошу помочь разобраться. 
|
