Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "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.037 c
14-1098528423
31512
2004-10-23 14:47
2004.11.14
Как вызвать метод класса в другом потоке?


1-1099204718
проходящий мимо
2004-10-31 09:38
2004.11.14
edit


6-1094129018
GuAV
2004-09-02 16:43
2004.11.14
TEmbeddedWb


14-1099060525
Pat
2004-10-29 18:35
2004.11.14
Подскажите форум по Java2


14-1098796698
oldman
2004-10-26 17:18
2004.11.14
Вот нашел такую задачку :)))





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский