Форум: "KOL";
Текущий архив: 2004.11.14;
Скачать: [xml.tar.bz2];

Вниз

Что-то не так с размером....   Найти похожие ветки 

← →
zoom   (2004-04-14 14:43) [0]

Есть программка на KOL"e. Откомпиленная, весит - 46 кило. При добавлении проктически любого McK компонента, размер увеличивается почти в двое. И, что самое интересное, при его удалении, размер уменьшается обратно не до 46kb, а всего на 2-3 килобайта.
В чем у меня проблема?

---

← →
SPeller ©   (2004-04-14 17:56) [1]

Что-то у тебя в uses прописывается, скорее всего.

---

← →
zoom   (2004-04-15 19:02) [2]

Я тоже так думал. Вроде всё в порядке. Вот uses, может я чего не доглядел?
{$IFDEF KOL_MCK}
uses Windows, Messages, ShellAPI, KOL {$IFNDEF KOL_MCK}, mirror, Classes,  mckCtrls,
 mckObjs, Graphics, Controls,
  {$ENDIF};
{$ELSE}
{$I uses.inc}
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs;
{$ENDIF}

---

← →
mdw ©   (2004-04-15 19:29) [3]

А второй uses? в implementation?

---

← →
zoom   (2004-04-15 19:50) [4]

implementation

{$IFNDEF KOL_MCK} {$R *.DFM} {$ENDIF}

{$IFDEF KOL_MCK}
{$I Unit1_1.inc}
{$ENDIF}
Что-то лишнее?

---

← →
mdw ©   (2004-04-15 21:20) [5]

Да нет.

---

← →
Gandalf ©   (2004-04-15 21:49) [6]

А весь код можно - прога я думаю не большая?

---

← →
SPeller ©   (2004-04-16 03:08) [7]

А этот юсес твой приведенный — это последобавления контрола?

---

← →
Solik ©   (2004-04-16 07:07) [8]

{$IFDEF KOL_MCK}
uses Windows, Messages, ShellAPI, KOL {$IFNDEF KOL_MCK}, mirror, Classes,  mckCtrls, mckObjs, Graphics, Controls,
^^^^^^^                                ^^^^^^^^^
         А зачем это?
 {$ENDIF};
{$ELSE}
{$I uses.inc}
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
{$ENDIF}

---

← →
SPeller ©   (2004-04-17 03:11) [9]

> А зачем это?

А это для отображения mck-контролов на форме. Не волнуйся, в конечный ЕХЕ это не попадает.

---

← →
Alekc   (2004-04-17 14:50) [10]

> Есть программка на KOL"e. Откомпиленная, весит - 46 кило.
> При добавлении проктически любого McK компонента, размер
> увеличивается почти в двое. И, что самое интересное, при
> его удалении, размер уменьшается обратно не до 46kb, а всего
> на 2-3 килобайта.

А если ей просто build сделать, не добавляя ничего на форму, размер изменяется ? Есть подозрение, что она компилилась с заменами SysDcu, а при добавлении контролов пересоздается уже без замены... отсюда и невозвращение к старому размеру.

---

← →
zoom   (2004-04-18 19:20) [11]

Вот то что идёт до моих процедур и функций:
{ KOL MCK } // Do not remove this line!
{$DEFINE KOL_MCK}
unit Unit1;

interface

{$IFDEF KOL_MCK}
uses Windows, Messages, ShellAPI, KOL {$IFNDEF KOL_MCK}, mirror, Classes,  mckCtrls,
 mckObjs, Graphics, Controls,
  {$ENDIF};
{$ELSE}
{$I uses.inc}
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs;
{$ENDIF}

type
 {$IFDEF KOL_MCK}
 {$I MCKfakeClasses.inc}
 {$IFDEF KOLCLASSES} TForm1 = class; PForm1 = TForm1; {$ELSE OBJECTS} PForm1 = ^TForm1; {$ENDIF CLASSES/OBJECTS}
 {$IFDEF KOLCLASSES}{$I TForm1.inc}{$ELSE} TForm1 = object(TObj) {$ENDIF}
   Form: PControl;
 {$ELSE not_KOL_MCK}
 TForm1 = class(TForm)
 {$ENDIF KOL_MCK}
   KOLProject1: TKOLProject;
   KOLForm1: TKOLForm;
   Timer1: TKOLTimer;
   Button1: TKOLButton;
   Button2: TKOLButton;
   GroupBox1: TKOLGroupBox;
   Label1: TKOLLabel;
   Label2: TKOLLabel;
   Label3: TKOLLabel;
   Label4: TKOLLabel;
   Label5: TKOLLabel;
   Label6: TKOLLabel;
   Label7: TKOLLabel;
   EditBox1: TKOLEditBox;
   EditBox2: TKOLEditBox;
   EditBox3: TKOLEditBox;
   EditBox4: TKOLEditBox;
   EditBox5: TKOLEditBox;
   EditBox6: TKOLEditBox;
   EditBox7: TKOLEditBox;
   EditBox8: TKOLEditBox;
   Label8: TKOLLabel;
   Label9: TKOLLabel;
   EditBox9: TKOLEditBox;
   GroupBox2: TKOLGroupBox;
   pb1: TKOLProgressBar;
   rb1: TKOLRadioBox;
   rb2: TKOLRadioBox;
   chB: TKOLRadioBox;
   chK: TKOLRadioBox;
   Button3: TKOLButton;
   Button4: TKOLButton;
   SAVED: TKOLOpenSaveDialog;
   GroupBox3: TKOLGroupBox;
   sredneebox: TKOLEditBox;
   Label10: TKOLLabel;
   Label11: TKOLLabel;
   sto: TKOLRadioBox;
   tis: TKOLRadioBox;
   destis: TKOLRadioBox;
   GroupBox4: TKOLGroupBox;
   memfr1: TKOLRadioBox;
   memfr2: TKOLRadioBox;
   Label12: TKOLLabel;

     procedure Timer1Timer(Sender: PObj);
   procedure Button1Click(Sender: PObj);
   procedure Button2Click(Sender: PObj);
   procedure KOLForm1FormCreate(Sender: PObj);
   procedure KOLForm1Close(Sender: PObj; var Accept: Boolean);
   procedure Button4Click(Sender: PObj);
   procedure Button3Click(Sender: PObj);
   procedure memfr2Click(Sender: PObj);
   procedure memfr1Click(Sender: PObj);
   { procedure Button3Click(Sender: PObj);}
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1 {$IFDEF KOL_MCK} : PForm1 {$ELSE} : TForm1 {$ENDIF} ;
  ini:pIniFile;
 srednee:double=0;
suma:int64=0;
count:int64=0;
//И ещё пара переменных

{$IFDEF KOL_MCK}
procedure NewForm1( var Result: PForm1; AParent: PControl );
{$ENDIF}

implementation

{$IFNDEF KOL_MCK} {$R *.DFM} {$ENDIF}

{$IFDEF KOL_MCK}
{$I Unit1_1.inc}
{$ENDIF}

Есть ли выход? =)

---

← →
=sniper=   (2004-04-21 21:56) [12]

Собственно можно узанть что за компонент добавляется? ;-)

---

← →
zoom   (2004-04-22 21:14) [13]

В том-то и дело, любой McK компонент.

---

Страницы: 1 вся ветка

Форум: "KOL";
Текущий архив: 2004.11.14;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.48 MB
Время: 0.046 c