Модуль "Flash Rainbow POG" (часть 11) - spSkinSpeedButton10Click

Рубрика: Исходники
Среда, 21 апреля 2010 г.
Просмотров: 140
последняя версия: 3.0.9 build 961 beta
от 07 декабря 2007 г.
procedure TfrmFlash_Work_with_POG.spSkinSpeedButton10Click(Sender: TObject);
var
  fName, xStart: string;
begin
  if not Form1.IsFlashConnected then exit;
  if not OpenDialog1.Execute then exit;
  fName:= OpenDialog1.FileName;
  xStart:= '10000000';
  if USB_LocationName = MotBlankRainbowPOG
   then POG_UpLoadMemory(xStart, FName)
    else Form1.spSkinMessage1.MessageDlg(fp_m_text01, mtError, [mbOk], 0);
end;

Rambler's Top100