Картинки в KOL & ещё два вопроса. (Str2Int...)

← →
AZCRC (2004-04-10 17:39) [0]

Здраствуйте!
Есть вопросы: 1)Случайно добавил VCL, потом убрал, а прога так и осталась 400Кб (Хотя кода там - совсем ничего). Как нибудь можно вернуть это на своё место? Или заново проект переделовать?
2) Str2Int всегда вместо сбоя даёт значение = 0 при введённом "зю". Это так задумано, чтобу try......Except не вводить?
3) Как проще всего разместить картинку на форме в KOL?
Зарание спасибо.

← →
AZCRC (2004-04-10 17:53) [1]

Совсм забыл: в uses можно добавить ВинАПИ например, или SysUtils? Ну, ессно чтоб размер не вырос.
PS просьба на мыло не отвечать, лучше здесь.
2admin
http://kol.mastak.ru/lessonsind.htm - не работает почти весь раздел. Не выложено, или убито?
http://kol.mastak.ru/lessons%206.htm - тоже самое.

← →
Avenger[NhT] © (2004-04-10 20:10) [2]

//1)Случайно добавил VCL, потом убрал, а прога так и осталась //400Кб (Хотя кода там - совсем ничего). Как нибудь можно вернуть //это на своё место? Или заново проект переделовать?
Просмотри Uses на наличие VCL модулей
//2) Str2Int всегда вместо сбоя даёт значение = 0 при введённом //"зю". Это так задумано, чтобу try......Except не вводить?
да, там Result = 0 в самом начале кода, Except выводить это увеличивать размер программы ;) к томуже придется err цеплять чтоб обработать это исключение
//3) Как проще всего разместить картинку на форме в KOL?
//Зарание спасибо.
Обработай событие OnPaint для формы и нарисуй там битмап методом Draw, и посмотри статьи там была про то как выводит графику

//Совсм забыл: в uses можно добавить ВинАПИ например, или //SysUtils? Ну, ессно чтоб размер не вырос.
добавить можно, тока размер подскочет в разы...
к томуже в кол есть все что надо чтоб обойтись без SysUtils,
а если че-то и нет можно просто выдернуть этот код из SysUtils

← →
Avenger[NhT] © (2004-04-10 20:13) [3]

черт...цитировать не удобно тут :(

← →
Gandalf © (2004-04-10 20:15) [4]

1) Можно, снимаем блок с формы - вычищаем uses от VCL барахла
2) Это так задумано. Используй свои проверки на "битые" числа.
3) Я обычно делаю так.
FormCreate
...
Bmp:=NewBitmap(0,0); Bmp.LoadFromFile("BG.bmp");

FormPaint
...
Bmp.Draw(Form.Canvas.handle,0,0);

FormClose

Bmp.Free;

4) API можно - но мой друг, SysUtils - это VCL, а не API. Classes тоже не API. API - це хедеры - константы, перемнные, экспорт, функции - никаких классов - это API.

5) Раскажите мне большую тайну - как вы до http://kol.mastak.ru/lessonsind.htm добираетесь?! Есть же http://kol.mastak.ru/articles.htm - тоже самое, но лучше. Там есть и Урок 6 и остальные - правда, немного битые, но я же сказал - в эти выходные исправлю. И обновлюсь.

← →
AZCRC (2004-04-10 22:16) [5]

Спасибо за ответы! <html> <a href="http://kol.mastak.ru/lessonsind.htm";>Тест линков на этом движке</a> </html>

← →
AZCRC (2004-04-10 22:25) [6]

Я вот тут озадачился... иконку прилепить к ехе. ?
>> Можно, снимаем блок с формы
Что за блок?
То, что SysUtils is not WinAPI это я знаю, просто пример привёл. Только как ТОЧНО узнать, что VCL, а что нет?
uses Windows, ShellAPI,
KOL {$IFNDEF KOL_MCK}, mirror,
Classes, Controls, mckControls,
mckObjs, Graphics, mckCtrls {$ENDIF},
ExtCtrls;
{$ELSE}
{$I uses.inc}
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, mirror;
{$ENDIF}
>>а если че-то и нет можно просто выдернуть этот код из SysUtils
Т.е. прямо из SysUtils.pas?
>> Раскажите мне большую тайну - как вы до http://kol.mastak.ru/lessonsind.htm добираетесь?!
Есть линки. Тут html не рулит. ато-бы коротко выложил.<a href="http://kol.mastak.ru/lessonsind.htm";>линк_тест</a>

← →
Gandalf © (2004-04-10 23:15) [7]

1) RTFM! FAQ!!! Ужас! ;(
2) Я называю VCL все , что прямо или косвено использует библиотеку SysUtils. Потому как на этой либе как на чудо-юдо-рыбо-ките лежит весь VCL, и этот кит добаляет веса прогам не слабо.
3) ExtCtrls - не API, а еще та жирна туша (заметь - и тут SysUtils) - убирай ее после первого ENDIF в uses.
4) Я хоче понять где ты нашел линк на http://kol.mastak.ru/lessonsind.htm - на какой странице?

← →
AZCRC (2004-04-10 23:34) [8]

Так, с uses разобрался методом тыка.(Вырезал наугад, пока размер не умеьшился) А куда именно вставть KOLProject1.dprResource:=True? ФАКи то я читал.
Есть трабла в ФАКах вроде небыло:
1)Создал я 2-ю форму - так всё круто, только вот она появляется сразу при запуске... Мне так не надо.
2)Form2.show; - а таким макаром её когда надо - не вызвать?
Тяжело в учении... очень.
Линк нашол, он с http://kol.mastak.ru/sprav.htm А линк на sprav.htm - на http://kol.mastak.ru

← →
SPeller © (2004-04-11 09:08) [9]

Чтобы добавить иконку можно просто создать ресурс с нужной иконкой и подключить его к проекту. А то Дельфи кроме иконки ещё мусора в ресурсы напичкает.

← →
Delphi5.01 © (2004-04-11 09:35) [10]

>> Линк нашол, он с http://kol.mastak.ru/sprav.htm А линк на
>> sprav.htm - на http://kol.mastak.ru
BUG :-D

← →
SPeller © (2004-04-11 09:40) [11]

> Создал я 2-ю форму - так всё круто, только вот она появляется
> сразу при запуске...

В инспекторе объектов Visible = False

← →
AZCRC (2004-04-11 12:15) [12]

2SPeller ©
Огромное спасибо! Тепреь буду компилить нужные ресурсы в Билдере и подключать к проекту. Так ИМХО лучше всего.
>>В инспекторе объектов Visible = False
Она будет грузится при старте ехе проекта? ...
А вызвать её как? Стандартным способом не получается.

> Она будет грузится при старте ехе проекта?

Да. Уберите из Autocreate forms - тогда не должна.

> А вызвать её как?

Если уже создана, то Form1.Form.Show;

> Тепреь буду компилить нужные ресурсы в Билдере и подключать
> к проекту

Я так всегда делаю. Только я использую Restorator + ResHacker. Хватает за глаза — любые ресурсы можно сделать.

← →
AZCRC (2004-04-11 18:28) [15]

2SPeller ©
Так и сделал, толmко при вызове формы:
1-й раз - всё ОК!
2-й раз - Появляется, но только прозрачная (хотя альфа бленда нету).
2-й раз - Отказываеца появляться (и последующие вызовы).
ЗЫ а если форма не создана, тогда как её подгрузить?

← →
AZCRC (2004-04-11 21:33) [16]

program MyApp; uses Windows, ... ; var header:HWND; ......... header:=GetForegroundWindow; SetWindowText(header, "Новый заголовок окна");
Как заставить работать. На VCL вроде всё работало...
И на KOL что-то не выходит скрыть прогу от CtrAltDel... Посто странно...

> ЗЫ а если форма не создана, тогда как её подгрузить?

NewForm2( Form2, Applet );

Где NewForm2 - это функция, которая создаёт форму. Найти её можно в файле <имя модуля формы>.inc. Ну а Form2 - это переменная, в которой эта форма будет храниться.

Картинки в KOL &amp; ещё два вопроса. (Str2Int...) Найти похожие ветки

Картинки в KOL & ещё два вопроса. (Str2Int...) Найти похожие ветки