- olsa yeni başlayanlara da yardım edebilir.
Bende Delphi 5.0 var Form1'deki Label1 ile ilgil hatalar veriyor başkaları için de veriyor ve ben de Ignore dedim belki açar diye maalesef açmadı. Başkalarının kodunu anlayıp, çözüp geliştirmeniz gerekecek. 
Katılımlarınızı bekliyoruz.
- Programı çalıştırdığımda ekran düzenini bu açıklamana göre karşılaştırdım.@karflake yazdı:Bildiğiniz gibi satranç tahtası 8 satır ve 8 sütundan oluşur. Satırlar 1-8 arası rakamlarla, sütunlar ise A-H arası harflerle tanımlanır. Örneğin satranç tahtasının sol alt köşesindeki karenin koordinatları A1'dir. Bir satranç tahtasının doğru olarak konumlanabilmesi için her vezir kendi rengindeki karede bulunur ve sağ alt köşede her zaman beyaz karenin olması gerekir.
Kod: Tümünü seç
procedure TForm1.LstYahooClick(Sender: TObject);
begin
lstdene.Clear;
// cevir;
Cevir2(5, lstyahoo.ItemIndex);
end;Kod: Tümünü seç
procedure Tform1.cevir2(Basla, Bitis : Integer);
var
say:byte;
tut,tut1,tut2:string;
begin
say:=0; //lstdene.Clear;
baslangic_konumu;
lstdene.items.Add('[Event "'+'Yahoo Chessgame'+'"]');
lstdene.items.Add('[Site "'+'Yahoo'+'"]');
lstdene.items.Add('[Date "'+datetostr(date)+'"]');
lstdene.items.Add('[Round "-"]');
lstdene.items.Add('[White "'+copy(lstyahoo.Items[1],8,lstyahoo.Items.Count-8)+'"]');
lstdene.items.Add('[Black "'+copy(lstyahoo.Items[2],8,lstyahoo.Items.Count-8)+'"]');
tut1:=lstyahoo.Items[lstyahoo.Items.Count-1];
//Aşağıdaki kısım tam doğru çalışmıyor olabilir.
if tekrar_sayisi(tut1,'+',false)>=2 then
begin
if length(tut1)<=12 then
lstdene.items.Add('[Result "1-0"]')
else lstdene.items.Add('[Result "0-1"]');
end
else lstdene.items.Add('[Result "1/2-1/2"]');
lstdene.items.Add('');
for i:=Basla to Bitis do
begin
say:=say+1;
tut:=lstyahoo.Items[i];
tut:=copy(tut,pos(' ',tut)+1,length(tut)-pos(' ',tut));
tut1:=beyaz_hamle(copy(tut,1,pos(' ',tut)-1));
tut1:=degisen_piyon(tut1);
tut2:=siyah_hamle(copy(tut,pos(' ',tut)+1,length(tut)-pos(' ',tut)));
tut2:=degisen_piyon(tut2);
tekrar_sayisi(tut1,'P',true);
tekrar_sayisi(tut2,'P',true);
lstdene.Items.Add(inttostr(say)+'. '+tut1+' '+tut2);
goster;
if ChkBgoster.Checked then ShowMessagePos(inttostr(say)+'. Hamle',250,200);
end;
lstdene.Items[lstdene.Items.Count-1]:=TrimRight(lstdene.Items[lstdene.Items.Count-1])+'#';
lstdene.Items.Add('');
calisma:=calisma+1;
if k>1 then
cok_oyun_isle(calisma);
end;
Tahtadaki renkler için ise aşağıdaki ekleme yapılınca biraz görsellik kattık... Kod: Tümünü seç
procedure TForm1.durumDrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
// StringGrid2.DefaultDrawing:=false; yaptık
with TStringGrid(Sender), TStringGrid(Sender).Canvas do
begin
If ((ACol div 2) * 2 <> ACol) AND ((ARow div 2) * 2 <> ARow) OR
((ACol div 2) * 2 = ACol) AND ((ARow div 2) * 2 = ARow) then
begin
Brush.Color := $00ECEFF0; // Açık Gri
FillRect(Rect);
end
else
begin
Brush.Color := clWhite;
FillRect(Rect);
end;
Font.Style := [fsBold];
TextOut(Rect.Left+2, Rect.Top+2, Cells[ACol, ARow])
end;
end;
....
başlığı yeni gördüm çünkü bir kaç gündür faruma uğrayamıyorum işlerim biraz yoğun bazen messengeri bile açamıyorummussimsek yazdı:
Maalesef genel karakteristik bu. Bir kısım sadece işi düştüğü zaman uğrarken, bir kısımda çok yoğun çalışıyor.
Kolay gelsin.
