[guver]

А еше такой вопрос ) вот у меня несколько этих мемо ) и я допустим в каждом пишу название фигуры ти "Квадрат =" и после = вставляем цифру когда посчитаем как сделать так чтоб нельзя было удалить начальное "Квадрат =" ??? а то если поклацать туда суда по мемо пропадают надписи

С нижним разобрался , интересует только ^ верхний вопрос


"""""""И кстати вот создал 4 мемо по написал в них названия фигур отвечаю текстовик создает а незаписывает чет значенияяя

Может потому что эти мемо стоят поверх картинки и на форме еще есть маин меню ?? ))) на пустой все делает если только мемЫ и кнопка а на моей
причем что у меня есть еще 1 форма , но там только 1 мемо из него все нормально сохраняет ... непонятно """""""""""

[guver]

Как запретитттььь удальять начальный текст memo

"А еше такой вопрос ) вот у меня несколько этих мемо ) и я допустим в каждом пишу название фигуры ти "Квадрат =" и после = вставляем цифру когда посчитаем как сделать так чтоб нельзя было удалить начальное "Квадрат =" ??? а то если поклацать туда суда по мемо пропадают надписи "

[guver]

sos

[PhoeniX]

Сообщение от guver

sos

1. Up-ы запрещены.
2. Сделать memo readonly=true, это запретит ввод. И дальше - обрабатывать onkeypress. Как делать сказал, дальше ваша логика.
З.Ы. А почему вы решили делать через memo? не проще сделать по TLabel и TEdit на каждый пункт, и работать с ними?

[guver]

ЛАдно как это сделать с несколькими едитами ??? ) в один текст. файл , но все еще можно сказать как не изменять начальный текст мемо

[dr. F.I.N.]

Код:

var
  i: Integer;
  s : TStringList;
begin
  if Form1.ControlCount = 0 then Exit;
  s := TStringList.Create;
  for i := 0 to Form1.ControlCount - 1 do
  if Form1.Controls[i] is TEdit then
  s.Add(TEdit(Form1.Controls[i]).Text);
  s.SaveToFile('<Your filename>');
  s.Free;
end;

А уже все есть. Ты только посмотри внимательно ))))
А вот с мемо по твоему вопросу заморачиваться не охота. Стандартных решений вроде нет, а остальное - геморрой...

[guver]

Еще такой вопрос ) хочу поменять иконку у приложения нифига не идет и пишет вот такуб тему

http://clip2net.com/page/m0/5766125

[guver]

И еще может кому скучно или он быстро печататет можео ( я вижу что там есть коменты но может можно поподробней ) прокоментировать прогу

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImgList, Grids, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    DrawGrid1: TDrawGrid;
    ImageList1: TImageList;
    btView_source: TButton;
    procedure FormCreate(Sender: TObject);
    procedure DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState);
    procedure DrawGrid1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure btView_sourceClick(Sender: TObject);
 
  private
  pict:array[1..5,1..5]of byte;
  Switch:TPoint;
  SwitchB:boolean;
    { Private declarations }
  public
    Source_BMP:TPicture;
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses source_bmp;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  TempB,BMP:TBitmap;
  x1,y1,x2,y2,i,j:byte;
  DestRect,SourceRect:TRect;
begin
Randomize;
for i:=1 to 5 do //установка правильного порядка частей рисунка
  for j:=1 to 5 do
    pict[i,j]:=(i-1)*5+j;
BMP:=TBitmap.Create;
BMP.Width:=400; BMP.Height:=400;
TempB:=TBitmap.Create;
TempB.Width:=80;TempB.Height:=80;
Bmp.LoadFromFile('BMP.bmp');
//
Source_BMP:=TPicture.Create;
//Source_BMP.Width:=400; Source_BMP.Height:=400;
Source_BMP.Bitmap:=bmp;
//
for i:=1 to 5 do
  for j:=1 to 5 do
    begin  //а это — копирование частей рисунка
    SourceRect:=Rect((j-1)*80,(i-1)*80,j*80,i*80);
    DestRect:=Rect(0,0,80,80);
    TempB.Canvas.CopyRect(DestRect,BMP.Canvas, SourceRect);
    ImageList1.Add(TempB,nil);
    end;
BMP.Destroy; TempB.Destroy;
for i:=1 to 21 do
begin    //в этом цикле фрагменты картинки меняются местами
  repeat
  x1:=random(5)+1;y1:=random(5)+1;
  x2:=random(5)+1;y2:=random(5)+1;
  until (x1<>x2)and(y2<>y1);
j:=pict[x2,y2];
pict[x2,y2]:=pict[x1,y1];
pict[x1,y1]:=j;
end;
end;

procedure TForm1.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
Tag := Pict[ARow+1,ACol+1]-1;
ImageList1.Draw(DrawGrid1.Canvas,Rect.Left,Rect.Top,Tag);

end;

procedure TForm1.DrawGrid1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  i,j,t:byte;
  win:boolean;
begin
if SwitchB then             //надо   менять   фрагменты местами
  begin
  t:=pict[y div 81+1,x div 81+1];
  pict[y div 81+1,x div 81+1]:=pict[switch.y,Switch.x];
  pict[switch.y,Switch.x]:=t;
  SwitchB:=false;
  end
else           //первое нажатие в паре «выбор-обмен»
  begin
  Switch.x:=x div 81 +1;
  Switch.y:=y div 81 +1;
  SwitchB:=true;
  end;
win:=true;
for i:=1 to 5 do
for j:=1 to 5 do
win:=win and (pict[i,j]=(i-1)*5+j);
if win then // если все собрано.,
  application.MessageBox('Молодец ты все собрал!','Победа!', MB_ICONINFORMATION);
end;

procedure TForm1.btView_sourceClick(Sender: TObject);
begin
formSource_image.Image1.Canvas.Draw(0,0,Source_BMP.Graphic);
formSource_image.Show
end;

end.

[guver]

Сообщение от dr. F.I.N.

Код:

var
  i: Integer;
  s : TStringList;
begin
  if Form1.ControlCount = 0 then Exit;
  s := TStringList.Create;
  for i := 0 to Form1.ControlCount - 1 do
  if Form1.Controls[i] is TEdit then
  s.Add(TEdit(Form1.Controls[i]).Text);
  s.SaveToFile('<Your filename>');
  s.Free;
end;

А уже все есть. Ты только посмотри внимательно ))))
А вот с мемо по твоему вопросу заморачиваться не охота. Стандартных решений вроде нет, а остальное - геморрой...

Ошибку не выдает , файл создает но в нем опять ниче не пишет (( wtf

http://clip2net.com/page/m0/5766282

[dr. F.I.N.]

Сообщение от guver

Ошибку не выдает , файл создает но в нем опять ниче не пишет (( wtf

Попробуй встравить перед s.SaveToFile('<Your filename>');
вот такую строчку ShowMessage(s.Text); и посмотри что вылетит.

[guver]

С сохранением разобрался А вот с иконкой которая никак не хочет ставится на приложение и коментами к проге можно еще помочь )

[dr. F.I.N.]

Ну трудно сказать что ты там мудришь ВОбще вызываешь меню свойств проекта и указываешь какую надо иконку. По пунктам меню не помню, я всегда по Ctr+Shift+F11 вызываю. Кстати...еще помнится была у меня проблема с форматом иконки, но точно не помню, так что не подскажу. Можешь залить куданить проект и иконку какую надо, вставлю её

[guver]

аааа ) я удалил эту тему )))))) аааааааааааааа )) сколько рисовал седня в пайнте ))) как найду покажу )) шя весь инет про f3

[guver]

вот код сверху от проги , как мне её шя найти ? )) она была такая простая и классная

[guver]

FIn или Страдалец у вас есть аськи ? ) или скайп ) один вопрос остался и я почти все сделал )) в лс напишите номер